МИКРОКОНТРОЛЛЕРЫ
НОЯБРЬ
ш
и
Табл. 1
115200 бит/с. Часто вместо единицы измерения “бит/с"
используют “бод” (baud), некоторые считают, что это
некорректно, но в данном случае это одно и тоже.
Количество бит данных в основном используется во-
семь. Может быть - 5,
6
, 7.
{Модуль процедур и функций для работы с последовательны м портом РЭ-232С}
U n it
я я.Ж
я© ©©
:'f:;|Functi
OpIhCO^l Devidi;: В y te ; sp>eed *
inteqeflf:Bobiean/::/i.
.
in te r f a c e
Begin
//feCornirt;rOpbnCpmm(D§yice;,Speed,МАККРАВГТЩ?; />|:8/ b it;/ +’ /©©я
C onst
. . / f / I i h i l s f , : « ? ж т я я гя я я .я я
:■
ушёу.
:
«
li;::
:
:
В
G -:Ч. ;©© //ЬСо^^-ОрепСртшШеЩ-се/арееёг^АСЗРАКХТУ:); / / / в b i t .+ /г#.:
//{Процедуры и функции для работы с СОМ-портом}
Я.;. .
' ЯВ/
:'0'^'Ш '‘:у^МШт:уШ
1 |:{ЩШвЩе:©©©©я|;|©§^
.
bCpmroiyfO^
spe:ed/:^OE^IT.y);. ';;|©8 ЬдШ, бе©.бит'.:©;.
:;® Я::® Gf:B re S ttlii* '(Й ё о т й й к г ё й г й ^
-ЯЕ
//Инициализация Сот-порта
Е ^сёШ геЩ Щ зе Сбп#.
о® Ш р©
Ш
end;
.PiQcedure.;TCie4rX^Buf fer:/: '//:©^CTKa буфера передатчика;' . /
©■'•
..:/;:;-;/j:Fimction:::SetCoimiParityXhComm:':THahdib;BitPaiity^yte)i:;Boal;ban;:
P rocedure ClearKxKufi-;-r;
Я6//0:йиСТкЙШ ^
. FF
V ar
F u n ctio n R e a d jp o rt(v a r Cm d:byte)^Boolean; //Прочить байт
. . - DCB:TDCB;
' ,,
© ^
©©//©©©©©'Ш^^^
. ©
£ \m ctio n W rite jo o rt {var C m d:byte):B oolean; //П ослать байт
Begin
{Вспомогательные)
r e s u lt:= F a ls e ;
F u n ctio n
i f GetCommState(hComm, DCB) th en
w ith ВСБ do
F u n ctio n
Begin
SetCommParity (hCom ra:TH andle;B itParity:Byte) :Boolean;
FlFF: Щ
j<M / GwJF'F :.ЯщУ|/4;||р
p ro ced u re ClosoComm(hComm;Thandle);
Щ-.v;.;':.)|rif•
ХЬСррП/ PC®>
/
r e s u i t ; - Т Щ ; ■
©©j©©'
end;
'^©S/ .©©©©i'i/©' /■© -■
end;
H R :card in al;
•/. •
P rocedure .С1о5ейотт.(Щолт:ТЙапс11е):/::/
. .v©©
;:v©/iPCB
W&C
B©© :■
у©;©. ©Ш ;: Д
Л
:• ::.:WII©::/©.©©/.f .©©/.
.,.уу¥Л:.
Ж .' :© ' -Я/
Begin
;
i f hCGn'm<>IHVALID_HAWJLE_VALUE th e n CloseH andle (hComm) ;
end;
Im plem entation
vProcedure/:CloseC0M;'F/:;v.//F;7 Й
' .©
i
Л{Л?г'-^-Л ^^
/'F unction OpenCcrati(Comllun'ber: By te.;'':;
■■
/■■
B eg in
• '■
:/•••'©
'я/©
:,:©© : :' :iSpeedi: B a n g ln tiB itP a r|.ty vByte
_•
' . С1с5еСог#(ЬСргш'.);. ;С©© ;©в ;.:©©©©/:.
.:
ЛйЛ-(Л'
' яу ©©о
-.^уЛШЛ
.
B egin
..
■■
................
hC om m ;»C reateFile{PC har{C om Prefix+IntT oStr{C om N um ber)),
end;
GENERIC RH^6- o r GE^RIC WRITE/ 0, rii'l, OPEN EXISTING, 0© 0)f; ©
•'^Procedure'C iearTxB U ifet;//^
//*Ш.
.
••
i f hCorom<>INVALID HANDLE^VALUE th en
Begin
Begin
:G
. PurgeComm(hComm;: BURGE TxCLEAR) ; /я;:-.
.:;>я/1^
;
1РСИ '-■
: ■ -
;
P
©©яу©© ©©©©©:©©
w ith 7
:DCB do
end;
■■Begin: ■
' F/i/;prpcedwe:/CX;earRxiBUif ег;1'/:'/:
//'п f
. ■
FNF, . ;F;: уЯЯЯЯ
Begin
'■
:
!
;
!
f
:
;
#
!
8
!
ji©:©
';V©©:©
';
у/Я. ул
;■
FB ■
if . f ■: VF:
S to p B its:—ONESTOPBIT;
// 1 sto p b i t
.end;.
i f SetCommState (hComm, DCB) th e n
i f GetCommTimeouts {hComm, CommTimeouts) th en
■■
Begin'
Begin
CommTimeouts. R e ad ln te rv alT im eo u t:-2 0;
.;| i f R ^ d R iie { ^ d iM /S M i/siz e if
C om m T im eouts.R eadTotalT im eoutM ultiplier:»30;
i f
th e n
«Trite
ComraTimeouts. R eadT otalT im eoutC onstant; «30;
e ls e Begin
CommTimeouts. M rite T o ta lT im e o u tM u ltip lie r:»3 0;
X *
"ч ■
f1“
r.‘r
. : •- : :* ;
Com m Tim eouts.W riteTotalTim eoutC onstant;«30;
MessageDlg{"HeT с в я зи !",m tW arning,{m bCk]r 0);
i f SetCommTimeouts(hComm» CommTimeouts) th e n
Begin
Result:»hComm;
end.
E x it;
F u n ctio n W r it e j o r t ( v a r C m d:byte)rB oolean;
end;
Begin
end;
i
.;
'.'end/:
/■
': !i ’r?
^‘i
1>*!:
C loseH andle {hComm);
hComm:.-iNVAX,XDwHAMDhE VABUE;
Result:-hComm;
end;
W 7 ~
’*
; .................................
,
? ' l
1
Детектирование несущей (Data Carrier Detect, CD, DCD)
2
Прием (Received Data.RD)
3
Передача (Transmitted Data,TD)
4
Готовность терминала (Data Terminal Ready, DTR)
5
Ситальпая “земля" (SignalGround)
6
Готовность данных (Data Set Ready, DSR)
7
Запрос на передачу (Request to Send, RTS)
8
Вход разрешения терминалу передавать данные
(Clear to Send, CTS)
9
Индикатор вызова (Ring Indicator, RI)
Рис. 3
С о п р я ж е н и е
RD-
T D -
Signal Ground -
-► E D
-ID
Signal Ground
предыдущая страница 27 Радиолюбитель 2002-11 читать онлайн следующая страница 29 Радиолюбитель 2002-11 читать онлайн Домой Выключить/включить текст