บทความประกอบการเรียนรู้ => เทคนิคการอินเตอร์เฟส Visual Basic => ข้อความที่เริ่มโดย: admin ที่ ตุลาคม 16, 2010, 09:51:55 PM

หัวข้อ: งานครั้งที่ 10 การประกอบวงจรและเขียนโปรแกรมรับค่าจากสวิตช์
เริ่มหัวข้อโดย: admin ที่ ตุลาคม 16, 2010, 09:51:55 PM

-ประกอบวงจรรับค่าจากสวิตช์
-เขียนโปรแกรมรับสวิตช์โดยแสดงผลเป็นหลอดไฟดังรูป


(http://image.free.in.th/v/2013/ib/160115023743.png)

รูป LED (On-Off)
(http://www.clker.com/cliparts/Y/u/h/d/l/1/led-off-th.png)(http://www.clker.com/cliparts/o/c/7/P/9/5/led-on-th.png)
(http://www.clker.com/cliparts/R/B/I/T/f/z/led-green-th.png)(http://www.clker.com/cliparts/E/E/C/W/C/P/led-green-th.png)

(http://www.uppicweb.com/x/i/ii/jlab8.png)

(http://image.free.in.th/z/is/lab8pcb.png)

หัวข้อ: Re: งานครั้งที่ 10 การประกอบวงจรและเขียนโปรแกรมรับค่าจากสวิตช์
เริ่มหัวข้อโดย: admin ที่ ธันวาคม 20, 2011, 12:19:13 PM

 เมื่อต้องการใช้คำสั่งรับข้อมูลจากพอร์ต ต้องประกาศการใช้งานก่อนเขียนโปรแกรมดังนี้

โค๊ด: [Select]

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer 

รูปแบบการใช้งาน
ตัวแปรรับค่า = inp (เบอร์พอร์ต)
ตัวอย่างเช่น
 value=inp(&H379)

*ใบงานนี้มีการส่งค่าเพื่อออกพอร์ตดังนี้นี้ใช้ฟังก์ชั่น Out ด้วย

โค๊ด: [Select]

Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)