[Dashboard\All Rovers\Discovery BCM MC68HC11P2 var1]

Size(280,250); 

Form 
{
    Group("Пробег",5,10,110,50)
    {
        Digit(Distance," ",5,18,50);
        Label(lbkm,"км",80,20);
       
    }
    Group("Информация",5,65,270,45) 
    {
        Label(msg," ",0,18);
    }    
    Group("Описание",5,115,270,90) 
    {
        Label(lb1,"Калькулятор пробега для Land Rover Discovery.",0,20);
        Label(lb2,"MC68HC11P2 0G10V Internal EEPROM.",0,35);
        Label(lb3,"Введите нужное значение в окне <Пробег>.",0,50);
        Label(lb4,"Нажмите кнопку <Применить>.",0,65);
    }
    Picture(Logo,"Lrover.bmp",155,15,0,0);
}

OnShow 

{   
	Var0=((@0xFC)<<8)|(@0xFD);
    if (Var0!=0xFF)
        {
        Distance=(Var0<<8)|(@0x16E);
        msg.Color=0xFF0000;
        msg.Bold=1;
        msg="Дамп ОК. Введите пробег.";
        }
    else
		{
		msg.Color = 0x0000FF;
		msg.Bold = 1;
		msg = "Неверный дамп!";
		Distance = 0;
    } 
}

OnApply 

{
      
    Var0=Distance;
    if(Var0>999999)
    {
    msg.Color=0x0000FF;
    msg.Bold=1;
    msg="Пробег должен быть не более 999999 км";
    }
    else
    {
    @0x16E=Var0;
	@0xFD=Var0>>8;
	@0xFC=Var0>>16;
	msg.Color=0xFF0000;
    msg.Bold=1;
    msg="Новый пробег записан.";
    }
}
