[Dashboard\John Deere\John Deere MC68HC11E9 ]

Size(280,280); 

Form
{
	Group("Часы",5,5,120,80)
	{
		Digit(Distance," ",5,18,50);
		Label(lb1,"Hr1",80,20);
		Digit(Miles," ",5,48,50);
		Label(lb6,"Hr2",80,50);
	}
	Group("Информация",5,88,270,45)
	{
		Label(message," ",0,18);
	}
	Group("Описание",5,135,270,100) 
	{
		Label(lb4,"Калькулятор моточасов для John Deere .",0,20);
		Label(lb5,"Motorola MC68HC11E9",0,35);
		Label(lb2,"Введите нужное значение в окне Часы",0,55);
		Label(lb3,"и нажмите кнопку <Применить>.",0,70);
	}
	Picture(Picture1,"John Deere.bmp",170,20,0,0);
}

OnShow 
{
	 Message.Bold = 1;

    Var0 = 0;  Var2 = 0x20; Var3 = 0x21; Var4 = 0; Var5 = 0;while(Var2 != 0x60)
    
    {
     Var0 = (@Var2 << 8)|@Var3;
     if(Var0 > Var4) 
      {
       Var4 = Var0;
      }
      Var2 = Var2 + 2; Var3 = Var3 + 2;
    }
     Var6 = Var4 / 4;
    if(@0x20 = 0xFF) {  
      message.Color = 0x0000FF;
      Message = " Неверный дамп! ";
      Distance = 0;
    }
    else
    {
      message.Color = 0xFF0000;
      message = "Дамп ОК. Введите пробег.";
      Distance =  Var6;   Message.Bold = 1;}

    Var0 = 0;  Var2 = 0x60; Var3 = 0x61; Var4 = 0; Var5 = 0;while(Var2 != 0xa0)
    
    {
     Var0 = (@Var2 << 8)|@Var3;
     if(Var0 > Var4) 
      {
       Var4 = Var0;
      }
      Var2 = Var2 + 2; Var3 = Var3 + 2;
    }
     Var6 = Var4 / 4;
    if(@0x60 = 0xFF) {  
      message.Color = 0x0000FF;
      Message = " Неверный дамп! ";
      Miles= 0;
    }
    else
    {
      message.Color = 0xFF0000;
      message = "Дамп ОК. Введите пробег.";
     Miles =  Var6; 
    
    }
}
     OnApply {
    Var1 = Distance;
     Var10 = Miles;
    Var0 = 0;
    //if(Var1 > 10000)   { Var0 = Var0 + 1; }
    if(Var2 < 10)      { Var0 = Var0 + 1; }
    if(Var0 != 0)
    {
        message.Color = 0x0000FF;
        Message = "Значение должно быть до 10000 часов!";
    }
    else
    {
    Var1 = Var1 *4;Var6 = 0x20;
   Var6 = 0x20; Var7 = 0x21;  
    while (Var6 != 0x60)
    {
      @Var6 = Var1 >> 8;@Var7 = Var1 & 0xFF;
     Var6 = Var6 + 2; Var7 = Var7 + 2;
    }
        message.Color = 0xFF0000;
        message = "Дамп ОК. Значение наработки записано.";                             Distance = Distance;
    } Var10 = Miles;

    Var0 = 0;
    //if(Var1 > 10000)   { Var0 = Var0 + 1; }
    if(Var2 < 10)      { Var0 = Var0 + 1; }
    if(Var0 != 0)
    {
        message.Color = 0x0000FF;
        Message = "Значение должно быть до 10000 часов!";
    }
    else
    {
    Var10 = Var10 *4;Var6 = 0x60;
   Var6 = 0x60; Var7 = 0x61;  
    while (Var6 != 0xa0)
    {
      @Var6 = Var10 >> 8;@Var7 = Var10 & 0xFF;
     Var6 = Var6 + 2; Var7 = Var7 + 2;
    }
        message.Color = 0xFF0000;
        message = "Дамп ОК. Значение наработки записано.";                             Var10 = Miles;
    }   
}  





	



















