كيفية فتح صندوق الكاشير عن طريق كود ....

ماهي نوع الصندوق ، اعني الشركة المصنعة له ، و ما هو الموقع تبعهم ، اكيد حيحطوا معلومات للبرمجة عن هذه العملي

و مع اي بورت هو متصل ، هل الserial ولا عن طريق الموديم rj11 كيبل ؟

أشكرك أخي yasirhantoush على سرعة ردك وتعاونك :

وأنا أول مرة أتعامل مع الصندوق فمعلوماتي ربما تكون غير مستوفاه ...

ولكن الصندوق من نوع E-Pos وليس معه أي سي دي أو فلوبي .... ويتم توصيله بكابل يشبه كابل التليفون بالطابعة وهي من نوع star أو epson و لا يتم توصيله مباشرة مع

الكمبيوتر أي يوصل الصندوق بالطابعة وتكون الطابعة هي الموصلة بالكمبيوتر ...

وفي الانتظار ...

ما هو موديل الطابعة و الcashdrawer ؟ model no؟

و كيف يتم ربط الطابعة مع الجهاز ، serial ولا paralel ؟؟

أخي الغالي yasirhantoush

بالنسبة لل cashdrawer فهو من نوع E-Pos ولم يكتب عليه أي شئ اخر ولا معه أي شئ يعني كل اللي مكتوب عليه هو نوعه فقط E-Pos ولا يحتوي على أى شيء اخر سوا المفاتيح ..\

أما بالنسبة للطابعة فهي من نوع epson وموديل M188D ويتم ربطها بالدرج عن طريق كابل يشبه كابل التليفون ويتم ربط الطابعة بالجهاز عن طريق كابل سيريال....

وهذا كل شيء ... وفي انتظارك ..

هل تسطيع الطباعة بهذه ال epson ? و اذا كانت الاجابة نعم ، اي نوع من الdriver اشتغلت عليها ؟؟؟ و ماهي هي الكوماندز التي استخدمتها ؟؟

انا وجدت في وقع الepson ، مجموعة مكتبة برمجية ، ممكن تستعملها ، بس لازم تعمل registeration ، و تحتط usrname and password ، ثم ادخل علي OPOS

عندهم library مال ال .net framework

التسجيل في الصفحة التالية

https://www.epsonexpert.com/login

بس مش متاكد تشتغل معاك ولا لا ؟؟؟

ADK for .NET Downloads

OPOS ADK for .NET OPOS ADK for .NET supporting Microsoft WEPOS 1.9 19638 KB 7/25/2005

OPOS ADK for .NET OPOS ADK for .NET supporting Microsoft WEPOS 1.8 27782 KB 7/24/2004

OPOS ADK for .NET OPOS ADK for .NET supporting Microsoft WEPOS 1.11.1 25563 KB 3/31/2008

Application Programming Guide

Application Programmer's Guide Guide for application and system developers. 1.10 10002 KB 2/10/2006

أنا طبعت فعلن بهذه الطابعة وكان ذلك من خلال الاداة printdoucment في الدوت نت وجعلتها من الكنترول بانال الطابعة الافتراضية ...

بس معلش لو ممكن تستحملني شوية في الموضوع ده علشان أول مرة أتعامل معها ..... ايه هو الدرايفر وماهي طبيعة عمله ؟؟ ممكن يكون السؤال بدائي بس معلش أصل أنا أبيض في

الموضوع ده ... واللي انت تقصده بالكوماندز هنا يعني الاوامر اللي استخدمتها في الطباعة ذي الاداة printdoucment ... ولا تقصد حاجه تانية ؟؟؟

وللتوضيح :

أنا شغال طباعة تمام والدرج بيتفتح كمان من خلال أوبشن في الطابعة ... بس في حاله الطباعة فقط ... يعني لو حبيت أفتح الدرج من غير طباعة مش هيفتح ...

وهو ده اللي بدور عليه ... يعني يكون في كود بيتعامل مع الدرج مباشرة حيث أستطيع تمرير أمر الفيجوال بيسك لفتح الدرج ......

لايمكن فتح الدرج إلي عندك أبدا بالكود.... لابد من توفر منفذ السيريال بورت في الكاش درو ...

ولهذا سعر الدرج بالسيريل بورت أغلى لأنه يعمل مع الطابعة وبدونها وبالنسبة للكود في فتحها بسيط يعتمد على الأداة MSComm

