Kassenlade öffnen

[Sir Rufo]

Auch wenn es eigentlich nichts Anderes ist, aber man sieht irgendwie klarer

Delphi-Quellcode:

const
  ESC = #27;
  GS = #29;

  { Commands }
  
  ESC_em = ESC + #33; { Select print mode } 
  ESC_p = ESC+#112; { Generate pulse }
  GS_V = GS + #86; { Select cut mode and cut paper }

  { Parameter }

  Lade1 = #48;
  Lade2 = #49;

  PulsDauer100ms = #050; {* 2ms}
  PulsDauer200ms = #100; {* 2ms}
  PulsDauer300ms = #150; {* 2ms}
  PulsDauer400ms = #200; {* 2ms}
  PulsDauer500ms = #250; {* 2ms}

function GetGeneratePulseSequence( m, t1, t2 : AnsiChar ) : Ansistring;
begin
  Result := Esc_p + m + t1 + t2;
end;

function GetDefaultGeneratePulseSequence : AnsiString;
begin
  Result := GetGeneratePulseSequence( {m} Lade1, {t1} PulsDauer200ms, {t2} PulsDauer200ms );
end;