[Dashboard\Renault\Laguna\Laguna3 ABS 95160]


Size(280,250); 

Form
{
    Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);
    }
    Group("Информация",5,65,270,45)
    {
        Label(message," ",0,18);
    }
    Group("Описание",5,110,270,95) 
    {
        Label(lb4,"Калькулятор для Renault Laguna3 ABS.",0,20);
        Label(lb5,"EEPROM 95160",0,35);
        Label(lb2,"Введите нужное значение в окне ПРОБЕГ",0,55);
        Label(lb3,"и нажмите кнопку <Применить>.",0,70);
    }
    Picture(Picture1,"Renault.bmp",200,5,0,0);
}

OnShow 
{
    Message.Bold = 1;
    Var0 = 0;
    Var1 = (@0x112 << 24) | (@0x113 << 16) | (@0x114 << 8) | @0x115;
    Var2 = (@0x10E << 24) | (@0x10F << 16) | (@0x110 << 8) | @0x111;
    Var5 = (var1) ^ 0xFFFFFFFF;
    if (Var1 != Var2) {Var0 = Var0 +1;}
 
    if(Var0 != 0)
    {
        message.Color = 0x0000FF; 	
        Message = "Неверный дамп!";     
        Distance = 0;                   
    }
    else
    {
        message.Color = 0xFF0000;                    
        message = "Дамп ОК. Введите новый пробег.";  
        Distance =  var5/10000;
        
    }                          
}

OnApply
{
    Var0=0;
    Var1 = Distance; 
    if(Var1 > 999900)   { Var0 = Var0 + 1; }
    if(Var0 != 0)
    {
        message.Color = 0x0000FF; 
        Message = "Пробег должен быть до 999900 км.";
    }
    else
    {
      
      
      Var0 = Distance*10000;

      Var4 = Var0 >> 24; 
      Var3 = Var0 >> 16; 
      Var2 = Var0 >> 8; 
      Var1 = Var0 & 255;
      
      Var8 = 0x10E;      
      @Var8 = Var4 ^0xff; Var8 = Var8 + 1;
      @Var8 = Var3 ^0xff; Var8 = Var8 + 1;
      @Var8 = Var2 ^0xff; Var8 = Var8 + 1;       
      @Var8 = Var1 ^0xff; Var8 = Var8 + 1; 
      
       Var8 = 0x112;
      @Var8 = Var4 ^0xff; Var8 = Var8 + 1;
      @Var8 = Var3 ^0xff; Var8 = Var8 + 1;
      @Var8 = Var2 ^0xff; Var8 = Var8 + 1;       
      @Var8 = Var1 ^0xff; Var8 = Var8 + 1;
      
        message.Color = 0xFF0000;  
        message = "Новый пробег записан. Дамп ОК.";
    }
}





















