[VB6] แจกฟรีโค้ดโปรแกรม VB6 เปิดลิ้นชักเก็บเงิน (Cash Drawer) ผ่านพอร์ทอนุกรม

thongkorn

สำหรับหลักการในเรื่องการสื่อสารผ่านพอร์ทอนุกรม แอดมินจะไม่ขอกล่าวซ้ำอีก สามารถหาอ่านได้จากเรื่อง [VB6] การเชื่อมต่อคอมพิวเตอร์กับ RFID ภาค 1 (ทฤษฎี และ รูปแบบข้อมูล) ได้ตามสะดวกันเลยครับ ...
หลักการทำงานของโปรแกรม (ที่ภาษาอื่นๆก็นำไปใช้ได้)
- ค้นหา และ ทดสอบ COM Port ที่มีอยู่ในเครื่องคอมพิวเตอร์
- เลือก COM Port พร้อมกับตั้งค่ามาตรฐานของการรับส่งข้อมูล (Protocol)
- ส่งรหัส ASCII Code ออกไปยัง COM Port ที่ต้องการ ... มันเสมือนกับการจ่ายกระแสไฟฟ้า โดยการกดปุ่มสวิทช์ เพื่อให้หลอดไฟติดสว่างได้นั่นเอง ... ไม่คิดมาก่อนเลยว่าการเรียนช่างอิเล็กทรอนิกส์ จะนำความรู้มาใช้ประโยชน์ได้มากมายขนาดนี้
- แค่นี้เองลิ้นชักเก็บเงิน ก็เด้งออกได้แล้ว ... จบ


มาดูโค้ดกันเถอะ ...

1. ' / -------------------------------------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (Thailand only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (World Wide)
   
7. ' / Purpose: Open cash drawer via RS-232 Serial Port.
   
8. ' / Microsoft Visual Basic 6.0 Service Pack 6
   
9. ' / -------------------------------------------------------------------------------------------------------------
   
10. 
    
11. Option Explicit
    
12. 
    
13. ' #####################################################
    
14. ' เริ่มต้นการทำงาน
    
15. ' #####################################################
    
16. Private Sub Form_Load()
    
17. 
    
18.     Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
19.    
    
20.     ' อันนี้แค่ปรับระยะตำแหน่งของ CommandButton แบบ Run Time เท่านั้นครับ
    
21.     cmdOpenCashDrawer.Move Me.ScaleWidth - (cmdOpenCashDrawer.Width * 2) - 430, 750
    
22.     cmdExit.Move cmdOpenCashDrawer.Left + cmdOpenCashDrawer.Width + 60, 750
    
23.    
    
24.     ' ค้นหา COM Port ที่ติดตั้งในเครื่องคอมพิวเตอร์
    
25.     Call ScanCommPort
    
26. 
    
27. End Sub
    
28. 
    
29. ' #####################################################
    
30. ' โปรแกรมย่อยใช้ในการค้นหา COM Port ที่ติดตั้งไว้ในเครื่องคอมพิวเตอร์
    
31. ' #####################################################
    
32. Sub ScanCommPort()
    
33. ' ไม่ต้องสนใจ Error ครับ ...
    
34. On Error Resume Next
    
35. 
    
36. ' ตัวแปรเพื่อทดสอบ COM Port ไหนบ้างใช้งานได้ (1 - 4)
    
37. Dim PortNumber As Byte
    
38. 
    
39. ' ตัวแปรสร้างไฟล์ชั่วคราวขึ้นมา เพื่อทำการทดสอบการส่งข้อมูลออกจาก Port
    
40. Dim iFileNum As Integer
    
41.    
    
42.     ' ทดสอบจำนวน 4 Port มาตรฐาน คือ COM1, COM2, COM3 และ COM4
    
43.     For PortNumber = 1 To 4
    
44.         
    
45.         ' สร้างไฟล์ทดสอบชั่วคราวขึ้นมาก่อน เพื่อจะลองส่งข้อมูลออก Port นี้
    
46.         iFileNum = FreeFile
    
47.         
    
48.         ' พยายามเปิด COM Port ดู (ส่ง Binary ออกไปยังช่องทางการติดต่อสื่อสาร)
    
49.         Open "COM" & CStr(PortNumber) For Binary Shared As #iFileNum
    
