ผู้เขียน หัวข้อ: งานครั้งที่ 10 การประกอบวงจรและเขียนโปรแกรมรับค่าจากสวิตช์  (อ่าน 10364 ครั้ง)

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์

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




รูป LED (On-Off)





« แก้ไขครั้งสุดท้าย: มกราคม 21, 2016, 11:51:07 AM โดย admin »

admin

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 706
    • ดูรายละเอียด
    • อีเมล์
 เมื่อต้องการใช้คำสั่งรับข้อมูลจากพอร์ต ต้องประกาศการใช้งานก่อนเขียนโปรแกรมดังนี้
โค๊ด: [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) 
« แก้ไขครั้งสุดท้าย: กุมภาพันธ์ 07, 2017, 08:36:41 AM โดย admin »