timer in button?

[DarkManX]

Hallo,

ich wollte einen Timer in eine "Button-Klick-Funktion" einfügen. Aber wie geht das? Bin ein Nub und habe nicht so recht Ahnung.

Private Sub start_Click()
    For i = 1 To 90 Step 1
        min.Caption = i
        Call zeit_Timer 'timer einfügen, aber wie ...
    Next
End Sub

Es soll also jede 2 Sekunden (habe Intervalle im Timer auf 2000 gestellt) i + 1 gemacht werden. Also die For-Schleife mit einer Verzögerung. Wie stelle ich das am besten an?

thx4help & mfg
DarkManX

 

[wincnc]

Versuch´s mal so:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub start_Click()
    For i = 1 To 90
        Min.Caption = i
        Sleep 2000
    Next
End Sub

 

[DarkManX]

Naja,

Mit Sleep geht es irgend wie nicht, zumindestens bei mir. habe jetzt so gemacht:

Sub verzoegerung(sec)
        start = Timer
            Do
              DoEvents
              zeit = Timer - start
            Loop Until zeit >= sec
End Sub

Geht auch prima.

Noch eine Frage habe ich. Wie definiert man Funktionen in einer Variable?

Sub zufallszahl(ByVal min, ByVal max)
        z = Rnd
        zufallszahl = Int(min + (max - min + 1) * z)
End Sub
X1 = zufallszahl(1, 100)

Diese Fehlermeldung kommt: "Compile error: Expected Function or variable".

mfg
DarkManX

 

[Merlin_78]

Du kannst nur mit Rückgabewerten aus einer Methode arbeiten, wenn du diese als Function deklarierst.

Private Function zufallszahl(ByVal min, ByVal max) As Integer
		z = Rnd
		zufallszahl = Int(min + (max - min + 1) * z)
End Function