Hændelse skal styres af tid

kan du ikke bruge et klokkeslet..?

lave noget
if "der er gået mere en et sekund siden sidst"

>mcnovy, det tror jeg ikke, for det er en timer, der skal køre mod en anden timer. Ovenstående er kun et led i et større program. Men du kan da foreslå noget.

hvis du i forevejen har en timer.. og hvis den timer også kører konstant..?

så kan du da gemme timerens tid ned i en integer
lave en if funktion der spørger om timeren nu er mere en 1 sekund større en hvad der står i din integer.!

det er nok mit bedste bud..
må hellere sige at jeg ikke kender noget til visual basic.. kun C#, så jeg kan kun give nogle råd til hvad man kan gøre..

>hej mcnovy Det er meningen at forløbet skal forsinkes. Med 1 eller 2 eller tre sekunder mellem hvert klik. Dette skal kunne styres ved valg. Får jeg bare 1 klik pr. sekund, kan jeg sikkert selv klare resten. Men jeg kan ikke finde ud af, hvordan jeg undgår, at hele forløbet bliver udført på 1/100 af et sekund. Det er problemet.

Hvis du vil have koden til at 'sove' x antal sekunder kan du gøre flg.

'********** CODE START **********
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
  MsgBox "test"
  Sleep 3000
  MsgBox "ok?"
End Sub

'**********  CODE END  **********

Men jeg er ikke sikker på om det var sådan noget du mente ...
Kan ikke helt tolke det du skriver, måske hvis du kan uddybe det lidt ??
Mvh Emil

sorry, det er ikke sekunder, men milisekunder, så 1000ms = 1 sekund !!

>h7jws Ja, din kode virker. Men det der sker, når jeg sætter den ind som her:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Private Sub Command1_Click()

Dim tbC As Control, f As Integer, p
  For f = 1 To 12
      Set tbC = Me.Controls("Textbox" + CStr(f))
       
    p = tbC.Text
  If p <> "" Then
      tbC.Text = "Her er " + p

  End If
Next f
Sleep 3000
End Sub
er at starten bliver forsinket i 3 sekunder, hvorefter hele forløbet gennemføres i løbet af det næste splitsekund.
Der skal startes med det samme, men næste gennemkørsel skal først sættes i gang efter 3 sekunders sleep.
Programmet skal virke således: Her var nr. 12. 3 sekunders pause. Her var nr. 11, 3 sekunders pause, her var nr. 10 osv. Men tampen brænder..

så sæt det ind i for løkken !!

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



Private Sub Command1_Click()

Dim tbC As Control, f As Integer, p
  For f = 1 To 12
      Set tbC = Me.Controls("Textbox" + CStr(f))
     
    p = tbC.Text
  If p <> "" Then
      tbC.Text = "Her er " + p

  End If
  Sleep 3000
Next f

burde virke ! ;)

End Sub

sorry, kom til at skrive inde i din kode, det skulle se således ud:

'*** start

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


Private Sub Command1_Click()

Dim tbC As Control, f As Integer, p
  For f = 1 To 12
      Set tbC = Me.Controls("Textbox" + CStr(f))
     
    p = tbC.Text
  If p <> "" Then
      tbC.Text = "Her er " + p

  End If
  Sleep 3000
Next f

End Sub

'*** slut

>h7iws Ja, den virker men på den måde at der nu går ca. 12x3 sekunder inden den sætter gang i løkken.
Det jeg savner er, at der i løkken for f = 1 to 12 skal gå ca. 3 sekunder fra 1. til 2. og igen fra 2 til 3 osv indtil hele løkken er kørt igennem 36 sekunder efter.
Jeg håber, at du forstår hvad jeg mener.

lukker