Discussion :

[dalinho84]

Bonjour,

J'ai insérer dans un form1 un label.mais lui affecté la date avec le code si dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DT As Date
        DT = Date.Now
        Label4.Text = DT

et j'ai inséré une boucle while et d'autre opération pour créer une horloge ,dans le formulaire ,qui contient seconde minute heure mais j'ai pas pu.

Merci de m'aider

[MABROUKI]

bonjour
voici comment faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Public Class Form1
    Dim blnAlarm As Boolean = False
    Dim dateDuJour As Date
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnDemarreTimer.Click
        Timer1.Enabled = True
    End Sub
 
    Private Sub radioBtnAlarmActive_CheckedChanged(ByVal sender As  _
        System.Object, ByVal e As System.EventArgs) _
        Handles radioBtnAlarmActive.CheckedChanged
        If radioBtnAlarmActive.Checked Then
            blnAlarm = True
        End If
    End Sub
    Private Sub radioBtnAlarmDesactive_CheckedChanged(ByVal sender As  _
        System.Object, ByVal e As System.EventArgs) _
        Handles radioBtnAlarmDesactive.CheckedChanged
        If radioBtnAlarmActive.Checked Then
            blnAlarm = False
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Timer1.Tick
        lblTempsDuJour.Text = TimeOfDay
        dateDuJour = Now
        lblDateDuJour.Text = dateDuJour.Date.ToLongDateString
 
       End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lblTempsDuJour.BackColor = Color.AliceBlue
        Me.lblTempsDuJour.ForeColor = Color.Red
        Me.lblTempsDuJour.Font = New Font("Arial", 16, FontStyle.Italic)
        Me.lblDateDuJour.BackColor = Color.AliceBlue
        Me.lblDateDuJour.ForeColor = Color.Red
        Me.lblDateDuJour.Font = New Font("Arial", 16, FontStyle.Bold)
    End Sub
End Class

bon code....

[Anklor]

utilise plutôt un Timer réglé sur 1 seconde au lieu d'une boucle while.

Si c'est juste l'heure que tu désire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label4.Text = TimeOfDay

[dalinho84]

salut
ces quoi le type de timer1?
j'ai un erreur au niveau de radiobtnalarmdesactive

[dalinho84]

j'ai essayer et sa marche pas s il vous plais si tu peut mieux explique et me donne le code complait si tu veut
merci

[MABROUKI]

bonjour ya hanafi
excuse moi je t'ai donne le code du label .J'ai oublie de supprimer ce "radiobtnalarmdesactiveet le radiobtnalarmactive".
Le Timer tu le rajoute de ta boite à outils là ou il sommeille.

L'exemple donne fait partie d'un exemple plus costaud avec une alarme quand on active ce radiobutton(beep reveil).
Mais voici le code plus costaud (qu'il ne faut pas meler au premier) avec 2 labels ( label pour l'heure et un pour la date du jour),un bouton,3 textbox (ou tu regle l'heure de l'alarme),et 2 radiobuttons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
 
Public Class Form1
    Dim blnAlarm As Boolean = False
    Dim dateDuJour As Date
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnDemarreTimer.Click
        Timer1.Enabled = True
    End Sub
 
    Private Sub radioBtnAlarmActive_CheckedChanged(ByVal sender As  _
        System.Object, ByVal e As System.EventArgs) _
        Handles radioBtnAlarmActive.CheckedChanged
        If radioBtnAlarmActive.Checked Then
            blnAlarm = True
        End If
    End Sub
    Private Sub radioBtnAlarmDesactive_CheckedChanged(ByVal sender As  _
        System.Object, ByVal e As System.EventArgs) _
        Handles radioBtnAlarmDesactive.CheckedChanged
        If radioBtnAlarmActive.Checked Then
            blnAlarm = False
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Timer1.Tick
        lblTempsDuJour.Text = TimeOfDay
        dateDuJour = Now
        lblDateDuJour.Text = dateDuJour.Date.ToLongDateString
 
        If TextBox1.Text <> "" And TextBox2.Text <> "" And _
            TextBox3.Text <> "" Then
            Dim AlarmTime = New DateTime(Today.Year, Today.Month, _
                 Today.Day, CInt(TextBox1.Text), CInt(TextBox2.Text), _
                 CInt(TextBox3.Text))
            If Now > AlarmTime And blnAlarm Then
                Beep()
            End If
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lblTempsDuJour.BackColor = Color.AliceBlue
        Me.lblTempsDuJour.ForeColor = Color.Red
        Me.lblTempsDuJour.Font = New Font("Arial", 16, FontStyle.Italic)
        Me.lblDateDuJour.BackColor = Color.AliceBlue
        Me.lblDateDuJour.ForeColor = Color.Red
        Me.lblDateDuJour.Font = New Font("Arial", 16, FontStyle.Bold)
    End Sub
End Class

bonne soiree...

[dalinho84]

Merci beaucoup,mais est ce que tous ce code pour faire seulement une horloge dans un label pourquoi bouton et radio?? je veux tous simplement affiche une horloge dans mon form

[dalinho84]

merci mais c'est ce que je veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Interval = 1000    'Timer1_Tick sera déclenché toutes les secondes.
 
        Timer1.Start()            'On démarre le Timer
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Label1.Text = Now.ToLongTimeString    'Affiche l'heure format long.
        Label2.Text = Now.Date
    End Sub
 
End Class