Дастурлаш :
DOS да Паскал дастурлаш тили ёрдамида LPT порт учун қуйидагича дастур ёзилади:
Uses Dos,CRT;
Var
data:byte; {DATA ўзгарувчиси типи byte}
Begin
Readln(data); {Enter билан киритилган сонни ўқиш }
Port[MemW[$0040:$0008]:=data; {портга ташлаш}
End.
Ушбу дастур параллел портга киритилган қийматни чиқариб беради.
Киритиладиган қийматлар қуйидагилардан иборат:
1-чиқиш -1
2-чиқиш-2
3-чиқиш-4
4-чиқиш-8
5-чиқиш-16
6-чиқиш-32
7-чиқиш-64
8-чиқиш-128
LPT портдан маълумот ўқиш.
LPT Параллел порт ёрдамида энг содда шаклда маълумот ўқиш учун қуйидагича схема йиғиш мумкин.
4.5. Расм.
Маълумотлар ўқиш учун 5 та стандарт кириш 10, 11, 12, 13 ва 15 – чиқишлардан фойдаланилади.
Чиқишларнинг дастлабки холати Log1,шундай бўлсада уларда кучланиш 5 V.
Паскаль дастурлаш тилида маълумот ўқиш учун энг содда дастур қуйидаги кўринишга эга:
Uses Dos;
Var data:byte;
Begin
data := Port[$379];
writeln(data);
End.
$379 – параллел портдан сигнал ўқиш учун адрес;
Data – сигнал қийматини ўзида сақловчи ўзгарувчи.
LPT портни Windows 98 операцион системасигача бўлган системаларда ўқиш юқорида кўрсатиб ўтилди. Ушбу портни Windows 2000 дан кейинги юқори операцион системалар (Windows XP, 2003) учун қўллаш ижобий натижалар бермайди. Ушбу камчиликни қуйидаги усул билан тўлдириш мумкин. Қуйида Delphi дастурлаш тилида параллел портга сигнал жўнатиш дастурий намунаси келтирилган
VarPort:THandle;
CommProp:TCommProp;
CommConfig:TCommConfig;
TimeOuts: TCommTimeouts;
Begin
Port := CreateFile (PChar('LPT1'), GENERIC_WRITE, 0, nil,
OPEN_EXISTING, 0, 0);
TimeOuts.WriteTotalTimeoutMultiplier := 1000;
TimeOuts.WriteTotalTimeoutConstant := 1;
SetCommTimeouts (Port, TimeOuts);
// бу ерда порт очилиб, тайм-аут ўрнатилмоқда
i := sizeof(CommConfig);
GetCommConfig (Port, CommConfig, i);
GetCommProperties (Port, CommProp);
WriteFile (Port, Buffer, 2, NByte, nil);
CloseHandle (Port); End;
4.2. СОМ порти.
СОМ порт кетма-кет тарзда сигнал узатиш порти ҳисобланади. Ҳозирги кунда ушбу порт ёрдамида қурилмаларни сигналарини қабул қилиниб, қайта ишлаб, назорат қилиш ва бошқариш ишлари кенг қўлланилмоқда.
СОМ порт маълумот алмашувчи сигналлари бир неча турли бўлиб, улар вазифасига қараб бир-бирига нисбатан қулайликлари мавжуд. Уларга RS232, RS485, RS422 ва шу каби кетма-кет сигналлар киради.
RS232 – маълумот алмашиш линияси узунлиги кичик (60 м). Унда сигнал ўқиш ва сигнал жўнатиш алохида кириш ва чиқишлар ёрдамида амалга оширилади.
RxD – сигнал ўқиш;
TxD – сигнал жўнатиш;
GND – корпус (минус).
RS485 – маълумот алмашиш линияси узунлиги катта (1200 м). Унда сигнал ўқиш ва жўнатиш амаллари бир линияни ўзида амалга оширилади.
Data + сигнал (мусбат);
Data – сигнал (манфий).
Компьютерларда асосан RS232 кетма-кет сигнал порти жойлашган. СОМ1 нинг дастлабки параметрлари қуйидагича:
Тезлиги: 9600 bps;
Адрес: 3F8
Узилиш: 4
Юқоридаги параметрлардан фойдаланиб дастур тузиш мумкин.
Қуйида Delphi 6 дастурлаш тилида тузилган СОМ портдан сигнал ўқиш ва жўнатиш дастурий намунаси келтирилган.
Do'stlaringiz bilan baham: |