have en elektronisk nedtælling på skrivebordet kan være en nem måde at holde styr på store begivenheder . Uanset om du ønsker at vide, hvor længe det er indtil weekenden , eller indtil din bryllupsdag, et nedtællingsur er din konstante påmindelse. Du kan lave en elektronisk nedtælling ved hjælp af simple programmeringssoftware . Og med blot en smule tålmodighed , vil du være at tælle ned dage , timer, minutter og sekunder. Ting du skal
Visual Basic
Vis Flere Instruktioner
1
Start din kopi af Visual Basic og lave et nyt dokument. Klik på " Nyt projekt ... " på menuen findes til venstre på din skærm . Vælg "Windows Forms Application " og klik på "OK " for at afslutte oprettet.
2
Dobbeltklik på " Button " fra "Toolbox " vinduet. Dette vil indsætte en ny knap ( Button1 ) ind i dit projekt vinduet. Med musen, justere sin position og placering , hvis nødvendigt.
3
Dobbeltklik på "Timer " fra "Toolbox ". Dette vil indsætte dit timerkontrol til arbejdsområdet . Justere placeringen , hvis nødvendigt.
4
Dobbeltklik på "Label " værktøj fra " Toolbox " vinduet. Dette indsætter et udstillingsvindue , der vil blive brugt af din timer . Juster positionen , hvis nødvendigt.
5
Dobbeltklik på " Button1 ". Dette vil åbne sine " form1.vb "-modulet . Find og vælg indtastningsfeltet for " Button1_Click ". Du vil indtaste kodning til at styre timeren s interval og nedtællingen. Sæt den til ét sekund intervaller fra bunden på 15 minutter . Skriv ud den følgende kode : Hej
Timer1.Interval = 1000
Timer1.Start ()
cntDown = Date.Now.AddMinutes (15)
6
Klik på navngivne fanebladet " Form1vb [ Design ] " fundet nær bunden af vinduet "Timer " kontrol . Under " Timer1_Tick ", vælge indtastningsfeltet. Tilføj den kode, der vil undersøge, om nedtællingen er færdig og vise , hvor lang tid det har efterladt i nedtællingen du tilføjede i trin 4 . Input følgende kode : Hej p Hvis cntDown < Date.Now Så
Me.Timer1.Stop ()
MessageBox.Show ( ! " Countdown har afsluttet " ) < br >
Else
Dim timeRem Som TimeSpan = Me.cntDown.Subtract ( Date.Now )
Me.Label1.Text = String.Format ( "{0} : {1 : d2 } : { 2 : d2 } ", _
timeRem.Hours , _
timeRem.Minutes , _
timeRem.Seconds )
End If
7
Vend tilbage til hovedprojektet vinduet og gemme filen. Klik på F5-tasten findes på tastaturet for at aktivere koden. Brug musen til at klikke på " Button1 " for at starte nedtællingen.