[Programmer]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
سنتعلم بإذن الله في هذا الموضوع كيفية عمل برنامج باللغة الفيجوال بيسيك للتحكم بمنفذ الطابعة ...
وسنتسخدم لذلك ملف Dll (مكتبة ربط ديناميكية) إسمها Inpout32 (تجد المكتبة مع السورس كود للبرنامج والبرنامج التطبيقي Exe في المرفقات)

أولاً يجب علينا وضع المكتبة Inpout32 في نفس المجلد الذي يحتوي على ملفات المشروع أو البرنامج التنفيذي Exe

بعد ذلك ننشأ وحدة نمطية - Module ونكتب فيها تعريف الدالتين Inp و Out ... حيث أن الدالة Inp تستخدم للإدخال أي لقراءة حالة منفذ الطابعة، اما Out فتستخدم لإخراج النبضات أي التحكم بحالة منفذ الطابعة ...
[align=left]

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)

[/align]
أما الآن فنكتب الشيفرة التالية للإخراج:

[align=left]Out &H378, 2[/align]

حيث أن &H378 هو عنوان منافذ المعطيات وهي تبدأ من 2-9
أما 2 فهي القيمة المراد إخراجها إلى منفذ الطابعة ... لاحظ أننا نكتب قيمة بالنظام العشري والحاسب يتكفل بتحويلها إلى النظام الثنائي وإظهارها على منفذ الطابعة ...

أما للإدخال فنكتب الشيفرة التالي:

[align=left]lblInp.Caption = Inp(&H378)[/align]

حيث أن &H378 هو عنوان منافذ المعطيات ... و lblInp.Caption هو الـ Label الذي وضعته أنا في المشروع المرفق مع هذا الموضوع ... وتستطيع إستبداله بأي كيان يتقبل الإسناد كمتغير مثلاً ...

أرجوا أن أكون قد أفدتكم ... وأرجوا أن تدعوا لي بالخير ...
أخوكم Programmer ...
تمنياتي للجميع بالتوفيق ...

[student]

شكرا لك على هذا الدرس لقد تعلمت الآن عملية البرمجة ولكن هل بإمكاني معرف المكونات للقطع الإلكترونية للتحكم في مصباح كهربائي 220 v
أرجو منكم صورة الدائرة بالتفصيل إن أمكن وجزاكم الله خبرا

[Programmer]

لدي الدائرة ولاكنني لم أستطع فهمها 100% إلى الآن
الدائرة تجدها في هذا الموضوع http://www.qariya.com/vb/showthread....&threadid=2554
تمنياتي لك وللجميع بالتوفيق ...

[الفقير الى ربه]

السلام عليكم
هل ممكن التحكم بمنفذ الطابعة آليا بحيث عند توقيت معين يشتغل منفذ وعند توقيت آخر يشتغل منفذ آخر وهكذا ...؟

[Programmer]

وعليكم السلام ورحمة الله وبركاته
بالطبع يمكن ذلك ... وهناك عدة طرق ... إنظر للكود التالي:

[align=left]Private Sub Command1_Click()
    T = Timer
    Do While (Timer - T <= 2)
        DoEvents
    Loop
    MsgBox "My Wishes ...", vbOKOnly, "Programmer"
End Sub[/align]

الشرح:
ترجع الدالة Timer الوقت الحالي بالثواني فنعمل على تخزين القيمة التي ترجعها في المتغير T ثم نقوم بإستخدام حلقة تكرارية Do While Loop شرطها - Condition هو أن تستمر في التكرار مادام ناتج عملية طرح الوقت الحالي بالثواني مع قيمة المتغير T أصغر أو يساوي الوقت الذي نريده للإنتظار قبل إظهار صندوق الرسالة (الوقت بالثواني) ... ونضع في داخل الحلقة الدالة DoEvents التي تمنع تجمد البرنامج وتسمح بتلقي رسائل الويندوز ... ثم نكتب بعد الحلقة الكود الذي نريد تنفيذه بعد الوقت المحدد ...
تذكر أنه يجب أن نكتب الوقت بالثواني فلو أردنا تنفيذ الكود بعد 7 دقائق مثلاً نكتب: 60*7
مثال آخر: يقوم هذا المثال بإضائة منفذ المعطيات رقم 0 ثم يطفئه بعد 7 ثوان

[align=left]Private Sub Command1_Click()
    Out &H378, 1
    T = Timer
    Do While (Timer - T <= 7)
        DoEvents
    Loop
    Out &H378, 0
End Sub[/align]

أرجوا أن أكون قد أفدتك ...
تحياتي ...

[hazim_Pc]

السلام عليكم ورحمة الله

ممكن واحد من الموجودين يدلني على مكان الكود
وله جزيل الشكر

[مفتاح]

قمت بتنفيذ دائرة تحكم باستخدام منفذ الطابعة وكذلك قمت بتصميم Dll

[hanikooo]

ماهي الدئرة التي استطيع التحكم بها عن طريق منفذ الطابعة