Чтение бита c COM порта

Форумы Помощь по пакетуЧтение бита c COM порта ← Ctrl1Ctrl →

Этот топик читают: Гость

Этот топик был перемещен из раздела "Помощь по среде"

Ответов: 3

Рейтинг: 0

#1: 2017-01-01 01:47:42 ЛС | профиль | цитата

Подскажите как считать полный бит с COM, порта чтобы он не обрезал нули
тесть из 01111111 не делал 1111111.
Буду благодарен за любой ответ.

карма: 1

Google vip	#1.1контекстная реклама от партнеров

Ответов: 8886

Рейтинг: 823

#2: 2017-01-01 12:00:47 ЛС | профиль | цитата

ovn10,

схемка


Add(MainForm,2953706,315,70)
{
}
Add(COM,2145287,231,119)
{
 link(onRead,8981745:doEnum,[])
 link(Port,3834656:Text,[(237,110)(216,110)])
 link(BaudRate,11263320:Text,[(244,110)(265,110)])
}
Add(Button,4894499,168,119)
{
 Left=20
 Top=5
 Caption="On"
 link(onClick,2145287:doOpen,[])
}
Add(Edit,3834656,210,70)
{
 Left=100
 Top=5
 Width=25
 Text="1"
 DataType=2
}
Add(Edit,11263320,259,70)
{
 Left=130
 Top=5
 Text="9600"
 DataType=2
}
Add(Label,13156288,168,70)
{
 Left=85
 Top=8
 Width=15
 Height=17
 Caption="№"
}
Add(Button,10426476,168,154)
{
 Left=20
 Top=30
 Caption="Off"
 link(onClick,2145287:doClose,[(207,160)(207,132)])
}
Add(Button,5309181,168,189)
{
 Left=100
 Top=35
 Height=30
 Caption="Read 256 bite"
 Data=Integer(256)
 link(onClick,2145287:doRead,[(214,195)(214,153)])
}
Add(Str_Enum,8981745,280,126)
{
 Delimiter=""
 link(onEnum,8601191:doEvent1,[])
}
Add(Convertor,3108510,350,133)
{
 Mode=3
 link(onResult,8111906:doBits,[])
}
Add(IntToBits,8111906,399,133)
{
 Data_0=String(0)
 Data_1=String(1)
 link(onBit1,14776072:doWork2,[])
 link(onBit2,15070809:doWork2,[])
 link(onBit3,11786291:doWork2,[])
 link(onBit4,10832841:doWork2,[])
 link(onBit5,15470938:doWork2,[])
 link(onBit6,1838946:doWork2,[])
 link(onBit7,5603473:doWork2,[])
 link(onBit8,5603473:doWork3,[(445,188)])
}
Add(Hub,8601191,322,126)
{
 OutCount=3
 link(onEvent1,2300892:doClear,[(451,132)(451,146)])
 link(onEvent2,3108510:doConvert,[])
 link(onEvent3,7482769:doData,[(389,146)(389,202)])
}
Add(StrCat,2300892,462,133)
{
 Point(doClear)
 link(Str2,16462324:Var3,[(475,124)(482,124)(482,174)])
}
Add(HubEx,14776072,441,133)
{
 link(onEvent,2300892:doStrCat,[])
}
Add(HubEx,15070809,441,140)
{
 Angle=3
 link(onEvent,14776072:doWork3,[])
}
Add(HubEx,11786291,441,147)
{
 Angle=3
 link(onEvent,15070809:doWork3,[])
}
Add(HubEx,10832841,441,154)
{
 Angle=3
 link(onEvent,11786291:doWork3,[])
}
Add(HubEx,15470938,441,161)
{
 Angle=3
 link(onEvent,10832841:doWork3,[])
}
Add(HubEx,1838946,441,168)
{
 Angle=3
 link(onEvent,15470938:doWork3,[])
}
Add(HubEx,5603473,441,175)
{
 Angle=3
 link(onEvent,1838946:doWork3,[])
}
Add(DoData,7482769,462,196)
{
 link(onEventData,15206613:doAdd,[])
 link(Data,16462324:Var2,[])
}
Add(GetDataEx,16462324,462,169)
{
 link(Data,2300892:Result,[])
}
Add(ListBox,15206613,511,196)
{
 Left=200
 Top=5
 Width=100
 Height=235
}

