ViSuAl BaSiC pRoJeCt

[nicox]

in questi giorni ho iniziato un progetto per scuola.
in pratica devo programmare con vb6 il funzionamento di 2 semafori!

dovrei individuare 4 casi:

la prima colonna indica quello che deve fare il semaforo 1 e la seconda si riferisce al semaforo 2

in pratica al tempo 0 devo avere l'accensione della shape che evidenzia il verde per il semaforo 1, mentre per il semaforo 2 dovrei avere il rosso.
al tempo 20, il semaforo 1 è sull'arancio mentre il semaforo 2 rimane rosso, e così via, facendolo ripetere all'infinito finchè nn premo end (loop ? )

la struttura del progetto è così:

con 6 shape
2 bottoni
1 label
1 timer

[nicox]

per ora ho scritto questo, ma ho dei problemi: non riesco a fare cambiare colore agli shape dopo i 20 secondi... dove ho sbagliato??

Dim t As Integer
Dim n As Integer
Dim a As Integer

Private Sub btnesci_Click()
End
End Sub

Private Sub btnonoff_Click()

n = n + 1
a = n Mod 2

If a = 0 Then
btnonoff.BackColor = vbRed
btnonoff.Caption = "OFF"
t = 0
tmrs.Enabled = False

ElseIf a = 1 Then
btnonoff.BackColor = vbGreen
btnonoff.Caption = "ON"
tmrs.Enabled = True

Select Case t
Case Is > 0 And t <= 20
shpv1.FillColor = vbGreen
shpr2.FillColor = vbRed
Case Is > 20 And t <= 25
shpa1.FillColor = vbYellow
shpr2.FillColor = vbRed
Case Is > 25 And t <= 35
shpr1.FillColor = vbRed
shpv2.FillColor = vbGreen
Case Is > 35 And t <= 40
shpr1.FillColor = vbRed
shpa2.FillColor = vbYellow


End Select
End If
End Sub

Private Sub Form_Load()
Label1.Caption = 0
btnonoff.BackColor = vbRed
btnonoff.Caption = "OFF"
End Sub

Private Sub tmrs_Timer()
If a = 1 Then
t = t + 1
Label1.Caption = t
End If
End Sub

*modificato

[PaulPS2]

è un po' un casino Visual Basic, prenditi un bel libro guida e studia studia!

[Eclipse]

fallo in c++ con le sdl

[nicox]

@PaulPS2: di manuali di vb nn ne ho... e comunque nn ho tempo di studiare perchè miserve entro sabato

@Eclipse: devo usare vb perchè è per scuola

[nicox]

ho risolto il problema del tempo che partiva per i bippi suoi.

nn riesco però ancora a fare in modo che dopo 20 secondi, le shape accese varino!!
HELP

[PaulPS2]

@PaulPS2: di manuali di vb nn ne ho... e comunque nn ho tempo di studiare perchè miserve entro sabato

@Eclipse: devo usare vb perchè è per scuola

Vuoi dire che dopo sabato nn devi fare più nbiente con VB?

[nicox]

no ma devo portare questa relazione per sabato.
vb probabilmente lo userò solo quest'anno (3^ITIS) xciò preferisco nn approfondire + di tanto