שעון דיגיטלי (טיימר)
היום אני רוצה להראות פשוט וקל ליצור ב-Visual Basic. נטו שעון דיגיטלי. נעשה זאת באמצעות התווית טיימר.
הטופס אמור להיות דומה לזה של התמונה הבאה>
בדוגמה זו הפעם היחידה שבה יציג, לשנות את הגופן של התווית השליטה לתת חשיבות רבה יותר. אני משתמש בגופן Tahoma גודל 28.
עכשיו תן את המרכיבים המאפיינים טיימר. כדי להפעיל את הקוד באירוע טיק של רכיב טיימר, זה חייב להיות נכס אפשר True. ואנחנו להזין את הקוד כדי להפעיל כל קרציות n. מספר קרציות של n הוא מרווח עם נכס המצוין אלפיות השנייה. אז אם אנחנו שמים את הנכס ב -1000 קרציות, הקוד יפעל בכל שנייה 1.
עכשיו בואו נראה קוד מאוד פשוט:
Timer1_Tick Private Sub (ByVal השולח כמו System.Object, _ ByVal e כמו System.EventArgs) ידיות Timer1.Tick Label1.Text = Date.Now.ToLongTimeString End Sub
זה רק נשאר לרוץ (F5) את הבקשה ואנחנו נצטרך השעון הדיגיטלי שלנו כפי שניתן לראות בתמונה למטה>
אם אתה קורא קבוע של הבלוג הזה, אתה יודע את כל דוגמאות הקוד תמיד אמור להיות מאוד פשוט, כי יש לך מן הדוגמאות הללו את האפשרות לשפר, להוסיף ולהתאים אותם לשימוש ביישומים שלך.
כמו תמיד, אני מקווה שתמצא את זה שימושי.
33 תגובות ל "שעון דיגיטלי (טיימר)"
הערה
מידע Bitacoras.com ...
דרג ב Bitacoras.com: היום אני רוצה להראות פשוט וקל ליצור ב-Visual Basic Net שעון דיגיטלי.. נעשה זאת באמצעות התווית טיימר. הטופס צריך להיראות דומה לי לאחר ....
שעון העצר אינו נדרש, בדרך פשוטה יותר:
Private Sub Form1_Load (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
עיצוב Me.Label1.Text = (עכשיו, "HH: mm: ss tt")
End Sub
fastmonro:
תודה על הקלט, אבל כל מה שאתה עושה עם זה כדי "להראות" על התווית כאשר הוא טעון צורה (כפי שאתם מכנים אותו אירוע Load). תן לי לספר לך את זה כדי להשיג את הפונקציונליות של השעון, או מראה את השעה הנוכחית "כל הזמן" הזמן שנדרש R מרכיב, אבל לא להיות השעון ... כאשר מראים פעם אחת בלבד.
טוב התרומה שלך! מזל טוב!
אחיו תרומה מצוינת אך הבעיה היחידה שאני מוצא היא אינה גובה כל זמן שהיא מבצעת לחכות קצת זמן להראות את השעון פשוט לשים אותו במקרה של עומס טופס שעשיתי ב-C # זה זה הכי הרבה שאני יכול להשתמש
חלל timer1_Tick פרטית (השולח אובייקט, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
חלל Form1_Load פרטית (אובייקט השולח, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
אחד מי יודע עוד דבר כדי להציג את שם הקובץ שמירה או פתיחה בשורת הכותרת וניסה במספר דרכים ולא מצליח למצוא איך לעשות את זה אם זה ב-VB או C #.
salu2
אתה צודק אבל הוא etienes qu לחכות 2 זה כאשר אתה מפעיל את תקתוק השעון קוד (הוא זוכר כל רגע 1 2 או 1 אחרי עומס) אני אומר לך טריק הרבה יותר קל עצמך מזרח qu כדורים, לשים אותו קוד אתה מכניס תקתוקו של השעון בצורה לטעון הטופס הבא:
Private Sub Form1_Load ....
Me.Label12.Text = Format (Now, "HH: mm: ss tt")
End Sub
ופשוט לדילמה שלך
בברכה
ואליזיאו .... תודה טוב לעזור לך עם הקודים האלה הסבר פשוט וטוב לנו שרק התחיל תכנות עם ....... אתה צודק עם טיימר הכרחי מאוד כדי לממש ..
תודה.
אספקה טובה!
טוב אני אוהב את הפתרון
חברים לא מסתכלים על הקוד של תקתוק השעון? עזרה בבקשה
שלום, אני משתמש טיימר ו כאמור לעיל, יש את המאפיין אפשר ש ללכת נכון, Intervale = 1000 .... עכשיו ... אתה לחיצה כפולה על אובייקט ולוקח אותם לאירוע Timer1 טיק ... לשים את הקוד משהו כזה ...
המעמד הציבורי frmPrincipal
Tiempo_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Tiempo.Tick
txtHora.Text = Format (Now, "HH: mm: ss tt")
txtFecha.Text = Date.Now.Date
End Sub
בסוף כיתה
IO במקרה שלי שיניתי את השם של האובייקט, במקום את הזמן Timer1 שמתי ...
q אני מקווה שהם לעזור למתכנתים חדשים.
Cojonuda Neobones התפקיד שלך! הוא מזיין נהדר.
חברים טובים, ניסיתי כמה פעמים כמו שאני אומר, אבל כדי להפעיל את התוכנית השעון מתעדכן כל שניה שאני הולך לעשות כדי להפעיל מעודכן, נכס מרווח של המקום בשנת 1000, אך לא מעודכן .
אני מקווה שאוכל לעזור.
ברכות.
אם כי אני מניח שאתה מזכיר את זה habras קוד ההיגיון נכתב עבור לתקתק את האירוע של השעון? זהו זה
Timer1_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer1.Tick
Label12.Text = Format (Now, "HH: mm: ss tt")
End Sub
ת"א SISAS BN יופ קוד TOY רק לומד ו NA .. רוצה לדעת איך ליצור טיימר SISAS ASERLE ...
הנה משהו קצת יותר מורכב
המעמד הציבורי Form1
ספירת דים כמספר שלם
Private Sub Form1_Load (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
Me.Text = "הזמן אינדיקטור"
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
End Sub
HoraToolStripMenuitem_click Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות HoraToolStripMenuItem.Click
נגד = 1
End Sub
FechaToolStripMenuItem_click Private Sub (sende ByVal כאובייקט, דואר ByVal כפי System.EventArgs) ידיות FechaToolStripMenuItem.Click
נגד = 2
End Sub
Timer1_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer1.Tick
Me.Label1.Visible = True
אם מונה = 1 = אז Label1.Text TimeString
אם מונה = 2 Label1.Text ואז My.Computer.Clock.LocalTime.Date.ToString =
End Sub
בסוף כיתה
תודה על הקלט, עובד בצורה מושלמת
היו לי פניות רבות עם זה ולתקן את השורות האלה מעטים ... שוב תודה!
מאחלים לכם לשלוח לי תרגילים נוספים עם טיימר במיוחד ואיך לעשות מהלך במעלית לקומה הרצויה
תודה.
השעון הוא נכון כמו למשל, רק כדי להתחיל אתה צריך לשים בטופס Timer.Start ()
ברכות.
אם טיימר funka אבל תסתכל על מנהל המשימות שלך כדי לראות איך הוא נע משאבים (תלוי במעבד איל וכו '..) בדרך אחרת כדי לייעל? כמה Me.Refresh?
Hijes לקרר אותי מצרות
יש לי שאלה על איך לחתוך במזומן לפני עם מכירות dond מהורהר אך ורק בתחום של גישה למסדי נתונים
הוא monto_venta
תודה לך אם יש לך למשל
אני סטודנט להנדסה systems'm עושה מערכת לאימון שלי תרומתם הם דוגמאות מצוינות לעיל בדיקה 2 ג XQ האמת הזו היא בסיסית אך במקרים אלו C או אותו מעבד. hehe
Private Sub Form1_Load (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
עיצוב Me.Label1.Text = (עכשיו, "HH: mm: ss tt")
End Sub
פשוט נותן לי זמן מסוים אינו מעדכן
ו -
Timer1_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer1.Tick
LHora.Text = Date.Now.ToLongTimeString
End Sub
נכס זה אם הטיימר חייב להיות נכון ביותר נכון ומגוון של 1000 וזה הכל עובד בצורה מושלמת
שלום, וכך גם השעון במקום טופס אינטרנט באתר אינטרנט, אני לא יכול לראות אותה, במקרה שמה timer.start לא קיים.
הבעיה היא כי אירועי הפקדים לרוץ בצד השרת, ובשביל שזה יקרה אתה צריך לעשות reques, אשר ושחזור עמוד שלם ... בעצם מה שאתה צריך לעשות בצד הלקוח.
נסה Java (JavaScript) עם AJAX או jQuery.
מזל
grasias הכל אבל אני צריך עזרה
אני צריך לעשות את כל זה אבל ב-C # אני programdo חדשה אם מישהו יודע אנא עזור לי.
היי אני גם תכנות חדשה ורציתי לדעת אם מישהו יודע איך לעשות טופס Q q כאשר אתה נותן קליק נעשה שקוף, כמו גם חלונות על לינוקס openSUSE 11.3
יבוא ClassLibrary1
המעמד הציבורי Form1
Private Sub Form1_Load (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
Time.Start ()
End Sub
Time_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Time.Tick
כמו Class 1 שעות חדשות עמומים
Horas.hora Label.Text = ()
"שעה אחת ()
End Sub
"הזמן משנה פרטית ()
"Label.Text = עכשיו
'' MessageBox.Show ("לשים את הזמן")
"סוף Sub
בסוף כיתה
מחפש קוד PASSABA כאן ... פשוט לתפוס קוד TIMER ... כמה סידורים AND ME עובד באופן מושלם ... תודה מיגליטו ...
תודה על הקודים קודמים אפשרה לי להסתגל שלי.
קוד funcinó לי להגיע בזמן, באיזו שנה כמערכת ההפעלה לעשות זאת ..
Private Sub Form1_Load (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
lblHora.Text = Date.Now.ToLongTimeString
Timer1.Start ()
End Sub
Timer1_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer1.Tick
lblHora.Text = Date.Now.ToLongTimeString
End Sub
לקחת מספר דוגמאות ואף אחד arribaa funcionaa לי! אני חושב שאני רע מאוד בשביל זה: S אני צריך שעון אבל Ke על המסך ייראה כמו משהו oseaa האחרון כל כך! DD ayudenmeee 00:00:00:
היי כולם, כי אני כבר בודקת על השעון וכמו שאני רואה אני צריך להשתמש בהם כדי לשלוט במעלית עד עכשיו הייתי רק ממשק עם רמות של 1 עד 10 ו הסיור אבל אחרי ההתחלה שוב 1-10 ולא צריך להיות, ועדיין לא מצאו דרך לעבוד עם הכפתורים, לא אם מישהו היה צריך לעבוד על משהו אז אני יכול לעזור, או לפחות להסביר, תודה מראש.
כפי שאני עושה כאשר הטיימר פועל מראה לי מילה listbox
כמו שאני יכול לקרוא את העזרה של Windows ב vb.net 2005