เปิดลิ้นชักเก็บเงิน
กระทู้เก่าบอร์ด อ.Yeadram

 3,367   3
URL.หัวข้อ / URL
เปิดลิ้นชักเก็บเงิน

เรียนถามท่านผู้รู้ครับผม คือผมได้ลองทำโปรแกรม Pos ไว้ที่ notebook ครับ ทีนี้ที่หน้า Form นั้น พอแสกนรายการขายแล้ว ผมก็จะให้ กด Key F10 เพื่อให้มัน Save ข้อมูลครับ ที่อยากทราบก็คือว่า ผมมีลิ้นชักเก็บเงินยี่ห้อ Posiflex รุ่น CR-4100 กับ CR-3300 ครับ ผมอยากจะเอาลิ้นชักเก็บเงินนี้มาต่อกับ Notebook ที่ผมลองทำโปรแกรม Pos นี้ไว้ ไม่ทราบว่าจะต้องทำอย่างไรครับผม เมื่อเรากด Key F10 ให้ข้อมูลมัน Save แล้วก็ให้ลิ้นชักเก็บเงินนั้นเปิดออกอ่ะครับ
          รบกวนท่านผู้รู้ด้วยครับผม ขอบคุณครับ
   

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06707
ถ้าเครื่องไม่ได้อยู่ในมือผม และไม่มีdriver ของมันในมือผม ก็จินตนาการลำบากครับ


เอาอย่างนี้ ถ้าคุณยังไม่ได้คำตอบจากที่อื่นหรือผู้อื่น ลองดูแนวทางครับ


ลองมองหา component ของมัน (ไฟล์ .dll หรือ .ocx ที่แถมมากับ Driver ของมัน)
เพิ่มมันเข้ามาใน library ครับ
แล้วก็ลองเขียนโค้ดดูครับ vba จะช่วย list พวก properties หรือ method มาให้ช่วยหา ลองเดาๆ ดูครับ

ผมยกตัวอย่าง
-ผมมีเครื่อง สแกนบัตร แบบทาบ (ชิปสีทอง บนบัตร จะอ่านข้อมูลผ่านเครื่องทาบบัตร)
-เครื่องทาบบัตรดังกล่าวต่อเข้าคอมพิวเตอร์ผ่านพอร์ต Com4
-ไฟล์ library ของมันที่ผมพอจะเพิ่มเข้ามาใน VBA ได้ และลองสั่งการได้คือไฟล์ชื่อ TscEFLib.dll
- ผมก็เปิด VBA แล้วเพิ่มไลบรารี่เข้ามา (ถ้าไม่เห็นมีในรายการให้เลือก ลอง Browse เข้าใปหาในโฟลเดอร์ของโปรแกรมมันดูครับ เน้นมองหาไฟล์ที่มีนามสกุล .dll, .ocx หรือ .exe)

ตัวอย่างผมจะสั่งให้เครื่องทาบบัตรตัวนี้ อ่านบัตร

Dim obj As New TscEFLib.EF2obj
' พิมพ์แค่ TscEFLib. แล้วมันจะมี ลิสต์มาให้ครับ ลองเลือกดูถ้าไม่มีก็ไม่เป็นไร อย่างไร เราก็ต้องลองผิดลองถูกดูครับ
Dim err As Long
Dim ch16 As String
err = 0
port = 4
On Error Resume Next
obj.InitCOMM (port)
err = obj.InitReader() ' ฟังก์ชั่น InitReader() เป็น Method ของ TscEFLib เท่านั้น ซึ่งเราต้องลองให้ VBA ช่วยลิสต์รายการมาให้ดูแล้วลองเดาความหมายของมันเอาครับ ว่ามันไว้ทำอะไร
If err = 0 Then ch16 = Replace(Trim(obj.getSVC), " ", "", 1, -1)
' เช่นเดียวกันครับ .getSVC ก็เป็นคุณสมบัติของ TscEFLib ซึ่งผมได้มาจากเดาลิสต์ที่ VBA ช่วยให้มา
Label1.Caption = ch16


ลองเอาแนวทางนี้ไปประยุกต์ใช้ได้นะครับ ไม่ว่ากับ Hardware ตัวใดๆ ก็ตามที่มันพ่วงเข้ามากับ คอมพิวเตอร์ของเรา อาจจะได้ช้า แต่ถ้าได้ขึ้นมา มันจะช่วยพัฒนาเราหลายด้านครับ เช่น ความเข้าใจในระบบ, ความมั่นใจในตัวเอง, ความคิดสร้างสรรค์ใหม่ๆ
2 @R06714
ผมต้องขอขอบพระคุณท่านอาจารย์ yeadram อย่างสูงครับผมที่ได้ให้ความรู้ใหม่ๆกับผม แต่ผมขอสอบถามอีกนิดนึงครับท่านอาจารย์ ตอนนี้ผมได้ Driver CR-4100 มาแล้วครับ ไม่ทราบว่าต้อง Install เลยหรือเปล่าครับ รู้สึกไฟล์จะชื่อ USBCR.DLL ครับผม
3 @R06730
กระทู้มันตกไป ไม่ได้ตามอ่าน
เพิ่งมาเจอครับ

ถ้าได้ driver มาแล้ว ติดตั้งมันไปเลยครับ
ข้อดี หรือผลได้ข้างเคียงของการติดตั้งไดรเวอร์ก็คือ เมื่อเราเข้าไปในหน้าต่าง VBA ลองหาดูรายชื่อ ไลบรารี่ครับ มันจะมีไลบรารี่เพิ่มมาให้ครับ มันจะต้องมีสักตัวที่เกี่ยวข้องกับ hardware ตัวใหม่ของเรา และถ้าบริษัทผู้ผลิตฮาร์ดแวร์ดังกล่าว ไม่หวงแหนจนเกินไป เราจะสามารถเขียนโปรแกรมควบคุมฮาร์ดแวร์ตัวนั้นได้ โดยผ่าน ไลบรารี่ของมันนั่นเองครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2392s