+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار وتوضيح حول كود تشغيل مروحة واقافها (/showthread.php?tid=7557)
استفسار وتوضيح حول كود تشغيل مروحة واقافها - sabre - 25-02-2016
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها من برمجة الاخ الع؟د لخ؟؟ بارك الله فيه
ادخل سلكان في المخرج القديم للطابعة ليس مخرج usp
وجعل في أحد الاسلاك أو في كليهما تونزيستور واوصلهما بالمروحة
ولا أدري اي ثقوب ادخل تلك الاسلاك
مانوع تونزيستور وما اسمه اريــد شرح العملية
هذا كود تشقيل
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
mov al, 1
in { نسيت ماذا كتب هنا لانها كانت مكتوبة في ورقة }
end;
end;كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
asm
mov al, 1
mov dx, 888
out dx, al
end;
end;نوع الجهاز كان بنتيوم 1 وكانت العملية عند الضغط فوق الزر الاول تشتقل المروحة
وعند الضغط الزر الثاني تتوقف المروحة
وكان هذا منذ مدة ونسيت لأنه كان يعلمنا بعض الاشياء في دلفي
RE: استفسار وتوضيح حول كود تشغيل مروحة واقافها - PLANSHARP - 28-02-2016
أخي العزيز:
بالنسبة للتعامل مع منفذ الطابعة LPT يجب أولاً أن تتعرف على هذا المنفذ و على كل pin فيه.
يوجد 8 pin للخرج و pin واحد للأرضي, حيث يمكن أن تقوم بوصل ليد صغير مثلاً على pin من المخارج و pin الأرضي.
ثم ترسل من البرنامج قيمة 1 لذلك ال pin فتكون بذلك أرسلت 5 فولط إليه و تعمل الليد, و ترسل صفر فينطفىء.
هذا أبسط شرح ممكن.
وبالنسبة للدلفي, هذا الكود لإرسال صفر إلى جميع المخارج:
كود :
asm
mov dx,$378
mov al,$00
out dx,al
end;وهذا الكود لتشغيل جميع المخارج:
كود :
asm
mov dx,$378
mov al,$FF
out dx,al
end;RE: استفسار وتوضيح حول كود تشغيل مروحة واقافها - bassem_43 - 28-02-2016
السلام عليكم
للاستزادة تابع هنا
http://delphi4arab.net/forum/showthread.php?tid=506
RE: استفسار وتوضيح حول كود تشغيل مروحة واقافها - sabre - 02-03-2016
(28-02-2016, 06:24 AM)PLANSHARP كتب : أخي العزيز:
بالنسبة للتعامل مع منفذ الطابعة LPT يجب أولاً أن تتعرف على هذا المنفذ و على كل pin فيه.
يوجد 8 pin للخرج و pin واحد للأرضي, حيث يمكن أن تقوم بوصل ليد صغير مثلاً على pin من المخارج و pin الأرضي.
ثم ترسل من البرنامج قيمة 1 لذلك ال pin فتكون بذلك أرسلت 5 فولط إليه و تعمل الليد, و ترسل صفر فينطفىء.
هذا أبسط شرح ممكن.
وبالنسبة للدلفي, هذا الكود لإرسال صفر إلى جميع المخارج:
كود :asm mov dx,$378 mov al,$00 out dx,al end;
وهذا الكود لتشغيل جميع المخارج:
كود :asm mov dx,$378 mov al,$FF out dx,al end;
(28-02-2016, 09:38 AM)bassem_43 كتب : السلام عليكم
للاستزادة تابع هنا
http://delphi4arab.net/forum/showthread.php?tid=506
مشكور أخي على الشرح الوافي الذي تفضلت به
منفذ الطابعة LPT هو الذي بالصورة
كود :
encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRvIyiiooZtuw61TfYHVbvpT2PsgpBBfecCz7r0s9JAYGpnVN5NKQالكود الاول لارسال 0 الى جميع المخارج
تقصد المخارج ال25 في ذلك المخرج
الكود الثاني لتشغيل جميع المخارج تقصد المخارج ال25 في ذلك المخرج
ما المقصود بالليد لم أفهم
وبارك الله فيك
وبارك الله فيكم على توضيحات القيمة التي تفضلتم بها
RE: استفسار وتوضيح حول كود تشغيل مروحة واقافها - PLANSHARP - 03-03-2016
المخارج التي نقوم بالتحكم بها هي كما في الصورة مخارج الداتا من 2-9.
بالنسبة لليلد أقصد الضوء الصغير كما في الصورة.
تقوم بوصل هذا الليد إلى أحد مخارج الداتا و الطرف الثاني إلى أحد مخارج الأرضي ground.
RE: استفسار وتوضيح حول كود تشغيل مروحة واقافها - sabre - 03-03-2016
بارك الله فيكم على توضيحات القيمة التي تفضلتم بها وعلى الصور التي ارفقتموها
عندي سؤال سأطرحه المرة القادمة
حول ربط تونزيستور بتلك الثقوب كيف ذلك اذا امكن
ومشكور اخي