เนื้อหา

• คำสั่ง

ใน Visual Basic .NET ตัวจับเวลาอนุญาตให้คุณควบคุมเหตุการณ์เป็นระยะในระหว่างรันไทม์ของแอปพลิเคชันของคุณ ตัวจับเวลามีคุณสมบัติและวิธีการเฉพาะสำหรับสิ่งนี้ คุณสมบัติที่สำคัญที่สุดคือ "ช่วงเวลา" ซึ่งระบุความถี่ที่ตัวจับเวลาควรเรียกใช้รหัส คุณระบุค่าช่วงเป็นมิลลิวินาที พันมิลลิวินาทีเท่ากับหนึ่งวินาที ตัวอย่างบางส่วนของสิ่งที่คุณสามารถทำได้กับคอนโทรลเลอร์ประกอบด้วยการรันการนับถอยหลังการเปลี่ยนค่าคุณสมบัติแบบไดนามิกสำหรับการควบคุมอื่น ๆ และเพื่อรักษาตาคงที่ในส่วนอื่น ๆ ของแอปพลิเคชัน

คำสั่ง

ค่าช่วงเวลาตัวจับเวลาจะได้รับเป็นมิลลิวินาที (ภาพนาฬิกาของ Peter Hires Images จาก Fotolia.com)

1. เปิดโครงการใน Visual Basic ดับเบิลคลิกที่ตัวจับเวลาและเพิ่ม "Timer1" และดับเบิลคลิกที่ "Label" เพื่อเพิ่ม "Label1" เปลี่ยนคุณสมบัติควบคุม "เปิดใช้งาน" เป็น "จริง" และเปลี่ยนช่วงเป็น 1,000

2. กด "F7" เพื่อเปิดหน้าต่างรหัสและป้อนรหัสต่อไปนี้:

   Dim time As Integer = 10

   สิ่งนี้สร้างตัวแปรและเริ่มต้นมัน

3. เปิดแอปเพล็ต Timer1_Tick และป้อนรหัสต่อไปนี้:

   ถ้าเวลา> 0 แล้ว time = time - 1 Label1.Text = time Else Timer1.Enabled = False End ถ้า

   เมื่อโปรแกรมทำงานตัวจับเวลาจะลดตัวแปรทุกวินาทีโดยการแสดงค่าของตัวปะรำจนกระทั่งจำนวนถึงศูนย์ทำให้ตัวจับเวลาปิด

4. กด "Shift" และ "F7" เพื่อเปิดหน้าต่างโครงการ คลิกสองครั้งที่ตัวจับเวลาและเพิ่ม "Timer2" ลงในโครงการ เปลี่ยนคุณสมบัติ "เปิดใช้งาน" เป็น "จริง" และช่วงของค่าเป็น 100 จากนั้นคลิกสองครั้งเพื่อเปิดโปรแกรมย่อย Timer2_Tick จากนั้นพิมพ์รหัสต่อไปนี้:

   
   

   If (Label1.Left + Label1.Width)> Me.Width แล้ว Label1.Left = Me.Left - 100 End หาก Label1.Left = Label1.Left + 5

   รหัสนี้ทำให้พาเนลเลื่อนในแนวนอนบนหน้าจอเคลื่อนย้ายห้าพิกเซลทุก ๆ สิบวินาที เมื่อปะรำมาถึงจุดสิ้นสุดด้านขวาของแบบฟอร์มมันจะกลับไปทางซ้ายและเริ่มเคลื่อนที่อีกครั้ง

5. กด "Shift" และ "F7" เพื่อเปิดหน้าต่างโครงการ คลิกสองครั้งที่ตัวควบคุมและเพิ่ม "Timer3" ลงในโครงการ เปลี่ยนคุณสมบัติ "Enabled" เป็น "True" และช่วงเป็น 500 จากนั้นดับเบิลคลิกที่ "TextBox" เพื่อเพิ่ม "TextBox1" คลิกสองครั้งที่โครงการ Timer3 เพื่อเปิดแอปเพล็ต Timer3_Tick จากนั้นพิมพ์รหัสต่อไปนี้:

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

   ทุกๆ 30 วินาทีตัวจับเวลาเปลี่ยนข้อความทั้งหมดจาก "TextBox1" เป็นกล่องด้านบน ตามค่าเริ่มต้นเมื่อตัวจับเวลาทำการเปลี่ยนแปลงเคอร์เซอร์จะกลับไปที่จุดเริ่มต้นของกล่องข้อความ บรรทัดที่สองของรหัสป้องกันสิ่งนี้ไม่ให้เกิดขึ้น