50.         ' เอาไว้ลองดูผลหมายเลข Err.Number ได้เลยครับ ... พี่น้อง
    
51.         ' Debug.Print Err.Number
    
52.         
    
53.         ' หาก Port สามารถใช้งานได้ ค่า Err.Number = 0
    
54.         ' หากค่า Err.Number <> 0 (ตัวอย่างนี้ คือ Err.Number = 53 หรือ File not found)
    
55.         If Err.Number = 0 Then
    
56.         
    
57.             ' ปิดไฟล์ไปเลย
    
58.             Close #iFileNum
    
59.             
    
60.             ' หาก Port ใช้งานได้ก็ให้เพิ่มรายการเข้าสู่ ComboBox เช่น COM1
    
61.             cmbCommPort.AddItem "COM" & PortNumber
    
62.             
    
63.         End If
    
64.         
    
65.     Next
    
66.    
    
67.    ' หากมี COM Port อย่างน้อย 1 Port ก็ตั้งค่าให้อยู่ที่ COM1 เป็น Default เอาไว้ก่อน
    
68.     If cmbCommPort.ListCount > 0 Then cmbCommPort.ListIndex = 0
    
69. 
    
70. End Sub
    
71. 
    
72. ' #####################################################
    
73. ' คลิ๊กที่ปุ่มนี้เพื่อกำหนดมาตรฐาน และ ส่งข้อมูลออกไป สั่งให้ลิ้นชักเด้งออกได้
    
74. ' #####################################################
    
75. Private Sub cmdOpenCashDrawer_Click()
    
76.      
    
77.      ' เลือก Com Port ที่ต้องการ ก็คือ MSComm1.CommPort = ตัวเลขจำนวนเต็ม (เริ่มต้นจาก 1)
    
78.      ' แต่ ListIndex ของ ComboBox ตัวแรกเริ่มต้นด้วยค่า 0 ดังนั้นเราเลยต้องบวก 1 เข้าไปด้วย
    
79.      ' นั่นหมายความว่า MSComm1.CommPort = 1 <-- COM1 (ListIndex = 0)
    
80.      ' หรือ MSComm1.CommPort = 2 <-- COM2 (ListIndex = 1)
    
81.     MSComm1.CommPort = cmbCommPort.ListIndex + 1
    
82.    
    
83.     ' ทดสอบว่ามีการเปิด Port ค้างไว้หรือไม่ หากเงื่อนไขเป็นจริง สั่งให้ปิดช่องการสื่อสารหมายเลข Port นี้ก่อน
    
84.     If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    
85.    
    
86.     With MSComm1
    
87.         ' กำหนดมาตรฐาน (Protocol) ในการติดต่อสื่อสารผ่าน COM Port ระหว่างผู้รับและผู้ส่ง
    
88.         ' 9600 = อัตราการรับส่งข้อมูล (Baud Rate)
    
89.         ' N = None Parity คือ ไม่มีการตรวจสอบความถูกต้องของข้อมูล
    
90.         ' 8 = ขนาดข้อมูลจำนวน 8 บิต
    
91.         ' 1 = มี Stop Bit ปิดท้ายอีก 1 บิต
    
92.         .Settings = "9600,N,8,1"
    
93.         
    
94.         ' สั่งเปิด Port
    
95.         .PortOpen = True
    
96.         
    
97.         ' ส่งข้อมูลออกจาก COM Port โดยผมส่งค่า NULL หรือ Chr(0) ออกไปจำนวน 10 ตัว (ที่ผมทดสอบผ่าน)
    
98.         ' ไม่ได้ลองให้ละเอียดว่ามันต้องส่งข้อมูลออกไปกี่ไบต์กันแน่  เอาเป็นว่ามันทำงานได้ก็แล้วกัน ... 55555+
    
99.         .Output = String$(10, Chr(0))
    
100.         ' ลองส่ง ASCII Code ตัวอื่นๆก็ทำงานได้น่ะครับ
     
101.         
     
102.         ' ปิดการใช้งาน Port
     
103.         .PortOpen = False
     
104.         
     
105.     End With
     
106. 
     
107. End Sub
     
108. 
     
109. Private Sub cmdExit_Click()
     
110.     Set frmOpenCashDrawer = Nothing
     
111.     End
     
112. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...

MrDen

ขอบพระคุณอย่างสูงครับอาจารย์