Computer's Interfacing Hardware ,Electronic devices and Input Output to Control System.

Hardware Resource

โครงงานพื้นฐานการติดต่อควบคุม LED จาก Printer Port

   จากบทความที่ผมได้กล่าวเกี่ยวกับเนื้อหาการติดต่อผ่าน Printer Port ไปแล้วนั้น
    เขียนโปรแกรมควบคุม I/O ผ่าน Printer Port
    มาในโครงงานนี้จะนำเอาหลักการที่เสนอไปมาประยุกต์เพื่อติดต่อแบบ Parallel Port โดยจะมีส่วนของโปรแกรม PC ซึ่งผมใช้ Visual Basic อีกทั้งวงจรและรูปวงจรของบอร์ดที่ผมใช้ทดลอง

สำหรับอุปกรณ์ด้าน Hardware นั้น ก็เป็นวงจรการต่อ LED แบบพื้นฐาน มีเพิ่มในส่วนของ ชุด Current Sinking ซึ่งผมใช้ IC ULN 2801 or เบอร์ ULN 2803 ก็ได้ และชุด LED แสดงผล การทำงานของสัญญาณที่ติดต่อ Printer Port กับ PC

รูปบอร์ดทดลองสำหรับโครงงานนี้

และผมมีรูปลายวงจรพิมพ์หรือ PCB มาให้ดูด้วยด้านล่างนี้ครับ

รูปแผงวงจรพิมพ์(PCB)สำหรับโครงงานนี้

จริงๆแล้วเราสามารถที่จะต่อ LED โดยตรงกับสัญญาณไฟฟ้ากระแสตรง 5 โวท์ลของ Printer Port ซึ่งจะเห็นว่าผมทำตัว Selector เป็นลักษณะ สวิท์ช ไว้ด้วย แต่ที่นำ IC ULN 2801 นั้นเพื่อเป็นตัวขับกระแสไปยัง LED ด้วยแหล่งจ่ายภายนอก 6 โวล์ท ซึ่งมีการต่อตัวต้านทาน 270 โอท์มไว้ ซึ่งกระแสที่ไหลผ่านไปยัง LED จะประมาณ 10 mA ส่วนไดโอด1N4001 เพื่อป้องกันกระแสไหลกลับหรือต่อกลับขั้วนั้นเอง

รูปการต่อบอร์ดสำหรับโครงงานนี้

ส่วนโปรแกรมนั้นผมจะไม่ขอเขียนใหม่นะครับคุณสามารถนำ Code มาจากบทความที่ผมเขียนใช้ได้เลยครับ

คุณสามารถ Copy โค๊ดโปรแกรมตัวอย่าง ใน Text box ด้านล่างนี้ เพื่อนำไปศึกษาได้ครับ

โดยนำไป Paste ไว้ใน โปแกรม Notepad ก็ได้แล้ว Save As..เป็น Visual Basic Form File นามกสุลคือ .frmเช่นใส่ชื่อ Testport.frm เสร็จแล้วก็ไปเปิดในโปรแกรม MS Visual Basic ต่อไป

Dim PortBuffer As Integer Private Sub Output1_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 1 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 1 Out &H378, PortBuffer End If End Sub Private Sub Output2_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 2 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 2 Out &H378, PortBuffer End If End Sub Private Sub Output3_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 4 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 4 Out &H378, PortBuffer End If End Sub Private Sub Output4_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 8 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 8 Out &H378, PortBuffer End If End Sub Private Sub Output5_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 16 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 16 Out &H378, PortBuffer End If End Sub Private Sub Output6_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 32 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 32 Out &H378, PortBuffer End If End Sub Private Sub Output7_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 64 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 64 Out &H378, PortBuffer End If End Sub Private Sub Output8_Click() If Output1.Value = True Then PortBuffer = PortBuffer + 128 Out &H378, PortBuffer Else PortBuffer = PortBuffer - 128 Out &H378, PortBuffer End If End Sub Private Sub Timer1_Timer() Label1.Caption = Inp(&H378) End Sub Public Sub Auto_Run() Output1.Value = True Output2.Value = True Call Delay(1) Output1.Value = False Output2.Value = False Call Delay(1) Output3.Value = True Output4.Value = True Call Delay(1) Output3.Value = False Output4.Value = False Call Delay(1) Output5.Value = True Output6.Value = True Call Delay(1) Output5.Value = False Output6.Value = False Call Delay(1) Output7.Value = True Output8.Value = True Call Delay(1) Output7.Value = False Output8.Value = False End Sub Public Function Delay(DelayTimer As Long) Dim valTime valTime = Timer While Timer - valTime < DelayTime DoEvents Wend End Function

ส่งท้าย
อาจมีปัญหาอีกหลายอีกอย่างที่เกิดกับการเขียนโปแกรมควบคุมด้วยพอร์ตขนาน นอกเหนือจากที่กล่าวมา ซึ่งก็มีวิธีแก้ได้หลายวิธีเช่นกัน ซึ่งเนื้อหาที่แนะนำมาทั้งหมดนี้ไม่ใช่แนวทางที่ตายตัวสำหรับยึดเป็นหลักการเขียนโปรแกรมประเภทนี้ ต้องศึกษาหลักการทำงานของโปรแกรมตามไปด้วย แล้วนำไปใช้จึงจะเกิดประโยชน์ ครับ

สิ่งที่ได้รับจากบทความนี้
   1) เป็นพื้นฐานในงานควบคุมด้วยสัญญาณจาก Printer Port
   2) รู้จักคำสั่งในการเขียนโปรแกรมให้กับ I/O Printer Port
   3) สามารถเขียนโปรแกรมคอมพิวเตอร์ควบคุมอุปกรณ์ไฟฟ้าได้หรือประยุกต์งานควบคุมด้านอื่นๆได้