تعلم التحكم بمنفذ الطابعة بالفيجوال بيسيك [الأرشيف]

مشاهدة النسخة كاملة : تعلم التحكم بمنفذ الطابعة بالفيجوال بيسيك

Programmer

30-12-2004, 07:47 PM

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

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

بعد ذلك ننشأ وحدة نمطية - Module ونكتب فيها تعريف الدالتين Inp و Out ... حيث أن الدالة Inp تستخدم للإدخال أي لقراءة حالة منفذ الطابعة، اما Out فتستخدم لإخراج النبضات أي التحكم بحالة منفذ الطابعة ...
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)
أما الآن فنكتب الشيفرة التالية للإخراج:
Out &H378, 2
حيث أن &H378 هو عنوان منافذ المعطيات وهي تبدأ من 2-9
أما 2 فهي القيمة المراد إخراجها إلى منفذ الطابعة ... لاحظ أننا نكتب قيمة بالنظام العشري والحاسب يتكفل بتحويلها إلى النظام الثنائي وإظهارها على منفذ الطابعة ...

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

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

student

31-12-2004, 11:14 AM

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

Programmer

31-12-2004, 11:42 AM

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

student

31-12-2004, 01:56 PM

شكرا لك أخي على الرد وجزاك الله خيرا

Programmer

31-12-2004, 02:34 PM

العفوا :)
تحياتي و تمنياتي ...

mngashnet

03-01-2005, 01:58 PM

بارك الله فيك اخونا

Programmer

05-01-2005, 08:55 AM

أهلاً وسهلاً بك أخي mngashnet ...
تحياتي ...

fathish

11-01-2005, 09:15 PM

أشكرك كثيرا أخي Programmer
==============
لايوجد لدي برنامج بامتداد rar فما هو البرنامج إن أمكن وأين أجده ؟
وشكـــــــــــــــــــــراً مقدما

Programmer

12-01-2005, 02:45 PM

العفوا أخي fathish ...
الملفات التي تحمل الإمتداد rar هي ملفات مضغوطة تستطيع فك ضغطها بإستخدام البرنامج Winrar ...
تحياتي ...

wayak

12-01-2005, 10:41 PM

اخى العزيز fathish ممكن ان تحمل البرنامج عن طريق تلك الوصلة لمتداد rar

Winrar3.30 (http://www.electvillage.com/ve/files.php?action=viewfile&f=338&s=)

fathish

14-01-2005, 12:31 AM

ألف شكر أخي wayak
هناك شكر آخر تجده في ( إي ميلك )

fathish

14-01-2005, 12:33 AM

وألف شكر لك أخي programmer

المسبار

02-02-2005, 09:46 AM

مشكور اخي ويعطيك العافية

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

11-02-2005, 04:28 AM

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

Programmer

17-02-2005, 07:50 AM

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

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

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

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

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

وليد سلامة

17-02-2005, 09:35 PM

مشكور على الموضوع

abuaaziz

24-02-2005, 09:35 AM

جزيت خيرا

khalil0000

24-02-2005, 11:01 AM

وألف شكر لك أخي programmer

mkaf

27-02-2005, 08:47 PM

شكرا على الدرس الجميل

لا يعطى الجميل الا الجميل
:) :) :) :)

أبوخالد

02-03-2005, 01:59 PM

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

mohmmad

05-04-2005, 10:46 AM

عندك دروس تعليم فيجول بيسك (مصورة وناطقة).

hazim_Pc

05-04-2005, 10:57 AM

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

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

ahmed2003eg

17-04-2005, 12:22 AM

بارك الله فيك

msayed3000

17-04-2005, 10:59 AM

جزاكم الله خيرا

مفتاح

22-04-2005, 05:10 PM

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

hanikooo

25-04-2005, 01:01 AM

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

hanikooo

25-04-2005, 01:25 AM

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

hasanAli

28-04-2005, 07:50 PM

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

hasanAli

30-04-2005, 01:19 AM

