أخوتي الكرام
بحثت في المنتدى عن نفس الموضوع فوجدت ملفات WINIO,zlportio.input32, ولكني مهما حاولت لم استطيع تطبيقها في برنامجي (اضاءة 8 لدات وصلتها بمنفذ الطابعة) علما ان لدي جهاز اخر نظام WIN ME ولا توجد اي مشكلة ....
اطلب منمن يستطيع اضاءة الموضوع بمثال واضح ولكم جزتل الشكر.
هذه الكود تعمل على Win ME
8 ازرار من button1 ......button8 ل d1 .......... d8
و button9 للكل , button10 لإطفاء الكل.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure outp(data:byte;add:word);
begin
asm
mov al,data
mov dx,add
out dx,al
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
mov al,1
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
asm
mov al,2
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
asm
mov al,4
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
asm
mov al,8
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
asm
mov al,16
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
asm
mov al,32
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
asm
mov al,64
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
asm
mov al,128
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
asm
mov al,$FF
mov dx,378h
out dx,al
end;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
asm
mov al,0
mov dx,378h
out dx,al
end;
end;
end.
