[US-Euro converter\Lexus\RX300\RX300 US-EU BCU.cal]

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

Form 

{	Group ("Конверсия",5,55,175,50)	{ComboBox(cbx1," ",5,20,150,"Фаренгейты в Цельсии","Цельсии в Фаренгейты");}
	Group("Информация",5,110,310,45)	{Label(message," ",0,20);}
    	Group("Описание",5,155,310,80) 
    	{
	Label(lb1,"Калькулятор для конверсии Lexus RX300 BCU 24C02.",0,15);
        Label(lb2,"1997-2003 г.",0,30);
	Label(lb3,"EEPROM 24C02, Блок Fujitsu Ten.",0,45);
        Label(lb4,"Выберите Вариант и Нажмите Кнопку <Применить>.",0,60);
    	}
    	Picture(Picture1,"Lexus.bmp",210,35,0,0);
}

OnShow

{	cbx1=0;
	Message.Bold=1;
	Message.Alignment=1;
	Var0=0;
       	Var1=(@0x49<<8)|(@0x4A);
       	Var2=(@0x99<<8)|(@0x9A);
       	Var3=(@0xE9<<8)|(@0xEA);
	if(Var1!=Var2) {Var0=Var0+1;}
	if(Var2!=Var3) {Var0=Var0+1;}
	if(Var0!=0) {message.Color=0x0000FF; Message="Неверный дамп!";}
	else 
	{
	if (Var1=0x4B00){message.Color=0xFF0000;message="Дамп в C, нажмите кнопку <Применить>";Var1=0;}	
	if (Var1=0x4961){message.Color=0xFF0000;message="Дамп в F, нажмите кнопку <Применить>";Var1=0;}	
	if (Var1=0)	{} else {message.Color=0x0000FF;message="Неверный Дамп!";}	
	}
}

OnApply

{	if(cbx1=1) {@0x49=0x4B;@0x4A=0x00;@0x99=0x4B;@0x9A=0x00;@0xE9=0x4B;@0xEA=0x00;}
	if(cbx1=2) {@0x49=0x49;@0x4A=0x61;@0x99=0x49;@0x9A=0x61;@0xE9=0x49;@0xEA=0x61;}
        message.Color=0xFF0000; message="Дамп ОК. Перевод Завершен.";
}






