Gibt es ein ‚Codeumsetzer von Baisc nach Pascal?’ Ich habe da, so ein 8 Zeiler für Basic. Leider kann ich kein Basic.

markieren

Delphi-Quellcode:

E$=CHR$(27)
PRINT #1,ED$+"0"+CHR$(10)+CHR$(10)+CHR$(30)+CHR$(22)
PRINT #1,ED$+"1"+CHR$(10)+CHR$(13)+"Testing Control ..."+EN$
PRINT #1,ED$+"2"+CHR$(10)+CHR$(13)+"Command OK !"+EN$
PRINT #1,ED$+"3"+CHR$(10)+CHR$(30)+"Testing [ESC] ..."+EN$
PRINT #1,ED$+"4"+CHR$(22)+CHR$(13)"Cursor Off/On: "+EN$
PRINT #1,ED$+"5"+E$+"`"+CHR$(2)+EN$
PRINT #1,ED$+"6"+E$+"`"+CHR$(1)+CHR$(13)+"Turn LCD screen off"+EN$

Kann Einer von Euch helfen?

Hi smart.

Das ist im Leben kein Achtzeiler Da muss noch viel mehr drumherum.

markieren

Delphi-Quellcode:

e := #27;
s.WriteString(ed + '0' + #10#10#30#22);
s.WriteString(ed + '1' + #10#13 + 'Testing Control ...' + en);
s.WriteString(ed + '2' + #10#13 + 'Command OK !' + en);
s.WriteString(ed + '3' + #10#30 + 'Testing [ESC] ...' + en);
s.WriteString(ed + '4' + #22#13 + 'Cursor Off/On: ' + en);
s.WriteString(ed + '5' + e + '`' + #2 + en);
s.WriteString(ed + '6' + e + '`' + #1#13 + 'Turn LCD screen off' + en);

s (#1 in Basic [Fußnote 1]) ist offenbar irgendwas, wo man reinschreiben kann, mit einer hypothetischen Methode WriteString.
Außerdem fehlen noch die Variablen ED$ und EN$.
Such mal nach Zeilen, die mit

markieren

Code:

ED$ =

oder

markieren

Code:

EN$ =

beginnen.

PS: Sieht nach Com-Port-Ansteuerung aus...

[Fußnote 1] So: #1 sehen in BASIC übrigens die Dateihandles aus.

Scheint eine Ausgabe auf eine Schnittstelle zu sein - parallel oder seriell - an der ein Display Panel angeschlossen ist.

marabu

Vielen Dank, Waldteufel.

Das ganze hat natürlich mehr Zeilen. Es ist ein Testprogramm und stuert ein Kassen Display an COM1 an. Das waren nur die wichtigsten Zeilen.

Moin, moin,

Heike, Du baust an einer Ansteuerung für ein LCD-Display?!? Irgendwo vorher im Basic-Code wird die Printausgabe wahrscheinlich auf den Com-Porrt gelenkt und die Steueranweisungen und Texte dann mit dem Print ausgegeben. Das zusammenbauen des Stringes aus den Einzelteilen bekommst Du selbst hin. Tippe, dass die Ausgabe auf den Port wohl das knackige Problem ist.

Würde entweder die Komponente TSerial von Rainer Reusch aus der Toolbox verwenden oder bei Torry die TComPort von Dejan Crnila. Da mußt Du Deinen String dann in die Senden - Routine einbauen.

Würde das LCD aber vorher mal mit einem Terminal-Programm testen und die Befehle erstmal von Hand eintragen. Geeigent wäre zum Beispiel ShamCom .

Grüße aus der Stadt an der Leine // Martin

Zitat von mschaefer:

Moin, moin,

Heike, Du baust an einer Ansteuerung für ein LCD-Display?!? Irgendwo vorher im Basic-Code wird die Printausgabe wahrscheinlich auf den Com-Porrt gelenkt und die Steueranweisungen und Texte dann mit dem Print ausgegeben. Das zusammenbauen des Stringes aus den Einzelteilen bekommst Du selbst hin. Tippe, dass die Ausgabe auf den Port wohl das knackige Problem ist.

Würde entweder die Komponente TSerial von Rainer Reusch aus der Toolbox verwenden oder bei Torry die TComPort von Dejan Crnila. Da mußt Du Deinen String dann in die Senden - Routine einbauen.

Würde das LCD aber vorher mal mit einem Terminal-Programm testen und die Befehle erstmal von Hand eintragen. Geeigent wäre zum Beispiel ShamCom .

Grüße aus der Stadt an der Leine // Martin

Hallo Martin!

Gar nicht mal. Ich habe das so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
ES: String;
  tf: TextFile;
begin
ES := Chr(27);
  AssignFile(tf, 'COM1: 9600,N,8,1');
  Rewrite(tf);
  WriteLn(tf, ES + ';' + ES + '(1* Rotkohl 500 Gr. *' + CHR(13) + ES + ')0091');
  Writeln(tf, ES + '(2 4,45 Euro *' + CHR(13) + ES + ')1192');
  CloseFile(tf);
end;

Klappt sogar. Ich kann nur kein Basic. Da war ein Demoprogramm in Basic bei. Das Display hat nämlich zwei Zeilenund ich bin noch nicht dahinter gekommen wie die zweite Zeile angesprochen wird.

Gruß
Heike

Nein, Ja, Genial! Das ist ja sauberstes Turbo-Pascal ! Eine richtig schöne Lösung! Grüße aus dem verschneiten Hannover // Martin