Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[VB 6] Programma enkele seconden op pause zetten

Rynus Rein
4 antwoorden
  • Weet iemand hoe ik mijn programma enkele seconden kan laten 'wachten'? Ik heb nl. een soort van ftp-progje gemaakt, waar je alleen berichten mee kan verzenden/ontvangen (verder niet belangrijk). Maar als ik ze download gaat het programma meteen verder terijl het bestand nog niet is gedownload. Aangezien de bestandjes nooit echt groot zijn, zijn enkele seconden genoeg.
  • Methode 1: "Sleep"[code:1:27734cb7bd]Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

    Sleep 3000 ' 3 seconde pauze[/code:1:27734cb7bd]
    Methode 2: "GetTickCount"[code:1:27734cb7bd]Declare Function GetTickCount Lib "kernel32" () As Long

    StartTicks = GetTickCount()
    Do
    DoEvents
    Loop Until (GetTickCount() - StartTicks > 3000)[/code:1:27734cb7bd]
  • Stel, je wilt 2 seconden wachten:
    [code:1:6ec9c5b501]
    tot=timer+2
    do until timer >= tot:loop
    [/code:1:6ec9c5b501]
    Je kunt ook 2,5 secs nemen, door ipv 2 2.5 te nemen ofzo…
  • of je laat het programma loopen tot dat hij signaal krijgt dat de donwload is voltooid. dan heb je altijd goeie timing. wel uitkijken, want als er iets misgaat, bijv download gaat mis, dan heb je andere omstandigheden, en blijft je prog misschien in een loop, dus wel ff voor zorgen dat je elk moment of op een moment er kunt stappen. anders blijft ie hangen.

    ik vraag me af. als je in een loop zit, en er doet zich een ander Event voor, waar je code heb geschreven gaat ie dan voor of niet?
    want als dat zo is dan kun je gewoon Object_KeyPress() Event maken.

    bv
    [code:1:04c98393e1]dim bStop as boolean 'ff de boel declareren
    dim bReady as Boolean
    dim bLoopStarted = True

    private sub form_load
    bstop = False 'eerst de waarden op false zetten
    bLoopStarted = False
    end sub

    Private Sub Form_KeyPress(KeyAscii as Integer)
    if bLoopStarted = True then bStop=true 'alleen doen als de
    End Sub 'loop al aan de gang is[/code:1:04c98393e1]

    en in de loop en zet je dan behalve de code voor het tjekken of de download klaar is..

    [code:1:04c98393e1]do while bReady=false
    bLoopStarted = True
    if bStop = True then exit do 'de loop stopt omdat je tijdens
    'download-is-klaar-of-niet-controle 'down op een toets gedrukt heb
    'als ie klaar is…
    bReady=True 'en nu stopt de loop omdat file loop 'klaar is met downen[/code:1:04c98393e1]

    en je kunt verder….

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.