Opplæring av Visual Basic 6

Microsoft Visual Basic 6.0 er et utviklingsmiljø som du kan bruke til å lage programmer som involverer omfattende brukermedvirkning. I forhold til slike programmer, 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.

Begynner å skrive kode i Visual Basic er en enkel prosess, spesielt hvis ditt første programmet spiller til Visual Basic styrke: rask utvikling av skjemaer som samhandler med brukerne.

Kode en nedteller

Prøv koding et program som simulerer et tidsur. Brukeren angir antall sekunder med programmet er å sette en timer mellom; programmet gjør nedtellingen, viser antallet gjenværende sekunder og en visuell varsling på slutten av nedtellingen.

Til å begynne dette prosjektet, åpner opp Visual Basic IDE (integrert utviklingsmiljø). Velg "File"> "Ny"> "Windows Forms Application". I Designer vinduet Form, drar følgende kontroller på skjemaet fra verktøykassen. Først dra en tekstboks for brukeren å angi hvor mange sekunder for å telle ned fra. Under at tekstboksen stedet en annen en for programmet skal vise gjenværende sekunder. Under det andre tekstboksen, plasserer en knapp for brukeren å starte tidtakeren. Også dra og slippe en tidsstyring på skjemaet. Brukeren vil ikke se denne kontrollen, men koden vil.

Endre teksten eiendom på knappen for å "Start". Pass på at det gjelder hver bokstav matcher "Start". Du får tilgang til vinduet Egenskaper med "View"> "Egenskaper".

Skrive Program

Nå som du har satt opp skjemaet, skrive koden som bruker skjemaet til å kommunisere med brukeren. Dobbeltklikk på knappen. Koden vinduet kommer 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 skjer bare hvis knappen tekst leser "Start".

Private Sub button1_click (... [argumenter utelatt for klarhet])

If (Button1.Text = "Start") Then
nSecsLeft = CInt(TextBox1.Text)
Button1.Text = "Stop"
Timer1.Interval = 1000
Timer1.Enabled = True
Else
Button1.Text = "Start"
Timer1.Enabled = False

Slutt om
End Sub

Sistnevnte del av koden, fra Else håndterer saken når selvutløseren er allerede i gang. Programmet slår timeren gjennom sin "Enabled" eiendom og endrer knappen teksten å muliggjøre en omstart av programmet.

Timer Event

Hver andre (1.000 millisekunder) som passerer bevirker at Timer1_Tick funksjon som skal utføres. Din app trenger å gjøre flere ting i denne funksjonen: fortelle brukeren hvor mange sekunder igjen i nedtellingen og oppdage slutten av nedtellingen, 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 = nSecsLeft
If (nSecsLeft = 0) Then
Timer1.Enabled = False
MsgBox("Done!")

Button1.Text = "Start"
Ellers
nSecsLeft = nSecsLeft - 1

Slutt om

End Sub

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