بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها
استفسار وتوضيح
من برمجة الاخ الع؟د لخ؟؟ بارك الله فيه
ولكن أردت أستفسر حول بعض النقاط
ادخل سلكان في المخرج القديم للطابعة ليس مخرج 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
وكانت العملية عند الضغط فوق الزر الاول تشتقل المروحة
وعند الضغط الزر الثاني تتوقف المروحة
وكان هذا منذ مدة ونسيت
لأنه كان يعلمنا بعض الاشياء في دلفي