الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التحكم بالأجهزه المنزلية بالV.B

مغلق
بدأه regalo في 16 يونيو 2007 · 14 رد · 4,024 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الخالق

السلام عليكم

اخوتي الكرام احببت ان اضع هذا الموضوع بين ايديكم سائلاً المولى عز وجل ان ينفع به كل مسلم

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

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

ولاخراج تيار كهربائي من منفذ الطابعة علينا تصميم برنامج بالفيجوال بيسك

طريقة العمل

افتح مشروع فيجوال جديد وضع فيه كومند ثم اكتب الكود التالي

Private Sub Command1_Click()

'هذا الكود لاخراج تيار كهربائي من البن الثالث في منفذ الطابعة

' طبعاً الرقم 4 هو المقصود بالكلام

Out &H378, 4
End Sub

ضع موديول واكتب فيه التالي

Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

ملاحظة يجب تزويد المشروع بالاداة (inpout32.dll) ززضعه في مجلد السيستم 32

كيف نخرج تيار كهربائي من بن اخر اليك الحل

اذا اردنا تشغيل البن الاول نكتب رقم 1

اذا اردنا تشغيل البن الثاني نكتب رقم 2

اذا اردنا تشغيل البن الثالث نكتب رقم 4

اذا اردنا تشغيل البن الرابع نكتب رقم 8

اذا اردنا تشغيل البن الخامس نكتب رقم 16

اذا اردنا تشغيل البن السادس نكتب رقم 32

اذا اردنا تشغيل البن السابع نكتب رقم 64

اذا اردنا تشغيل البن الثامن نكتب رقم 128

اذا اردنا تشغيل البن الاول + الثاني نكتب رقم 3

اذا اردنا تشغيل البن الاول + الثالث نكتب رقم 5

اذا اردنا تشغيل البن الاول + الثاني + السادس نكتب رقم 33

النتيجة انه اذا اردنا تحديد بن واحد ناخذ رقم البن ونكتب بدلاً

منه رقم (1) والبنات التي قبله بارقام الاصفار

مثال::::

1 1 1 1 1 1 1 1 /ارقام البنات من 1 الى 8/

0 0 0 0 1

النتيجة تشغيل البن رقم (5) ونكتب رقمه في الكود (16)

طبعاً لا ننسى اننا حولنا الرقم الذي حصلنا عليه وهو (10000) من العد الثنائي الى العد العشري

اذا اردنا تحديد اكثر من بن واحد هذا مثال عليه

مثال::::

1 1 1 1 1 1 1 1 /ارقام البنات من 1 الى 8/

0 0 1 0 1

هذا المثال لتخريج تيار كهربائي من البن الثالث والخامس ونكتب قيمته بالكود (20)

ملاحظة اولى : منفذ الطابعة لا يخرج سوى (5 فولت)

اذا اردنا تشغيل جهاز يعمل على جهد اكثر من ذلك لا بد من وضع وسيط بين الجهاز الكهربائي والكمبيوتر

وهذا الوسيط هو عبارة عن دارة الكترونية

ملاحظة ثانية : اي عملية توصيل خاطئة ربما تتلف الجهاز

البن هو مصطلح يستخدمه الذين يتعاملون بالاجهزة الكهربائية

اذا نظرت الى منفذ الطابعة سوف تلاحظ بانه يتألف من عدة ثقوب

كل ثقب فيه ندعوه ( بن)

سوف اشرح طريقة الربط

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

بعد ذلك شغل البرنامج لترى انه قد اضاء

اما اذا اردت تشغيل جهاز كهربائي يعمل على كثر من 5 فولت فيجب

عليك ان تكون ملم بالامور الالكترونية

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

ويوجد في المرفق أيضا الأداه المطلوبة لعمل المشروع

حاجة مهمة الموضوع كتب بواصته أستاذي نصر إسماعيل

#2

أسف نسيت أحط المرفقات هاهي

:wacko:

Regalo.rar

#3

شكرا لك على الموضوع الشيق و الجميل

بخصوص ملاحظتك الثانية (ملاحظة ثانية : اي عملية توصيل خاطئة ربما تتلف الجهاز)

هل تقصد الجهاز الكهربائي أم الكمبيوتر

#4

حبيب قلبي الغالي تلف الكمبيوتر مش بس كده ده ممكن يحرق المزر بورد كلها

يعني ونبي خلي بلكو وأنتوا بتوصلوا

تم تعديل هذه المشاركة بواسطة regalo في 16 يونيو 2007 في 04:09

#5

شكرا لك طيب ممكن كود إغلاق المصباح

صراحة ما فهمت قصدك (يعني ونبي خلي بلكو وأنتوا بتوصلوا )

ممكن توضح أكثر

شكرا لك مرة أخرى

#6
اقتباس
صراحة ما فهمت قصدك (يعني ونبي خلي بلكو وأنتوا بتوصلوا )

أنتبهوا وأنتوا بتوصلوا

خليك منتبه يعني

#7

شكرا أخي الكريم لكن هذة الطريقة لإشعال المصباح هل هناك طريقة لإطفائة؟؟

أخي الكريم إذا أردنا أن نتحكم بعدة أجهزة كهربائية في نفس الوقت مالحل؟؟؟

google.gif

spamxk4.gif

petitionbanner17a.gif

Email : sao_-5000@hotmail.com

#8

شكرا بس الموضوع مكرر

/index.php?showtopic=71831

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#9

شكرا لك أخي الكريم .. بارك الله فيك .. تحياتي

50610597.gif

68195903.png

43618215.gif

#10

مشكورررررررررر

#11

شكرا لك regalo على هذا الموضوع الجميل

في البداية يسخرون منك . . . ثم يهملونك . . . ثم يحاربونك . . . ثم تنتصر

#12

شكرا علي الردود الحلوه ده من أجمل أعضاء

#13

ملف الـ DLL المرفق يحوي على تابع يسمى "INP32" ولكن لا أعرف كيف يتم استخدامه .

أرجو المساعدة...

الاخ REGALO ساعدت في الإخراج على البورت أرجو المساعدة في الإدخال منه

في البداية يسخرون منك . . . ثم يهملونك . . . ثم يحاربونك . . . ثم تنتصر

#14

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

ألا بذكر الله تطمئن القلوب

#15

يجب تزويد المشروع بالاداة (inpout32.dll) ضعه في مجلد السيستم 32

هتلقي المجلد في هذا المسار

C:\WINDOWS\system32

ستضع بة الأداه بس

هذا الموضوع مغلق.

مواضيع مشابهة