الرسائل

1

تحكم و حاسبات / دروس في ربط الحاسب مع الدوائر الإلكترونية

« في: نوفمبر 28, 2002, 01:41:17 صباحاً »

لاخ abood100
اشكرك جزيل الشكر
لقد نجح الامر اخيراً وذلك بعد التجربة في جهاز آخر وبمجرد وضع اللد في منفذ الطابعة
اضاء ثم قمت باطفائة بالشكل التالي
ASM
mov   al,00000000B
       mov   dx,378H      
            out    dx,al  
                    END;
                    END;
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
وهذا نفس ماورد بردك في 13\9\2002
كما انني اعتقد ان سبب الفشل في الجهاز الاول
هو اخراج منفذ الطابعة لقيمه اقل من 5 فولت مماادى لعدم اضائة اللد
والله اعلم
شاكراً تعاونك

2

تحكم و حاسبات / دروس في ربط الحاسب مع الدوائر الإلكترونية

« في: نوفمبر 27, 2002, 03:00:24 صباحاً »

الاخ abood100
اشكرك جزيل الشكر علي المساعدة
ولكن لايزال هنالك مشكلة لذلك اليك البرنامج بالكامل ارجو التدقيق ان كان هنالك خطأ بالبرمجة او بالترتيب
unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

                              type
          TForm1 = class(TForm)
            Button1: TButton;
    procedure Button1Click(Sender: TObject);
                          private
    { Private declarations }
                            public
     { Public declarations }
                             end;

                   var
  Form1: TForm1;

 implementation

 {$R *.DFM}
 procedure send(no:byte);
                      begin
                       ASM
 mov   al,11111111B
        mov   dx,378h
            out    dx,al
                     END;
                     end;

procedure TForm1.Button1Click(Sender: TObject);
   var b:byte;
          begin
       b:=255;
      send(b);
            end;
            end.
وبما انني لست متعمقاً بالدلفي بما فيه الكفاية فارجو ان تعلمني ان كان هنالك خطوات يجب علي تنفيذها غير ذلك مثلا برمجة ملف البرمجة module كما هو وارد في الردود السابقة هل يطبق عليه ماهو مطبق في البيسك
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
مع خالص الشكر والامتنان

3

تحكم و حاسبات / دروس في ربط الحاسب مع الدوائر الإلكترونية

« في: نوفمبر 27, 2002, 12:59:27 صباحاً »

السلام عليكم
الاخوة المشاركين في هذا الموضوع الهام جداً جداً
لدي دلفي3 علي ويندوز98 ولقد حاولت اضائة (لد)عن طريق منفذ الطابعة مستخدما لغة الاسمبلي من خلال الدلفي بالشكل التالي:
procedure TForm1.Button1Click(Sender: TObject);

procedure send(no:byte);
begin
 ASM
   mov   al,11111111B  
          mov   dx,378h
              out    dx,al
                       END;
                       end;
                        end.
ـــــــــــــــــــــــــــــــــــــــــــــــــــــ
ولكن لم يضيئ (اللد) ولااعرف ماهو السبب علما انني استخدمت الزر Button في دلفي كما هو موضح في البرنامج  كما انني لااجيد استخدام لغة غير الاسمبلي
ارجو المســـــــــــــاعدة شاكراً تعاونكم