Ceas digital (Timer)
Astăzi, doresc să arate un simplu şi uşor de a crea în Visual Basic. Net un ceas digital. Vom face acest lucru, folosind o etichetă şi un cronometru.
Formă ar trebui să arate similar cu cel din imaginea urmatoare>
Pentru acest exemplu, în cazul în care doar timpul ne va arata, schimba fontul de eticheta de control pentru a da o mai mare importanţă. Sunt folosind Tahoma dimensiunea fontului 28.
Acum proprietăţile componente timer. Pentru a rula cod, în cazul Tick de componente timer, aceasta trebuie să aibă proprietatea enable la True. Şi am să introduceţi codul pentru a rula la fiecare n capuse. Numărul de căpuşe ale n este intervalul cu proprietatea indicată în milisecunde. Deci, dacă am pus de proprietate în 1000 a căpuşelor, codul va rula la fiecare 1 secundă.
Acum, sa vedem codul este foarte simplu:
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, _ ByVal E ca System.EventArgs) Manere Timer1.Tick Label1.Text = Date.Now.ToLongTimeString End Sub
Ramane doar pentru a rula (F5), aplicarea şi vom avea ceasul nostru digital, aşa cum se arată în imaginea de mai jos>
Dacă sunteţi un cititor regulat al acestui blog, ştiţi că toate exemplele de cod intotdeauna menite sa fie foarte simplu şi că aveţi de la aceste exemple posibilitatea de a îmbunătăţi, să completeze şi să le adapteze pentru utilizarea în aplicaţiile dumneavoastră.
Ca de obicei, sper ca vei gasi util.
33 Responses to "Ceas digital (Timer)"
Comentariu
Bitacoras.com informaţii ...
Rata de Bitacoras.com în: Astăzi aş vrea să arate un simplu şi uşor de a crea in Visual Basic Net un ceas digital.. Vom face acest lucru, folosind o etichetă şi un cronometru. Formă ar trebui să arate similar cu i în urma ....
temporizatorul nu este necesar, un mod mai simplu:
Private Sub Form1_Load (expeditor ByVal ca obiect, ByVal e ca System.EventArgs) Manere MyBase.Load
Me.Label1.Text = Format (Acum, "HH: mm: ss")
End Sub
fastmonro:
Multumesc pentru intrare, dar tot ce faci cu el este de a "arata" pe etichetă atunci când a fost încărcat formular (cum îl numesc de la evenimentul de încărcare). Permiteţi-mi să vă spun că pentru a realiza funcţionalitatea de un ceas, sau care arată ora curentă "tot timpul" este nevoie de timp r componenta, dar să nu fie un ceas ... atunci când vă arată doar o singură dată.
Foarte bine contribuţia dumneavoastră! Felicitări!
frate contribuţie excelentă, dar singura problema mi se pare că este nu percepe în timp ce executa o asteptati ceva timp pentru a afişa ceasul pus la fel, în cazul de încărcare a formularului-am făcut în C # care este cel mai pot folosi
timer1_Tick nule privat (expeditor obiect, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
void Form1_Load privat (obiect expeditor, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
şi un lucru mai mult oricine stie cum pentru a afişa numele fişierului salvat sau deschis, în bara de titlu şi am încercat mai multe moduri si nu poate afla cum se face dacă este în VB sau C #.
salu2
ai dreptate, dar este etienes Qu să aşteptaţi un al doilea, care este atunci când executaţi codul de capusa ceas (amintiţi-vă în fiecare secundă este de 1 secundă sau una dupa sarcina), vă spun un truc mult mai uşor pentru tine însuţi ene bile Qu, a pus acelaşi cod va pune în capusa de ceas în formă încărcaţi formular ca aceasta:
Private Sub Form1_Load ....
Me.Label12.Text = Format (Acum, "HH: mm: ss")
End Sub
şi doar de dilema
În ceea ce priveşte
Eliseo .... Vă mulţumim şi pentru a vă ajuta cu aceste coduri explicaţie simplă şi de bun pentru noi, care a început doar cu programare ai dreptate cu timer-ul este foarte necesară, în scopul de a actualiza .. .......
Mulţumesc.
Bună aprovizionare!
Bine Îmi place soluţia
Prietenii nu te uita la codul de capusa timer? de ajutor vă rugăm să
Buna ziua, am utiliza contorul de timp şi astfel cum este menţionat mai sus, proprietatea Enable are Q merge la True, şi Intervale = 1000 .... acum ... faceţi dublu clic pe obiect şi ia-le la eveniment Tick timer1 ... pune codul în ceva de genul ...
Public class frmPrincipal
Tiempo_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Tiempo.Tick
txtHora.Text = Format (Acum, "HH: mm: ss")
txtFecha.Text = Date.Now.Date
End Sub
Sfarsit Clasa
io, în cazul meu, am schimbat numele obiectului, în loc de timer1 timp mi-am pus ...
q Sper că acestea ajută la noi programatori.
Cojonuda Neobones rolul tau este! este al naibii de mare.
Prieteni buni, am încercat de mai multe ori cum am spus, dar pentru a rula programul de ceas este actualizat în fiecare secundă pe care-l fac este de gând să ruleze actualizate, şi proprietatea intervalul de loc în 1000, dar nu a actualizat .
Sper să pot ajuta.
Salutări.
deşi cred că ai spus că habras codul de logica scris de capusa caz de ceas? aceasta este
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Timer1.Tick
Label12.Text = Format (Acum, "HH: mm: ss")
End Sub
TA SISAS CODUL BN yop şi jucării doar învăţarea şi NA .. Vrei să ştii cum Pentru a crea un SISAS TIMER ASERLE ...
Iată ceva un pic mai elaborate
Public class Form1
Numărul Dim ca integer
Private Sub Form1_Load (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere MyBase.Load
Me.Text = "indicator de timp"
Me.Label1.BorderStyle = BorderStyle.FixedSingle
Me.Label1.TextAlign = ContentAlignment.MiddleCenter
Me.Label1.Text = ""
Me.Label1.BackColor = Color.Black
Me.Label1.ForeColor = Color.Red
Me.Label1.Visible = Fals
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
BackColor = Color.White
End Sub
HoraToolStripMenuitem_click Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere HoraToolStripMenuItem.Click
contracara = 1
End Sub
FechaToolStripMenuItem_click Private Sub (sende ByVal ca obiect, e ByVal Ca System.EventArgs) Manere FechaToolStripMenuItem.Click
contracara = 2
End Sub
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Timer1.Tick
Me.Label1.Visible = True
În cazul în care contorul = 1 Apoi Label1.Text = TimeString
În cazul în care contorul = 2 Apoi Label1.Text = My.Computer.Clock.LocalTime.Date.ToString
End Sub
Sfarsit Clasa
Multumesc pentru intrare, functioneaza perfect
Am fost cu mai multe ture cu aceasta şi să stabilească aceste câteva rânduri sunt ... Multumesc din nou!
vrea să-mi trimiteţi mai multe exerciţii cu cronometrul în special modul de a face o miscare lift la etajul dorit
Mulţumesc.
Ceasul este corect ca în exemplu, doar pentru a începe trebuie să Timer.Start forma ()
Salutări.
în cazul în care cronometrul funka, dar uita-te la Task Manager pentru a vedea cum se mişcă resurse (procesor, în funcţie de berbec, etc ..), un alt mod de a optimiza? unele Me.Refresh?
Hijes mi se răcească din probleme
Am o întrebare cu privire la modul de a reduce de numerar în urmă cu vanzari dond pur contemplativ domeniul de acces la baze de date
este monto_venta
Vă mulţumim dacă aveţi orice exemplu
Eu sunt student la inginerie în systems'm a face un sistem de practica mea de contribuţiile lor sunt exemple excelente de mai sus sonda 2 XQ c este adevărul acest lucru este de bază, dar, în aceste cazuri, fie c-l de pe CPU. hehe
Private Sub Form1_Load (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere MyBase.Load
Me.Label1.Text = Format (Acum, "HH: mm: ss")
End Sub
doar dă-mi o anumită perioadă de timp nu se actualizează
şi
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Timer1.Tick
LHora.Text = Date.Now.ToLongTimeString
End Sub
această proprietate în cazul în care cronometrul trebuie să fie adevărat cea mai adevărată şi o serie de 1000 şi care este tot functioneaza perfect
Buna ziua, la fel ca ceasul în loc de un formular web pe un site de web, eu nu pot vedea, evenimentul pune timer.start nu există.
Problema este că evenimentele controalelor rula pe partea de server, iar pentru asta sa se intample trebuie sa facem o cer, care se reîncarcă pagina de tot ... de fapt, ce trebuie să faci partea de client.
Încercaţi java (javascript), cu Ajax sau jQuery.
Noroc
grasias toate, dar am nevoie de ajutor
Am nevoie pentru a face acest lucru, dar tot în C # am programdo nou, dacă mai ştie cineva vă rog să mă ajute.
Salut Sunt, de asemenea, de programare şi a vrut să ştie dacă cineva ştie cum să facă o formă q, atunci când dau clic se face transparent, precum şi Windows pe Linux openSUSE 11.3
Importurile ClassLibrary1
Public class Form1
Private Sub Form1_Load (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere MyBase.Load
Time.Start ()
End Sub
Time_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Time.Tick
Ca noi Class1 oră Dim
Horas.hora Label.Text = ()
"Ore ()
End Sub
"Timpul Private Sub ()
"Acum Label.Text =
'' MessageBox.Show ("Punerea timp")
"Sfârşitul Sub
Sfarsit Clasa
CAUTĂ pentru acest cod PASSABA AICI ... Prinde DOAR CODUL DE TIMER ... o serie de acorduri şi ME a lucrat perfect ... MULTUMIM MIGUELITO ...
Multumesc pentru codurile anterioare mi-a permis să se adapteze la mine.
Codul care funcinó să mă timp, care se schimbă ca sistemul de operare să facă acest lucru ..
Private Sub Form1_Load (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere MyBase.Load
lblHora.Text = Date.Now.ToLongTimeString
Timer1.Start ()
End Sub
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Timer1.Tick
lblHora.Text = Date.Now.ToLongTimeString
End Sub
şi să ia mai multe probe şi nimeni nu arribaa funcionaa mine! Cred că sunt foarte rău pentru acest lucru: S am nevoie de un ceas, dar KE pe ecran va arata ceva de la oseaa urmă aşa! DD ayudenmeee 00:00:00:
Bună tuturor, pentru că eu am fost cercetat de pe contorul de timp şi după cum am văzut eu trebuie să le folosească pentru a controla un lift pana acum am fost doar interfaţa cu nivelul de la 1 la 10 şi tur, dar după începerea din nou 1 la 10 şi nu ar trebui să fie şi încă nu au găsit o modalitate de a lucra cu butoanele, nu în cazul în care cineva a trebuit să lucreze la ceva, aşa că am putea ajuta sau cel puţin explica, mulţumesc în avans.
cum fac cronometrul atunci când rulează arata-mi un cuvânt într-o lista Deblocarea
ca eu pot apela la ajutorul Windows 2005 vb.net