Hejsan.... Hej! Option Explicit Hej Tusen tack! hej >Sleep stänger ner Just Ditt program för det antal sekunder HejFrysa applikation
Jag har en liten fråga, nämligen hur gör man för att frysa ett program??
under låt oss säga 5 sek.Sv: Frysa applikation
Jag har samma fråga. Jag har provat med exemplet i tip798, med det fungetade inte så bra!
Jag har en lop som ska gå ett antal gonger och jag vill att lopen ska pausa typ en sekund mellan vat varv. I QBasic var det bara att skriva (Sleep 1) och programet pausade en sekund innan det fortsate. Fins det ingen lika enkel motsvarighet i VB?
Tack på förhand!
Anders!Sv: Frysa applikation
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Dim A as Integer
-----------------------------------------------------------------------------------
Private Sub Command1_Click()
Do Until A = 10
A = A + 1
Text1.Text = A
Sleep 1000
Loop
End Sub
Resultatet av detta blir att lopen går tio varv och när den gjort det sktivs 10 ut i Text1. Men de andra 9 sifrerna ser men inte röken av.
Jag vat inte, jag har kanske gjort något fel?
Anders!Sv: Frysa applikation
Det är inte Sleep :s fel ,du släpper aldrig in TextBoxen i loopen
Det kommer att bli samma sak om du tar bort Sleep.
Den gamle DoEvents gör susen.Ni stöter säkert på
uttrycket Yield om Ni läser något från C språket.
DoEvents och Yield funkar ungefär på samma sätt.
Sleep söver ner din application helt, dvs man bör aldrig ha Sleep
mer än ett per sekunder.Men Sleep är "good" i att spara
processorkraft,om du har en loop som håller på länge
är det guld att lägga ett sleep i loopen så att andra prog får en chans
att komma in,tex mail mfl.En Do Loop stjäl all processorkraft
om du inte lägger in ett DoEvents.
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" _
(ByVal dwMilliseconds As Long)
Dim A As Long
Private Sub Command1_Click()
Do Until A = 10
A = A + 1
Text1.Text = A
DoEvents
Sleep 1000
Loop
End Sub
'så kommer det att funka
mvh
SvenSv: Frysa applikation
Det fungerade utmärkt nu..:-)
Men om det är någon som har tid och ork och om det inte är för mycket jodd, skulle kunna förklara vad
Private Declare Sub Sleep Lib "kernel32.dll" _
(ByVal dwMilliseconds As Long)
ijentligen gör? Men bara om det inte är för mycket jobb!
Det fungerar utmärkt men jag förstår inte vad det gör!
Anders!Sv: Frysa applikation
>Det fungerar utmärkt men jag förstår inte vad det gör!
Sleep stänger ner Just Ditt program för det antal sekunder
som du begär.Programmet finns inte död ,morte,mulat osv.
under den tid som du preciserar.
mvh igen
DS Sv: Frysa applikation
som du begär.Programmet finns inte död ,morte,mulat osv.
under den tid som du preciserar.
Jo det förstod jag väll, kanske!
Men filen "kernel32.dll" vart kommer den ifrån och vad har den med sammanhanget att göra?
Anders!Sv: Frysa applikation
Kernel betyder "kärna" "frö" dvs en av grundpelarna i Windows operativ.
Bla. lånar Vi en tidsfunktion därifrån.
ungefär så
mvh
Sven