Uses wincrt;
Var
Port1 : integer;
a, b : byte;
begin
clrscr;
repeat
a :=1 ;
for b:= 1 to 6 do begin
port [$378]:=a;
a:=a*2;
delay (2000);
end;
until keypressed;
end.
Private Sub Form_Load()
Open "lpt2:" For Output As #1
Write #1, "Bu satirlar yazicidan cikicak"
Write #1, "Bu kod ile printer kablolarinizda bir sorun olup olmadigini"
Write #1, "kontrol edebilirsiniz"
Close #1
End Sub
Private Sub Form_Load()
Open "com2:" For Binary As #1
Put #1, , "ATDT 2252442" & vbCr
Close #1
End Sub
Eyvallah BuLdum Ben uzun araştırmalarım sonucu. Çok Sağol Karde$im emeğin için