پورت پرینتر

[sall_2005_1363]

الف) می خوام با استفاده از این پورت یک نرم افزار سی ان سی رو شبیه سازی کنم نیاز دارم بدونم چطور می تونم بهش صفر و یک یا کلاک بدم.؟
ب) چطور می نونم 2 تا 1000 تا فرمان رو به اختیار کاربر بهش بدم و اون بر این اساس صفر و یک بده؟

[lord_viper]

میتونین از dll معروف inp32 استفاده کنین که دارای 2 تابع می باشد


function Inp32(wAddr: word): byte; stdcall; external 'inpout32.dll';
function Out32(wAddr: word; bOut: byte): byte; stdcall; external 'inpout32.dll';


استفاده ازش هم راحته



function BinToByte(aString: string): byte;
var liCount : integer; i : double;
begin
Result := 0;
for liCount := 1 to Length(aString) do
begin
Result := Result shl 1;
if aString[liCount] <> '0' then
Inc(Result);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Out32($378,BinToByte('00010110'));
end;

[sall_2005_1363]

حالا اگه بخوام فرکانس تولید کنم چه کار باید بکنم مثلاً فرکانس 2کیلو هرتز رو بدم به یک خروجی؟