Delay

Delay ? hvad mener du helt nøj agtigt ?

Du kan lave det med en timer.....

Du laver en knap hvor du normalt vil have en handling, der aktivere du din timer.....

Du sætter en timer ind og sætter følgende i din form_load:

Private Sub Form_Load()
  Timer1.Interval = 1000 'Tallet er antal millisekunder timeren løber over
  Timer1.Enable = False
End Sub

Du laver så en knap der starter din timer:

Private Sub Command1_Click()
  Timer1.Enable = True
End Sub

Og så din handling i timeren, som slutter med at disable timeren:

Private Sub Timer1_Timer()
  MsgBox "Timer1 er nu slutter"
  Timer1.Enable = False
End Sub

/Tubber

Fandt lige den her i et andet spg.

Sub Delay()
d = 0
Do While d < 4000
d = d + 1
Loop
End Sub
Den skal kaldes inde fra en løkke, så kører den den igennem inden den fortsætter løkken....

GoSub Delay vil jeg tro du skal bruge for at kalde den......

Se også her:
http://www.zarr.net/vb/download/codedetail.asp?code=78

Tubber>> Hvad med den her:

For d = 1 to 10000:next d

Gør den ikke det samme ?

- Mikker

For selv at svare på det: NEJ!

- Mikker

med en commandbutton og en textbox er her en pause på 5 sekunder der kan kaldes altid og hele tiden...

Private Sub Command1_Click()
Call paus(5)
Text1 = "pause slut"
End Sub

Sub paus(ByVal lang As Integer)
mytime2 = DateAdd("s", lang, Time)
Do While Not mytime2 <= Time
DoEvents
Loop
End Sub


- Mikker

Du kan også lave en lidt ældre model af et delay

Du laver en knap med din kode og tæller langsomt til 5 inden du trykker......

Er det med et loop, så lav så den stopper efter hver gennemløb, tæl til 5 tryk  på knappen og lad den lave et gennemløb mere.....og så tæl.....

/Lige et useriøst indslag :O)
/Tubber

Du kan også anvende et API-kald, hvilket i modsætning til loops giver samme delay på alle computere, uanset processor-hastighed.

Du definerer denne funktion i toppen af din kode:

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

Herefter kan du kalde metoden "Sleep" med en parameter der angiver antallet af millisekunder, programmet skal vente.

Og så er der også Wait ...

Vrøvl, gu er der ej wait - huskede forkert. Brug en Timer, eller API-kaldet fra magik :o)

- i toppen af min kode, siger du maqik - kan du præcisere hvor det er ? - i toppen af modulet, sub'en eller hvad - den brokker sig begge steder.

I toppen af det kodevindue, der knytter sig til din form. API-kald er måske lidt voldsomt, det fungerer ved at du kalder funktioner der ligger i diverse dll-filer i din windowsmappe (i dette tilfælde "kernel32.dll" der ligger i din SYSTEM-mappe under windows), og er lidt "avanceret" :o) Og pas på med erklæringen af funktionen - den er følsom for den mindste fejl, mangler et mellemrum eller er et bogstav skrevet med stort i stedet for lille, får du fejl.

Hvis du vil nøjes med en mindre forkromet løsning, der virker 100% efter hensigten, kan du bruge timeren som tubber har forklaret om - hans første svar er lige til at kopiere :o)

Hov. Du skal nok have Private foran Declare. Ellers må det da vist give fejl. :o)

Er du med, nanna31? Fik du det til at virke?

Halooo? Nanna? Giv points, eller spørg videre

ja - jeg kan ikke få noget af det til at virke, men jeg er også begynder, som jeg sagde.

nanna31 >>hvad er det du ønsker at lave? og er du sikker på at det er "delay" du vil lave?

Ja - kom igen. Forklar præcis hvad du ønsker, og jeg (eller en anden) skal nok forklare det så du forstår og det virker :o)

Jeg har et loop i mit program, som kører alt for hurtigt, så for hvert gennemløb, skal jeg have indsat en forsinkelse i afviklingen (I Pascal plejede jeg bare at skrive delay(1000); - og så stoppede hele afviklingen i et sekund, kan dette ikke gøre ligeså enkelt i VB ?

Nææ - du skal have fat i en Timer. - Eller det API-kald der er blevet nævnt. Timeren er faktisk ret smart, og kan bruges til mange ting. Prøv at læs de få linier der står om den i hjælpen.

Er du i tvivl om hvordan timeren skal bruges, så spørg.

Jeg undrer mig over, hvad mon det er for et loop der "kører for hurtigt" ??? Hvis det er fordi en bruger skal nå at læse noget tekst eller lignende i hvert loop, kan du jo lave en msgbox der spørger brugeren hvornår han/hun er klar til at fortsætte. Så kan brugeren selv bestemme om der skal gå 1 sekund eller et minut... Bare en ide

Eller du kan bruge uret fra din PC, som mikker har givet et perfekt eksempel på 14/12-2002 10:23:38 :o)

Mht. det API-kald, så er det blot at smide een linie i toppen af din kode, hvorefter du kan bruge Sleep(5000) - præcist som i Pascal!!!

Linien du skal sætte i toppen af dit kodevindue er:

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

Prøv at lave det sådan:


Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim bLoopRunning As Boolean

Public Sub TheLoop()
Const LoopHastighed As Long = 50 'Hastighed på Loop
Static TickCount As Long
Static LastTickCount As Long

Static lCount As Long

  Do While bLoopRunning
    TickCount = GetTickCount()
      If TickCount - LastTickCount > LoopHastighed Then
      LastTickCount = TickCount
'-------------------- her skriver du din loop kode --------------------

lCount = lCount + 1
Me.Caption = lCount

'-------------------- her skriver du din loop kode --------------------
      End If
    DoEvents
  Loop
End Sub

Private Sub Form_Load()
  Me.Show
  bLoopRunning = True
  Call TheLoop
End Sub

Private Sub Form_Unload(Cancel As Integer)
  bLoopRunning = False
  Call TheLoop
End Sub

du kan også få det som du vil: delay 500

Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub delay(LoopHastighed As Long)
Dim bLoopRunning As Boolean
Static TickCount As Long
Static LastTickCount As Long
  bLoopRunning = True
  Do While bLoopRunning
    TickCount = GetTickCount()
      If TickCount - LastTickCount > LoopHastighed Then
      LastTickCount = TickCount
        bLoopRunning = False
      End If
    DoEvents
  Loop
End Sub

Private Sub Form_Load()
Static lCount As Long
  Me.Show
  Do While lCount < 10
    delay 500
    lCount = lCount + 1
    Me.Caption = lCount
  Loop
End Sub

Ok tak for hjælpen, jeg forsøger jeres forslag.

Den mest simple løsning er nok den fra 07/01-2003 17:50:16 - kræver kun een linie :o)

hvis det er den kode du har brugt så var det jo martin_moth der skulle have haft de 75 point. ;)

Nej - for jeg gentog bare magik's svar ;o)

Alle har jko efterhånden leveret en indsats, og jeg har det fint med at der er delt pts imellem os :o)

Tænk - så mange svar for en lille delay-funktion.

Undrer mig stadig over hvad i alverden hun skal bruge det til?

Over & out, Martin

ok det fik jeg ikke set. #-)

Hun skal nok bruge det til at nedsætte hastigheden på et loop eller for i =... ;-)