Microsoft Visual Basic 6.0 er et udviklingsmiljø , som du kan bruge til at skabe applikationer , der involverer omfattende brugerinteraktion. Med hensyn til sådanne anvendelser , er Visual Basic forskellig fra ældre programmeringssprog som C Visual Basic muliggør hurtig applikationsudvikling ( RAD) . En måde det gør dette er gennem en formular Designer , der automatisk genererer program kode baseret på kontrol, hvor du placerer på en brugers form.Beginning at skrive kode i Visual Basic er en enkel proces , især hvis din første program spiller til Visual Basic styrke: hurtige udvikling af formularer , der interagerer med brugerne. Code et nedtællingsur

Prøv kodning et program, der simulerer en nedtælling. Brugeren indtaster det antal sekunder med programmet er at sætte en timer fra , . Programmet gør nedtællingen viser antallet af resterende sekunder, og en visuel advarsel i slutningen af nedtællingen

For at begynde dette projekt , åbne op for Visual Basic IDE ( integreret udviklingsmiljø ) . Vælg "File" > "Ny" > "Windows Forms Application ". I Form Designer vinduet , skal du trække efter kontrol til formularen fra værktøjskassen . Først trække en tekstboks for brugeren at indtaste antallet af sekunder til at tælle ned fra . Ifølge denne tekstboks sted en anden for programmet at vise de resterende sekunder. Nedenfor denne anden tekstboks , placere en knap for brugeren at starte timeren. Også træk og slip med en timer til formularen . Brugeren vil ikke se denne kontrol, men din kode vil.

Ændre tekstens ejendom knappen "Start ". Vær sikker tilfælde af hvert bogstav matcher "Start ". Du kan få adgang til vinduet Egenskaber med "Vis" > " Egenskaber".
Skrivning Program

Nu hvor du har oprettet formularen, skrive koden der bruger formularen til at kommunikere med brugeren . Dobbeltklik på knappen. Koden vindue dukker op , med markøren inde i funktionen blank Button1_Click . Denne funktion vil blive kaldt , når brugeren trykker din formularens knap .

Første del af følgende kode indstiller intervallet af timeren i millisekunder og starter timeren ved at indstille dens " Enabled" egenskab. Disse handlinger kun ske, hvis knappens tekst lyder "Start ".

Private Sub Button1_Click (... [ argumenter udeladt for klarhed ] ) Hvis ( Button1.Text = "Start" ) ThennSecsLeft = Cint ( TextBox1.Text ) Button1.Text = "Stop" Timer1.Interval = 1000Timer1.Enabled = TrueElseButton1.Text = "Start" Timer1.Enabled = False

End IfEnd Sub

sidste del af koden , fra Else håndterer sagen , når timeren kører allerede. Programmet slukker timeren gennem sin "Enabled " ejendom og ændrer knappen teksten for at muliggøre en genstart af programmet.
Timernes begivenheder

Hver sekund ( 1.000 millisekunder) , der passerer forårsager Timer1_Tick funktionen til at udføre . Din app skal gøre flere ting i denne funktion: fortælle brugeren , hvor mange sekunder forbliver i nedtællingen og opdage enden af nedtællingen , og når nedtællingen er færdig , skal du slukke timeren og advare brugeren . Følgende kode fuldender disse opgaver .

Private Sub Timer1_Tick (...)

TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0) ThenTimer1.Enabled = FalseMsgBox ( "Done !") < Br >

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

End If

End Sub

Kør din færdige program. Derefter eksperimentere med det . For eksempel skrive kode, der gør noget andet udover vise en besked boks .