Ausgabe eines Textes auf TV

[Trabukh]

Freut mich! Das mit dem Scrollen ist allerdings etwas unglücklich, schließlich könnte man ja auch mal ein Bild nehmen wollen, das bis in die letzte Ecke geht, das wäre dann ja praktisch gar nicht möglich!

@JanB: Kann man das Scrollen irgendwie unterdrücken?

Gruß, Trabukh

[JanB]

Moin Freunde,

Kann man das Scrollen irgendwie unterdrücken?

Unterdrücken nicht.
aber verhindern.
Beispiel unten im Code.
Da wird nur das letzte Zeichen unterdrückt.

Alternativ könnte ich Ctrl-Codes
für Cursor-An Cursor-Aus in das
Video-Terminal-Programm einbauen.
Wenn diese Funktion oft gebraucht wird.

Gruß Jan

$regfile = "M16def.dat"
$crystal = 16000000
$baud = 9600

Dim Zeile as String * 28
Dim Zeichen as String * 1
Dim Reihe as Byte
Dim Spalte as Byte
Dim Nummer as Byte
Dim Zpz as Byte '<---hier

Restore Daten

Zpz=28  '<---hier
For Reihe = 1 To 24
   Read Zeile
   if reihe=24 then Zpz=27   '<---hier
   For Spalte = 1 To Zpz  '<---hier
      Zeichen = Mid(Zeile , Spalte , 1)
      Nummer = Asc(Zeichen)
      If Nummer > 32 Then Nummer = Nummer - 48
      Print Chr(Nummer);
   Next Spalte
Next Zeile

Do
Loop

End

Daten:
Data "      I    F         OCCM   "
Data "       ICCF          O  O   "
Data "      HA  BD         OLLG   "
Data "      FJEJEI         O      "
Data "      E    J         OHD    "
Data "     J      E         BA    "
Data "    HNCGKCGKOD        JE    "
Data "   LADDDDDDDDFML      JE    "
Data " NCK GFFFFFFEEE I     JE    "
Data "J  J GFFFFFFEEML I    BA    "
Data "F GK GFFFFFFEOEBEJ   L  L   "
Data "EJAJ MLLLLLLLOE EJ   BMNA   "
Data "IJDJ        HNEHEJ    NM    "
Data "JCCGMLLLLNOOOOEGHN   NABM   "
Data "JBEEHC KMJC JM EGN          "
Data "BCCAJ DNOJHLNG CCA   HGKD   "
Data "     ONOEJONNE       JGCA   "
Data "    J  JOJ  JO       JEHD   "
Data "    BNFOGJLGOG        CC    "
Data "    HC JIJC JE        HD    "
Data "    J DNOJHLNN        JE    "
Data "    HONOMJONNM        JE    "
Data "    GBCOOF CKOE       JE    "
Data "    MNOOOMLLNOE       JE    "

[RCO]

@ Trabukh, könnte man das Porgramm nicht noch optimieren?
- Wenn mehr als 2 Leerzeichen folgen, dann wird es durch eine Goto X-Anweisung ersetzt.
- Wenn mehr als ein Leerzeichen am Ende einer Zeile folgt, dann werden sie durch einen Zeilenumbruch chr(10) ersetzt.
- Leere Zeilen ganz raus chr(10)

MFG Moritz

[Trabukh]

Klar, werd' ich heut' Nachmittag tun...

Gruß, Trabukh

P.S.
Könntest du vllt mal das gesamt Bild posten, also nach dem neuesten Quelltext?

EDIT: @JanB: Schade, dass das letzte Zeichen nicht mit draufgeht. Falls jemand eine rechteckige Karte machen möchte, geht das so wohl nicht. Flags für den Cursor wären super!

[RCO]

Könntest du vllt mal das gesamt Bild posten, also nach dem neuesten Quelltext?

Jepp, aber erst heute Nachmittag.

MFG Moritz

[JanB]

Hallo,
interessant wäre auch, es anders zu machen
als mit "ABCD.." usw.
Wenn man andere Zeichen oder so hätte,
dann könte man schön einfach Text und Grafik
mischen. Dann würde man die Buchstaben
einfach als Buchstaben drin lassen.
Was für Zeichen könnte man da nehmen ?
Wir bräuchten 15 Stück.

MIt dem Scrollen beim letzten Zeichen,
da überlege ich mir was.

Gruß Jan

[RCO]

Tja, das düfte etwas kompliziert werden, wenn man "reguläre" Zeichen nehmen will, also das, was auf der Tastatur da ist.
Man könnte natürlich mal schaun, was chr(x) noch alles ausspuckt, aber dann wirds bei der Bilderstellung natürlich ein andauerndes "Copy and Paste" . Wenn man natürlich das ganze eh mit nem Programm macht, dann gehts ja. brächten wir nur ein schönes "Grafikprogramm".

MFG Moritz

[pebisoft]

hallo, in Bascom gibt es ein tool wo mit man die zeichen für ein lcd-display erstellen kann.
mfg pebisoft

[RCO]

hallo, in Bascom gibt es ein tool wo mit man die zeichen für ein lcd-display erstellen kann.

Ich dachte eher an sowas, wie Trabukh das scheinbar gemacht hat. Also ein Zeichengerät und so, quasi Paint für Arme.
Vielleicht auch eine Funktion zum importieren von Bitmaps oder so, ich weiß allerdings nicht wie kompliziert das ist.
Das Programm sollte nach Möglichkiet ein Datenfeld zu erzeugen und vielleicht noch direkt auszugeben (RS232).
Da ich das jetzt noch nicht kann, eher Wunschdenken.

MFG Moritz

[RCO]

Also ich weiß jetzt, welche Zeichen du alles nehmen könntest:
Sind sogar 30!

Et un peu Francais:

ÁáÂâÀà
ÉéÊêÈè
ÍíÎîÌì
ÓóÔôÒò
ÚúÛûÙù

Weiß allerdings nicht, genau den Code, aber den kriegt man ja hier raus:
http://www.wintotal.de/softw/index.php?rb=26&id=1506

Hoffe, da kommt was hintereinander, damit man so ne einfache Berechnung wie -48 machen kann.

MFG Moritz