هذا مثال بالفيجوال بيسك 6 لأني للأسف ما تعاملت بالدوت نت كثير :unsure:

أنا تعاملت مع النوعين من الدروج في برامجي عسى المثال ينفعك ....

TEST.rar

تسلم ياغالي :

بس المشكلة أنا لا أمتلك الفيجوال بيسك 6 وخبرتي معه ضعيفه جدااا...

وكلامك سليم الف الالف في موضوع أن الدرج لابد وأن يكون موصل بالطابعة حتى يعمل ...

ولكن كيف أستطيع فتح الدرج الموصل بالطابعة دون طباعة ؟؟

وهذا هو السؤال ...

وفي انتظار التوضيح .........

باختصار شديد وللأسف ... لايمكن

لأن الكهرباء التي يعتمد عليها الدرج تأتي من الطابعة ....

يمكن تعمل حركة لف ودوران ، وتطبع مستند فاضي ، يمكن تركب الوصلة المودم بوصلة سيريال إذا فيه بالسوق ، يمكن تقص الكيبل وتوصله بالكهرباء بالجهاز وتعمل مفتاح كهربائي يفتح الدرج متى تريد ... :haha: :haha:

لكن لايمكن بالطريقة الموصلة بالطابعة

بالنسبة للكود :

 
Private Sub Command1_Click()
PortTow = 1		 'PortTow	   'رقم البورت
MSComm1.CommPort = PortTow
If MSComm1.PortOpen = False Then	'إذا لابورت مغلق يفتح
MSComm1.PortOpen = True
End If
MSComm1.Output = Chr$(12)   '   إرسال أي كلام للبورت ، لأن الهدف إرسال شحنة كهربائية فقط
MSComm1.PortOpen = False	'إغلاق البورت
End Sub

يعني مفيش أي طريقة أفتح بيها الدرج بدون طباعة ؟؟؟؟؟

طبعا لا أكيد في طريقة حتى على الاقل ذي الطريقة اللي انت وضحتها باستخدام الاداة MSComm .....

بس اذاي أنفذها في الدوت نت وما هي الاداة التي تكافيء MSComm في الدوت نت ...

لأن طبعا مش معقول يكون الفي بي 6 تقدر تعمل من خلاله فتح الدرج والدوت نت لأ :wacko:

وشكرا....

للرفع......

يا شباب لو ممكن مثال صغير جدا عن طريقة فتح الدرج بدون طباعة ....

حد يكون عمله قبل كده ...

لن أكيد في ناس كتير هنا استخدمت الدرج في برامجهم ....

فأرجو المشاركة و التوضيح

:resentful: :resentful: :resentful: :resentful:

>>>>> i'm waiting <<<<<

:resentful: :resentful: :resentful: :resentful:

من خلال بحثي في الانترنت وجدت الكود التالي ...

لكن لااعرف اذا كان يعمل بشكل صحيح او لا ... لاني ليس لدي درج كاشير ...

على العموم جرب واخبرنا بالنتيجة

Public Sub open_cashdrawer() 
Dim intFileNo As Integer = FreeFile() 
FileOpen(intFileNo, "c:\escapes.txt", OpenMode.Output) 
PrintLine(intFileNo, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250)) 
FileClose(intFileNo) 
Shell("print /d:lpt1 c:\escapes.txt", vbNormalFocus) 
End Sub

شكرا جزيلا أخي ابوخالد العيدروس ....

ولكن الكود السابق تقريبا يقوم بالطباعة وفتح الدرج معا ان كان الكود يعمل ان شاء الله .... ولكن هذا الواضح وسوف أقوم بالتجربة أيضا

ولكن لو من الممكن توضيح بسيط ... ما المقصود "c:\escapes.txt",

وهل هو مطلوب ليعمل الكود ؟؟؟

وشكرا جزيلا مرة أخرى وفي انتظارك ...

للأسف أخي ابوخالد العيدروس ...

الكود لم يعمل نهائيا .... لم يتم أي عملية طباعة أو فتح درج

وأرجو الحل ...

وفي انتظاركم..........

اخي العزيز

تنبيه بسيط

غير اسم البورت في السطر التالي حسب البورت الموصل بالطابعة لديك (( هنا LPT1 ))

Shell("print /d:lpt1 c:\escapes.txt", vbNormalFocus)

او جرب الكود التالي ...

