[US-Euro converter\Lexus\RX 350\Lexus RX 350 Body 93c86]


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

Form 
{
    Group("",5,5,150,50)
    {
    Label(msg," ",0,18);
      }
        
     Group("Информация",5,88,270,45)
    {
        Label(message," ",0,18);
    }
    Group("Описание",5,135,270,100) 
    {
        Label(lb4,"Конвертер mil-km для Lexus RX 350 2010.",0,20);
        Label(lb5," Body EEPROM S29430 93C86",0,35);
        Label(lb2,"Для перевода в европейскую систему измерения",0,55);
        Label(lb3,"нажмите кнопку <Применить>.",0,70);
    }

    Picture(Picture1,"Lexus.bmp",180,5,0,0);
}

OnShow
{
    msg.Color=0xFF33FF; msg.Bold=1;msg="Made in Sanek2xls";
    Message.Bold = 1;
    Message.Alignment = 1;

    // --------------- проверяем правильность дампа
     
Var0=0;

 
    Var4 =@0x7C;
    Var5 =@0x83;
    Var6 =@0x84;
    Var7 =@0x8B;
    

    if(Var4 = 0x41)   	            { Var0 = Var0 + 1;}	
    if(Var5 = 0x4C) 		{ Var0 = Var0 + 1;}
    if(Var6 = 0xBE) 		{ Var0 = Var0 + 1;}
    if(Var7 = 0xB3)   	            { Var0 = Var0 + 1;}	
  

   
    if(Var0 != 4)
    {
        message.Color = 0x0000FF;
        Message = "Неверный дамп!";
    //    Distance = 0;
    }
    else
    {
        message.Color = 0xFF0000;
        message = "Дамп ОК, нажмите кнопку <Применить>";
      }
}


OnApply
{
 //   Var1 = Distance;
Var0=0;
     Var4 =@0x7C;
    Var5 =@0x83;
    Var6 =@0x84;
    Var7 =@0x8B;
    

    if(Var4 = 0x41)   	            { Var0 = Var0 + 1;}	
    if(Var5 = 0x4C) 		{ Var0 = Var0 + 1;}
    if(Var6 = 0xBE) 		{ Var0 = Var0 + 1;}
    if(Var7 = 0xB3)   	            { Var0 = Var0 + 1;}
     if(Var0 != 4)

    {message.Color = 0x0000FF;
        Message = "Дамп неверен запись прекращена";
       
    }
    else
    {
    Var8 = 0x7C;
         while(Var8 != 0x7D)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var8 =0x56;  Var8 = Var8 + 1;      
        }Var8 = 0x83;
         while(Var8 != 0x84)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var8 =0x5B;  Var8 = Var8 + 1;      
        }Var4 = 0x84;
         while(Var8 != 0x85)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var8 =0xA9;  Var8 = Var8 + 1;      
        }Var8 = 0x8B;
         while(Var8 != 0x8C)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var8 =0xA4;  Var8 = Var8 + 1;
    

       }	
	}	
	message.Color=0xFF00CC;
        message="Дамп ОК. Конверсия выполнена.";

}










