[VB6] โค้ดคำสั่งในการติดต่อและสั่งเปิดลิ้นชัก PosiFlex รุ่น CR-4105 ผ่าน COM Port

thongkorn

แอดมินเขียนโค้ดชุดนี้ขึ้นมาโดยที่ไม่มีลิ้นชัก PosiFlex รุ่น CR-4105 มาเชื่อมต่อใช้งานเลย แต่อาศัยหลักการพื้นฐานทั่วๆไปเท่านั้นเอง คืออันดับแรก เราต้องทำการตรวจสอบ Communication Port หรือเรียกสั้นว่า COM Port ว่ามันมีอยู่หรือไม่ และมันอยู่กี่พอร์ท (กรณีที่ไม่มี COM Port เราสามารถจำลองได้ด้วยการจำลอง Virtual Port อันนี้ไปหาข้อมูลเพิ่มเติมเองล่ะกันครับ) จากนั้นก็เลือกพอร์ทที่เราทำการติดต่อกับลิ้นชัก (Cash Drawer) แล้วทำการส่งคำสั่งไปให้ตัวลิ้นชัก หรือว่าง่ายๆคือส่งสัญญาณไฟฟ้าจำนวนหนึ่งไปยังลิ้นชักเพื่อให้เกิดการเปิดสวิทช์ที่ตัวลิ้นชักนั่นเอง ก็จะทำให้ลิ้นชักเด้งออกมากได้ ... จบ


การนำไฟล์ USBCR.DLL ไปไว้ยังเครื่องที่ต้องการใช้งาน ... (ใช้ไฟล์เดียวพอ)



การติดตั้ง Utility ของ PosiFlex Cash Drawer รุ่น CR-4105 ...



มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Option Explicit
   
2. ' **********************************************
   
3. ' ลิ้นชักเก็บเงิน
   
4. ' PosiFlex usbcr.dll DLL
   
5. ' **********************************************
   
6. ' ใช้แค่สั่งให้เปิด DrawerOpen และ OpenUSBcr
   
7. Private Declare Function DrawerOpen Lib "usbcr.dll" (ByVal Id As Long) As Long
   
8. Private Declare Function DrawerState Lib "usbcr.dll" (ByVal Id As Long) As Long
   
9. Private Declare Function OpenUSBcr Lib "usbcr.dll" () As Long
   
10. Private Declare Function CloseUSBcr Lib "usbcr.dll" () As Long
    
11. Private Declare Function crRetrieveStatistics Lib "usbcr.dll" Alias "RetrieveStatistics" ( _
    
12.     ByVal Id As Long, _
    
13.     ByVal idx As Long, _
    
14.     ByRef buf As Any, _
    
15.     ByVal size As Long _
    
16.     ) As Long
    
17. 
    
18. Private Sub cmdOpenCash_Click()
    
19.     On Error Resume Next
    
20.     MSComm1.CommPort = cmbCommPort.ListIndex + 1 ' (เลือก Com Port)
    
21.     If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    
22.     With MSComm1
    
23.         .Settings = "9600,N,8,1"
    
24.         .PortOpen = True
    
25.         .Output = String(10, Chr(0))
    
26.         .PortOpen = False
    
27.     End With
    
28.    
    
29.     '//  สั่งลิ้นชักเด้งอัตโนมัติ
    
30.     Call OpenUSBcr
    
31.     DoEvents
    
32.     '// ส่งสัญญาณไฟฟ้าไปยังลิ้นชัก เอาให้แน่นอนเลยส่งออกไป 3 รอบ
    
33.     DrawerOpen (7)
    
34.     DrawerOpen (7)
    
35.     DrawerOpen (7)
    
36.     '//
    
37.     MsgBox "โอมเพี้ยง!!! ลิ้นชักจงเด้งเปิดออกมา ณ บัดนี้.", vbOKOnly + vbInformation, "รายงานสถานะ"
    
38.     Unload Me
    
39. End Sub
    
40. 
    
41. Private Sub Form_Load()
    
42.     '/ ตรวจสอบ Comm Port
    
43.     Call ScanCommport
    
44. End Sub
    
45. 
    
46. '/ ตั้งค่า Comm Port
    
47. Sub ScanCommport()
    
48.     Dim i As Byte
    
49.     For i = 1 To 8
    
50.         If IsComPortAvailable(i) Then
    
51.             cmbCommPort.AddItem "COM" & i
    
52.         End If
    
53.     Next
    
54.     If cmbCommPort.ListCount > 0 Then cmbCommPort.ListIndex = 0
    
55. End Sub
    
56. 
    
57. '/ Check whether a given COM serial port is available
    
58. Function IsComPortAvailable(ByVal portNum As Integer) As Boolean
    
59.     Dim FFileNum As Integer
    
60.     On Error Resume Next
    
61.     FFileNum = FreeFile
    
62.     Open "COM" & CStr(portNum) For Binary Shared As #FFileNum
    
63.     If Err = 0 Then
    
64.         Close #FFileNum
    
65.         IsComPortAvailable = True
    
66.     Else
    
67.         IsComPortAvailable = False
    
68.     End If
    
69. End Function

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

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