Eenvoudige oefeningetje

[Visserke]

Hoi,

Ik zou graag deze oefening maken.
Een verkeerslicht dat om de x tijd van kleur verandert. Deze tijd moet instelbaar zijn. (5 tot 60sec). Heb dit trachtten te maken maar krijg een fout " Compilie error: argument not optional) ik heb al vanalles geprobeert om dit op te lossen maar zonder resultaat. Hopelijk kan iemand mij hiermee helpen.

Option Explicit
Dim intTeller As Integer
Dim intTellerTijd As Integer
Dim intDummy As Integer
Dim intDummy1 As Integer

Private Sub cmdStart_Click(Index As Integer)

intTellerTijd = Val(txtTellertijd) Hier krijg ik de fout

If (txtTellertijd = "") Or (intTellerTijd < 5) Or (intTellerTijd < 60) Then
intDummy = MsgBox("Tijd moet tussen de 5 a 60 sec liggen!", vbOKOnly, "Foutmelding")
Else
intDummy1 = 1
End If

End Sub

Private Sub cmdStop_Click(Index As Integer)

End

End Sub

Private Sub Timer1_Timer()

If (intDummy1 = 1) Then
intTeller = intTeller + 1

If (inteller > intTellerTijd + intTellerTijd + intTellerTijd) Then
intTeller = 0
End If

If (intTeller >= 1) And (intTeller <= intTellerTijd) Then
shpRood.BackColor = vbRed
Else
shpRood.BackColor = vbBlack
End If

If (intTeller >= intTellerTijd) And (intTeller <= intTellerTijd + intTellerTijd) Then
shpOranje.BackColor = &H80FF&
Else
shpOranje.BackColor = vbBlack
End If

If (intTeller >= intTellerTijd + intTellerTijd) And (intTeller <= intTellerTijd + intTellerTijd + intTellerTijd) Then
shpGroen.BackColor = vbGreen
Else
shpGroen.BackColor = vbBlack
End If

End If

End Sub

Hopelijk kan iemand mij helpen. Alvast bedankt.

 

[Wigi]

Hang je bestandje eens bij, dan kunnen wij wat uittesten.

 

[Visserke]

Ok. Hopelijk is het uploaden gelukt. Hopelijk kan u mij zo snel mogelijk helpen.
Thx.

 

[Wigi]

Waarom niet gewoon je Excel file - eerst gezipt - doorsturen?

 

[Visserke]

Je bedoelt visualbasic programma omzetten naar een excel filetje? Ik dacht dat dit makkelijker was.

 

[Wigi]

Gaat je vraag over Visual basic for Applications (VBA) of over Visual Basic (VB)?

 

[Visserke]

Visual Basic 6.0. Hopelijk kan iemand mij snel helpen. Alvast bedankt.

 

[Wigi]

Ik zal je vraag melden aan een moderator die hem dan maar naar het juiste forum moet zetten.

 

[huijb]

Verplaatst

 

[JeHaJe]

Verkeerslicht-Knipperlicht aanpassing

De code kan vereenvoudigd worden door de volgende acties:

- de intTeller is niet nodig; de timer regelt nl. al dat om de XX seconden het licht
aan gaat(of wel de progammacode wordt uitgevoerd)

- intDummy1: moet je gebruiken om te bepalen welke licht

- gebruik in plaats van "backcolor" fillcolor in combinatie met fillstyle:

In mijn (enigzins gewijzigde form) ziet dat er zo uit:

If (intDummy1 = 1) Then
Shape1(1).FillStyle = 0
Shape1(1).FillColor = vbRed
Shape1(2).FillStyle = 1
End If

If (intDummy1 = 2) Then
Shape1(0).FillStyle = 0
Shape1(0).FillColor = &H80FF&
Shape1(1).FillStyle = 1
End If

If (intDummy1 = 3) Then
Shape1(2).FillStyle = 0
Shape1(2).FillColor = vbGreen
Shape1(0).FillStyle = 1

JH