карма: 19

Ответов: 3

Рейтинг: 0

#3: 2017-01-01 13:09:11 ЛС | профиль | цитата

Спас весь вчерашний вечер выносил мозг , городил огромные схемы а все так просто ( ну что сказать я нуб

карма: 1

Ответов: 9906

Рейтинг: 351

#4: 2017-01-01 13:54:18 ЛС | профиль | цитата

На самом деле, все еще проще

Add(MainForm,15159230,343,287)
{
 Width=312
}
Add(Edit,11263320,406,287)
{
 Left=25
 Top=5
 Width=253
 Text="Привет участникам Автопробега"
}
Add(Button,5309181,343,350)
{
 Left=23
 Top=35
 Width=132
 Height=30
 Caption="Read bytes"
 Data=Integer(256)
 link(onClick,8981745:doEnum,[])
}
Add(Str_Enum,8981745,406,350)
{
 Delimiter=""
 link(onEnum,3108510:doConvert,[])
 link(String,11263320:Text,[])
}
Add(Convertor,3108510,462,350)
{
 Mode=3
 link(onResult,4598098:doConvert,[])
}
Add(ListBox,15206613,567,350)
{
 Left=172
 Top=33
 Width=107
 Height=207
 Font=[Lucida Console,10,0,0,204]
}
Add(Convertor,4598098,511,350)
{
 Mode=8
 Digits=8
 link(onResult,15206613:doAdd,[])
}
Add(Button,13704776,343,399)
{
 Left=23
 Top=77
 Width=132
 Height=30
 Caption="Clear"
 Data=Integer(256)
 link(onClick,15206613:doClear,[(550,405)(550,363)])
}

Леонид, так все-таки, Read 256 bite, или Read 256 byte

Между битом и байтом есть некоторая разница, однако...

Редактировалось 2 раз(а), последний 2017-01-01 14:00:32

карма: 9

Ответов: 3

Рейтинг: 0

#5: 2017-01-01 17:44:09 ЛС | профиль | цитата

Может кто знает как организовать запуск программы по подключению устройства к компу ?

карма: 1

Ответов: 18

Рейтинг: 0

#6: 2017-01-01 18:06:53 ЛС | профиль | цитата

Может и знает...
Если угадает, что же это за магический процесс такой: "запуск программы по подключению устройства к компу"

карма: 2

пугаться не надо ...

Ответов: 8886

Рейтинг: 823

#7: 2017-01-01 18:24:04 ЛС | профиль | цитата

Galkov, ну да, конечно байт

смотрю на форму, что-то не то, а что, не вижу

(1-го января снисхождение

)

карма: 19

Ответов: 16884

Рейтинг: 1239

#8: 2017-01-02 16:03:52 ЛС | профиль | цитата

Леонид писал(а):

1-го января снисхождение

Говорят - помогает.

Редактировалось 3 раз(а), последний 2017-01-02 16:09:15

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 8886

Рейтинг: 823

#9: 2017-01-02 19:30:05 ЛС | профиль | цитата

Tad, прямо на мозоль

Плач Ярослава

Перед Новым Годом навалилась на меня аллергия, весь в сыпи. После некоторых размышлений и консультаций пришёл к выводу -- виновата моя любимая "Старка" (она на травах, да ещё с вермутом), которую принимал в лечебных целях ежедневно перед обедом последние восемь лет. Четвёртый день лечусь таблетками и мазями и "..вина не пью ну ни стопочки..". Когда поправлюсь (тьфу, тьфу), придётся чистую водку искать, коньяк-то тоже аллергенный, или самогонку гнать, чистую, как слеза

карма: 19

Форумы Помощь по пакетуЧтение бита c COM порта ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)