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

[eng_hisham]

بسم الله الرحمن الرحيم
لدي مشروع بالفجوال بيسك للتحكم بسياره صغيره (نموذج) عن طريق منذ الطابعه وأحوال عمل برنامج أستطيع من خلاله توجيه السياره عن طريق الأسهم (في لوحه المفاتيح) بحيث كل سهم يخرج أشاره.
فكيف لي أن أربط بين أكواد الأسهم وإخراج الأشاره..............
من كان لديه أي خلفيه عن الموضوع فأرجو ألا يبخل علي
وبارك الله فيكم

[Ing_Mourad]

السلام عليكم و رحمة الله تعالى و بركاته
1-للتعامل مع منفذ الطابعة تحتاج الى Dll لتقوم بذلك لان الفيجوال بيزيك لا يمكنك من ذلك مباشرة.
2-فيما يخص الاسهم فهذا البرنامج يمكنك من عمل ذالك .

[عيسى]

اخي العزيز انا عندي البرنامج جاهز بالكامل للتحكم بالسيارة قمت باعدادة لمسابقة شاركت بها في الصف العاشر السنة الماضية وهي تتضمن عدة ادوات منها
التحكم باستخدام الماوس والكبيبورد
التحكم باستخدام ازرار الكيبورد (وهذا ما تريد)
التحكم التلقائي اي انك تكتب 20 خطوة مع فترة كل منها وتسير السيارة لوحدها
التحكم عن طريق الانترنت tcp/ip اي انك قادر على التحكم بالسيارة وهي في اي مكان في العالم

اخي العزيز ارجو ان ترد علي في حال اردت هذا البرنامج
وشكرا

[eng_hisham]

السلام عليكم و رحمة الله تعالى و بركاته
1-للتعامل مع منفذ الطابعة تحتاج الى Dll لتقوم بذلك لان الفيجوال بيزيك لا يمكنك من ذلك مباشرة.
2-فيما يخص الاسهم فهذا البرنامج يمكنك من عمل ذالك .


بارك الله فيك اخي العزيز على أهتمامك.............

للتوضيح:

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

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

[eng_hisham]

اخي العزيز انا عندي البرنامج جاهز بالكامل للتحكم بالسيارة قمت باعدادة لمسابقة شاركت بها في الصف العاشر السنة الماضية وهي تتضمن عدة ادوات منها
التحكم باستخدام الماوس والكبيبورد
التحكم باستخدام ازرار الكيبورد (وهذا ما تريد)
التحكم التلقائي اي انك تكتب 20 خطوة مع فترة كل منها وتسير السيارة لوحدها
التحكم عن طريق الانترنت tcp/ip اي انك قادر على التحكم بالسيارة وهي في اي مكان في العالم

اخي العزيز ارجو ان ترد علي في حال اردت هذا البرنامج
وشكرا

بارك الله فيك أخي العزيز عيسى على أهتمامك

أرجو أن ترسله لي فأنا بحاجه ماسه لكن أرجو أن يتضمن ملفات الفيجوال وكيفيه البرمجه(ولو شرح بسيط)

بارك الله فيك أخي العزيز

[eng_hisham]

أخي العزيز المهندس مراد:

لقد قمت بوضع ملف inpout32.dll داخل المجلد وقمت بتشغيل البرنامج وقمت بالضغط عاى الأسهم لكن لم تخرج أي إشاره....؟؟؟

[khalid_1405]

السلام عليكم ورحمة الله
أرجو من الأخ الكريم أن يضع البرنامج الذي تحدث عنه مع الكود والشرح ونكون له من الشاكرين وجزاه الله خيرا على ذلك
كما أرجو منه ومن الأخ eng_hisham أن يوضح لنا دائرة الاستقبال مم تتكون وفكرة واضحة عن المشروع وشكرا للجميع على ما يبذلونه من جهد

[Ing_Mourad]

أخي العزيز المهندس مراد:

لقد قمت بوضع ملف inpout32.dll داخل المجلد وقمت بتشغيل البرنامج وقمت بالضغط عاى الأسهم لكن لم تخرج أي إشاره....؟؟؟

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

[Ing_Mourad]

السلام عليكم و رحمة الله تعالى و بركاته
لقد قمت بتغيير البرنامج و هذا بالاستغناء عن ال Hook و استبداله بأوامر ابسط كما قمت باظافة اوامر التحكم ب inpout32.dll
فالضغط على اي من الأسهم سيقوم بإخراج اشارة على المخرج الموافق حسب السهم 2،3،4،5

[eng_hisham]

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

بارك الله فيك أخي العزيز

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

مشكور لإهتمامك ......
أنتظر ردك.....

