code_22464.txt
------------ Дoбавленo в 13.53:
Видно неправильно задал вопрос.
Нужно передать шестнадцатеричное число F0 в com порт, как правильно сделать это?
Я для этого F0 перевожу в строковый вид - 240.
{
Make(delphi)
ver(4.04 build 184)
Add(MainForm,5387327,84,49)
Width=478
Height=519
Point(onClose)
link(onClose,9799537:doWork2,[])
}
Add(DoData,992516,294,238)
{
Data=String(240)
link(onEventData,11639946:doWrite,[(536,244)(536,174)])
}
Add(Memory,15046787,707,98)
{
}
Add(DoData,15123484,294,182)
{
Data=String(9600)
link(onEventData,15046787:doValue,[(507,188)(507,104)])
}
Add(DoData,8534178,294,280)
{
Data=String(8)
link(onEventData,11639946:doRead,[(571,286)(571,181)])
}
Add(COM,11639946,700,147)
{
Port=1
BaudRate=0
link(onRead,16205212:doConvert,[])
link(BaudRate,15046787:Value,[])
}
Add(ListBox,15328551,903,154)
{
Left=15
Top=105
Width=430
Height=360
}
Add(InfoTip,8925886,147,126)
{
Info=#5:Сброс|36:Передача команды F0 на скорости 9600|25:(F0 в строковом виде 240)|
Width=407
Height=200
}
Add(Button,1459811,98,196)
{
Left=15
Top=20
Width=60
Font=[MS Sans Serif,7,0,0,1]
Caption="Сброс"
link(onClick,6245995:doEvent1,[])
}
Add(Hub,6245995,189,196)
{
OutCount=6
link(onEvent1,9799537:doWork3,[(236,202)(236,140)(144,140)])
link(onEvent2,15123484:doData,[(259,209)(259,188)])
link(onEvent3,11639946:doOpen,[(242,216)(242,69)(494,69)(494,153)])
link(onEvent4,11639946:doRXClear,[(515,223)(515,167)])
link(onEvent5,992516:doData,[(259,230)(259,244)])
link(onEvent6,8534178:doData,[(249,237)(249,286)])
}
Add(HubEx,9799537,140,70)
{
link(onEvent,11639946:doClose,[(480,76)(480,160)])
}
Add(Convertor,10193893,378,343)
{
Mode=4
}
Add(Convertor,7028865,679,315)
{
Mode=3
}
Add(Convertor,15234467,840,154)
{
Mode=6
link(onResult,15328551:doAdd,[])
}
Add(Convertor,16205212,770,154)
{
Mode=1
link(onResult,15234467:doConvert,[])
}