PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Projekt Text on Screen (ToS)


RCO
04.04.2005, 14:41
Endlich ist es soweit, dass Projekt ist erstmal abgeschlossen und ein meiner Meinung anch schφnes Ergebniss liegt vor.

Dank Jan Baares fόr seinen Assemblercode fόr das Videoterminal und alle anderen die mir geholfen haben
Ausgabe eines Textes auf TV (https://www.roboternetz.de/phpBB2/viewtopic.php?t=5880)
Programme Seite 7 bis 10

Fόr dieses Super Programm habe ich ein board entworfen:


Text-on-Screen Board (ToS)

Features:

- Mega8 mit Video-Code
- AT90S2313
- Anschluss fόr Tastatur
- Infrarotempfδnger
- Rs232 όber Max232
- Addlink fόr Funkverbindung zum PC oder anderem uC
- Statusleds

http://img67.exs.cx/img67/3096/box5dh.th.jpg (http://img67.exs.cx/my.php?loc=img67&image=box5dh.jpg)

(Oben) Das ToS-Baord im Gehδuse, gut zu erkennen sind die RS232-Buchse, die Statusleds, der Video-Ausgang, (noch) ein Kabel fόr die Stromversorgung und der TSOP.
(Unten) Ein Blick auf das innere des Gehδuses, durch einfaches Umstecken einese RS232-Verbinders (2 Kabel) kann hier anch belieben zwischen den verschiedenen Komponenten gewδhlt werden, denn es stehen ja 4 RS232-fδhige Komponenten zu Verfόgung. Damit wollte ich erreichen, dass das Baord auch fόr Spδtere Versuche mφglichst universell bleibt.

http://img67.exs.cx/img67/5254/innen4ag.th.jpg (http://img67.exs.cx/my.php?loc=img67&image=innen4ag.jpg)

Natόrlich darf dann auch der entsprechende Funk-Adapter fόr den PC nicht fehlen. Stromversorgung όber USB. Nun kann mit ToS-Paint schnell ein Bild per FUnk zum Board rόbergefunkt werden.
http://img208.exs.cx/img208/1606/add7at.th.jpg (http://img208.exs.cx/my.php?loc=img208&image=add7at.jpg)

Nun habe ich auch endlich die neue Softeware fertig. Diese erlaubt einerseits ein Bild zu zeichenen und zu Schreiben und dieses Direkt an den Mega8 zu όbertragen, die entsprechenden Video-Daten erzeugt und andereseits wird ein Code erzeugt, der es einem 2. AVR erlaubt ein Bild quasi zu speichern und dann όber RS232 auszugeben. Der passende Data-Code fόr den Avr wird dann mit ToS-Paint erzeugt und in diesen eingefόgt (da, wo bisher "ΜΜΜΜΜΜΜΜΜ" steht).



$crystal = 4000000
$baud = 19200
Dim Zeile As String * 28
Dim Zeichen As String * 1
Dim Reihe As Byte
Dim Spalte As Byte
Dim Thestring As String * 15
Dim Number As Byte
Thestring = "ΑΒΐαβΰΙΚΘικθΝΞΜ"
Dim Zpz As Byte
Restore Daten
Zpz = 28
For Reihe = 1 To 24
Read Zeile
If Reihe = 24 Then Zpz = 27
For Spalte = 1 To Zpz
Zeichen = Mid(zeile , Spalte , 1)
Number = Instr(thestring , Zeichen)
If Number > 0 Then
Number = Number + 16
Print Chr(number);
Else
Print Zeichen;
End If
Next Spalte
Next Zeile
Do
Loop

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 "ΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜ"


Durch die Speicherung in einem Datenfeld, wurde es mφglich die Bilddaten kompakt und όbersichtlich zu speichen. Die einzellnen Character όber: " chr(15); ch(17)" auszugeben hδtte einerseits zu viel Speicherplatz verbraucht und hδtte nicht zu einer kompakten Form gefόhrt. Da ich einen AT90S2313 auf dem Baord verwende war es sehr wichtig, dass der Code mφglcihst Speicheroptimiert ist.

http://img233.exs.cx/img233/1042/tos1cq.th.jpg (http://img233.exs.cx/my.php?loc=img233&image=tos1cq.jpg)

Und hier das entsprechende Fernsehbild:
http://img233.exs.cx/img233/6550/dscn4181640x4805gf.th.jpg (http://img233.exs.cx/my.php?loc=img233&image=dscn4181640x4805gf.jpg)

Motivation das Programm zu schreiben war fόr mich das Ziel eine einfache Bedienoberflδche fόr das Board zu entwerfen, da es sonst sehr umstδndlich ist Bilddaten und/oder Text zu erzeugen, der dann auf dem Bildschicrm auch noch richtig formatiert sein soll. Ein zweiter wichtiger Punkt war, dass dieses Programm die erstellten Daten mφglichst schnell und ohne Umwegezum Mega8 "transportieren" sollte, deshalb habe ich viel Wert darauf gelegt und viel Zeit investiert, um dem Programm eine Funktionierende RS232-Verbindung zum Board zu spendieren. Im Programm kann zwischen allen mφglichen Baudraten gewechselt werden und selbstverstδnflich kann auch ein andere Com-Port verwendet werden.

Ich wόrde mich freuen, wenn jemand das ganze mal testet un dich ein par Rόckmeldungen erhalte.

Download des Bascom-Porgramms und von ToS-Paint auf meiner Website (da etwas groί):
www.free-webspace.biz/update/

MFG Moritz