Ausgabe eines Textes auf TV

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

Gruß Jan

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

Hallo,

Zitat:

---

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

Code:

---

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;

---

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

Zitat:

---

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

Hi Moritz,

Zitat:

---

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

Zitat:

---

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.

Code:

---

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

Hallo,

Zitat:

---

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

---

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

Zitat:

---

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

---

Ja.

Zitat:

---

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.

Zitat:

---

Kann man ein zweites Datafeld machen (data2).

---

Im Prizip ja, wie gerade beschrieben, mit Label.

Gruß Jan

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

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...

hallo rco, "next zeile" ist in diesem fall richtig und nicht "next reihe".
mfg pebisoft

Zitat:

---

"next zeile" ist in diesem fall richtig und nicht "next reihe".

---

Hmm, wie kommst du darauf, bzw. könntest du das bitte mal erklären? Ich bin grad verwirrt... :-)

Gruß, Trabukh

nach 28 buchstaben schreibst du die nächste zeile.
dies ist eigentlich nur ein gültiger platzhalter mit dem hinweis für die nächste zeile. bei einer for-next-schleife ist nur die zeile der for-zeile wichtig. in der "next" müssen nur gültige variablen stehen. diese interessieren bascom nicht.
mfg pebisoft

Ja, demnach müsste da eigentlich korrekterweise "Next Reihe" stehen, nur toleriert Bascom eine andere Variable auch. Schließlich steht oben auch "For Reihe = 1..." und nicht "For Zeile = 1...". Mir ist bewusst, dass ich dir (pebisoft) nichts neues erzähle, ich wollte es nur noch einmal für RCO verdeutlichen.

Gruß, Trabukh

Also in der Bascom-Hilfe steht jetzt folgendes in einem Beispiel:

Code:

---

Print "You can also nest FOR..NEXT statements."
For A = 1 To 10
  Print "This is A " ; A
  For B1 = 1 To 10
    Print "This is B1 " ; B1
  Next                                ' note that you do not have to specify the parameter
Next A

---

Zitat:

---

Mir ist bewusst, dass ich dir (pebisoft) nichts neues erzähle, ich wollte es nur noch einmal für RCO verdeutlichen.

---

Ja, ich bin in der Tat etwas verwirrt.
Mir ist nicht klar, was mit Zeile dann passiert. Da Read ja automatisch die nächste Daten-Zeile ansteuert und Zeile überschreibt hat "next Zeile" doch eingeltich gar keine FUnktion, genausogut könnte da nur "next" stehen. Ganauso auch bei "next Spalte". Spalte müsste da doch auch nicht stehen oder? Allerdings würde "next Reihe" doch die Übersichtlichkeit steigern, oder?

Zitat:

---

Wenn jetzt jemand klar ein "Dateiformat" zurecht legt, mache ich das nötige Programm zum umrechnen in Visual Basic...

---

Was meinst du mit DAteiformat? Meinst du ob man jetzt bmps importiert, oder welches Zeichen welcher Pixeldarstellung entsprchich (also 17 oben links)?

MFG Moritz

Hallo,

Zitat:

---

genausogut könnte da nur "next" stehen

---

So isses !
Und genauso funktioniert es auch.
Man kann die Variable bei "next" einfach weglassen.
Bei den meisten Basic-Dialekten.
Auch bei Bascom-AVR.
Duch die Verschachtelung ist sowieso klar,
welches "for" zu welchem "next" gehört.


Gruß Jan

@RCO: Ja, ich meine, welcher Buchstabe jetzt was darstellen soll...

Gruß, Trabukh

Warum machst du es nicht so, dass man das noch im Programm verändern kann, also erstmal sind alle Buchstaben normale Buchstbane und werden auch als solche auf dem TV angezeigt. 15 Zeichen haben dann eine Sonderstellung und fallen im "Normalen Schreibbetrieb" weg, da sie als Steuerzeichen dienen. welche das sind, könnte man doch über ein Feld eingeben, oder? Du könntest ja einen bestimmten Standart z.B. mit "âÂ..." vorgeben, wer den nicht will (weil er Franzose ist oder französisch schreibt), der ändert ihn dann.