Private Type DOCINFO 
pDocName As String 
pOutputFile As String 
pDatatype As String 
End Type 

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter 
As 
Long) As Long 
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal 
hPrinter As 
Long) As Long 
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal 
hPrinter 
As Long) As Long 
Private Declare Function OpenPrinter Lib "winspool.drv" Alias 
"OpenPrinterA" 
(ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As 
Long) As 
Long 
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias 
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, 
pDocInfo As 
DOCINFO) As Long 
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal 
hPrinter 
As Long) As Long 
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter 
As 
Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long 

Private Sub Command1_Click() 

Dim myStr As String 

myStr = Chr$(27) & "p" & Chr$(0) & Chr$(250) & Chr$(250) 
Call sendToPrn(myStr) 

End Sub 

Private Sub sendToPrn(outString As String) 

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

Dim X As Printer 
For Each X In Printers 
If Left(X.DeviceName, 5) = "EPSON" Then 
Set Printer = X 
Exit For 
End If 
Next 

printdata = outString 

lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0) 

If lReturn = 0 Then 
MsgBox "The Printer Name not recognized." 
Exit Sub 
End If 

MyDocInfo.pDocName = "SAMPLE" 
MyDocInfo.pOutputFile = vbNullString 
MyDocInfo.pDatatype = vbNullString 
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo) 
Call StartPagePrinter(lhPrinter) 
lReturn = WritePrinter(lhPrinter, ByVal printdata, Len(printdata), 
lpcWritten) 
lReturn = EndPagePrinter(lhPrinter) 
lReturn = EndDocPrinter(lhPrinter) 
lReturn = ClosePrinter(lhPrinter) 

End Sub

اخي الفاضل انا كنت شغال في احد الاسواق الكبيره وكانت مجرد كيشير فقط لا غير ولكن كنت افهم في البرمجه وكانت الأجهيزة في السوق كثيرة الخلل

وكنت في بعض الحالات ادخل إلى البرنامج وعدل في الاكواد لان الاخوان في الإدارة معطيني صلاحية مسؤول وهم مو دارين وكنت ادخل في وقت الفراغ إلى الجهاز ولكن لم يمر علي ان الدرج يفتح دون طباعة لازم تطبع اي شي عشان يفتح هذا إذا كان الدرج موصل بالطابعة على طول

ولكن في الاونه الاخيره وضعو رمز لفتح الدرج وهو F1 وسوف اسال عن طريقة وضع الرمز إن شاء الله

ياريت والله يا أخي الطالب المثابر حتى تعم الفائدة على الجميع

ولقد حصلت على كود وهو شغال ميه الميه في الفيجوال بيسك 6 وهو خاص بفتح الدرج فقط وهو كالتالي

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

وقمت بتحويله للفي بي دوت نت وأصبح كالتالي

 FileOpen(1, "Lpt1", OpenMode.Output)
		PrintLine(1, Chr(27) & Chr(112) & Chr(0) & Chr(30) & Chr(30))
		PrintLine(1, Chr(27) & Chr(112) & Chr(1) & Chr(28) & Chr(28))
		FileClose(1)

وبعد تجربته يظهر رسالة خطأ والرسالة كالتالي

FileStream will not open Win32 devices such as disk partitions and tape drives. Avoid use of "\\.\" in the path.

وفي انتظار رأيكم يا شباب ....

up

أرجو الاهتمام ....

وياريت حد يوضح لنا أي كود يقوم بذلك أو تصحيح للكود الموجود في المشاركة رقم 20

وفي انتظاركم ....

للرفع...

الرجاء من الاخوه الاهتمام بهذا الموضوع لانه الكثير منتظر الجواب والكثير يعانون من فتح الكاشير بدون طابعة ارجو من الاخوه القائمين على الموقع اي احد منهم عايش في السعودية انا مستعد ارسل له درج كاشير (صندوق) على عنوانه وسوف يصله حتى باب الشقة عن طريق البريد السريع حتى الفائده تعم الكل منتظر الجوااااااااااااااااااااااب علما بأن البرنامج اكسس

رجاء من الاخوه هل تم التوصل لطريقه لفتح درج النقديه بدون طباعه ؟؟؟؟؟ باستخدام كود مثلا او اى حل ؟؟؟ مع العلم ان درج النقديه موصل بالطابعه الحراريه والطابعه موصله بالكومبيوتر عن طريق يو اس بى .............رجاء الافاده والمساعده