1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
| Public Class Form1
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Settings.Reload()
My.Settings.Save()
Dim Timer As New Date
Dim H As String = ""
Dim M As String = ""
Dim S As String = ""
H = Hour(Timer)
M = Minute(Timer)
S = Second(Timer)
'Pour l'heure
H = Now.Hour
M = Now.Minute
S = Now.Second
'Pour l'assemblage
Label3.Text = H & ":" & M & ":" & S
'Pour l'écriture
My.Settings.Font = FontDialog1.Font
Label3.Font = FontDialog1.Font
My.Settings.Couleur = Label3.ForeColor
My.Settings.Menu = True
'Pour l'alerte
Dim dringM As String = H & M & S
'Interval d'avance
Me.Timer1.Interval = 200
My.Settings.Font = FontDialog1.Font
Label3.Font = FontDialog1.Font
Me.BackgroundImage = Horloge.My.Resources.Resources.myefarm1
Me.BackgroundImageLayout = ImageLayout.Stretch
My.Settings.Save()
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
End Sub
Private Sub DateTimePicker1_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
My.Settings.Font = FontDialog1.Font
Label3.Font = FontDialog1.Font
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Timer As New Date
Dim H As String = ""
Dim M As String = ""
Dim S As String = ""
'----------------------------------------------------------------------
H = Hour(Timer)
M = Minute(Timer)
S = Second(Timer)
'Pour l'heure
H = Now.Hour
M = Now.Minute
S = Now.Second
'Pour l'assemblage
Label3.Text = H & ":" & M & ":" & S
'Pour l'écriture
'Interval d'avance
Me.Timer1.Interval = 1000
My.Settings.Font = FontDialog1.Font
Label3.Font = FontDialog1.Font
Dim dring As String = H & M & S
'----------------------------------------------------------------------
'Les 4 Alarmes
If Me.Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Checked Then
'Réapro 1.1 pour 4h55
If dring = 4550 Then
Form2.ShowDialog()
End If
'Réapro 1.2 pour 5h00
If dring = 500 Then
Form3.ShowDialog()
End If
'Réapro 2.1 pour 19h55
If dring = 2319550 Then
Form2.ShowDialog()
End If
'Réapro 2.2 pour 20h00
If dring = 2000 Then
Form3.ShowDialog()
End If
End If
'Les 2 Alarmes
If AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Checked Then
'Réapro 5h00
If dring = 500 Then
Form3.ShowDialog()
End If
'Réapro 20h00
If dring = 2000 Then
Form3.ShowDialog()
End If
End If
End Sub
Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
End Sub
Private Sub ContextMenuStrip1_Opening_1(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
End Sub
Private Sub EcritureEtCouleurToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EcritureEtCouleurToolStripMenuItem.Click
FontDialog1.ShowDialog()
End Sub
Private Sub CouleurToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CouleurToolStripMenuItem.Click
End Sub
Private Sub QuitterToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem1.Click
Me.Close()
End Sub
Private Sub ImageDeFondToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageDeFondToolStripMenuItem.Click
End Sub
Private Sub ChoisirSonImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub BleuToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BleuToolStripMenuItem1.Click
My.Settings.Couleur = Color.Blue
Label3.ForeColor = Color.Blue
End Sub
Private Sub VertToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertToolStripMenuItem1.Click
My.Settings.Couleur = Color.Green
Label3.ForeColor = Color.Green
End Sub
Private Sub BlancToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlancToolStripMenuItem1.Click
My.Settings.Couleur = Color.White
Label3.ForeColor = Color.White
End Sub
Private Sub NoirToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoirToolStripMenuItem1.Click
My.Settings.Couleur = Color.Black
Label3.ForeColor = Color.Black
End Sub
Private Sub GrisToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrisToolStripMenuItem1.Click
My.Settings.Couleur = Color.Gray
Label3.ForeColor = Color.Gray
End Sub
Private Sub JauneToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JauneToolStripMenuItem1.Click
My.Settings.Couleur = Color.Yellow
Label3.ForeColor = Color.Yellow
End Sub
Private Sub CyanToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CyanToolStripMenuItem1.Click
My.Settings.Couleur = Color.Cyan
Label3.ForeColor = Color.Cyan
End Sub
Private Sub VioletToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VioletToolStripMenuItem1.Click
My.Settings.Couleur = Color.Purple
Label3.ForeColor = Color.Purple
End Sub
Private Sub RoseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RoseToolStripMenuItem.Click
My.Settings.Couleur =color.Pink
Label3.ForeColor = Color.Pink
End Sub
Private Sub FushiaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FushiaToolStripMenuItem.Click
My.Settings.Couleur = Color.Fuchsia
Label3.ForeColor = Color.Fuchsia
End Sub
Private Sub OrangeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrangeToolStripMenuItem.Click
My.Settings.Couleur = Color.Orange
Label3.ForeColor = Color.Orange
End Sub
Private Sub TêteDeVaacheToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TêteDeVaacheToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.tête_vache
Me.BackgroundImage = Horloge.My.Resources.tête_vache
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub VacheParLeTrouToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VacheParLeTrouToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.myefarm1
Me.BackgroundImage = Horloge.My.Resources.myefarm1
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub FermeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FermeToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.accueil
Me.BackgroundImage = Horloge.My.Resources.accueil
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub VacheSeulToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VacheSeulToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.Vache
Me.BackgroundImage = Horloge.My.Resources.Vache
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub MoutonVolantToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoutonVolantToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.sm
Me.BackgroundImage = Horloge.My.Resources.sm
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub MoutonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoutonToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.mouton
Me.BackgroundImage = Horloge.My.Resources.mouton
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub FermierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FermierToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.fermier
Me.BackgroundImage = Horloge.My.Resources.fermier
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub FermiereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FermiereToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.fermiere
Me.BackgroundImage = Horloge.My.Resources.fermiere
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub LapinSeulmaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapinSeulmaleToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.lapinm
Me.BackgroundImage = Horloge.My.Resources.lapinm
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub LapinFemmeleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapinFemmeleToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.lapinf
Me.BackgroundImage = Horloge.My.Resources.lapinf
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub LapinEnCoupleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapinEnCoupleToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.combat
Me.BackgroundImage = Horloge.My.Resources.combat
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub HallowinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HallowinToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.Hallo
Me.BackgroundImage = Horloge.My.Resources.Hallo
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub NoëlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoëlToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.noel
Me.BackgroundImage = Horloge.My.Resources.noel
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub CannardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CannardToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.canard
Me.BackgroundImage = Horloge.My.Resources.canard
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub PoussinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PoussinToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.poussin
Me.BackgroundImage = Horloge.My.Resources.poussin
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub PouleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PouleToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.poule
Me.BackgroundImage = Horloge.My.Resources.poule
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub CoqToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CoqToolStripMenuItem.Click
My.Settings.Arr_plan = Horloge.My.Resources.coq
Me.BackgroundImage = Horloge.My.Resources.coq
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Private Sub EcritureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EcritureToolStripMenuItem.Click
FontDialog1.ShowDialog()
End Sub
Private Sub CouleurToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CouleurToolStripMenuItem1.Click
End Sub
Private Sub OutilsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutilsToolStripMenuItem.Click
End Sub
Private Sub ToolStripSeparator17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripSeparator17.Click
ToolStripSeparator17.BackColor = Color.Red
End Sub
Private Sub ToolStripSeparator23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripSeparator23.Click
ToolStripSeparator23.BackColor = Color.Red
End Sub
Private Sub AutreToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutreToolStripMenuItem1.Click
End Sub
Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply
End Sub
Private Sub AProposDeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AProposDeToolStripMenuItem1.Click
MsgBox("My E-Farm's Time est une création de Jonathan Baudin, les images qui servent de fond au programme sont tirées de: http://www.myefarm.com")
End Sub
Private Sub SitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SitToolStripMenuItem.Click
Dim Textea As String = "Site de My E-Farm"
Me.MyEFarmToolStripMenuItem.Text = "http://www.myefarm.fr"
System.Diagnostics.Process.Start(Me.MyEFarmToolStripMenuItem.Text)
Me.MyEFarmToolStripMenuItem.Text = Textea
End Sub
Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub MenuStrip1_ItemClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Click
If Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Checked Then
AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Checked = False
NePasUtiliserDalarmeToolStripMenuItem.Checked = False
My.Settings.Menu = Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Checked
End If
End Sub
Private Sub AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Click
If AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Checked Then
Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Checked = False
NePasUtiliserDalarmeToolStripMenuItem.Checked = False
My.Settings.Menu = AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Checked
End If
End Sub
Private Sub NePasUtiliserDalarmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NePasUtiliserDalarmeToolStripMenuItem.Click
If NePasUtiliserDalarmeToolStripMenuItem.Checked Then
Alarme5minAvantEtÀLheureDesRéappros5h00Et20h00ToolStripMenuItem.Checked = False
AlarmeSeulementAuxHeureDeRéappros5h00Et20h00ToolStripMenuItem.Checked = False
My.Settings.Menu = NePasUtiliserDalarmeToolStripMenuItem.Checked
End If
End Sub
End Class |
