Visualizzazione dei risultati da 1 a 7 su 7

Discussione: [VB] Bloccare i Loop

  1. #1

    [VB] Bloccare i Loop

    Ciao,io ho un problema,non so come fare in mod che il programma provi ad eseguire un istruzione fino a a quando trova entranbe le mie condizioni soddisfatte,esagua 1 volta il blocco ed esca dal loop solo se ha eseguito il blocco...
    il codice da me scritto è il seguente:

    If Giorno = 6 Then
    If Mese = 5 Then
    Do While Ora >= 0 And a < 10
    Do While Min >= 50 And a < 10
    For a = 0 To 10
    MsgBox "ErrorevbCritical + vbSystemModal, ""
    Next a
    Loop
    Loop
    End If
    End If

    Dove Giorno,mese,ora e min,sono presi dal comando Date [day(now),month(now)...ecc]
    Voglio che il blocco venga eseguito il giorno X DALLE ore 10.00 (per esempio) in poi (dato che va in autorun,deve andare sempre se viene fatto partire dopo le 10.00
    Spero di essermi spiegato bene....qualcuno mi potrebbe modificare il codice?...vi ringrazio molto (lo so che voi ci mettete 1 min!)

  2. #2
    per il Visual Basic abbiamo un subforum specifico

    p.s. nel titolo va specificata anche la versione di VB (5-6 o .NET)
    ...Terrible warlords, good warlords, and an english song

  3. #3
    dal Do...Loop si esce con Exit Do. Spero di aver ben compreso.

  4. #4
    ...giusto. Solo un consiglio: nel ciclo centrale aggiungi la seguente riga:
    codice:
    DoEvents
    ... altrimenti, visto che questo programma è sempre attivo, ti si blocca il computer e non riesci ad utilizzarlo.

  5. #5
    ma....come inserisco DoEvents ???....dove?
    al posto di Do...While... metto DoEvents....While ??
    grazie mille.ciao

  6. #6
    Devi aggiungerlo subito prima il ciclo FOR
    codice:
    Do While Min >= 50 And a < 10
     DoEvents
     For a = 0 To 10

  7. #7

    ok capito....grazie

    grazie mille ....ho capito perfettamente!
    ciao alla prossima

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.