السلام عليكم يا اخ yehya طلبك عندي
اذا كنت تستخدم الفيجوال بيسيك وفتحة الطابعة فعليك اولا تحميل الملف inpout32 للتحكم بمنفذ الطابعة
ثم فتح برنامج الفيجوال بيسيك 6 واضافة موديول ثم كتابة الاتي :
_Public Declare Function Inp Lib "inpout32.dll
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
_Public Declare Sub Out Lib "inpout32.dll
(Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer
هذا الكود لتعريف الملف علي منفذ الطابعة وانة سوف يجري علية عمليات ادخال واخراج
بعد ذلك اخفظ الموديول في نفس مجلد البرنامج وافتح فورم جديد ولا تضف الية اي شي من عناصر التحكم واضغط بالماوس علي الفورم مرتين لفتح الكود ومن القائمة اختر Key_down واكتب التالي:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
Out &H378, 1
End If
If KeyCode = 37 Then
Out& h378, 2
End If
If KeyCode = 40 Then
Out &H378, 4
End If
If KeyCode = 39 Then
Out& h378, 8
End If
End Sub
هذا الكود عند الضغط علي المفتاح او المفتاح مضغوط الي تحت اما الKeycode فهي الاكواد الخاصة بالمفاتيح اعلي ويسار واسفل ويمين
,وعليك ايضا كتابة الكود التالي عند الرفع من ضغط المفتاح
Private Sub Form_Keyup(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
out &H378,0
End If
If KeyCode = 37 Then
out &H378,0
End If
If KeyCode = 40 Then
out&H378,0
End If
If KeyCode = 39 Then
out &H378,0
End If
End Sub
الرقم 378 هو عنوان منفذ الطابعة .
عند الضغط علي اي مفتاح من مفاتيح الاتجاهات يرسل قيمة عشرية الي منفذ الطابعة لتشغيل دائرة خارجية او ليد وعند الرفع من الضغط يرسل قيمة صفر الي كل المنفذ .
وانا منتظر ردك في اي وقت وانا تحت الخدمة
محمد بشير احمد
mohammed_bayan*yaho.com
الى الأخ فهد المحترم
طلبك عندي
