Med en elektronisk timer på skrivbordet kan vara ett bekvämt sätt att hålla reda på stora evenemang . Oavsett om du vill veta hur lång tid det är till helgen eller tills din bröllopsdag , är en nedräkningstimer din ständig påminnelse . Du kan göra en elektronisk timer med enkel programmering programvara . Och med bara lite tålamod , kommer du att räkna ner dagar, timmar, minuter och sekunder . Saker du behöver Review, Visual Basic
Visa fler instruktioner
1
Starta ditt exemplar av Visual Basic och gör ett nytt dokument . Klicka på " Nytt projekt ... " På menyn finns till vänster på skärmen . Välj " Windows Forms Application " och klicka på " OK " för att avsluta inrättas .
2
Dubbelklicka på " Button " från " Toolbox " fönstret . Detta infogar en ny knapp ( Button1 ) i projektet fönster . Med musen , justera dess position och placering om det behövs .
3
Dubbelklicka på " Timer " från " Toolbox . " Detta kommer att sätta in din timer till arbetsområdet . Justera placeringen vid behov .
4
Dubbelklicka på " Label " verktyget från " Toolbox " fönstret . Detta kommer att sätta ett skyltfönster som kommer att användas av din timer . Justera position om det behövs .
5
Dubbelklicka på " Button1 . " Detta kommer att öppna sin " form1.vb " modul . Hitta och välj inmatningsfältet för " Button1_Click . " Du kommer in kodning för att kontrollera timerns intervall och nedräkning . Ställ in den till en sekunds intervall från botten på 15 minuter . Skriv ut följande kod :
Timer1.Interval = 1000
Timer1.Start ( ) katalog
cntDown = Date.Now.AddMinutes ( 15 )
6
Klicka på namnet fliken " Form1vb [ Design ] " finns längst ned i fönstret för " Timer " kontroll . Under " Timer1_Tick , " välj inmatningsfältet . Lägg till kod som kommer att kontrollera om nedräkningen är klar och visar hur lång tid det har kvar i nedräkningen displayen du lagt i steg 4 . Mata in följande kod :
p Om cntDown < Date.Now Sedan
Me.Timer1.Stop ( ) katalog
MessageBox.Show ( " ! Nedräkningen är klar " )
Else
Dim timeRem Som TimeSpan = Me.cntDown.Subtract ( Date.Now ) katalog
Me.Label1.Text = String.Format ( " { 0 } : { 1 : d2 }: { 2 : d2 } " , _
timeRem.Hours , _
timeRem.Minutes , _
timeRem.Seconds ) katalog
End If
7
Återvänd till huvudprojektet fönstret och spara filen . Klicka på F5 -tangenten finns på tangentbordet för att aktivera koden . Använd musen för att klicka på " Button1 " för att starta nedräkningen .
