Problem mit dem Timer

[tYrEaL]

Hi!

Ich habe folgendes Problem:

Ich will mit einem Timer im Sekundentakt eine Function aufrufen lassen.
In der Function soll folgende Berechnung durchgeführt werden:

i = i + 1

leider zählt die Variable nicht hoch und bleibt irgendwie bei 1 stehen!
In der Function ist noch eine Abfrage, das wenn i=10 ist, eine andere Form schließen soll.

hier kommt der QuellCode,hoffe einer von euch Spezis kann mir helfen! schonmal danke!

Private Sub Start_Timer_Timer()
Dim i As Integer


If Timer Then
Call Addieren

End If

End Sub

Public Function Addieren()
Dim i As Integer

i = i + 1

If i = 10 Then
Info_Start.Hide
End If
End Function

mfg,
dennis

 

[Thomas Kuse]

Bist Du sicher dass

If Timer then

eine korrekte Anweisung ist, die auch wirklich eintritt?

 

[Retlaw]

Ausserdem ist die Variable i doppelt deklariert.
Deklarier die entweder auf Formularebene -oder- in der Function, (wiso nimmst du hier eine function und keine sub?) aber dann als static, damit der Wert beim Verlassen erhalten bleibt.

 

[tYrEaL]

howdi....

hi!


@Thomas
ja, ist ein korrekte anweisung, denk ich mal.....

@Retlaw
habe ich gemacht......funktioniert aber dennoch nicht ;(

kann mir vielleicht ein dafür den Code schnell schreiben?


danke,
tYrEaL

 

[tYrEaL]

aaaaaahaa

hi nochmal,

Danke für eure Antworten, habe jetzt die Lösung gefunden.

thx & goodbye