כיצד לתכנת את בקרת הזמן ב - VB.NET

עם בקרת Visual Basic .NET Timer אתה יכול לשלוט על אירועים חוזרים.

שלב 1

פתח פרוייקט Visual Basic. לחץ פעמיים על "טיימר" שליטה להוסיף Timer1 לפרויקט. לחץ פעמיים על "תווית" שליטה להוסיף Label1 לטופס. משנה את המאפיין "מאופשר" של השעון Timer1 ל "True" (true) ואת המאפיין "מרווח" (טווח) ל 1000.

שלב 2

לחץ על "F7" כדי לפתוח את חלון הקוד ולהקליד את הטקסט הבא:

זמן עמום כמספר שלם = 10

פעולה זו תיצור משתנה ולהתחיל אותו עם ערך.

שלב 3

פתח את השגרה Timer1_Tick והזן את הקוד הבא:

אם הזמן> 0 אז הזמן = שעה - 1 Label1.Text = פעם אחר Timer1.Enabled = False End אם

כאשר התוכנית מבוצעת, הטיימר יקטין את משתנה הזמן בזה אחר זה בכל שנייה ויציג את הערך על התווית עד שהספירה תגיע ל 0. במקרה כזה, הטיימר יופסק.

שלב 4

לחץ על "Shift" ו- "F7" כדי לפתוח את חלון העיצוב. לחץ פעמיים על בקרת הזמן כדי להוסיף Timer2 לפרויקט. לשנות את הרכוש מ "מאופשר" ל "נכון" ו "מרווח" המאפיין שלה 100. לאחר מכן לחץ לחיצה כפולה על זה כדי לפתוח את השעון Timer2_Tick. כתוב את הקוד הבא:

אם (Label1.Left + Label1.Width)> Me.Width ואז Label1.Left = Me.Left - 100 סוף אם Label1.Left = Label1.Left + 5

עם קוד זה התווית תעבור אופקית על פני המסך, העברת חמישה פיקסלים בכל עשירית השנייה. כאשר התווית מגיעה לקצה הימני של הטופס היא תקפוץ חזרה לקצה השמאלי ותתחיל לגלול שוב אופקית.

שלב 5

לחץ על "Shift" ו- "F7" כדי לפתוח את חלון העיצוב. לחץ פעמיים על טיימר כדי להוסיף Timer3 לפרויקט. שנה את המאפיין "מאופשר" ל "True" ו "מרווח" המאפיין שלה ל 500. לחץ פעמיים על "TextBox" שליטה (תיבת טקסט) כדי להוסיף TextBox1 לפרויקט. לחץ פעמיים על Timer3 של הפרויקט כדי לפתוח את השעון Timer3_Tick. כתוב את הקוד הבא:

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

כל חצי השני, טיימר ישנה את כל הטקסט ב- TextBox1 באותיות רישיות. כברירת מחדל, כאשר הטיימר מבצע שינוי זה, הסמן חוזר לתחילת תיבת הטקסט. השורה השנייה של הקוד מונעת זאת.