[Dashboard\Nissan\Qashqai\Qashqai 93C66 Kansey km . ]


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

Form
{
    Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);
    }
    Group("Информация",5,58,270,45)
    {
        Label(msg," ",0,18);
    }
    Group("Описание",5,105,270,100) 
    {
        Label(lb4,"Калькулятор пробега для Nissan Qashqai.",0,20);
        Label(lb5,"EEPROM 93C66 (Kansey)",0,35);
        Label(lb2,"Введите нужное значение в окне ПРОБЕГ",0,55);
        Label(lb3,"и нажмите кнопку <Применить>.",0,70);
    }
    Picture(Picture1,"Nissan.bmp",180,10,0,0);
}




OnShow
{
    	
     	
    Var0=0;
    Var1=(@0x070);
    Var2=(@0x071);
    if(Var1 = 0x3F) { Var0 = 1;}
    if(Var2 = 0xFE) { Var0 =Var0 + 1;}
    if(Var0 != 2)


		{
		msg.Color = 0x0000FF;
		msg.Bold = 1;
		msg = "Неверный дамп!";
		Distance = 0;
	}
	else
	{
            msg.Color = 0xFF0000;
            msg.Bold = 1;
            msg = "Дамп ОК. Введите новый пробег."; 
		Var0 = (0xb73d - (@0x69 << 8 | @0x68)) * 5367 / 100;
		Distance = Var0;

		
	}
}

OnApply
{

    
    Var0 = 0;       		
    Var10 = Distance;
    if(Var10 > 9999900) { Var0 = 1;}
    if(Var10 < 100)     { Var0 = 1;}
    if(Var0 != 0)
    {
         msg.Color = 0x0000FF;
        msg.Bold = 1;
        msg = "Пробег должен быть от 100 до 999900 км"; 
    
    }
    else
    {
        
        Var10 = Var10 * 100 / 5367;        

        Var2 = 0xb73d - Var10;
                     
        @0x69 = Var2 >> 8;    
        @0x68 = Var2 & 255;   

        Var2 = ((Var2 & 0x8000) >> 15) | (Var2 << 1); 
          
        @0x6B = Var2 >> 8;    
        @0x6A = Var2 & 255;   

        	Var3 = Var2 - 2;
        	@0x73 = Var3 >> 8;    
        	@0x72 = Var3 & 255;   

        Var2 = ((Var2 & 0x8000) >> 15) | (Var2 << 1); 

        @0x6D = Var2 >> 8;    
        @0x6C = Var2 & 255;   

        	Var3 = Var2 - 4;
        	@0x75 = Var3 >> 8;    
        	@0x74 = Var3 & 255;   

        Var2 = ((Var2 & 0x8000) >> 15) | (Var2 << 1); 

        @0x6F = Var2 >> 8;    
        @0x6E = Var2 & 255;   
    
        msg.Color = 0xFF0000;
        msg.Bold = 1;
        msg = "Дамп OK. Новый пробег записан.";


    }
}









