פקד Timer עוזר לנו לבצע פעולה כלשהי(Event) כל פרק זמן מסויים.
לדוגמא, להציג את השעה של שניה.
במדריך זה אני אראה איך ליצור Label שיציג את השעה וטיימר שיעדכן אותו.
אז נתחיל ביצירת הטופס הבסיסי עם Label אחד:
שיניתי את גודל הטקסט שלו לצורך תצוגה ברורה יותר.
עכשיו נוסיף Timer מהToolBox:
תגררו את הטיימר לטופס.
אתם אמורים לראות את הטיימר מתחת לטופס:
עכשיו לחצו קליק ימיני על הטיימר ובחרו בproperties:
מצד ימין אתם אמורים לראות את הproperties של הטיימר:
שנו את המאפיינים שיראו כך:
מאפיין הInterval הוא הזמן אשר לוקח לטיימר לביצוע הפעולה, במאיות השניה, אז הגדרתי 1000 שזה שניה אחת בVB.
מאפיין הEnabled אומר אם הטיימר פעיל או לא(True Or False).
עכשיו לחצו פעמיים על הטיימר בכדי להגיע לTick Event שלו.
אתם אמורים לראות את הקוד הבא:
אם נריץ את התוכנית לא יקרה כלום.קוד:Public Class Using_Timers Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick End Sub End Class
בתוך האירוע Timer1_Tick תכניסו את הקוד הבא:
הקוד הזה אומר לטיימר לשנות את הטקסט של Label1 לתאריך הנוכחי.קוד:Label1.Text = Date.Now
אם תריצו את התוכנית תראה את השעון מתעדכן כל שניה:
כל הזכויות שמורות לKillerCounter, אין להעתיק מדריך זה.
שאלות לשאול כאן![]()











ציטוט ההודעה


