ผู้เขียน หัวข้อ: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก  (อ่าน 36620 ครั้ง)

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
เขียนโปรแกรมควบคุมไฟจราจร 4 แยก โดยมีให้เลือก 2 รูปแบบคือ
1. ไฟจราจรปกติ
    -ไฟแดง 30 วินาที แสดงตัวเลขวินาทีสีแดง
    -ไฟเขียว 25 วินาที แสดงผลตัวเลขวินาทีสีเขียว
    -ไฟเหลือง 5 วินาที แสดงตัวเลขวินาทีสีเหลือง
2. ไฟกระพริบ
    -ด้านที่ 1 กระพริบไฟสีแดง แสดงตัวเลขวินาทีเป็น "--" สีแดง
    -ด้านที่ 2 กระพริบไฟสีเหลือง แสดงตัวเลขวินาทีเป็น "--" สีเหลือง
ใช้วงจรฮาร์ดแวร์ของใบงานที่ 6


ฟังก์ชั่นหน่วงเวลาเมื่อใช้ Timer 1 ตัว
โค๊ด: [Select]
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

ประกาศการใช้งานฟังก์ชั่นเพื่อใช้งานพอร์ตขนาน เมื่อต้องการใช้คำสั่งส่งข้อมูลออกพอร์ต
โค๊ด: [Select]
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) 
« แก้ไขครั้งสุดท้าย: มกราคม 24, 2017, 08:06:30 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
Re: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก
« ตอบกลับ #1 เมื่อ: มกราคม 18, 2011, 12:58:35 PM »
รูปไฟจราจร


« แก้ไขครั้งสุดท้าย: ธันวาคม 13, 2016, 01:43:09 PM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
Re: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก
« ตอบกลับ #2 เมื่อ: มกราคม 18, 2011, 01:44:51 PM »

« แก้ไขครั้งสุดท้าย: มกราคม 25, 2011, 01:10:28 PM โดย admin »