cs_Nox
Messages postés415Date d'inscriptionmardi 3 avril 2001StatutMembreDernière intervention26 avril 2008
-
7 févr. 2002 à 00:59
doudouet
Messages postés8Date d'inscriptionmercredi 31 mai 2006StatutMembreDernière intervention22 juin 2006
-
5 août 2006 à 19:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
doudouet
Messages postés8Date d'inscriptionmercredi 31 mai 2006StatutMembreDernière intervention22 juin 2006 5 août 2006 à 19:22
bon au lieu de vous charier trouverz de bon arguments pour critiquer méme moi qui est hyper débutnat j'ai vu de grosses fautes .
1) méme si cette source à vocation d'aprendre elle ne sert juste qu'a faire conaitre la propriété value de la progress bar. ( sé se que je cherché mé jorais pu lavoir nimporte ou ailleur )
2) la contruction du code est vraiment trés mauvaise et méme si au niveux des perf c'est insignifiant il faut quand méme faire gaffe sa peut induire en erreur les grand débutants.
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = ProgressBar1 + 50
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1.Value + 20
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
End If
End If
End If
End Sub
regarder les 2 dernier if sont en trop puisque que vu la contruction du code equation sera toujours bonne
30 + 50 =80
80+20 =10
Private Sub Timer2_Timer()
If ProgressBar1.Value = ProgressBar1.Max Then
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
End
End If
End Sub
le mieus sé de suprimer le timer 2 é de faire ainsi
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = 100
Timer1.Enabled = False
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
end if
End
end sub
pilpil44
Messages postés2Date d'inscriptionmardi 11 juillet 2006StatutMembreDernière intervention20 juillet 2006 20 juil. 2006 à 16:15
Bon Ok. Mais si on fouille un temps soit peu dans l'aide, on a la même info succinte.
cs_bellage
Messages postés2Date d'inscriptionmardi 18 juillet 2006StatutMembreDernière intervention20 juillet 2006 20 juil. 2006 à 15:39
ce code ma aidez beaucoup malgré c'est débutant
pilpil44
Messages postés2Date d'inscriptionmardi 11 juillet 2006StatutMembreDernière intervention20 juillet 2006 19 juil. 2006 à 17:06
Aucun intéret !!!
Frank9321
Messages postés56Date d'inscriptionsamedi 4 février 2006StatutMembreDernière intervention12 janvier 2008 21 avril 2006 à 14:38
Ca ma beaucoup aidé merci. pourais tu me donner le code pour faire bouger la progress bar avecun slide. Merci
Je travaille avec un controleur de lumiere avec pc. je foire un peu
CDAlstom
Messages postés69Date d'inscriptionmercredi 21 septembre 2005StatutMembreDernière intervention 6 mars 2006 25 nov. 2005 à 11:40
eh bah ça peut tjrs donné un coup de pousse à certains débutants...
cs_LuTo
Messages postés102Date d'inscriptionmercredi 9 janvier 2002StatutMembreDernière intervention 6 juin 2010 13 févr. 2002 à 09:05
Je vois pas trop l'interet d'utiliser une progressbar juste pour attendre un peu. C'est juste pour faire genre quoi.
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 8 févr. 2002 à 02:14
mwais
cs_Nox
Messages postés415Date d'inscriptionmardi 3 avril 2001StatutMembreDernière intervention26 avril 2008 7 févr. 2002 à 00:59
5 août 2006 à 19:22
1) méme si cette source à vocation d'aprendre elle ne sert juste qu'a faire conaitre la propriété value de la progress bar. ( sé se que je cherché mé jorais pu lavoir nimporte ou ailleur )
2) la contruction du code est vraiment trés mauvaise et méme si au niveux des perf c'est insignifiant il faut quand méme faire gaffe sa peut induire en erreur les grand débutants.
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = ProgressBar1 + 50
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1.Value + 20
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
End If
End If
End If
End Sub
regarder les 2 dernier if sont en trop puisque que vu la contruction du code equation sera toujours bonne
30 + 50 =80
80+20 =10
Private Sub Timer2_Timer()
If ProgressBar1.Value = ProgressBar1.Max Then
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
End
End If
End Sub
le mieus sé de suprimer le timer 2 é de faire ainsi
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = 100
Timer1.Enabled = False
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
end if
End
end sub
20 juil. 2006 à 16:15
20 juil. 2006 à 15:39
19 juil. 2006 à 17:06
21 avril 2006 à 14:38
Je travaille avec un controleur de lumiere avec pc. je foire un peu
25 nov. 2005 à 11:40
13 févr. 2002 à 09:05
8 févr. 2002 à 02:14
7 févr. 2002 à 00:59