[Airbag\Mercedes\Bosch 68HC912B32]


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

Form
{
   
    Group("Информация",5,20,160,45)
    {
        Label(message," ",0,18);
    }
    Group("Идентификация",5,90,270,45)
    {
        Label(pn," ",0,18);
    }
    Group("Описание",5,145,270,100) 
    {
        Label(lb4,"Калькулятор для Airbag Merсedes.",0,20);
        Label(lb5,"Bosch.Внутреннее ЕЕПРОМ 68HC912B32 ",0,35);
        Label(lb2,"Чтобы стереть CRASH и ошибки",0,50);
        Label(lb3,"нажмите кнопку <Применить>.",0,65);
    }
    Picture(Picture1,"Mercedes.bmp",180,7,0,0);
OnShow
    {
    pn = "MB P/N: "+#b.@0x1c1+#b.@0x1c2+#b.@0x1c3+" "+#b.@0x1c4+" "+#b.@0x1c5;
    var0 = 0;
    if(@0x1c2 != 0x18) {Var0 = Var0 + 1;}
    if(@0x1c3 != 0x20) {Var0 = Var0 + 1;}
    if(Var0 != 0) 
       {
        message.Color = 0x0000FF;
	message.Bold = 1;
	message = "Неверный дамп!";
       }
     else
       {
        Var2 =0xff;
        Var1 =0x15; 
        while(Var1 !=0x35)
        {
         Var2 =Var2 & @Var1; Var1 = var1 + 1;
        }
        Var1 =0x37; 
        while(Var1 !=0xa4)
        {
         Var2 =Var2 & @Var1; Var1 = var1 + 1;
        }

        if(var2 != 0xff) 
         {
          message.Color = 0x0000FF;
	  message.Bold = 1;
	  message = "ОШИБКИ!";
         }
         else
         {
          message.Color = 0xff0000;
	  message.Bold = 1;
	  message = "дамп чистый!";
         }
       }  
    }
OnApply
{
        
        
            Var2 = 0x15;
            while(Var2 != 0x35)
          {           
            @Var2 = 0xFF; Var2=Var2 + 1;   
          }
            Var2 = 0x37;
            while(Var2 != 0xa4)
          {           
            @Var2 = 0xFF; Var2=Var2 + 1;   
          }

          
            Message.Color = 0xFF00FF;
            Message.Bold = 1;
            Message = "Ошибки стерты.";
          }
}

