Prova codifica un'applicazione che simula un conto alla rovescia . L' utente inserisce il numero di secondi che il programma è quello di impostare un timer da , . Il programma fa il conto alla rovescia , visualizzazione del numero di secondi rimanenti e un allarme visivo al termine del conto alla rovescia
Per iniziare questo progetto , aprire il Visual Basic ( ambiente di sviluppo integrato ) . Selezionare " File " > "Nuovo" > "Applicazione Windows Form ". Nella finestra di progettazione form , trascinare i seguenti controlli nella forma dalla casella degli strumenti . Prima trascinare una casella di testo per l'utente di inserire il numero di secondi per il conto alla rovescia da . In quel testo posto scatola un altro per il programma per mostrare i restanti secondi . Sotto tale seconda casella di testo , inserire un pulsante per l'utente di avviare il timer . Inoltre , trascinare un controllo Timer nel form. L' utente non vedrà questo controllo , ma il codice sarà .
Modificare la proprietà Text del pulsante "Start ". Assicurarsi che il caso di ogni lettera corrisponde a "Start ". È possibile accedere alla finestra delle proprietà con "Visualizza"> " Proprietà".
Scrittura del programma
Ora che hai impostato il modulo, scrivere il codice che utilizza il modulo per comunicare con l'utente . Fare doppio clic sul pulsante . La finestra di codice si apre, con il cursore all'interno della funzione vuota Button1_Click . Questa funzione viene chiamata quando l'utente preme bottone del form .
La prima porzione di codice seguente imposta l'intervallo del timer in millisecondi e avvia il timer impostando la sua proprietà "Enabled" . Queste azioni avvengono solo se il testo del pulsante si legge "Start ".
Private Sub Button1_Click ( ... [argomenti omessi per chiarezza ] ) Se ( Button1.Text = " Avvio" ) ThennSecsLeft = CInt ( TextBox1.Text ) Button1.Text = Timer1.Interval "Stop" = 1000Timer1.Enabled = TrueElseButton1.Text = "Avvio" Timer1.Enabled = False
End Sub IfEnd
quest'ultima porzione di codice , da Else , gestisce il caso in cui il timer è già in esecuzione . Il programma si disattiva il timer tramite la proprietà "Enabled" e cambia il testo del pulsante per consentire il riavvio del programma .
Del Timer eventi
Ogni secondo ( 1000 millisecondi) che passa causa la funzione Timer1_Tick da eseguire . La vostra applicazione ha bisogno di fare diverse cose in quella funzione : comunicare all'utente quanti secondi rimangono nel conto alla rovescia e rilevare la fine del conto alla rovescia , e quando finisce il conto alla rovescia , spegnere il timer ed avvisare l'utente . Il codice che segue completa queste attività .
Privato Timer1_Tick Sub ( ...) in
TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0 ) = ThenTimer1.Enabled FalseMsgBox ( " Fatto ! " )
Button1.Text = " Avvio" ElsenSecsLeft = nSecsLeft - 1
End If End Sub
Eseguire il programma finito . Poi sperimentare con esso . Ad esempio , scrivere un codice che fa qualcos'altro oltre a visualizzare una finestra di messaggio .
Programmazione © www.354353.com