+- Fóruns (https://www.msbig.net)
+-- Fórum: Grupo Leves (https://www.msbig.net/forumdisplay.php?fid=28)
+--- Fórum: FIAT (https://www.msbig.net/forumdisplay.php?fid=84)
+---- Fórum: Eletrônica Embarcada (https://www.msbig.net/forumdisplay.php?fid=86)
+----- Fórum: Painel (https://www.msbig.net/forumdisplay.php?fid=177)
+----- Tópico: UPA Script - Correção de KM Dodge Chrylesr 300C (/showthread.php?tid=3227)
UPA Script - Correção de KM Dodge Chrylesr 300C - admin - 16-07-2020
program Prog1;
var
Code_1: string;
KM: Integer;
procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox('Erro de Leitura', 'Erro', MB_OK);
end;
verifyDevice;
begin
AddMsg('Lendo Chrylesr 300C');
Code_1 := inttohex(GetByteHexEdit($FB4), 2) + inttohex(GetByteHexEdit($FB5), 2);
KM := strtoint('$' + Code_1) * 27;
AddMsg('Kilometragem Atual' + ' = ' + IntToStr(KM) + ' km');
MsgBox(IntToStr(KM) + ' km', 'KM Atual', MB_OK);
end;
end;
procedure NewKM;
var
n, n3, new_KM, x, y, x1, y1, a, b: integer;
n1, n2, n4, code: string;
begin
SetProgramModifiedOnly(true);
if InBox('Digite KM', 'Nova KM', code) then
begin
if length(code) > 6 then
begin
if MsgBox('Um valor de 000001 até 999999', 'Erro', MB_RETRYCANCEL) = IDRETRY then
begin
NewKM;
end;
exit;
end;
end;
n := StrToInt(code);
new_KM := (65536 + (n / 27));
n1 := IntToHex(new_KM, 4);
n2 := IntToHex(new_KM, 4)[5];
n3 := strtoint('$' + n2);
n4 := inttohex(n3, 1);
Y := 3952;
while y < 4016 do
begin
SetByteHexEdit(y, (strtoint('$' + n1[2] + n1[3])));
y := y + 4;
end;
Y1 := 3953; a := 16
while y1 < 4016 do
begin
SetByteHexEdit(y1, (strtoint('$' + n1[4] + n4) + a));
y1 := y1 + 4; a := a + 1
end;
x := 4016;
while x < 4078 do
begin
SetByteHexEdit(x, (strtoint('$' + n1[2] + n1[3])));
x := x + 4
end;
x1 := 4017; b := 0
while x1 < 4079 do
begin
SetByteHexEdit(x1, (strtoint('$' + n1[4] + n4) + b));
x1 := x1 + 4; b := B + 1
end;
RefreshHexEdit;
if MsgBox('Programar?', 'Confirme', MB_YESNO) = IDYES then begin
ProgramDevice;
VerifyDevice;
ReadKM;
end;
end;
begin
AddDeviceGroup('DASH', 'Select a car');
AddDevice('300C', 'Motorola MCU', 'DASH', 'MC9S12DG256');
AddAction('Read KM', 'ReadKM', '300C');
AddAction('New KM', 'NewKM', '300C');
SetProductInfo('MSBig', 'Device Script Example'#$D'Copyright'#169' 2020 Fórum MSBig - www.msbig.net');
end.