طلب استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله




استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها

استفسار وتوضيح

من برمجة الاخ الع؟د لخ؟؟ بارك الله فيه

ولكن أردت أستفسر حول بعض النقاط

ادخل سلكان في المخرج القديم للطابعة ليس مخرج 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

وكانت العملية عند الضغط فوق الزر الاول تشتقل المروحة
وعند الضغط الزر الثاني تتوقف المروحة

وكان هذا منذ مدة ونسيت
لأنه كان يعلمنا بعض الاشياء في دلفي