เขียนโปรแกรมควบคุมไฟจราจร 4 แยก โดยมีให้เลือก 2 รูปแบบคือ
1. ไฟจราจรปกติ
-ไฟแดง 30 วินาที แสดงตัวเลขวินาทีสีแดง
-ไฟเขียว 25 วินาที แสดงผลตัวเลขวินาทีสีเขียว
-ไฟเหลือง 5 วินาที แสดงตัวเลขวินาทีสีเหลือง
2. ไฟกระพริบ
-ด้านที่ 1 กระพริบไฟสีแดง แสดงตัวเลขวินาทีเป็น "--" สีแดง
-ด้านที่ 2 กระพริบไฟสีเหลือง แสดงตัวเลขวินาทีเป็น "--" สีเหลือง
ใช้วงจรฮาร์ดแวร์ของใบงานที่ 6
ฟังก์ชั่นหน่วงเวลาเมื่อใช้ Timer 1 ตัว
Public Sub DelayTime(Sec As Long)
Timer1.Enabled = True ' สั่งให้ Timer1 เริ่มทำงาน
Timer1.Interval = 1000 * Sec
While Timer1.Interval > 0
DoEvents
Wend
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False ' สั่งให้ Timer1 หยุดทำงาน
Timer1.Interval = 0
End Sub
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
