Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Luci - Form1.frm

Form1.frm

 Caricato da: Albertking82
Scarica il programma completo

  1. Dim i As Integer, temp As Long
  2.  
  3. Private Sub Timer1_Timer()
  4.  
  5. If temp > 100 Then
  6.    temp = 0
  7.    Else
  8.    temp = temp + 1
  9. End If
  10. If temp > 10 Then
  11.    For i = 0 To 10
  12.    blu(i).BackColor = vbYellow
  13.    Next i
  14. End If
  15.  
  16. For i = 0 To 10
  17.  
  18.  If blu(i).Visible = True Then
  19.  
  20.  blu(i).Visible = False
  21.  Else
  22.  
  23.  blu(i).Visible = True
  24.  End If
  25.  
  26. Next i
  27.  
  28. End Sub
  29.  
  30. Private Sub Timer2_Timer()
  31. For i = 0 To 10
  32.  
  33.  If verde(i).Visible = True Then
  34.  
  35.  verde(i).Visible = False
  36.  Else
  37.  
  38.  verde(i).Visible = True
  39.  End If
  40.  
  41. Next i
  42. End Sub
  43.  
  44. Private Sub Timer3_Timer()
  45. For i = 0 To 13
  46.  
  47.  If cuore(i).Visible = True Then
  48.  
  49. cuore(i).Visible = False
  50.  Else
  51.  
  52.  cuore(i).Visible = True
  53.  End If
  54.  
  55. Next i
  56. End Sub