[Dashboard\Bobcat\863 ECU X5083]

Size(280,250); // ширина и высота

Form
{
    Group("Описание",5,105,270,100) 
    {
        Label(lb5,"ECU EEPROM: X5083.",0,35);
        Label(lb4,"Калькулятор нарабртки Bobcat 863.",0,20);
        Label(lb2,"Введите нужное значение в окне ЧАСЫ",0,50);
        Label(lb3,"и нажмите кнопку <Применить>.",0,65);
    }
    Group("ЧАСЫ",20,5,110,50)
    {
        Digit(Time1," ",5,18,40);
        Label(lb1,"HOUR",50,22);
    }
    Group("Информация",5,58,270,45)
    {
        Label(message," ",0,18);
    }
    Picture(Picture1,"Bobcat.bmp",170,13,0,0);
}

OnShow
{
    Message.Bold = 1;

    Var0 = 0; Var1 = 0x0; Var2 = 0x01; Var3 = 0x02; Var4 = 0; Var5 = 0;
    while(Var1 != 0x30)
    {
     Var0 = ((@Var1 << 16)|(@Var2 << 8))|@Var3;
     if(Var0 > Var4)
      {
       Var4 = Var0;
      }
     Var1 = Var1 + 16; Var2 = Var2 + 16; Var3 = Var3 + 16;
    }
     Var6 = Var4 / 720;
    if(@0x00 = 0xFF)
    {
      message.Color = 0x0000FF;
      Message = " Неверный дамп! ";
      Time1 = 0;
    }
    else
    {
      message.Color = 0xFF0000;
      message = "Дамп ОК. Введите пробег.";
      Time1 =  Var6;
    }
}

OnApply
{
    Var1 = Time1;

    Var0 = 0;
    //if(Var1 > 10000)   { Var0 = Var0 + 1; }
    if(Var2 < 10)      { Var0 = Var0 + 1; }
    if(Var0 != 0)
    {
        message.Color = 0x0000FF;
        Message = "Значение должно быть до 10000 часов!";
    }
    else
    {
    Var1 = Var1 *720;
    Var5 = 0x00; Var6 = 0x01; Var7 = 0x02; Var9 = 0x03; 
    while (Var5 != 0x30)
    {
     @Var5 = Var1 >> 16; @Var6 = Var1 >> 8;@Var7 = Var1 & 0xFF;
     Var8 = ((Var1 >> 16) & 0xFF) + ((Var1 >> 8) & 0xFF) + (Var1 & 0xFF);
     Var8 = 0x100 - (Var8 & 0xFF);
     @Var9 = Var8;
     Var5 = Var5 + 16; Var6 = Var6 + 16; Var9 = Var9 + 16; Var7 = Var7 + 16;
    }

        message.Color = 0xFF0000;
        message = "Дамп ОК. Значение наработки записано.";
    }
}
