Den Timerkontrol i Visual Basic er en meget nyttig enhed, der sender en impuls til et program på forudbestemte intervaller. Kontrollen kan vise opdateringer af , hvor lang tid en install tager ved at tælle ned , overvåge, hvad en bruger gør eller udføre andre rutiner , mens en main programmet kører. Hvis Visual Basic Express , som er et NET, som er involveret nogle af kodeordene vil variere . Ting du skal
Visual Basic
Vis Flere Instruktioner
1
Open Visual Basic , og vælg som " Nyt projekt " a " Standard EXE ". Klik på " File" og "Gem Form1 som" og give den et navn som " timerproject ". Klik derefter på " Gem projekt som" og navngive den "Timer Project. " Visual Basic anvender den korrekte fil extensions som standard.
2
Change "Billedtekst " ejendom i Properties panelet nederst til højre til "Timer -kontrol. "
3
Placer en Timer kontrol på formularen ved at dobbeltklikke på "Timer " kontrol , der vises som et ur-ikon , i værktøjskassen i venstre panel. Kontrollen vil ikke være synlige , når programmet kører . For klarhedens skyld klikke og trække det til en nederste hjørne af formularen.
4
Sæt en etiket på formularen ved at dobbeltklikke på "Label " kontrol , repræsenteret ved en stor bogstavet " A" i Værktøjskassen. Klik på " Label " nu på formularen, og derefter i panelet Egenskaber ændre navnet på etiketten til " Clock" og slette bogstaverne i billedteksten linje. Gentag dette for en anden etiket og navngive det " Hilsen ". Ændre bredden for begge etiketter til 2000.
5.
Klik på Vis > Kode øverst for at åbne en kode vindue . Skriv koden for en timer event. Dette er blot et eksempel, for at styre den ønskede timer bruger du nødt til at ændre koden til at gøre hvad du vil have det at gøre: Private Sub Form_Load () Timer1.Interval = 5000 ' tal repræsenterer millisekunder , så 5000 er lig med en gang hvert 5. sekund , ændre dette til den ønskede periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer ( ) Dim strGreeting1 , strGreeting2 , strTime Som StringstrTime = Time $ Clock.Caption = Time $ strGreeting = " Hej ! " Hvis Mid $ ( strTime , 7, 1) = "1" ThenGreeting . Caption = strGreetingElse : . Greeting.Caption = "" End IfEnd Sub
6
Test kodningen ved at trykke på " F5 " Den aktuelle tid skal vise og opdatere hvert 5. sekund . Når den første ciffer i sekundviser falder mellem 10 og 19 , ordene " Hello there! " vises og derefter forsvinde i 50 sekunder . Hvis ingen af disse hændelser sker , skal du kontrollere koden i Trin Fem for nøjagtighed.
7
Slå denne til et endeligt program ved at klikke på Filer> Gør Timer Project.exe.Run programmet fra hvor du gemte den.