Het hebben van een elektronische timer op je bureaublad kan een handige manier om bij te houden van grote evenementen te houden . Of u wilt weten hoe lang het is tot het weekend of tot uw trouwdag , een countdown timer is uw constante herinnering . U kunt een elektronische timer met behulp van eenvoudige programmeersoftware maken . En met slechts een beetje geduld , zult u aftellen van de dagen , uren , minuten en seconden . Wat je nodig hebt Visual Basic Toon Meer Aanwijzingen 1 Start uw exemplaar van Visual Basic en maak een nieuw document . Klik op " New Project ... " op het menu vond aan de linkerkant van uw scherm . Selecteer " Windows Forms Application " en klik op "OK " opgericht om te voltooien . Dubbelklik op " Button " 2 van de " Toolbox " -venster . Dit zal een nieuwe knop ( Button1 ) invoegen in uw raam project . Met je muis , aan te passen zijn positie en plaatsing indien nodig. 3 Dubbelklik op " Timer " van de " Toolbox ". Dit zal uw timer te voegen aan de werkruimte . Pas de plaatsing indien nodig. 4 Dubbelklik op de functie " Label " van de " Toolbox " -venster . Dit zal een etalage die gebruikt zal worden door uw timer te voegen . Pas de positie als dat nodig is . 5 Dubbelklik op " Button1 . " Dit zal haar " Form1.vb " module te openen . Zoek en selecteer het invoerveld voor " Button1_Click . " Je levert input de codering te interval en aftellen van de timer controleren . Stel deze in op intervallen van een seconde van de basis van 15 minuten . Typ de volgende code : Timer1.Interval = 1000 Timer1.Start ( ) op cntDown = Date.Now.AddMinutes ( 15 ) op Twitter Klik 6 op het tabblad met de naam " Form1vb [Design ] " gevonden in de buurt van de onderkant van het venster van de " Timer " controle . Onder " Timer1_Tick , " selecteert u het invoerveld . Voeg de code die zal controleren of het aftellen is beëindigd en weergeven hoe lang het heeft achtergelaten in de aftelweergave u hebt toegevoegd in stap 4 . Voer de volgende code : Als cntDown < Date.Now Me.Timer1.Stop ( ) Dan MessageBox.Show ( " ! Countdown heeft voltooid " ) < br > Else Dim timeRem Zoals TimeSpan = Me.cntDown.Subtract ( Date.Now ) op Me.Label1.Text = String.Format ( " { 0 } : { 1 : d2 } : { 2 : d2 } " , _ timeRem.Hours , _ timeRem.Minutes , _ timeRem.Seconds ) op Twitter end If 7 Keer terug naar het belangrijkste project raam en sla het bestand op . Klik op de F5-toets vinden op uw toetsenbord om de code te activeren . Gebruik je muis te klikken op " Button1 " om het aftellen te starten .
|