Auf Knopfdruck word dann auf dem Zeichen Schriftbild ein Datenfeld erzeugt und vielleicht noch die Umsetzungstabelle so, wie JanB das schon gemacht hat. Das ganze kann dann in ein Progarmm reinkopiert und eingeabut werden.

Was hällst du davon?

MFG Moritz

Hi!

Ich habe diesen Thread mal quer-gelesen. Erstmal Hut-ab! Klasse Leistung!

Vor einiger Zeit habe ich etwas mit meinen Rest-Teilen vom C64 rumgespielt, dabei ist mir dieser Link über den Weg gelaufen: http://users.softcom.net/darylr/io/vid3.html

Beschäftigt sich mit einem ähnlichen Thema, allerdings mit etwas mehr Beschaltung und einem nur dafür vorgehesehenem Mega-8, dafür aber mit 40x25 Zeichen und einigen Terminal-Funktionen (DEL, Scroll, TAB, etc.).

Ist vielleicht interessant.

Grüße, Freshi

Interessante Seite!
Der Vorteil an diesem Script ist aber, dass man ohne zusätzliche Hardware auskommt, auch wenn der 74HC165 natürlich nicht viel ist.

Ich kapier nur noch nicht, wozu der 74HC573...

MFG Moritz

hallo, ich finde die leistung des nur-avr8-16 hervorragend. man könnte natürlich hier und da immer mehr teile einbauen und ein etwas besseres , vielleicht farbiges bild zu bekommen, dann könnte man aber gleich ein kleinen computer kaufen. ich findes diese nur-avr-video-produkt sollte so bestehen bleiben wie es ist. im anderen "avr-forum" gibt es auch ein produkt mit einem avr8-16 der auf 24mhz getaktet wurde und ein farbiges signal auf dem vga-monitor birngt. der hat aber auch wieder zusätzliche bauteile usw. nee...nee... ich bleibe beim nur-avr8.
jan, dein produkt ist spitze.
mfg pebisoft

Hallo Leute,
lang ist es her. Ich habe mich jetzt selber mal dran gesetzt ein Paint-Programm zu schreiben. Hier ist nun die erste Version 0.1.
Wer Spaß an Minesweeper hat, wird es lieben.

Hier mal ein Bild der Oberfläche:

Bild hier  

Das Programm erzeugt aus dem genzeichneten Zeug ein Datenfeld, dass dann in JanBs Porgramm eingebunden werden müsste. die verschiedenen Zeichen werden durch einen String mit "íáé..." repräsentiert.
Dieser String muss dann in Jans Programm eingebunden werden.

Das Programm werde ich demnächst auch noch fertig stellen.
Mein Programm ist natürlich noch ziemlich unausgereift, es soll noch einiges mehr rein.

Wen es trotzdem interessiert:

Download ToS-Paint V 0.1

MFG Moritz

hallo, ich habe von jan die version avr8-16. es erscheinen einige zahlen im feld, ist das richtig?. ansonsten hast du es sehr gut gemacht. klasse.
mfg pebisoft

Hallo!
Sieht klasse aus, tut mir Leid, dass ich nicht mehr an meinem Programm weiter gemacht habe... Falls du meinen (noch recht dürfigen) Code haben möchtest, mit dem man importierte Dateien (BMP, GIF und JPEG) einbinden kann, sag Bescheid. :-)

Gruß, Trabukh

EDIT: Mir fällt grad auf, dass du das wahrscheinlich in Delphi gemacht hast, daher bringt mein Code nüx... :-(

Zitat:

---

es erscheinen einige zahlen im feld, ist das richtig?.

---

Du meinst in dem Feld rechts? Sollte eigentlich nicht der Fall sein!

Zitat:

---

Mir fällt grad auf, dass du das wahrscheinlich in Delphi gemacht hast, daher bringt mein Code nüx...

---

Schade, hätte mir vermutlich einiges an Arbeit erspart...
JPGs importieren?! Stark!
IN welcher Sprache hast du denn geproggt?

MFG Moritz

Öhm, das mit JPGs importieren hast du vermutlich falsch verstanden, man kann lediglich Bilder in eine PictureBox laden und dann praktisch "umrechnen". Das ganze ist superprovisorisch in VB gemacht... :-)

Gruß, Trabukh