الصفحه (http://www.geocities.com/albaramig/index.htm)

من هنا يمكنك تنزيل برنامج ودائرة الت حكم بمحرك خطوي
:lff:

ابن النيل

07-05-2005, 02:09 AM

شكراً جزيلاً اخي
ولكنى اريد تحميل سي دي بوت مين بي

Dr.No

04-08-2005, 03:25 PM

السلام عليكم ورحمة الله وبركاتة
أولاً شكرا يا أخي على هذا الموضوع الجيد
ولكن بالنسبة لمستخدمي وندوز Xp فإن أي ملف ***32.dll
لا يعمل بسبب أختلاف النظام لإإرجو ممن يحترفو لغة فجول بيسك أن يمدنا بطريقة لكي نتحكم في المنفذ ر
وشكراً

كريم العيساوي

18-08-2005, 01:39 PM

الف شكر اخي العزيز

أحمـد السيد

22-08-2005, 01:45 AM

شاركونا فى موضوع الأجهزة الطبية
http://www.qariya.com/vb/showthread.php?t=3348

أفيدونا بمعلوماتكم

أخوكم أحمد السيد عبده

نور الشمس

25-09-2005, 11:22 AM

شكرا لكم جميعا
بس يا ريت يكون الشرح بوندوز اكس بي لان اكثر المستخدمين يستخدمون الاكس بي
وشكرا

الملتزم

25-10-2005, 10:37 AM

السلام عليكم
هل أستطيع أن أتحكم في منفذ الطابعة بواسطة لغة الجافا؟؟
و جزاكم الله خير

عبدالسلام برعي

25-10-2005, 01:38 PM

السلام عليكم
هل أستطيع أن أتحكم في منفذ الطابعة بواسطة لغة الجافا؟؟
و جزاكم الله خير

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

م/سيدعبدالرحمن

19-12-2005, 06:43 AM

شكرا لك أخى العزيز المهندس /حسن على

أخوك/سيدعبدالرحمن

مناصرة

07-01-2006, 12:39 PM

نشكرك اخي على هالموضوع
بس كيف بدنا نتحكم في المنفذ المتسلسل .

roke2006

23-03-2006, 10:44 AM

ويعطيك العافيةroke2006*gawab.com راسلني بكل جديد

roke2006

23-03-2006, 10:47 AM

:dpr: :dpr: :ltr: ويعطيك العافيةroke2006*gawab.com راسلني بكل جديد

RADWAN.YAHMAD

08-04-2006, 05:49 PM

كل الشكر لك صديقي :Programmer مع خالص امتناني

RADWAN.YAHMAD

08-04-2006, 06:11 PM

كل الشكر لك صديقي programmer مع الرجاء باطلاعي على الدرات الخاصة بهذا الموضوع وكذلك البرنامج الذي يظهر كيفية تصرف منفذ الطابعة مع خالص شكري وامتناني

مصطفى الملك

25-04-2006, 01:14 PM

التحية لك هل عندك فكرة عن الدوال المقابلة للتي استخدمتها للادخال والاخراج عن طريق
C++Builder
?

ruf

16-09-2006, 07:15 PM

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

Blu Ray

24-09-2006, 09:31 AM

جزاك الله خير يا أخ Programmer

الحقيقة موضوعك حساس وممتاز حيث أنني ضعيف في عملية الـ (Software Computer interfacing) ولذلك أعتبر موضوعك في غاية الروعة..

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

لك خالص شكري وتقديري ولكل أعضاء المنتدى ومشرفيه...

الزوى

29-09-2006, 06:53 PM

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف الخلق اجمعين
سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه اجمعين صلاة وسلام دائمين الى يوم الدين
أما بعد اولا أضغط على هذا الرابطhttp://www.c5c6.com/File/1158395112.swf
ثانيا أخى الكريم أطلب ما شئت فى الاكترونيات وانا تحت امرك انت مبرمج وان فنى اليكترونيات وان شاء الله عن قريب سيصلك الشرح الكامل واكثر بس بعد الرد على رسالتى حتى اعرف مدى اهتمامك بهذا الموضوع اخوك فى الله ابو عاصم الزوى مصر awanh_zzz********com والسلام عليكم ورحمة الله وبركاته

الزوى

29-09-2006, 07:00 PM

الزوى

29-09-2006, 07:05 PM

اطلب ولا تتردد عن اى استفسار فى مجال الالكترونيات فانى احلم من زمان بصديق مبرمج حتى تكتمل الدائره فلا ينفع هارد وير من غير سوفت وير

الزوى

29-09-2006, 08:07 PM

http://almushahed.net/up-m/uploads/bb584cdcc2.gif (http://almushahed.net/up-m)

Romio221

01-11-2006, 05:53 PM

اخي شكرا لك كثيرا ولكن هل هذا البرنامج يعمل مع ويندوز xp
بشكل جيد .......
وشكرا

Romio221

01-11-2006, 06:04 PM

هل يمكنني ان اتحكم بالمنفذ التسلسلي
وشكرا

الزوى

01-11-2006, 09:32 PM

اولا السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير
وشكرا على مراسلت وهى اول رساله تصانى من عضو وصديق بالمنتدى الطيب

نعم اخى الكريم ولكن بوجود مكتبة الinpout32.dll الخاصة بمنفذ الطابعه والتى تعمل مع نظام xp
واليك أخى الكريم رابط الشرح الذى شرحت فية طريقة عمل البرنامج وسر وجود مكتبة الinpout32.dll
وأنا عملت هذا البرنامج ولكن واجهتنى مشكلة صغيره على من يعرفون لغة البرمجة وكبيرة بالنسبة لى انا لانى حديث برمجة
وتخصصى اليكترونيات وسوف تعرف هذه المشكله من هذا الرابط الاخروهو فى نفس المنتدى وهذا المنتدى يعز على كثير لانه خاص بالغة التى احببتها واريد تعلمها كما أحب هذا المنتدى الغالى على قلبى كثير ا لانه خاص بحرفتى الاولى والتى اجد فيها كل كيانى وهى مجال الالكترونيات واطلب من الله كما أتقنت فى مجال الاليكترونيات أن يوفقنى فى مجال البرمجة
حتى ننفع به أمتنا الاسلاميه وديننا الحنيف والناس وكل من يريد العلم وفقنى الله وأياك أخى الكريم لما يحبه ويرضاه
ولا أطيل عليك فهذا هو الرابط الاول وهو شرح الطريقة المثلى لتجميع وبرمجة البرنامج
http://arab-valcon.com/modules/newbb_plus/viewtopic.php?topic_id=1195&forum=5#6315

الرابط الثانى

arab-valcon.com/modules/newbb_plus/viewtopic.php?topic_id=1436&forum=23

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

eng_hisham

07-11-2006, 09:47 PM

الأخ العزيز programmer :

بدايه بارك الله فيك على هذا الموضع الرائع الذي قلما نجد مثله في المنتديات الأخرى فبارك الله فيك .........

أنا مبتدأ بالبرمجه باستخدام فجوال بيسك وحاولت الأستفاده من موضوعك الرائع وقد قمتننشأ وحدة نمطية - Model ,ولكنني لم أعرف ماالذي يجب كتابته على ال code , object لذى أرجومنك أخي العزيز أو أي شخص لديه الخبره أن يساعدني وسأكون له من الشاكريين

وأسأل الله أن يجعله في ميزان حسناته

OsamahLahham

17-08-2007, 08:21 AM

شكرا لك اخ Programmer على هذا الموضوع الجيد
لكن كل ما اعرفه هو ان كل بن في منفذ الطابعة يخرج تيار كهربائي بمعدل خمسة فولت فقط وبالعبارة التي ذكرتها Out &H378,2 بمثابة امر لاخراج تيار كهربائي من البن رقم 2 بمعدل 5 فولت فهل هناك دائرة كهربائية ممكن الاستفادة منها بتقوية قدرة البن

maged samuel

01-09-2007, 10:34 PM

بدايه بارك الله فيك على هذا الموضع الرائع
لكن لا توجد عندى مكتبه inpout32.dll من اين احصل عليها
وشكرا على هذا المجهود

mahmoud xp

14-10-2007, 03:27 AM

ولكن يا اخى كيف يمكن التحكم فى سرعة dc motorعن طريق ال slider
و هل يمكن يا اخى ارسال سورس البرنامج الخاص ب التحكم فى 8 مفاتيح
و شكرا على المجهود العظيم

gheas

14-12-2007, 10:57 PM

الف شكراخي الكريم

gogogambo

04-01-2008, 09:18 PM

السلام عليكم ورحمة الله وبركاته
لقد قمت بتنفيذ الدائره الاليكترونيه وقد عملت بنجاح
ولكن عند تشغيل جهاز الكمبيوتر يعمل الليد تلقائيا
وذلك فى win xp
ارجو الافاده
ولكم جزيل الشكر

عزززام

09-01-2008, 09:23 PM

السلام عليكم
بدايتاً مشكورين على هذه الافكار القيمة
عندي استفسار لو سمحتوا
انا عملت برنامج للادخال وليس للاخراج على الفجيوال بيسك حيث كنت عندما اصل البن رقم 25 بالقطب السالب لمصدر جهد (5 فولت) والبن رقم (12) بالقطب الموجب بعد وضع مقاومة على التوالي 1000 اوم فان البرنامج يكتبلي في التكست رقم 1
هذا البرنامج زبط على وندو ملينيوم ولكن لم ينجح على وندو اكسبي مع ان منفذ الاخراج يعمل بشكل جيد