

procedure Value_SoftStart;
begin
for i := 0 to Value do
begin
PORTB := i;
Delay_ms(10);
end;
end;
procedure Value_Load;
begin
// démarrage avec dernière tension utilisée
if TestBit(PORTA, 4) = 1 then
begin
Value := EEProm_Read(0);
Value_SoftStart;
end
// démarrage avec tension nulle
else
begin
Value := $00;
PORTB := Value;
end;
end;
procedure Value_Save;
begin
if TestBit(PORTA, 4) = 1 then
EEProm_Write(0, Value);
end;