Microsoft Visual Basic 6.0 er et utviklingsmiljø som du kan bruke til å lage applikasjoner som involverer omfattende brukermedvirkning. I forhold til slike søknader , er Visual Basic forskjellig fra eldre programmeringsspråk som C , Visual Basic muliggjør rask programutvikling (RAD ) . En måte den gjør dette på er gjennom en Form Designer som automatisk genererer programkode basert på kontrollene du plasserer på en brukers form.Beginning å skrive kode i Visual Basic er en grei prosess , spesielt hvis ditt første programmet spiller til Visual Basic styrke: rask utvikling av skjemaer som samhandler med brukerne . Kode en Nedtelling

Prøv koding et program som simulerer en nedtelling . Brukeren angir antallet sekunder med programmet er å sette en timer fra ; . Programmet gjør nedtelling, som viser antall gjenstående sekunder og en visuell varsling på slutten av nedtellingen

å begynne dette prosjektet , åpne opp Visual Basic IDE (integrert utviklingsmiljø ) . Velg " File "> "Ny" > "Windows Forms Application ". I Form Designer vinduet, drar de følgende kontrollene på skjemaet fra verktøykassen . Først dra en tekstboks for brukeren å angi antall sekunder for å telle ned fra . Under det tekstboksen sted en annen for at programmet skal vise de resterende sekunder . Under det andre tekstboksen , plasserer en knapp for brukeren å starte tidtakeren . Også , dra og slippe en tidtaker kontroll på skjemaet . Brukeren vil ikke se denne kontrollen , men koden vil.

Endre teksten eiendom på knappen til " Start". Pass tilfelle av hver bokstav treff på " Start". Du får tilgang til Egenskaper-vinduet med "View" > " Egenskaper".
Skrive Program

Nå som du har satt opp skjemaet, skrive koden som bruker form for å kommunisere med brukeren. Dobbeltklikk på knappen. Koden vinduet dukker opp, med markøren inne i blank funksjon button1_click . Denne funksjonen vil bli kalt når brukeren trykker skjemaets knappen .

Den første delen av følgende kode setter intervallet timeren i millisekunder , og starter tidtakeren ved å sette sin " Enabled " eiendom . Disse handlingene bare skje hvis knappen tekst leser " Start".

Private Sub button1_click ( ... [ argumenter utelatt for klarhet ] ) Hvis ( Button1.Text = " Start" ) ThennSecsLeft = Cint ( TextBox1.Text ) Button1.Text = "Stopp " Timer1.Interval = 1000Timer1.Enabled = TrueElseButton1.Text = " start" Timer1.Enabled = False

End IfEnd Sub

sistnevnte del av koden , fra Else , håndterer saken når timeren kjører allerede. Programmet slår timeren gjennom sin "Enabled " eiendom og endrer knappen teksten å aktivere en omstart av programmet .
Timer arrangement

Hver sekund ( 1000 millisekunder ) som passerer får Timer1_Tick funksjon å utføre. Din app trenger å gjøre flere ting i den funksjonen : fortelle brukeren hvor mange sekunder gjenstår av nedtellingen og oppdage slutten av nedtelling, og når nedtellingen er ferdig , slå av timeren og varsle brukeren . Følgende kode fullfører disse oppgavene .

Private Sub Timer1_Tick ( ... )

TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0 ) ThenTimer1.Enabled = FalseMsgBox ( " Ferdig !")

Button1.Text = "Start " ElsenSecsLeft = nSecsLeft - en

End If

End Sub

Kjør det ferdige programmet . Deretter eksperimentere med det. For eksempel , skrive kode som gjør noe annet i tillegg vise en meldingsboks .