Pozdrav forumaši,
Ovako imam mali semafor programčić koji treba da izmijenim odnosno da dodam 3 polja za svaku boju na semaforu po jedno polje u kom se
može unijeti brij sekundi koliko će ta boja na semaforu da bude upaljena crvena, žuta i zelena. Ne treba mi gotov projekt već samo smjernice
kako mogu da to uradim, kreiram dugme trajanjeZeleno, trajanjeZuzo i trajanjeCrveno i na dnu dodam dugme "Promijeni" e sad kako da izmijenim
dužinu trajanja koliko je svijetlo upaljeno ?
Code:
Dim intSekunda As Integer
Dim boja As Integer ' 0 - crvena, 1 - zuta, 2 - zelena
Dim bsmjer As Boolean ' u kojem smjeru sa zute: True - na zelenu, false - na crvenu
Dim secCrvene As Integer
Dim secZute As Integer
Dim secZelene As Integer
Dim ugasenaCrvena As Long
Dim ugasenaZuta As Long
Dim ugasenaZelena As Long
Dim upaljenaCrvena As Long
Dim upaljenaZuta As Long
Dim upaljenaZelena As Long
Private Sub Form_Load()
ugasenaCrvena = RGB(120, 0, 0)
ugasenaZuta = RGB(120, 100, 0)
ugasenaZelena = RGB(0, 100, 0)
upaljenaCrvena = RGB(255, 0, 0)
upaljenaZuta = RGB(255, 255, 0)
upaljenaZelena = RGB(0, 255, 0)
secCrvene = 5
secZute = 2
secZelene = 12
bsmjer = True
lblCrveno.BackColor = upaljenaCrvena
lblZuto.BackColor = ugasenaZuta
lblZeleno.BackColor = ugasenaZelena
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub
Private Sub Text3_Change()
End Sub
Private Sub Timer1_Timer()
intSekunda = intSekunda + 1
If boja = 0 Then
' Crvena je boja, pogledati koliko sekundi
If intSekunda < secCrvene Then
' I dalje je crvena - sve isto
Else
' prelazimo na zutu
intSekunda = 0 ' anulira se odbrojavanje
boja = 1
lblCrveno.BackColor = ugasenaCrvena
lblZuto.BackColor = upaljenaZuta
lblZeleno.BackColor = ugasenaZelena ' Ovo ne mora, vec je ugasena
End If
ElseIf boja = 1 Then
' Zuta je boja, pogledati koliko sekundi
If intSekunda < secZute Then
' I dalje je zuta
Else
' prelazimo na zelenu ili crvenu
If bsmjer Then
boja = 2 ' na zelenu
intSekunda = 0 ' anulira se odbrojavanje
lblCrveno.BackColor = ugasenaCrvena ' Ovo ne mora, vec je ugasena
lblZuto.BackColor = ugasenaZuta
lblZeleno.BackColor = upaljenaZelena
Else
boja = 0 ' na crvenu
intSekunda = 0 ' anulira se odbrojavanje
lblCrveno.BackColor = upaljenaCrvena
lblZuto.BackColor = ugasenaZuta
lblZeleno.BackColor = ugasenaZelena ' Ovo ne mora, vec je ugasena
End If
intSekunda = 0
bsmjer = Not bsmjer ' sledeci put u suprotnom smjeru
End If
Else
' Zelena je boja, pogledati koliko sekundi
If intSekunda < secCrvene Then
' I dalje je zelena
Else
' prelazimo na zutu
intSekunda = 0
boja = 1
lblCrveno.BackColor = ugasenaCrvena ' Ovo ne mora, vec je ugasena
lblZuto.BackColor = upaljenaZuta
lblZeleno.BackColor = ugasenaZelena
End If
End If
End Sub
Bookmarks