:!: :idea: :!:
به خروجی های کا مپیوتر بر اساس دفترچه MAINBORD کامپیوتر من نگاه کنید :idea:
<span dir=ltr>
1 14
2 15
. .
. .
. .
13 26
pin signal
1 strobe-
2 data bit 0
3 data bit 1
4 data bit 2
5 data bit 3
6 data bit 4
7 data bit 5
8 data bit 6
9 data bit 7
10 ACK-
11 BUSY
12 PE
13 SLCT
14 AutoFeed-
15 ERROR-
16 INIT-
17 SLCT IN-
26 N/C
*Pin 18..pin25 are ground
************************
</span>
حال تابعی برای نوشتن :roll:
procedure WriteLPT1(WO:word);
const
LPT1A=$378; (*Address of LPT1*)
begin
asm
mov dx,LPT1A; (*Assign address of lpt1*)
mov dx,WO;
out dx,ax;
end;
end;
و خواندن :shock:
function ReadLPT1:word;
const
LPT1A=$378; (*Address of LPT1*)
var
IW:word;
begin
asm
mov dx,LPT1A;
in ax,dx;
mov Iw,ax;
end;
ReadLPT1:=iw;
end;
توجه:این توابع را میتوان هم در دلفی و هم در پاسکال استفاده کرد
برای مثال
اهممتر(ولتمتر) را به پایهای 2 و 25
(data bit 0و ground)
بزنید
وبا دستور
WriteLPT1($FFFF);
ولتاژ حدود5+ ولت
و با دستور
WriteLPT1($0);
حدود صفر ولت بخوانید
توجه: برای قرار دادن یک پایه بخصوص فقط مقدار آن را 1 (یک) وبقیه را صفر قرار میدهیم و معادل آن را در مبنای 16 یا 10 به خروجی می فرستیم
برنامه را برای پایهای مختلف چک کنید
************************************************
:?: حال چه کسی می تواند اطلاعات بیشتری در اختیار بگزارد
مثلاُ در مورد پاسخ به اینتراپت
:?:
منتظر حواب شما 8) 8) 8) 8) 8) 8)
