Er zijn 7 reacties in dit onderwerp

[houthalen]

Met deze wordt het teken'>' val de label 20 keer getekend
en dan stopt.

Code:
Dim teller As Integer
Private Sub Timer1_Timer()
teller = teller + 1
Label1.Caption = Label1.Caption & ">"
If teller = 20 Then
teller = 0
End If
End Sub
Ho kan ik doen doen om alles continu te laten lopen (dus herhalen) tot ik de timer stop met
Timer1.enabled=false?

dank U

[Ludi]

Dat zou je zo kunnen doen

Visual Basic Code:

Dim teller As Integer

Public Sub Form_load()

Timer1.Interval = 250 ' Millisecondes
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()


teller = teller + 1
Label1.Caption = Label1.Caption & ">"

If teller = 20 Then
teller = 0
Label1.Caption = "Klaar"
Timer1.Enabled = False
End If

End Sub 

Ludi

[houthalen]

Uhm, Ludi,

ik ben niet duidelijk genoeg geweest

In label wordt het teken '>'  20 keer na elkaar getoond

Ik wil dat na de  20ste keer, alles wordt gewist en alles terug opnieuw begint.

Totdat ik de timer stopzet.

[Ludi]

Dat klopt dat gebeurd hier ook. Alleen nu wordt het woordje 'Klaar' erin gezet. Dat kun je vervangen.

[houthalen]

Na 20 keer ">" wordt 'Klaar' inderdaat getoond. En dan stopt.

Ik wil dat na 20 keer '>" wordt van 0 begonen en nogmaals 20 keer '>" getoond worden
en zo verder tot ik alles stop met Timer.enabled=False

[Ludi]

Bedoel je het zo

Visual Basic Code:

Dim teller As Integer

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Public Sub Form_load()
Timer1.Interval = 250 ' Millisecondes
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
teller = teller + 1
Label1.Caption = Label1.Caption & ">"

If teller = 20 Then
teller = 0
Label1.Caption = ""
End If

End Sub

Ludi

[houthalen]

Ja, Ludi, dat bedoelde ik !!!

Het was toch zo simpel maar ik raakte niet uit.

Opgelost  !!!!!

Zeer Bedankt

Houthalen

[Damic]

Dit is "beter" je maakt eerst een selectie voor dat je de teller ophoogt/label veranderd
Visual Basic Code:

Private Sub Timer1_Timer()
If teller => 20 Then
teller = 0
Label1.Caption = ""
else
Label1.Caption = Label1.Caption & ">"
teller = teller + 1
End If
End Sub