Ausgabe eines Textes auf TV

[JanB]

Hallo,
die Zeichen brauchen nicht hintereinander sein.
Eine Umsetzungstabelle für 15 Zeichen ist in
Bascom doch kein Problem.

Gruß Jan

[RCO]

Ja klar, nur das andere wäre halt eine Codezeile.
Wie schwierig das ist, darfst du mich nicht fragen, ich kann "noch" nicht.

MFG Moritz

[JanB]

Hallo,

Ja klar, nur das andere wäre halt eine Codezeile.

hier ein Vorschlag für eine 15-Zeichen-Umsetzung per Tabelle.
So sind es zwei Zeilen.
(nicht getestet, sollte aber gehen)

Gruß Jan

Dim A As String * 15
Dim B As String * 15
Dim N As Byte
Dim Z As String * 1


'Vorbereitung,  nur einmal beim Start
A = "ÂÊÎÔÛÀÈÌÒÙÁÉÍÓÚ"
For N = 17 To 31
B = B + Chr(n)
Next N


'Umsetzung Beispiel für ein Zeichen
Z = "Î"

N = Instr(z , A)
Z = Mid(b , N , 1)

Print Z;

[pebisoft]

hallo, die beiden demos von jan laufen gut.
manchmal wird ein byte verschluckt beim übertragen, setzt da hinter "print..." einfach noch "waitms 5".
die steuerbefehle einfach mit "printbin 12;" (12 ist bildschirm löschen) und auch "waitms 5".
mfg pebisoft

[RCO]

hier ein Vorschlag für eine 15-Zeichen-Umsetzung per Tabelle.

OK, man sieht, dass du in Bascom deutlich fitter bist als ich

@ Trabukh:
Bild kommt heute, war gestern nur 5 Minuten zu hause.

MFG Moritz

Edit:
Eine Idee: könnte man nicht

Z = Mid(b , N , 1)

durch

Z = Chr(16+N)
ersetzen?
Dann bräuchte man auch keinen 2. String mit den Zeichen ud keine For-schleife.

MFG Moritz

[JanB]

Hi Moritz,

könnte man nicht
Z = Mid(b , N , 1)
durch
Z = Chr(16+N)
ersetzen?

Ja klar.
Gute Idee!
Was willst du ? Du hast doch Basic auch gut im Griff !!


BIs dann...Jan

[RCO]

Was willst du ? Du hast doch Basic auch gut im Griff !!

Naja, dafür musste ich 3 mal ins Helpfile schauen!
Den Code hier verstehe ich aber immer noch nicht so ganz.

Dim Zeile as String * 28 
Dim Zeichen as String * 1 
Dim Reihe as Byte 
Dim Spalte as Byte 
Dim Nummer as Byte 

Restore Daten 

For Reihe = 1 To 24 
   Read Zeile 
   For Spalte = 1 To 28 
      Zeichen = Mid(Zeile , Spalte , 1) 
      Nummer = Asc(Zeichen) 
      If Nummer > 32 Then Nummer = Nummer - 48 
      Print Chr(Nummer) 
   Next Spalte 
Next Zeile

Wo endet die For-Schleife? Was bringt next Zeile?
Woher weiß Read, welches Data er lesen soll, liest es bei jedem Aufruf einfach die nächste Zeile?
Kann man nicht direkt in eine Data-Zeile springen?
Kann man ein zweites Datafeld machen (data2).
MFg moritz

[JanB]

Hallo,

Wo endet die For-Schleife? Was bringt next Zeile?

Die For Schleife endet am zugehörigen Next. Dafür ist auch das Next da.

Woher weiß Read, welches Data er lesen soll, liest es bei jedem Aufruf einfach die nächste Zeile?

Ja.

Kann man nicht direkt in eine Data-Zeile springen?

Ja, dann muss man diese Datazeile mit einem Label versehen,
und kann dann mit "Restore Label" den Read-Zeiger direkt dahin setzen.

Kann man ein zweites Datafeld machen (data2).

Im Prizip ja, wie gerade beschrieben, mit Label.

Gruß Jan

[RCO]

So, hier nun das Bild:

Bild hier  

@Jan:
Komischerweise passt das jetzt übrigens gans auf meinen Fernseher?
Hast du an dem neuen Programm was geändert?

MFG Moritz

[Trabukh]

Gut, scheint ja hier super zu funktionieren, also Jans Sachen mit Bascom. Wenn jetzt jemand klar ein "Dateiformat" zurecht legt, mache ich das nötige Programm zum umrechnen in Visual Basic... Ich habe in Bascom nicht gerade den Masterplan, daher überlasse ich das den Fachkundigen.

Gruß, Trabukh

EDIT: @RCO: Du hast Recht, "Next Zeile" ist falsch, das müsste "Next Reihe" sein, Bascom ist da wohl etwas toleranter...