[Dashboard\Toyota\Will VS\Will VS 93LC46A (rotated) JECO]

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(message," ",0,18);
    }
    Group("Описание",5,105,270,100) 
    {                                            
        Label(lb4,"Калькулятор пробега для Toyota Will VS",0,20);
        Label(lb5,"EEPROM 93LC46A rotated, панель JECO",0,35);
        Label(lb2,"Введите нужное значение в окне ПРОБЕГ",0,55);
        Label(lb3,"и нажмите кнопку <Применить>.",0,70);
    }
    Picture(Picture1,"Toyota.bmp",180,5,0,0);
}

OnShow

{
    Message.Bold=1;
    Message.Alignment=1;
    Var4=(@(0x3D)<<8)|@0x3C;
	Var6=((Var4>>12)&15)*1000;
	Var6=Var6+(((Var4>>8)&15)*100);
	Var6=Var6+(((Var4>>4)&15)*10);
	Var6=Var6+(Var4&15);
    Distance = Var6*100;     
    Message.Color = 0xFF0000; Message.Bold = 1; Message = "Дамп ОК. Введите пробег.";
    
}

OnApply

{
    Var1 = Distance;
    if(Var1 > 999999) { message.Color = 0x0000FF; Message = "Пробег должен быть не более 999999 км."; }
    else
    {
        // переводим из двоично-десятичного в двоичный вид
        Var0 = Distance;
		Var2 = Var0 % 10; Var0 = Var0 / 10;
		Var2 = Var2 | ((Var0 % 10) << 4); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 8); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 12); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 16); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 20); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 24); Var0 = Var0 / 10;  
		Var2 = Var2 | ((Var0 % 10) << 28);  

		// заполняем дамп
        Var0 = 0x3c;
		@Var0 = Var2 >> 8; Var0 = Var0 + 1;
		@Var0 = Var2 >> 16;Var0 = Var0 + 1;
	    Var0 = 0x3E;
    	@Var0 = Var2 >> 8; Var0 = Var0 + 1;
		@Var0 = Var2 >> 16; Var0 = Var0 + 1;
	    Var0 = 0x40;
        @Var0 = Var2 >> 8; Var0 = Var0 + 1;
		@Var0 = Var2 >> 16; Var0 = Var0 + 1;
		Var0 = 0x42;
        @Var0 = Var2 >> 8; Var0 = Var0 + 1;
		@Var0 = Var2 >> 16; Var0 = Var0 + 1;
        Var0 = 0x44;
		@Var0 = Var2 >> 8; Var0 = Var0 + 1;
		@Var0 = Var2 >> 16; Var0 = Var0 + 1;
        message.Color = 0xFF0000; message = "Дамп ОК. Новый пробег записан.";
    }
}