hallo, ich wollte einmal wissen, ob es weiter geht.
rco, dein programm ist gut. hast du es weiterentwickelt.
zur zeit hat sich jan noch nicht gemeldet. er wollte ja noch für den avr8 16mhz noch grafiken reinbringen.
mfg pebisoft

wurden Farben schon angesprochen? Farben sind doch was fürs Auge ;)

Mit einem AVR nur leider nicht realisierbar, dafür sind die Dinger zu langsam. Selbst Graustufen sind nicht mehr drin... :-(

Gruß, Trabukh

Zitat:

---

rco, dein programm ist gut. hast du es weiterentwickelt.

---

Ja, hab ich, fast fertig, arbeite gerade noch am RS232, also damit man direkt vom PC zum Mega8 senden kann. Ich denke ich werde mal nen neuen Thread dazu aufmachen.

MFG Moritz

hallo, weiss jemend, wie weit jan mit dem avr8/16 video-programm ist. habe lange nichts mehr von ihm gehört.
mfg pebisoft

Jan war ja schon recht lange nciht mehr im Netz...


Dafür ist jetzt endlich meine neue Software fertig:
Projekt Text on Screen (ToS)

MFG Moritz

hallo rco,kannst einmal beschreiben mit welchen geräten genau ,du die daten zum avr überträgst und mit welchen gerät der avr die daten empfängt und wie der empfänger angeschlossen ist.
mfg pebisoft

Also so:

PC mit ToS-Paint sendet die Daten über Nullmodemkabel an den Mega8, natürlich ist dann ein Max232 dazwischen. Per Funk ist der Unterschied nur, dass ich eben den Mega8 nciht brauche, sondern "nur" 2 Addlinks.

Oder eben, einen AVR nehmen, der an den Mega8 angeschlossen ist und auf ihn den Bascom-Code mit der aktuellen Bildinformation brennen.

MFG Moritz

hallo rco, dein direktübertragungsprogramm (version 1.0) vom pc zum avr geht wunderbar.
ich habe jeweils an den ecken ein winkel gezeichnet. es erscheint auf dem
bild nur text, keine punkte wenn ich es als data-zeile vom avr zum avr übertrage.
das testbild mit dem marsmensch geht einwandfrei (wurde hier einmal reingestellt).
soweit der test.
mfg pebisoft

das sind die zeichen für die eckpunkte vom malprogram:
(die leerzeichen werden hier nicht dargestellt, sind aber vorhanden)
Daten:
Data "ÉÁ Âê"
Data "â é"
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data " "
Data "á é"
Data "Íè ÊÎ"

Ja, da liegt im Moent noch das woran ich nochmal arbeiten will.
Irgendwie muss ich es hinkriegen, die Daten auch wieder in das Programm einzulesen, also eine Speicher- und Öffnen-FUnktion. Kommt mit Sicherheit noch nach, denn so schwer ist es im Grunde nicht.
Auch das mit dem Text gefällt mir noch nicht so gut, mann muss zum schreiben immer noch in das kleine Kästchen schreiben. Außerm will ich dass man mit den Cursotasten den Cursor bewegen kann...

MFG Moritz

hast du den zweiten addlink als empfänger an deinem avr-video-kasten ?
und wie hast du ihn dort angeschlossen.
mfg pebisoft

ist aber sonst ganz klasse geworden. du kannst sehr gut programmieren.
mfg pebisoft

Danke Danke...
Ja, der 2. Addlink ist in dem Kasten drin, kann man erkennen, ist das Gold glänzende Ding Links. Der Anschluss ist wirklich einfach, nur Masse und Vcc dran. Schau mal oben unter Artikel, da ist ein Bericht von LuK-AS.

MFG Moritz

hallo.
ein w. krüger hatte einmal ein einfaches video-programm für avr in bascom mit asm geschrieben.
mich würde einmal interessieren, wie man in der zeit 64us die daten für eine einfache unterbrochene linie reinschreibt in eine zeile und die restlichen zeilen schwarz, mit hsync, vsync,schwarzschulter usw. in eine dauerschleife darstellt, auch sollten die sprünge zu unterroutinen möglichs einfach sein.
wie gesagt ganz einfach zum ausprobieren ohne gross text darzustellen.
meine ergebnisse führten nicht zum ziel.
mfg pebisoft