Вот код если кому понадобиться по расчету CRC Modbus rtu устройств.
Add(MainForm,2953706,21,105)
{
Width=224
Height=120
Position=1
}
Add(Edit,1478901,245,301)
{
Left=10
Top=10
Width=180
Text="01 03 02 00 DB"
}
Add(Button,393506,196,357)
{
Left=10
Top=40
Width=70
Caption="Вычислить"
link(onClick,4096831:doData,[])
}
Add(Edit,12409833,392,357)
{
Left=90
Top=40
Width=100
Text=""
}
Add(CRC16_32,8906349,294,357)
{
Type=1
Init="$FFFF"
Revert=1
link(onResult,5914489:doInsert,[])
}
Add(Insert,5914489,343,357)
{
SubStr=" "
Position=3
link(onInsert,12409833:doText,[])
}
Add(DoData,4096831,245,357)
{
link(onEventData,8906349:doCalcCRC,[])
link(Data,1478901:Text,[])
}