Microsoft Visual Basic 6.0 är en utvecklingsmiljö som du kan använda för att skapa applikationer med omfattande interaktion med användaren . I fråga om sådana ansökningar , är Visual Basic skiljer sig från äldre programspråk som C , Visual Basic möjliggör snabb utveckling ( RAD ) . Ett sätt man gör detta är genom ett Form Designer som automatiskt genererar programkod baserad på kontroller som du placerar på användarens form.Beginning att skriva kod i Visual Basic är en enkel process , särskilt om din första programmet spelar till Visual Basic styrka : snabb utveckling former som interagerar med användare . Koden en nedräkningstimer
Prova kodar ett program som simulerar en nedräkningstimer . Användaren anger antalet sekunder för programmet är att ställa in en timer från , . Programmet gör nedräkningen , visa antalet återstående sekunder och en visuell varning i slutet av nedräkningen
Till att börja detta projekt , öppna Visual Basic IDE ( integrerad utvecklingsmiljö ) . Välj " Arkiv " > " Ny " > " Windows Forms Application . " I Form Designer fönstret , drar du följande kontroller på formuläret från verktygslådan . Först drar en textruta för användaren att ange antalet sekunder för att räkna ner från . Enligt denna textruta plats annan för programmet att visa de återstående sekunder . Därunder andra textrutan , placera en knapp för användaren att starta timern . Också , dra och släpp en timer på formuläret . Användaren kommer inte att se den här kontrollen , men din kod kommer .
Ändra texten egendom knappen "Start . " Var noga med att fråga om varje bokstav matchar " Start . " Du kan komma åt fönstret Egenskaper med " Visa " > " Egenskaper . " Addera Skriva Program
Nu när du har satt upp formuläret , skriva koden som använder formuläret för att kommunicera med användaren . Dubbelklicka på knappen . Koden fönster dyker upp , med markören i den tomma funktionen Button1_Click . Denna funktion kommer att kallas när användaren trycker på din formulärets knapp .
Den första delen av följande kod ställer in intervallet för timern i millisekunder och startar timern genom att ställa sin " Enabled " egendom . Dessa åtgärder ske endast om knappens text lyder "Start . "
Private Sub Button1_Click ( ... [ argument utelämnade för tydlighetens skull ] ) Om ( Button1.Text = " Start " ) ThennSecsLeft = CInt ( TextBox1.Text ) Button1.Text = " Stopp " Timer1.Interval = 1000Timer1.Enabled = TrueElseButton1.Text = " Start " Timer1.Enabled = False End
IfEnd Sub
den senare delen av koden , från Else , hanterar fallet när timern redan är igång. Programmet stängs timern genom sin " Enabled " egendom och förändringar knappen texten för att möjliggöra en omstart av programmet .
Timerns händelse
Varje sekund ( 1000 millisekunder) som passerar bringar Timer1_Tick funktion att utföra. Din app måste göra flera saker i den funktionen : tala om för användaren hur många sekunder kvar i nedräkningen och detektera slutet av nedräkningen , och när nedräkningen är klar , stäng av timern och varna användaren . Följande kod slutför dessa uppgifter .
Private Sub Timer1_Tick ( ... ) katalog
TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0 ) ThenTimer1.Enabled = FalseMsgBox ( " Done ! " )
Button1.Text = " Start " ElsenSecsLeft = nSecsLeft - 1
End If
End Sub
Kör din färdiga program . Sedan experimentera med det . Till exempel , skriva kod som gör något annat än visa en meddelanderuta .
