Я вас ОЧЕНЬ благодарю. Ваша помощь неоценима!!!!Даже теряюсь что сказать.... Просто сказать спасибо - это не то что надо.... Все, ухожу в изучение темы!!!!
------------ Дoбавленo в 22.28:
Начинаю разбирать по кирпичикам....
Первый вопрос связан с операциями с битами.
Из вашего примера Леонид, я понял как 16 битную переменную резать на первый и второй байты.
Но совершенно запутался как 24 битную поделить.... на три байта.
Я понимаю что математику надо учить, а не проходить.... мимо... как я в свое время.
#pas
Add(MainForm,3182787,56,63)
{
Left=100
Top=100
Width=521
Height=143
Point(onClose)
}
Add(Hub,15719913,126,119)
{
InCount=2
OutCount=4
link(onEvent1,15074373:doOperation,[(206,125)(206,76)])
link(onEvent2,14644621:doOperation,[])
}
Add(Math,14644621,224,126)
{
OpType=7
Op2=256
ResultType=0
link(onResult,14827653:doText,[])
}
Add(Math,15074373,224,70)
{
OpType=8
Op2=256
ResultType=0
link(onResult,5455257:doText,[])
}
Add(Edit,14827653,287,126)
{
Left=130
Top=45
Width=100
Text="HiByte"
}
Add(Edit,5455257,287,70)
{
Left=250
Top=45
Width=95
Text="LoByte"
}
Add(Edit,5387998,63,119)
{
Left=15
Top=45
Width=90
DataType=1
link(onChange,15719913:doEvent1,[])
}
Add(Label,12109442,126,49)
{
Left=30
Top=20
Width=54
Height=20
Caption="Decimal"
}
Add(Label,4505963,133,56)
{
Left=150
Top=20
Width=44
Height=20
Caption="Byte 2 "
}
Add(Label,12872929,143,63)
{
Left=270
Top=20
Width=41
Height=20
Caption="Byte 1"
}
Add(Label,9551904,154,77)
{
Left=400
Top=20
Width=41
Height=20
Caption="Byte 0"
}
Add(Edit,9615799,287,189)
{
Left=375
Top=45
Width=95
}
Поиск
Друзья
Администрация