PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > VISUAL BASIC: DOMANDE GENERALI > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.
Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh. [>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



AIUTATEMI!!! Ciclo Do Loop
Mirkvic 18/10/2002
Difficoltà: Principiante

Private Sub CmdGIOCO1_Click()
Dim startgioco2
startgioco2 = False
Dim StatoIngresso As Integer
StatoIngresso = vbInp(888)
Do
If StatoIngresso = 0 Then
LedGialloUscita1.Visible = True
LedNerouscita1.Visible = False
ElseIf StatoIngresso = 2 Then
LedGialloUscita2.Visible = True
LedNeroUscita2.Visible = False
ElseIf StatoIngresso = 4 Then
LedGialloUscita3.Visible = True
LedNeroUscita3.Visible = False
End If
If CmdGIOCO2.Value = True Then startgioco2 = TrueLoop
Loop Until startgioco2
End Sub


In pratica voglio che le al momento che "clicco" sul pulsante CmdGIOCO1 VB esegue le istruzioni ripetutamente fino a quando premo un'altro pulsnte chiamato CmdGIOCO2.
Questo e il codice che ho scritto io, ma appena vado in Run si blocca vb, come se fosse un ciclo infinito che pero non e (o almeno credo).
Grazie a chi mi puo aiutare
Ciao


 

 

 

 

 
R: > Private Sub CmdGIOCO1_Click() Dim startgioco2 sta ... william
04/11/2002