Hejsan

Jag har en funktion som körs intervall 60000

men jag skulle även vilja att det fanns en nerräkning till nästa körning

men hur får jag till det?

Lite svårt att veta vad du menar utifrån din information.
Därför antar jag att du anropar en funktion från ett Timer-
event som triggas var 60:e sekund (60000 ms).

Nåt så här:

<code>
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
txtResultat.Text=cstr(MinFunktion(10))
End Sub

Private Function MinFunktion(i As Integer) As Integer
'Min funktion multiplicerar alla tal med 10
MinFunktion = i * 10
End Function
</code>


Då skulle en lösning kunna se ut så här ungefär:

<code>
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 1000 '1 Sekund
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
lblTimeleft.Caption = "Tid till anrop: " & CStr(60 - i - 1)
i = (i + 1) Mod 60 'i börjar om på 0 efter 59
If i = 0 Then
txtResultat.Text = MinFunktion(10)
End If
End Sub

Private Function MinFunktion(i As Integer) As Integer
'Min funktion multiplicerar alla tal med 10
MinFunktion = i * 10
End Function
</code>


[Peter.H]

jag fick det inte att funka..
han började inte räkna ner

Då har du inte kopierat koden exakt som det står ovan.

förlåt.. fått till det nu..

Jag hadde lblTimeleft för liten så jag såg inte nerräkningen:

Du hadde rätt den fungerar perfekt