[eng_hisham]

السلام عليكم و رحمة الله تعالى و بركاته
لقد قمت بتغيير البرنامج و هذا بالاستغناء عن ال Hook و استبداله بأوامر ابسط كما قمت باظافة اوامر التحكم ب inpout32.dll
فالضغط على اي من الأسهم سيقوم بإخراج اشارة على المخرج الموافق حسب السهم 2،3،4،5


اللهم ارزقه زوجه صالحه إذا نظر إليها سرته وإذا أمرها أطاعته وإذا غاب عنها حفظته في نفسها وولده وماله وكل شىء
مشكور أخي العزيز
لكن عندي طلب بسيييييييط وهو أنني لم أستطع فهم هذين الجزء من البرنامج بشكل كامل:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Value = 0
If Shape1.FillStyle = 0 Then Shape1.FillStyle = 1
If Shape2.FillStyle = 0 Then Shape2.FillStyle = 1
If Shape3.FillStyle = 0 Then Shape3.FillStyle = 1
If Shape4.FillStyle = 0 Then Shape4.FillStyle = 1
Out PortAddress, Value
End Sub


Shape1.FillStyle........................?????
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) .............؟؟؟؟؟

[eng_hisham]

ما هو الأمر بالبرنامج الذي يجعل Command button يظهر باللون الأحمر عند الضغط على أي سهم.......

وبارك الله فيك وعلى الجهد الذي بذلته.........

[eng_hisham]

ما هو الأمر بالبرنامج الذي يجعل Command button يظهر باللون الأحمر عند الضغط على أي سهم وكيف لي أن أغيره لأي لون آخر.......

وبارك الله فيك وعلى الجهد الذي بذلته.........

[Ing_Mourad]

السلام عليكم و رحمة الله تعالى و بركاته
لا شكر على واجب
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer
هذه تستدعى عندما لا يوجد اي ضغط على الكيبورد اي بعد رفع الزر الذي ضغطت عليه مسبقا

اما فيما يخص اللون فلقد حددت اللون مسبقا في خصائص ال Shape و اقوم بالتحكم فيه بالتغير من حالة الشفاف الى الحالة الطبيعية
Shape1.FillStyle = 1 للحالة الشفافة
Shape1.FillStyle = 0 للحالة العادية
ان اردت تغيير اللون فانضر في خاصية Shape تحت عنوان FillColor

[eng_hisham]

lمشكوووو ر بارك الله وجعله أنشاء الله في ميزان حسناتك

[Ing_Mourad]

لا شكر على واجب

[عيسى]

اخي انا في برنامجي استخدمت هذا الكود
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Label1.Caption = "forword"
Out &H378, 1
End If
If KeyCode = vbKeyDown Then
Label1.Caption = "backword"
Out &H378, 2
End If
If KeyCode = vbKeyLeft Then
Label1.Caption = "left"
Out &H378, 8
End If
If KeyCode = vbKeyRight Then
Label1.Caption = "right"
Out &H378, 4
End If
If KeyCode = vbKeyHome Then
Label1.Caption = "upleft"
Out &H378, 9
End If
If KeyCode = vbKeyPageUp Then
Label1.Caption = "upright"
Out &H378, 5
End If
If KeyCode = vbKeyEnd Then
Label1.Caption = "downleft"
Out &H378, 10
End If
If KeyCode = vbKeyPageDown Then
Label1.Caption = "downright"
Out &H378, 6
End If
If KeyCode = vbKeySpace Then
Label1.Caption = "stop"
Out &H378, 0
End If
End Sub
انا اخي استخدمت ازرار الحاسبة على لوحة المفاتيح كما ترى وهي الطريقة الامثل

[eng_hisham]

مشكور أخي العزيز ......

لكن عندما حاولت تغيل البرنامج ظهرت لي رساله error

[morsi]

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

[Fahad]

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

http://www.qariya.com/modules.php?name=Downloads&d_op=viewdownloaddetails&lid=2206&ttitle=التحكم_الإلكتروني

[عيسى]

هذا المشروع ادرجته ضمن موقعي الخاص ( الموقع قيد الانشاء) لكن هذا هو رابط الموضوع
http://www.geocities.com/ivh_elec/car1.html
ارجو ان تستفيد منه
وشكرا

[phveuh]g]

السلام عليكم
ممكن تزويدي بمشروع كامل للتحكم بمنفذ الحاسبة مع جزيل الشكر

[adnane512]

مشكووووووووووووووووور
انكم عباقرة والله أتمنى أن أكون مثلكم
ان شاء الله

[سامح أبوعيشة]

شكرا جزيلا ولكن اريد التفاصيل