كيف يتم ربط صندوق المحاسب بالفجول6

كيف اخواني الاستفسار قائم

سبحان الله

up

حاول تطبيق الفكرة الموجودة على هذا الرابط:

Open A Cash Drawer With VB.NET

السلام عليكم

الاخ العزيز شكرا لك للاهتمام

طبعا الكود لي على الرابط للـــــــ VB.NET

لكن انا بحثت في بعض المواقع ولقيت

هذا الكود

Private Sub Command1_Click()

Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData As String
Dim MyDocInfo As DOCINFO

lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
If lReturn = 0 Then
MsgBox "Printer Name not recognized."
Exit Sub
End If
MyDocInfo.pDocName = "MyDoc"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
sWrittenData = "Text to writte" & vbFormFeed
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)

End Sub

لكن ما فهمته كثير

ممكن حد من الاخوة يقوم بشرحه شاكرا له

:S :S

?????????????

اخواني كل لي اريده فقط شرح للكود

بارك الله فيكم

وانا واثق من قدرتكم

وهذا كود اخر وجدته اليوم :

لكن ما فهمته ارجو الافادة اخواني:

Open "Lpt1" For Output As #1
	Print #1, Chr(27); Chr(112); Chr(0); Chr(30); Chr(30)
	Print #1, Chr(27); Chr(112); Chr(1); Chr(28); Chr(28)
	Close #1

اخي الكريم ارفق لك ملف من نوع Exe يصلح لجميع انوع الكاش درور صنوق المحاسب، فقط المطلوب هو برمجة احدى الكبسات لنداء هذا الملف وسقوم هو بدوره بفتح الدرج،

ملاحظة : الدرج يجب ان يكون مرتبط مع الجهاز من خلال كوم com وليس يو اس بي usb

وهذا مثال للكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'F10

If KeyCode = 121 And Not blnPayed Then

Shell "c:\OpenDrawer.exe"

End If

End Sub

في حالة عدم عمله انا على اتم الاستعداد لإجابة أي سؤال

OpenDrawer.rar

ممكن كود فتح درج الكوم

للفائدة !!!!