Add(COMEX,760143,420,133)
{
Port=3
DataBits=1
Point(doRXClear)
link(Port,9873407:String,[])
link(BaudRate,3043798:String,[(433,121)(496,121)])
}
Add(MainForm,12217626,35,35)
{
Width=360
Height=127
BorderStyle=1
Position=1
}
Add(Button,3272966,280,70)
{
Left=155
Top=75
Width=85
Color=85
Caption="Отрыть порт"
link(onClick,622473:doEvent1,[])
}
Add(Button,4859171,280,119)
{
Left=260
Top=75
Width=85
Color=85
Caption="Закрыть порт"
link(onClick,11800175:doEvent1,[])
}
Add(Label,12648995,35,273)
{
Left=200
Top=5
Width=75
Font=[MS Sans Serif,10,1,0,1]
Caption="Com-порт"
}
Add(Label,13898853,42,266)
{
Left=130
Top=5
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="Шагов"
}
Add(LED,2410213,420,182)
{
Left=265
Top=55
Width=30
Height=15
Shape=1
ColorOn=65280
ColorOff=32768
}
Add(Hub,622473,336,70)
{
OutCount=3
link(onEvent1,2410213:doOn,[(364,76)(364,202)])
link(onEvent2,760143:doOpen,[(364,83)(364,139)])
link(onEvent3,3790703:doOff,[(364,90)(364,237)])
}
Add(LED,3790703,420,224)
{
Left=315
Top=55
Width=30
Height=15
Shape=1
}
Add(Hub,11800175,336,119)
{
OutCount=3
link(onEvent1,2410213:doOff,[(385,125)(385,195)])
link(onEvent2,760143:doClose,[(385,132)(385,146)])
link(onEvent3,3790703:doOn,[(385,139)(385,244)])
}
Add(Button,4093520,280,168)
{
Left=10
Top=50
Color=50
Caption="ПРАВОЕ"
Data=Integer(1)
link(onClick,4759371:doEvent1,[])
}
Add(Button,8925563,280,266)
{
Left=10
Top=75
Width=130
Color=130
Caption="СТОП"
Data=Integer(0)
link(onClick,4759371:doEvent4,[(324,272)(324,195)])
}
Add(Hub,4759371,336,168)
{
InCount=4
OutCount=1
link(onEvent1,760143:doWrite,[(385,174)(385,153)])
}
Add(ComboBox,3043798,483,63)
{
Left=290
Top=25
Height=21
Strings=#3:600|4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:28800|5:38400|5:56000|5:57600|6:115200|
Text=""
}
Add(Label,16613839,49,259)
{
Left=285
Top=5
Width=66
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="Битрейт"
}
Add(Label,6929646,56,252)
{
Left=5
Top=5
Width=106
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="Скорость дв."
}
Add(Edit,14355808,161,168)
{
Left=125
Top=25
Width=55
Text=""
link(onChange,11785683:doEvent2,[])
}
Add(Edit,14813948,161,119)
{
Left=10
Top=25
Width=85
Text=""
link(onChange,11785683:doEvent1,[(205,125)(205,167)])
}
Add(ComboBox,9873407,413,63)
{
Left=210
Top=25
Height=21
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
Text=""
}
Add(Hub,11785683,217,161)
{
InCount=2
OutCount=1
link(onEvent1,4759371:doEvent3,[(256,167)(256,188)])
}
Add(Button,2710215,280,217)
{
Left=85
Top=50
Color=50
Caption="ЛЕВОЕ"
Data=Integer(1)
link(onClick,4759371:doEvent2,[(324,223)(324,181)])
}
--- Добавлено в 2017-01-12 11:36:18
Я вот сейчас подумал, что пока нет осциллографа нужно наверное попробовать приходящие с компа данные в контроллер тут же отправить назад в комп и смотреть. Может это я с симулятором что то не так делаю, и программа в контроллере на самом деле правильно работает.