hvordan loope beep?

[RuZleBIFf]

ganske enkelt trur jeg... (skjønner ikke alikevell )

hvordan kan man loope beep??

[Jonas]

do
beep
loop

sånn beep?

[toss]

skrev en gang

10 beep
20 go to 10

funket ikke så bra

PC'en klikka

[RuZleBIFf]

jonas: sånn beep jah, men det klikka sånn litt når jeg prøvde koden!

[Jonas]

jonas: sånn beep jah, men det klikka sånn litt når jeg prøvde koden! 

Evig loop uten nå wait-greier vil alltid klikke. Sånn løser jeg det:

Option Explicit

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

Private Sub Form_Load()

Do

   Beep
   
   Wait 1
   
Loop

End Sub

Public Sub Wait(milliSekunder As Long)

Dim tidFerdig As Long
tidFerdig = GetTickCount + milliSekunder

Do

   DoEvents
   
Loop Until GetTickCount >= tidFerdig

End Sub

 

Edit: Hva returnerer GetTicketCount? Sekkunder etter år 1970 (?) som i linux, eller er jeg på bærtur?

Endret 17. september 2004 av Jonas

[aadnk]

Toss: Ikke bruk GoTo. Man må skrive sematisk og strukturert kode, slik som Jonas gav eksempel på. GoTo gjør bare koden vanskeligere å følge og forstå, samt feilaktig i både VB og VB.Net.

 

Jonas: Bruk Sleep-API kallet. En Do-loop med DoEvents bruker altfor mangen ressurser. Og GetTickCount returnerer antall millisekund fra oppstart.

Endret 17. september 2004 av aadnk