compteur

Question

bonjour a tousssss

se que je voudrai faire c un compteur qui compte jusqu'a 100 puis que sa sarete sur 100
g deja fai sa 

Dim s As Integer
Private Sub Timer1_Timer()
s = s + 1
Label1.Caption = (s)
End Sub

mes sa compte indefiniment moi se que je ve c que sa stop a 100 

merci

                     ==drpsico==

antoineraymond · Answer

dim i as integer
for i = 1 to 100
     Label1.Caption = i
next i

Antoine

cs_ying · Answer

DIDARTGO

Dim s As Integer
Private Sub Timer1_Timer()

if s <= 100 then

s = s + 1
Label1.Caption = (s)

end if

End Sub

 :)

destroymonster · Answer

Ce code va arrêter ton compteur dès qu'il sera supérieur à 100.

Dim s As Integer
Private Sub Timer1_Timer()

if s <= 100 then

s = s + 1
Label1.Caption = (s)

else

Timer1.enabled = false

end if

End Sub

 · Answer

voila se que je voulai
merci a ying pour mavoir mi sur la route

Dim s As Integer

Private Sub res_Click()
   s = 0
   Label1.Caption = 0
End Sub

Private Sub Timer1_Timer()
    If Check1.Value = 1 Then
      If s < 100 Then
        s = s + 1
        Label1.Caption = (s)
      End If
    End If
End Sub
              

              ==psicofox6@hotmail.com==

Compteur

4 réponses

Discussions similaires