الأخ عوف أرجو منك الدخول :

السلام عليكم

الاخ فادي:

الامر بسيط ففي الامر mov AL,00000001B; ال 00000001B تعني انك ستخرج

الجهد على القطب 2 اذا اردنا اطفائه نضع بدل 00000001B

00000000B بكلام آخر ( اي قطب عليه مصباح تود اضائتها تضع له واحد واذا

اردت اطفائها تضع له صفر )

لاخراج الجهد علي القطب 2 واضائة اي مصباح موجود عليه نبرمج الزر1 بالشكل

التالي

procedure TForm1.Button1Click(Sender: TObject);

begin

asm

mov AL,00000001B;

mov DX,0378h;

out DX,AL;

end

للاطفاء نبرمج زر آخر 2 بالشكل

procedure TForm1.Button1Click(Sender: TObject);

begin

asm

mov AL,0000000B;

mov DX,0378h;

out DX,AL;

end

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

مثلاً

لاخراج الجهد علي القطبين الرابع والسادس لاضائة المصابيح الموجودة عليها

نضع 00010100B

:D

للاطفاء نضع 00000000B

أخي العزيز عوف شكرا جزيلا لك ، ولكن مازال لدي سؤال وأرجو أن تعذرني على كثرة هذه الأسئلة

سؤالي هو :

التعليمة : 00000001B هل يمكن أن أجعل المستثمر يقوم بكتابتها في كائن مثل الـ Edit ثم يقوم بضغط زر فتضيئ المصابيح حسب التعليمة التي كتبها .

وشكرا لك .

السلام عليكم

الاخ فادي:

ليس هنالك اي مشكلة في طرح اي اسئلة حتى لوكانت كثيرة فهذا يفيد

الجميع ومن واجب اى شخص يعرف اجابة اي استفسار افادة الجميع واما

بالنسبة لاستفسارك فمن الممكن جعل المستثمر اضائة واطفاء المصابيح عن

طريق الكائن edit و زر 100% واكنني للاسف لااعرف الطريقة وفي حال توصلك

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