النجدة المساعدة يا اهل الخبرة

[ji_dj]

السلام عليكم :smailes102:

أريد أكواد التحكم فى منفذ الطابة (Inport / outport)
بلغة : :bgrfreak:

:smailes102: VB6
او
ويندف/:smailes2: windev
وهذه يعض الصور للمخطات ::smailes83:


http://www.9m.com/upload/5-11-2007/0.96482011940692.gif
:smailes102:
http://www.9m.com/upload/5-11-2007/0.6011941116.gif
:smailes55:
http://www.9m.com/upload/5-11-2007/0.38448011941128.jpg


:smailes41: :smailes41:
الرجاء الشرح بالتفصيل :smailes2:


:smailes107: :smailes65: :smailes90:

سلام :smailes55:

[adam_22]

السلام عليكم

الصور غير ظاهره يا أخي ولكن للتعامل مع ال Parallel Port في ال VB6 لا يلزمك سوى التالي:

استحضر ال functions التالية من ملفات ال dll الخاصة بها (يعني ضع هذا الكود في Module)

Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer



وسيكون لديك two functions احدهما لاخراج المعلومات والاخر لاحضارها من البورت

الأول (للاخراج):

'لاخراج 00000000
vbOut 888, 0
'لاخراج 1000000
vbOut 888, 1
'لاخراج 01000000
vbOut 888, 2
'لاخراج 00100000
vbOut 888, 4
'لاخراج 00010000
vbOut 888, 8
'وهكذا


الثاني (للادخال)

dim x as integer
x=vbInp 888
'سيدخل لك الداتا ويخزنها في المتغير x

وبالتوفيق

[ji_dj]

شكرااااااااااااااااااا : D

[ji_dj]

لاكن ممكن الشرح أكثر ؟