Loomine Timer
Seekord ma tahan näidata, kuidas luua taimer Visual Basic. Net abil taimer osa.
Noh, ei teeskle, et see on samm-sammult näide näitab iga muundatud omadusi iga kontrolli, vastupidi, ma tahan keskenduda funktsionaalsust taimer ja ma lasen teil disain. Lihtsalt näidata neile, et ma tegin.
Kontrolli kasutatakse on: vorm, kolm nuppu ja kaks märki. Me peame ka lisada Timer vormi. See näeks rohkem või kuu järgmiselt: 
Aga esimene asi, mida me määratlema 4 era muutujad tasemel vormis.
Private tundi As Integer = 0 Private minutit As Integer = 0 Private 2. As Integer = 0 Private millisekundit As Integer = 0
Timer osa peab olema selle ajavahemiku vara 100.
Loome funktsioon kuvada Label1 aja jooksul:
Sub printTime ()
Label1.Text = hora.ToString.PadLeft (2, "0") & ""
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ""
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ""
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Aastal puukide korral Timer komponent on kui paned kõik loogika stopper. Kopeerida järgmine kood on:
+ = 1 millisekundis Siis kui millisekundis = 9 millisekundis = 0 2. + = 1 Kui sekundiga = 59 Siis 2. = 0 + = 1 minut Siis Kui = 59 minutit minut = 0 tund + = 1 End Kui End Kui End Kui printTime ()
Noh, mis jääb, on kood 3 nupud. Start nupp aktiveerib timer:
Timer1.Enabled = True
Pause nupp lõpetab taimer:
Timer1.Enabled = False
Ja reset nuppu reset muutujate väärtused:
time = 0 minut = 0 2. = 0 millisekundis = 0 printTime ()
Loodan, et see näide ei tõesta keeruline ja üle kõik, mis on kasulik. Lõpuks ma jätan teid läbilõige töötab stopper: 
32 Responses to "Kuidas Stopper"
Kommentaar
Informatsioon Bitacoras.com ...
Määr Bitacoras.com: Seekord tahan näidata, kuidas luua taimer Visual Basic. Net abil taimer osa. Noh, ei teeskle, et see on samm-sammult näide näitab iga muundatud omadusi ...
Tänan Ma lihtsalt alustades väga kasulik. Net ja hästi kirjeldatud.
Head aega.
Näiteid on väga head ... ja tänu panuse teadmiste q ja q tiens hiljuti hakkas ...
Hello!
px tänan väga oli tohutu abi Teie kood on rohkem teeninud mind päästa oma elu lol ...
mitte palju tööd thanks ...
bye bye kuidate ...
Tänan mees ... komplikatsioonideta Selles näites väga väga hea, et Jumal aitab sind ...
Väga hea panus on nii Õnnitlen sind!
tänan teid väga aitas mind palju
Taimer on hea lihtsalt ei ole aega pärast 59 sekundit 00:01:59:0 ei pahanda hüppab 58-00 ja 59 ei ole, kontrollige palun oma koodi
Lahendus oleks nii
+ = 1 millisekundis
= 10 Siis Kui Millisekundilise
Millisekundis = 0
Teiseks + = 1
Kui 2. = 60 Siis
Teine = 0
Minut + = 1
Kui hetke = 60 Siis
Min = 0
Time + = 1
End Kui
End Kui
End Kui
PrintTime ()
Seega 2. või minut 59 oleks olemas, kuid oleme tänulikud panuse.
Väga hea, tänan teid väga! Sain ma duranga
TÄNU! Ma ärkasin näiteks loogika XQ teha mega projekti Loodan jätkuvalt hinnata seda näiteks juhul sellise ulatusega suviendo God bless
Olen uus programmeerimise Haci teha oma projekti.
Public class Form1
Private tundi As Integer = 0
Private minutit As Integer = 0
Private 2. As Integer = 0
Private millisekundit As Integer = 0
Sub printTime ()
Label1.Text = hora.ToString.PadLeft (2, "0") & ""
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ""
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ""
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Timer1_Tick Private Sub (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Timer1.Tick
+ = 1 millisekundis
Siis kui millisekundis = 9
millisekundis = 0
2. + = 1
Kui sekundiga = 59 Siis
2. = 0
+ = 1 minut
Siis Kui = 59 minutit
minut = 0
tund + = 1
End Kui
End Kui
End Kui
printTime ()
End Sub
Private Sub Button1_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button2.Click
Timer1.Enabled = False
End Sub
Button4_Click Private Sub (ByVal saatja Nagu System.Object, ByVal E System) käepidemed Button4.Click
Lõpp
End Sub
Tänan teid panuse eest
Hea kood!
Hea koodi .... ma teenisin täiuslikkuse eespool parandatud viga .... tänu
tänu teie panuse olnud mulle väga kasulik
Tere sõber quisioera tea, kus te teete oma blogi?? Kas see leht?
Kas te saate mind aidata
Tere
Teen seda blogi Buenos Aires, Argentina. Tervitused.
Ma saan selle suure imeline tänu oma juhendaja aora ja mul on idee, kuidas kasutada taimerit.
grax x kood
zi zirvio mind!
○ ^ ^
tänud see kood Ma programmeerimine midagi suuremat jejej
thanks ...
suurepärane kood eriti kasulik arendada mõned taotluse jälgida ooteaega protsess
Suured tänud
midagi!
ja kui arvestada maha nii tõsine?
Väga hea näide oli mul valatud c + + programmeerimine minu profresor kuid polnud aimugi, see oli visuaalne sisend basic.net tänu väga lihtne ja samas väga atractivo.Gracias
ainult väga hea asi, et reset nupp Kui vajutate see on seatud 0, kuid ikka otsa aega, et üksi sa oleks panna
Btn_reset_Click Private Sub (ByVal saatja Nagu System.Object, ByVal E System) käepidemed btn_reset.Click
Timer1.Enabled = False
time = 0
minut = 0
2. = 0
millisekundis = 0
printTime ()
End Sub
Hi armu panus
Ma tahan teada, kuidas kohaneda ASP koos VB alates abil kooditabeli teeb postback
Tänan
Suur tänu, ma otsisin
Väga head informatsiooni salvestada mind hädas
..
..
TÄNU
Tänan teid väga panuse. Nad on väga selge ja väga hea.
Väga hea osa, mida ma otsisin!
tänan
Kas oskate öelda, kui sa tegid koos label1.refresh ()
Aitäh.