บทความประกอบการเรียนรู้ => เทคนิคการอินเตอร์เฟส Visual Basic => ข้อความที่เริ่มโดย: admin ที่ มกราคม 18, 2011, 12:34:54 PM

หัวข้อ: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก
เริ่มหัวข้อโดย: admin ที่ มกราคม 18, 2011, 12:34:54 PM
เขียนโปรแกรมควบคุมไฟจราจร 4 แยก โดยมีให้เลือก 2 รูปแบบคือ
1. ไฟจราจรปกติ
    -ไฟแดง 30 วินาที แสดงตัวเลขวินาทีสีแดง
    -ไฟเขียว 25 วินาที แสดงผลตัวเลขวินาทีสีเขียว
    -ไฟเหลือง 5 วินาที แสดงตัวเลขวินาทีสีเหลือง
2. ไฟกระพริบ
    -ด้านที่ 1 กระพริบไฟสีแดง แสดงตัวเลขวินาทีเป็น "--" สีแดง
    -ด้านที่ 2 กระพริบไฟสีเหลือง แสดงตัวเลขวินาทีเป็น "--" สีเหลือง
ใช้วงจรฮาร์ดแวร์ของใบงานที่ 6
(http://www.praphas.com/PhotoForum/interface/Lab6.png)
ฟังก์ชั่นหน่วงเวลาเมื่อใช้ 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)
หัวข้อ: Re: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก
เริ่มหัวข้อโดย: admin ที่ มกราคม 18, 2011, 12:58:35 PM
รูปไฟจราจร
(http://www.clker.com/cliparts/1/f/a/2/11949849771043985234traffic_light_red_dan_ge_01.svg.med.png)
(http://www.clker.com/cliparts/8/1/7/4/11949849782053089133traffic_light_yellow_dan_01.svg.med.png)
(http://www.clker.com/cliparts/6/e/9/d/11949849761176136192traffic_light_green_dan__01.svg.med.png)
หัวข้อ: Re: งานครั้งที่ 9 เขียนโปรแกรมควบคุมไฟจราจร 4 แยก
เริ่มหัวข้อโดย: admin ที่ มกราคม 18, 2011, 01:44:51 PM
(http://www.uppicweb.com/z/is/tlred.gif)(http://www.uppicweb.com/z/ih/tlyellow.gif)
(http://www.uppicweb.com/z/in/tlgreen.gif)(http://www.uppicweb.com/z/iz/tlblank.gif)