SimulateurRésolu

Question

Bonjour,

Je voudrais r&#233;aliser un simulateur de flux simple en VB6. (simulation de manutention dans l'automobile)
Mon probl&#232;me est le suivant: 
J'ai X emplacements (shape en rectangle) comment changer la couleur de chacun des shapes pendant un temps T param&#234;trable pour chaque shape? 

Merci de m'aider,


 Bougon jaune

econs · Accepted Answer

Salut,







Dim compteur As Long



Private Sub Command1_Click()

    '   On lance le Timer

    Timer1.Enabled = True

End Sub



Private Sub Form_Load()

    compteur = 0

    Timer1.Interval = 1000

    Shape1.BackColor = vblue

    Shape1.BackStyle = 1

End Sub



Private Sub Timer1_Timer()

    '   On augmente le compteur

    compteur = compteur + 1

    If compteur < 5 Then

        '   Si on n'a pas pass&#233; 5 secondes

        '   La Shape reste rouge.

        Shape1.BackColor = vbRed

    Else

        '   Si on arrive &#224; 5 secondes ...

        compteur = 0

        '   La shape reprend sa couleur bleue initiale

        Shape1.BackColor = vbBlue

        '   On arr&#234;te le Timer

        Timer1.Enabled = False

    End If

    

End Sub





Manu

59fdex · Answer

Merci Manu


 Bougon jaune

Simulateur

2 réponses

Discussions similaires