Hvordan bruke en tidtaker i Visual Basic

Timer kontroll i Visual Basic er en svært nyttig enheten som sender en puls til et program på forhåndsbestemte intervaller. Kontrollen kan vise oppdateringer av hvor lenge en installasjon tar ved å telle ned, overvåke hva en bruker gjør eller utføre andre rutiner mens et hovedprogram er i gang. Hvis Visual Basic Express, som er en NET program, er involvert noen av kodeordene vil være forskjellig.

Bruksanvisning

1 Åpne Visual Basic og velg så "New Project" en "Standard EXE." Klikk "Fil" og "Lagre Form1 som" og gi den et navn som "timerproject." Klikk deretter på "Lagre prosjekt som" og gi den navnet "Timer Project." Visual Basic gjelder de riktige filtyper som standard.

2 Endre "Caption" eiendom i Properties panelet på nedre høyre til "Timer Control."

3 Plasser en tidtaker kontroll på formen ved å dobbeltklikke på "Timer" kontroll, som vises som et klokkeikon, i verktøykassa i venstre panel. Kontrollen vil ikke være synlig når programmet kjører. For klarhet, klikk og dra det til en nedre hjørne av skjemaet.

4 Hvordan bruke en tidtaker i Visual Basic

Sette en merkelapp på skjemaet ved å dobbeltklikke på "Label" kontroll, representert ved en stor bokstav "A" i verktøykassa. Klikk på "Label" nå på skjemaet, og deretter i Properties panelet endre navnet på etiketten til "Clock" og slette bokstavene i bildeteksten linje. Gjenta dette for en annen etikett og gi den navnet "Hilsen". Endre bredde for begge etikettene til 2000.

5 Hvordan bruke en tidtaker i Visual Basic


Klikk på Vis> Kode øverst for å åpne en kode vindu. Skriv inn koden for en timer event. Dette er bare et eksempel; å kontrollere ønskede timer bruker du trenger å endre koden til å gjøre hva du vil den skal gjøre:
Private Sub Form_Load ()
Timer1.Interval = 5000 'tallene representerer millisekunder så 5000 tilsvarer en gang hvert 5. sekund; endre dette til ønsket periode
Ring Timer1_Timer
End Sub
Private Sub Timer1_Timer ()
Dim strGreeting1, strGreeting2, strTime As String
strTime = Tid $
Clock.Caption = Tid $
strGreeting = "Hei!"
Hvis Mid $ (strTime, 7, 1) = "1" Da
Greeting.Caption = strGreeting
Else: Greeting.Caption = ""
Slutt om
End Sub

6 Test koding ved å trykke "F5". Den nåværende tidspunkt bør vise og oppdatere hvert 5. sekund. Når det første sifferet av sekunder displayet faller mellom 10 og 19, ordene "Hei!" vil vise og deretter forsvinne i 50 sekunder. Hvis ingen av disse hendelsene skjer, kontrollerer koden i trinn fem for nøyaktighet.

7 Snu dette til en avsluttende program ved å klikke på Fil> Gjør Timer Project.exe.
Kjør programmet fra der du lagret den.

Hint

  • Med Visual Basic Express, vil de ovennevnte kommandoene ikke fungerer. Du må bytte etikett navn og kode med disse linjene:
  • Private Sub Timer1_Tick (ByVal sender As System.Object, ByVal e As System.EventArgs) Håndtak Timer1.Tick
  • Dim Hilsen, Tid As String
  • Tid = TimeOfDay
  • Clock.Text = Tid
  • Hilsen = "Hei!"
  • Hvis Mid $ (Time, 7, 1) = "1" Da
  • Welcome.Text = Hilsen
  • Else: Welcome.Text = ""
  • Slutt om
  • End Sub
  • Programmeringskode er intolerant av feil. Eksemplene må skrives inn nøyaktig slik formulert.
  • Husk at når du er ferdig med eksempel ved å lage en kjørbar fil i trinn 7 som du lagre den i en mappe du vil huske.