Timer kontroll i Visual Basic är en mycket användbar enhet som skickar en puls till ett program vid förutbestämda intervaller . Kontrollen kan visa uppdateringar av hur länge en installation tar genom att räkna ner , övervaka vad en användare gör eller utföra andra rutiner medan ett huvudprogram körs . Om Visual Basic Express , vilket är ett NET-program , deltar några av kodorden skiljer . Saker du behöver Review, Visual Basic
Visa fler instruktioner
1
Öppna Visual Basic och välj som " Nytt projekt " en "Standard EXE . " Klicka på " File " och " Spara Form1 som " och ge den ett namn som " timerproject . " Klicka sedan på " Spara projekt som " och namnge den " Timer Project . " Visual Basic tillämpar de korrekta filändelser som standard .
2
Ändra " Caption " egendom i panelen Egenskaper på den lägre rätten till " Timer Control. " Addera 3
Placera en timer kontroll i formuläret genom att dubbelklicka på " Timer " kontroll , som visas som en klocka , i verktygslådan i den vänstra panelen . Kontrollen kommer inte vara synlig när programmet körs . För tydlighetens skull , klicka och dra den till en nedre hörnet av formuläret .
4
sätta en etikett på formuläret genom att dubbelklicka på " Label " -kontroll , som representeras av en stor bokstav " A " i Verktygslådan . Klicka på " Label " nu på formuläret , och därefter i panelen Egenskaper ändra namnet på etiketten till " Clock " och radera bokstäverna i bildtexten linjen . Upprepa detta för en andra etikett och namnge den " hälsning . " Ändra bredden för båda etiketterna till 2000 .
5
Klicka på Visa > Kod upptill för att öppna en kod fönster . Skriv in koden för en tidsinställd händelse . Detta är bara ett exempel , för att styra din önskade timern använder du måste modifiera koden för att göra vad du vill att den ska göra : Private Sub Form_Load ( ) Timer1.Interval = 5000 ' siffror representerar millisekunder så 5000 är lika med en gång var 5 sekunder , förändring detta till önskad periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer ( ) Dim strGreeting1 , strGreeting2 , strTime som StringstrTime = tid $ Clock.Caption = Time $ strGreeting = " Hello there! " Om Mid $ ( strTime , 7 , 1 ) = " 1 " ThenGreeting . Caption = strGreetingElse : . Greeting.Caption = " " End IfEnd Sub
6
Testa kodningen genom att trycka på " F5 " Den aktuella tiden ska visa och uppdatera var 5 sekund . När den första siffran i sekunder displayen faller mellan 10 och 19 , ska orden " Hello there! " visas och sedan försvinna i 50 sekunder . Om ingen av dessa händelser inträffar , kontrollera koden i Steg fem för noggrannhet .
7
göra detta till ett slutligt program genom att klicka på Arkiv > Gör Timer Project.exe.Run programmet från där du sparade den . Addera
