Delay in Visual basic

[voodoo202]

Is het mogelijk, om een delay in Visual basic te bouwen, hij moet namelijk een berekeing uitvoeren, en dit op het scherm laten zien, namelijk;

code:

var = var * 2

In turbo pascal ging dat met de functie delay (200)

Visual basic moet doorgaan totdat de uitkomst 128 is en hij begint bij 1

De code in turbo pascal is

code:

begin

repeat 
   writeln (var:3, '           stoppen: druk op toets');
   if var = 128 then var := 1 else var :=  var shl 1;

delay (200)
until keypressed;

end.

[.oisyn]

kijk eens naar de win32 API functie Sleep ()

[voodoo202]

krijg die pongel ( functie sleep) niet aan het werk, waar in je code moet je die precies plaatsen, want ik kan alleen voorbeelden vinden voor basic ?

hij zegt iedere keer dat hij die functie niet kent, maar ik heb hem wel genoemd

code:

Private Function command4_click()
Function winapi32()
End Function

[ Voor 43% gewijzigd door voodoo202 op 02-01-2003 23:30 ]

[.oisyn]

kijk in de MSDN documentatie over hoe je API functies aan kunt roepen in VB
of natuurlijk google: [google=win32 api Visual basic]

[Verwijderd]

Dan maar even voorzeggen ....

Visual Basic:

'In module
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'In form module
Private Sub delay(x As Integer)
   Sleep (x * 1000) 
End Sub

[voodoo202]

Ik heb het geprobeerd, maar hij ververst het niet echt. Ik krijg gewoon 10 te zien en dat is het. Duurd wel een paar seconden, maar wat vergeet ik nou.

code:

Private Sub command4_click()


Dim Check, Counter
Check = True: Counter = 0
Do
    Do While Counter < 20
        Sleep (50)
        Counter = Counter + 1
        Text1.Text = Counter
        Text1.refresh        
Sleep (50)
        If Counter = 10 Then
            Check = False
            Exit Do
        End If
    Loop
Loop Until Check = False

    
End Sub

Sorry heb hem gevonden was refresh vergeten

[ Voor 7% gewijzigd door voodoo202 op 03-01-2003 00:05 ]