Προγραμματισμός VB Φανάρια

[Spartakos]

Καλημέρα παίδες

Μας έχουν δώσει τον παρακάτω κώδικα σε Visual Basic

 

 

Private Sub Activate_Click()
Dim default1 As Double
Text1 = Timer

Do

default1 = Timer
Do
Text1 = Timer
Shape2.FillColor = vbRed
DoEvents
Loop Until Timer - default1 > 1

default1 = Timer
Do
Text1 = Timer
Shape3.FillColor = &H8080FF
DoEvents
Loop Until Timer - default1 > 1

default1 = Timer
Do
Text1 = Timer
Shape4.FillColor = vbGreen
DoEvents
Loop Until Timer - default1 > 1

Loop While (1)
End Sub

 

και μας ζητάνε να βάλουμε ενδιάμεσες εντολές ώστε να λειτουργουν τα φανάρια σωστά.

Μιας και δεν πολυ γνωρίζουμε (σχεδον καθόλου δλδ ) μπορει κάποιος να ρίξει ενα χέρι βοηθείας?

Ευχαριστώ πολυ και παλι
 

[spartakos81]

καμμια βοήθεια κανείς?