Clock Digital (Timer)
Sot unë dua të tregoj një të thjeshtë dhe të lehtë për të krijuar në Visual Basic. Net orën një dixhitale. Ne do të bëjmë këtë duke përdorur një etiketë dhe një orë me zile.
Formulari duhet të duken të ngjashme me atë të imazhit tjetër>
Për këtë shembull, ku vetëm koha do të tregojnë, të ndryshuar font e etiketës të kontrollit për të dhënë atë më shumë rëndësi. Unë jam duke përdorur madhësinë Tahoma font 28.
Tani le pronat komponent timer. Për të drejtuar kodin në rast shënoni e komponentit sahat, kjo duhet të ketë pronë mundësojnë që vërtetë. Dhe ne shkruani kodin për të drejtuar çdo ticks n. Numri i rriqrat të n është intervali me pronën e treguar në milisekonda. Pra, nëse ne kemi vënë pasurinë në 1000 rriqrat, kodi do të kandidojë çdo sekond 1.
Tani le të shohim se kodi është shumë e thjeshtë:
Timer1_Tick Private Sub (ByVal sender Si System.Object, _ ByVal e Si System.EventArgs) trajton Timer1.Tick Label1.Text = Date.Now.ToLongTimeString Sub End
Ajo vetëm mbetet për të drejtuar (F5) zbatimin dhe ne do të kemi orën tonë dixhital, siç tregohet në foto më poshtë>
Nëse ju jeni një lexues i rregullt i këtij blogu, ju e dini se të gjithë shembujt kodi gjithmonë për qëllim të jetë shumë e thjeshtë dhe që ju të keni nga këto shembuj mundësinë për të përmirësuar, plotësuar dhe përshtatur ato për përdorim në aplikimet tuaja.
Si gjithmonë, unë shpresoj që ju të gjeni të dobishme.
34 Responses to "Clock digjital (Timer)"
Koment
Informacione Bitacoras.com ...
Vlerësoni Bitacoras.com në: Sot unë dua të tregoj një të thjeshtë dhe të lehtë për të krijuar në bazë vizuale Net orën një dixhitale.. Ne do të bëjmë këtë duke përdorur një etiketë dhe një orë me zile. Formulari duhet të duket e ngjashme me të i pas ....
timer nuk është e nevojshme, një mënyrë të thjeshtë:
Private Sub Form1_Load (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton MyBase.Load
Me.Label1.Text = Format (Tani, "hh: mm: ss tt")
Sub End
fastmonro:
thanks for the input, por të gjithë ju bëni me të është për të "treguar" në një etiketë, kur ajo u ngarkuar formë (siç ju e quani atë nga ngjarje Load). Më lejoni t'ju them se për të arritur funksionalitetin e një orë, ose duke treguar kohën e tanishme "gjatë gjithë kohës" Koha është e nevojshme r komponent, por nuk mund të jetë një orë ... kur ju tregoni vetëm një herë.
Shumë mirë kontributin tuaj! Urime!
Vëllai i shkëlqyer kontribut, por problemi i vetëm të gjej është se nuk ka ngarkuar ndërsa ai ekzekuton një të presim disa kohë për të treguar orën vetëm vënë njëjtën gjë në rast ngarkesës së forme kam bërë në C # që është më unë mund të përdorni
timer1_Tick private void (dërguesi objekt, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
Form1_Load private void (objekt dërguesi, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
dhe një dikush më shumë gjë e di se si për të shfaqur emrin e skedar ose u hap në shiritin e titullit dhe u përpoq disa mënyra dhe nuk mund të gjejnë se si të bëhet kjo nëse është në VB ose C #.
salu2
jeni të drejtë, por është etienes qu për të pritur një të dytë që është kur ju drejtuar kodin shënoni Clock (mbani mend është çdo 1 sekond ose e dyta pas ngarkesës) unë ju them një mashtrim shumë më e lehtë për vete Ene topa qu, vendos Kodi njëjtë të vendosni në të shënoni e kohës në formën load formën tuaj si kjo:
Private Sub Form1_Load ....
Me.Label12.Text = Format (Tani, "hh: mm: ss tt")
Nën fund
dhe vetëm dilema juaj
Të fala
eliseo .... faleminderit dhe për të ndihmuar ju me këto kode shpjegim të thjeshtë dhe të mirë për ne që sapo ka filluar programimin me ....... ju jeni të drejtë me timer është shumë e nevojshme në mënyrë që të realizoj ..
Ju faleminderit.
Furnizim të mirë!
Mirë unë si zgjidhje
miqtë nuk duken në kodin për shënoni sahat? ndihmë ju lutem
Përshëndetje, Unë përdorni timer dhe siç është e cekur më lart, pronë Enable ka q të shkojnë në të vërtetë, dhe Intervale = 1000 .... tani ... ju klikoni dy herë mbi objektin dhe i merr ato për të Timer1 ngjarje shënoni ... vendosni kodin në diçka si ...
Publik Klasa frmPrincipal
Tiempo_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Tiempo.Tick
txtHora.Text = Format (Tani, "hh: mm: ss tt")
txtFecha.Text = Date.Now.Date
Sub End
Klasa End
io në rastin tim kam ndryshuar emrin e objektit, në vend të Timer1 kohë kam vënë ...
q Unë shpresoj se ata ndihmojnë programuesit të reja.
Cojonuda Neobones roli juaj është! është e ndyrë e madhe.
Miq të mirë, kam provuar disa herë si të them por për të drejtuar programin ora është përditësuar çdo sekondë që kam bërë do të kandidojë përditësuar, dhe pronë intervali i vendit në 1000, por nuk përditësuar .
Unë shpresoj se unë mund të të ndihmojë.
përshëndetje.
edhe pse unë mendoj se ju përmend atë habras kodin logjikë shkruar për shënoni ngjarje të kohës? është ky
Timer1_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Timer1.Tick
Label12.Text = Format (Tani, "hh: mm: ss tt")
Sub End
BN TA SISAS YOP KODI dhe lodër JUST MËSIM DHE NA .. DUA TE DI SI për të krijuar një SISAS timer ASERLE ...
Këtu ka diçka pak më të përpunuar
Publik Class Form1
Numërimi i Ditës së Dim Si Integer
Private Sub Form1_Load (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton MyBase.Load
Me.Text = "Treguesi koha"
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 = False
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
BackColor = Color.White
Sub End
HoraToolStripMenuitem_click Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton HoraToolStripMenuItem.Click
kundërvënë = 1
Sub End
FechaToolStripMenuItem_click Private Sub (ByVal Sende Si Object, ByVal e Si System.EventArgs) trajton FechaToolStripMenuItem.Click
kundërvënë = 2
Sub End
Timer1_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Timer1.Tick
Me.Label1.Visible = True
Nëse kundërvlerë = 1 Then = Hap TimeString Label1.Text
Nëse counter = 2 Atëherë Label1.Text = My.Computer.Clock.LocalTime.Date.ToString
Sub End
Klasa End
Faleminderit për kontributin, të works perfectly
Unë kam qenë që kthehet shumë me këtë dhe të rregulluar këto pak rreshta po ... Thanks again!
ju uroj dërgoni ushtrime më shumë me sahat sidomos se si për të bërë një lëvizje ashensor në katin e dëshiruar
Ju faleminderit.
Ora është i saktë si në shembullin e, vetëm për të filluar ju keni për të vënë formë Timer.Start ()
Përshëndetje.
nëse timer funka por shikoni në menaxherit tuaj detyrë për të parë se si ajo lëviz burimet (në varësi të procesor ram etj ..) disa mënyra të tjera për të zgjedh? disa Me.Refresh?
Hijes ftohtë mua nga probleme
Kam një pyetje se si të prerë të holla më parë me shitjet dond thjesht meditues në fushën e qasjes të dhënave
është monto_venta
Faleminderit nëse keni ndonjë shembull
Unë jam student i inxhinierisë në systems'm bërë një sistem për praktikën time kontributet e tyre janë shembuj të shkëlqyer të mësipërme hetim c 2 xq eshte e verteta kjo është themelore, por në këto raste për të dyja c atë jashtë cpu. hehe
Private Sub Form1_Load (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton MyBase.Load
Me.Label1.Text = Format (Tani, "hh: mm: ss tt")
Sub End
vetëm më jep një kohë të caktuar nuk Përditëso
dhe
Timer1_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Timer1.Tick
LHora.Text = Date.Now.ToLongTimeString
Sub End
kjo pronë, nëse timer duhet të jetë e vërtetë më e vërtetë dhe një varg të 1000 dhe kjo është e gjitha works perfectly
Përshëndetje, siç ka orën në vend të një forme të internetit në një web site, unë nuk mund ta shohin atë, ngjarje e vë timer.start nuk ekziston.
Problemi është se ngjarjet e kontrolleve të kandidojë në anën e serverit, dhe që kjo të ndodhë ju duhet të bëni një reques, e cila mbushet tërë faqen ... në fakt ju duhet të bëni anën e klientit.
Provo Java simbolit javascript) me Ajax ose jQuery.
Fat
grasias të gjithë, por kam nevojë për ndihmë
Unë duhet të bëni të gjitha këto, por në C # unë jam programdo re nëse dikush e di ju lutem më ndihmoni.
Hi Unë jam gjithashtu programimi i ri dhe donte të dini nëse dikush e di se si të bëjnë një formë q q kur ju jepni klikoni bëhet transparente si dhe dritaret në Linux OpenSuse 11.3
Importet ClassLibrary1
Publik Class Form1
Private Sub Form1_Load (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton MyBase.Load
Time.Start ()
Sub End
Time_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Time.Tick
Si Class1 orë New dim
Horas.hora Label.Text = ()
"Ore ()
Sub End
'Koha Private Sub ()
'Label.Text = Tani
'' MessageBox.Show ("Vendosja e kohës")
'End Sub
Klasa End
KAQ PER ATE KODIT PASSABA KETU ... JUST Grab KODIN E timer ... Disa rregullime DHE ME punuar përkryer ... THANK MIGUELITO ...
Faleminderit për kodet e mëparshme lejohet mua për të përshtatur të minave.
Kodi se funcinó mua për të marrë kohë, që të ndryshojë si në sistemin operativ për të bërë këtë ..
Private Sub Form1_Load (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton MyBase.Load
lblHora.Text = Date.Now.ToLongTimeString
Timer1.Start ()
Sub End
Timer1_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Timer1.Tick
lblHora.Text = Date.Now.ToLongTimeString
Sub End
dhe të marrin mostra të ndryshme dhe asnjë arribaa funcionaa mua! Unë mendoj se unë jam shumë keq për këtë: S kam nevojë për një orë, por ke në ekran do të duket si diçka nga oseaa fundit kështu! DD ayudenmeee 00:00:00:
Hi all, sepse kam qenë i studjuar mbi timer dhe si kam parë unë kam për t'i përdorur ato për të kontrolluar një ashensor deri tani kam qenë vetëm ndërfaqe me nivelet nga 1 deri 10 dhe turne por pas fillimit përsëri 1 deri 10 dhe nuk duhet të jetë dhe ende nuk kanë gjetur një mënyrë për të punuar me butonat, nëse dikush nuk ka pasur për të punuar në diçka kështu që unë mund të ndihmojë ose të paktën të shpjegojë, thanks in advance.
si kam bërë timer kur drejtimin tregon mua një fjalë në një ListBox
si unë mund të telefononi ndihmën e dritareve në NET 2005
MsgBox (timeofday)