Sujet Précédent Sujet Suivant

HORLOGE-RÉVEIL

sebleboss2002 Messages postés 189 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 3 avril 2005 - 17 janv. 2003 à 09:40
sebleboss2002 Messages postés 189 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 3 avril 2005 - 3 févr. 2003 à 18:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5670-horloge-reveil
sebleboss2002 Messages postés 189 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 3 avril 2005
3 févr. 2003 à 18:28
Merci langanay !
langanay Messages postés 3 Date d'inscription lundi 26 août 2002 Statut Membre Dernière intervention 3 février 2003
3 févr. 2003 à 17:26
Optimisation du code remplacer dans la fonction List3_CLick le numero de Form appelle (remplacer par 1)

Private Sub List3_Click()
If List3.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List3.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List3.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List3.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List3.Text "Gris" Then Form1.Label1.BackColor &H80000000
End Sub

a+
langanay Messages postés 3 Date d'inscription lundi 26 août 2002 Statut Membre Dernière intervention 3 février 2003
3 févr. 2003 à 17:26
Optimisation du code remplacer dans la fonction List3_CLick le numero de Form appelle (remplacer par 1)

Private Sub List3_Click()
If List3.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List3.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List3.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List3.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List3.Text "Gris" Then Form1.Label1.BackColor &H80000000
End Sub

a+
sebleboss2002 Messages postés 189 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 3 avril 2005
20 janv. 2003 à 11:24
Merci pour tes tes commentaires encourageants Ouneufe, mais je suis jeune ;) et débutant dans la matière, seulement une semaine que je me suis mis au VB5...
Pour le bug, si je comprends bien, il suffit selon toi que je mette une seconde liste déroulante pour la date ???

Merci quand même !
cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009
19 janv. 2003 à 23:17
Le voilà ton bug (et c'est pas le seul en dehors du fait que l'appli n'est pas optimisée question gestion des feuilles et des contrôles)

Private Sub List1_Click()
If List1.Text "Jaune" Then Form1.Label1.BackColor vbYellow
If List1.Text "Vert" Then Form1.Label1.BackColor vbGreen
If List1.Text "Bureau" Then Form1.Label1.BackColor &H80000001
If List1.Text "Rouge" Then Form1.Label1.BackColor vbRed
If List1.Text "Gris" Then Form1.Label1.BackColor &H80000000
If List1.Text "Clignotant" Then Form1.Timer2.Enabled True
End Sub

Tu utilises la même procédure pour heure et date alors qu'elles se trouvent respectivement sur form1 et form4. Tssss.

Bon courage, @+
cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009
19 janv. 2003 à 22:49
Dommage, pas de code visible. Le "tout dans la source" c'est toujours un peu rédhibitoire.
sebleboss2002 Messages postés 189 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 3 avril 2005
17 janv. 2003 à 09:40
Vos commentaires sont les bienvenus

Discussions similaires

affichage de l'heure en dixième, centième de secondes ??
cs_Jacky7 -
Orohena -

3 réponses
Heure avec centième de seconde
heyhi -
neohp -

2 réponses
Temps au centiéme de seconde avec une DB access
cs_ToGu -
ToGu -

5 réponses
Visual basic minecraft
zyza -
seb4stien13 -

3 réponses
Besoin d'aide pour programmer une horloge sur arduino avec un écran 4x7 segments
Edgard-Ledouillet -
cptpingu -

1 réponse
Rejoignez-nous