Comment utiliser un timer

Soyez le premier à donner votre avis sur cette source.

Vue 4 216 fois - Téléchargée 588 fois

Description

une petite source très simple pour expliquer comment fonctionne un timer. dsl ce n'est pas paufiner, et les dessin ne sont pas beaux dans le zip.

Source / Exemple :


Dim label As Boolean
Dim i As Integer ' Déclare les variables.
Const img1 = "c:\vb\timerrrr\piou.bmp"
Const img2 = "c:\vb\timerrrr\cage.bmp"

Private Sub Command1_Click()
    On Error GoTo lasbas
    Text1.Text = CInt(Text1.Text)
    Timer1.Interval = Text1.Text
    GoTo overheer
lasbas:
MsgBox "il ne faut que des nombres"
Text1.Text = 1000
Timer1.Interval = Text1.Text
overheer:
End Sub

Private Sub Form_Load()

Timer1.Interval = 1000   ' Définit l'intervalle.
Image1.Picture = LoadPicture("c:\vb\timerrrr\piou.bmp")
label = True
Text1.Text = Timer1.Interval
   
End Sub

Private Sub Timer1_timer()
    
     If label = True Then
        Form1.Image1.Picture = LoadPicture(img2)
        label = False
    Else
        Form1.Image1.Picture = LoadPicture(img1)
        label = True
    End If
    
End Sub

Conclusion :


si vous avez des questions des remarque n'hesitez pas

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
232
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
27 octobre 2007

c dejà mieux :)
Messages postés
8
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
1 mai 2005

et pourquoi pas

err.clear
on error resume next
Text1.Text = CInt(Text1.Text)
if err.number >0 then
....

ou bien
if not isnumeric(Text1.Text) then
....
Messages postés
232
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
27 octobre 2007

salut, juste pour te dire d eviter de faire des goto,c pas tip top.
bon, pour le on error, la pas le choix, mais apres, tu fait exit sub, tu n as pas besoin de declarer un autre label de code
voila
++
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
(Je ne suis pas a l'origine de cette note....)

C'est zoli, mais je ne vois pas vraiment l'interet.
de plus, tu charge contamment les images sur le disque, ce qui est assez gourmand......

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.