Pollin 16080 Touch mit ATMEGA32 und BASCOM

Zitat:
-------
#Autor: allu (Gast)
Datum: 13.11.2009 19:15

Bleib erstmal bei 8 Mhz, dafür sind die Zeiten der Displayansteuerung
ausgelegt. Langsamer gehts immer, schneller muß man probieren. Demnächst
möchte ich auch einen Mega32 mit 16 Mhz verwenden und dabei die
Ansteuerzeiten anpassen.

Ein Quarz ist für die Displayansteuerung nicht notwendig, aber sehr
empfehlenswert, Stichwort: serielle Schnittstelle.

Bei 8 Mhz-Quarzen verwende ich 27pf.
------------------------------------------------------------------------ 
-----

OK, dann reicht zum ansteuern aber jetzt erst mal 'ohne' Quarz. Soblad 
es geht und der Quarz da ist wird er eingebaut.

Wie hast Du Dein Display mit dem Atmega32 zusammengeklebt? Schon
mit dem gleichen Schaltplan, oder? Hast Du eine Schaltung mit passendem,
funktionierendem Code?

(Sorry für das teils- Doppelposting, aber sonst weiß ja keiner in diesem 
Thread -- <was bisher geschah>

Gruß
Thomas

Den Touch habe ich aktuell noch gar nicht angeschlossen, meine 
Widerständchen hängen noch auf der Platine im freien rum, ich wollte 
eigentlich einfach einmal einen Text ausgeben.

Ich kann mir nicht vorstellen dass beide meiner Displays defekt sind, 
dennoch zeigen beide etwas anderes an. Das Eine Zeigt Streifen, das 
Andere zeigt bei Kontrasterhöhung so 8 kleine Kästchen mit 
"grauverlauf"...?!

Wahnsinn? Nein gerade nur Verzweiflung und leider keine Funktion.

Für Heute ist Ende mit experimenten. Aber Morgen gehts weiter!

Gruß
Thomas

Im Unterschied zu deinem Schaltplan hab ich einen 20k Poti zwischen Pin 
2 (+5V) und 17 (VEE) gehängt, der mit dem Schleifer an Pin 3(V0) 
hängt.So stehts auch im Datasheet des 16080.

(Mir ist aufgefallen, dass ein kleinerer Wert als 20k einen schlechteren 
Kontrast gibt.)
Danach hab ich erstmal im Hauptprogramm alle Subprogramme ausser 
Initialisierung auskommentiert, um zu sehen, ob der Reset wenigstens 
läuft.
Danach hab ich nur Highs auf dem Display ausgegeben, dann Lows, dann 
Hex55 (Strichel) usw... Immer mal wieder am Kontrast drehen, sonst 
entgeht einem schnell was!!

ich hoffe, das hilft dir...

Habe leider erst Morgen die Hardware wieder in Griffweite, dann wird 
getestet. Danke schonmal - und ich melde mich!

Gruß
Thomas

Hi Allu,

ich denke inzwischen es muss sich bei mir um ein Hardwareproblem 
handeln.
Meine Testplatine habe ich durchgeprüft und sollte funktionieren, aber 
Ihr kennt das ja... Es schleichen sich gelegentlich die 
"interessantesten" Fehler ein.

In meinem Fall warte ich jetzt auf die neue Pollin Lieferung und dann 
gehts weiter. Denke dass das Display einen Defekt hat (nicht sicher aber 
könnte sein)

Ich melde mich sobald es Neues gibt.

PS: Das Display wäre der Hammer, hab gerade 100te von Ideen was man 
damit so alles anstellen könnte - es fehlt jetzt nur noch der erste 
Schritt (ein erstes Lebenszeichen)

Gruß und guten Start in die Woche!
Thomas

ANHANG:
Testaufbeu und die interessante Anzeige des Displays.
[schön mit vielen, vielen Brücken und Streifenrasterplatine]

...und die Rückseite

hab schon lange keine Lochrasterprojekte mehr durchgeführt und muss 
sagen, es gibt doch nichts spannenderes als ein trockenen Rotwein, 
gediegene Musik und ein schönes Elektronikprojekt.

@Allu: schwarze, kleine EMV-Tüte und Display wie auf Photo.

@Sven & Allu :-)
Könnt Ihr mal Euren "minimal-aber-funktionierenden", ersten Code posten?

So, die neuen Displays sind noch nicht da.

Ich habe jetzt ein verwirrendes Ergebniss. Eventuell könnt Ihr damit 
etwas anfangen weil es bei Euch auch mal so war?!

Das Display Streift jetzt unschön von oben nach unten, innerhalb von 
ca.0,5sekunden endlos durch.

|--------|
|░░░░░░░░| <- Streifen (unkontrolliert und ungewollt)
|        | saust immer von oben
|        | nach unten
|        | durch das Display etc.etc.
|--------|

mehr tut sich nicht.

Den aktuellen Source habe ich mal angehängt.
Die Ports passen mit meiner Verdrahtung überein:

Daten = D0-D7
Controll ist Port C

Rs Alias 5
Rw Alias 4
E Alias 3
Cs Alias 1
R Alias 0

- JTAG ist disabled (im BASCOM Progrämmle unter manueller 
Programmierung)
- ADCSRA habe ich abgeändert zu ADCSR
- Hab aktuell noch ein 10k Kontrastpoti drin, so wie es aber aktuell tut 
ist das nicht das Problem.

Ohje,ohje
Gruß
Thomas

auf welcher Frequenz bist du denn mit dem Atmega?
Versuch mal weniger, das geht immer; sieht wie´n Timing Problema aus...
Werd mal mein Display rauskramen und versuchen, das Richtige falsch zu 
machen :-)

Bezug;
Init_gc_mode:

Data &H00 , &H07                                  'Die nächsten 7
Data &H00 , &H12                                  'Befehle an GC senden
Data &H01 , &H76
Data &H02 , &H17
Data &H03 , &H4F
Data &H08 , &H00
Data &H09 , &H00
Data &H00 , &H32

Hab mal bißchen gefummelt!
Stell mal deinen Character-Pitch (ßH01) auf H77 anstatt 76, dann hast du
->8dots pro 1byte<- gesendete Daten.Ist auch schöner beim Programmieren.

Daraus ergibt sich ein "Number of Characters"(ßH02)von 19dez.,also H13!
((Hn = 2 bis 256) - 1)
Versuch mal.
Wenn ich bei mir die NumofChar zu hoch einstelle, erscheint irgendwann 
auch nur ein Balken, weil er die Daten nicht über die gesamte Höhe 
zieht...        Rest sieht soweit gut aus...

Guten Abend Sven,

leider ergab der Tipp keine Änderung am Ergebniss.
Ich muss wohl auf ein neues Display warten.

Hast Du genau das Display mit dem ATMEGA32 am laufen?

Da ich Anfänger im ATMEGAen bin, jetzt mal eine sehr doofe Frage:
Zum testen der Lauffähigkeit meines Controlers wollte ich gerade am 
freien PORTC.7 eine LED drankleben und diese mit BASCOM ein oder auch 
mal ausschalten. PORTC.7 = 0 -> Theoretisch ja logisch AAABER: Tut 
nicht, PORTC.7 wird nicht 0. ???

Gruß
Thomas

@allu:
Jo, meins läuft auch (bis jetzt) auf 16MHz kommt halt nur auf Timing und 
die Busy-wait Routine an...
Hatte am Anfang nur zum Probieren auf 1MHz geschaltet..

@Thomas:
Hast du nach dem Umschalten von PC7 mal ne Endlosschleife gesetzt??

Hi und erstmal vielen Dank für die Unterstüzung!

Also ich hab meinen ATMeg32 auf 8MHz internen Takt,  damit am XTAL1 und 
XTAL2 nichts dran (auch desshalb weil mein Quarz noch mit den neuen 
Displays in Lieferung ist).

Das mit dem Baud-Tipp klingt logisch, wurde entfernet - aber immer noch 
kein Lebenszeichen.

Ich sehe Du, Allu hast einen 100k Kontrastpoti drinne. Ich einen 10k. 
Wenn ich bei mir den Kontrast aber stelle, kann ich von 'ganz blass' bis 
'ganz dunkel" einstellen. Sollte das nicht reichen? Oder ist das bei mir 
eine nur scheinbar korrekte Funktion?

Aktuell habe ich etwas den überblick verloren. Ich werde mir Morgen die 
komplatte Schaltung noch einmal zu Gemüte führen (jedes Raster, jeder 
Pin und jeder Luftspalt) danach kommt der Code nochmals dran.

Sollte dies nicht zum Erfolg führen, werde ich bis die neuen Displays 
kommen, schonmal die Schaltung nach genau dem 'jetzt neuen 
Allu'-Schaltplan anfertigen, damit ich mit Sicherheit ein Lebenszeichen 
erwarten kann. Das wäre jetzt wirklich gut um sicher zu gehen ob das 
Display OK ist.

Das mit der Test-LED an PORTC war mein Fehler, das klappt schon, danke 
für den Tipp Sven!

Diese Kontrast-Einstellung ist teilweise ne feinfühlige Sache, ab und zu 
triffst du den "richtigen Punkt" nicht. Wie ich oben schon schrieb; 
besser nen Poti mit min. 20k nehmen!!

Wusste nicht dass das so empfindlich ist, ich kenne noch die "alten 4x20 
Zeichen Displays" da war das kein Problem ;)

Wird Erldigt > 20k rein ;)

Die jeweils 'zweiten' auf dem Flachband hängen bei mir in der Luft. 
Jetzt wo Du das schreibst, macht es wirklich Sinn die auf Masse zu 
hängen. Danke für den Tipp, wird bald möglichst versucht.

Ich hab hier mal noch ein Datenblatt vom 16080er Display,
eventuell habt Ihr das in der Form ja noch nicht. Ich zumindest hatte 
bisher ein 'noch schlechter' ausgeführtes.

Gruß
Thomas

Hi Allu,

kannst Dich ja mal im Forum anmelden, eventuell klappts ja dann.
Ich würd Dir auch gern mal meine ICQ zukommen lassen, über PN, falls Du 
das nutzt.

Gruß
und trotz Uploadproblemen 'nen schönen Abend
Thomas

Ratlos ......  geht auch angemeldet nicht mehr ...

Seltsam, bei mir gings vorhin ja noch. Kommt eventuell auf die 
Dateierweiterung drauf an?!

Das bekommen wir schon hin ;-)

Habe mal alle Unterlines entfernt ---- großer Woodoo-Zauber --- ich 
glaube selbst nicht dran --- egal --- jetzt werden die Dateien 
angezeigt.

Die Version 7 zeigt auf der Startseite einen Text an, so ist leichter zu 
sehen, ob was geht.

Gruß Alex  (alias allu)

Noch ein Datenblatt, jetzt zum Display-Controller LC7981

ICQ ist ein "Messenger", also ein Programm um sich von 'Mensch vor PC' 
zu 'Mensch vor PC' direkt "Echtzeit" per Tastatur zu unterhalten. Wenn 
man sich bei ICQ anmeldet bekommt man eine ICQ Nummer, die dann 
sozusagen die Zugangsnummer ist um im ICQ-Netzwerk erreichbar zu sein. 
Im ICQ Programm kann man dann seine Bekannten oder Freunde hinzufügen 
und kann dann wenn diese online sind kontaktieren. Ist relativ bekannt, 
aber keine Schande wenn man es nicht kennt :-)

Ich wollte dir also meine ICQ Nummer via "privater Bordnachricht (PN)" 
hier im Forum zukommen lassen, fals Du ICQ installiert gehabt hättest. 
Aber ist nicht so wichtig, wir haben ja das Forum.

---
Zum Atmel Projekt
---
Du bist fleißig und dir steht ja eine hervorragende Analysehardware zur 
Verfügung wenn ich das richtig interpretiere! Alle Achtung schwärm! 
Was ist das für ein schickes Gerät?

Ich bin mir inzwischen sicher dass das Display defekt ist (100%ig). 
Leider dauern die Pollin-Bestellungen immer ne ganze Weile und ich muss 
noch warten.

Aber dann geht’s wieder rund. Den Erfolg möchte ich sehen, denn ich hab 
hier eine kleine FHZ FS-20 (siehe ELV) Funk-Haussteuerung und möchte 
anstelle des PCs die Beleuchtung und die Heizung mittels dieses 
Projektes vom Wohnzimmer aus gemütlich am Tochdisplay verwalten. Und ein 
weiteres Projekt würde auch schon warten.

Frage: Wenn ich bei Deinem ursprünglichen Schaltplan (den vor dem 
aktuellen) den Quarz mit den Kondensatoren einfach weglasse, hat das 
doch keine Folgen, oder?

Darf man fragen, welche Art von Projekt Du vor hast?

Guten Tag

@Thomas, das ist ein "Intronix Logicport 34 Channel Logic Analyzer", ein 
schönes Teil. Unter www.pctestinstruments.com gibts die Software. Ohne 
Logicport läuft diese im Demo-Mode.

Ab und zu bastele ich an einem Hausmeldesystemsystem mit 8 Slaves und 
einem Master herum. Die Heizung wollte ich auch überwachen. Das 
Touchdisplay soll am Master Anzeige und Bedienung übernehmen.

Die Slaves gibt es schon. Sie verfügen über 5 Meldeeingänge, einen 
1-Wire-Bus, einen Temperatursensor und zwei Schaltausgänge. Das ganze 
läuft per Aufruf vom Master über einen RS485-Bus. Der wohnt aber zur 
Zeit noch als Mega8 auf einem Steckbrett.

@Sven
>Hab mal bißchen gefummelt!
>Stell mal deinen Character-Pitch (ßH01) auf H77 anstatt 76, dann hast du
>->8dots pro 1byte<- gesendete Daten.Ist auch schöner beim Programmieren.

Mein Grund für 23*8 ist die Lesbarkeit. Es bleiben dann 2 „Leerpunkte“ 
zwischen den Zeichen und 3 "Leerzeilen" zwischen den Zeilen. Aber das 
ist Geschmackssache.

Allerdings ist die Auswertung des Touchs auf 23*8 ausgelegt. Die 
Messergebnisse des A/D-Wandlers sind weiter verwertbar. Die Auswertung 
aber wird falsche Zeichenpostionen und damit verbunden falsche 
Rückgabewerte liefern.

Gruß  Alex

Hi Alex,

morgen sind die Displays da. freu
Mal schauen ob ich am Wochenende dazukomme Sie zu testen.

Ich melde mich!

Gruß
Thomas

Hallo Alex,

das Display ist angekommen UND es funktioniert! freude

Das 'alte' ist tatsächlich defekt.

Viele Dank erstmal für Deine Unterstützung, jetzt macht es wieder 
richtig freude zu experimentieren. Als nächsten Schritt, werde ich mich 
mit der Software detailierter auseinandersetzen damit ich auch verstehe 
was gemacht wird.

Dein Logic-Analyser ist wirklich chick, für soetwas wie die 
Displayansteuerung auch perfekt!

Wünsche Du kommst mit Deinem Projekt voran!
[Wenn ich darf, komme ich bestimmt nochmal mit Fragen ;-)]

Beste Grüße zum Wochenende
Thomas

Hallo Thomas,

klasse, dass es mit dem neuen Display funktioniert (mitfreu)!

Um die Programmierung übersichtlicher zu gestalten, bin ich gerade dabei 
das Programm in verschiedene Dateien aufzuteilen. Bis jetzt habe ich die 
Initialisierung, Touch, LCD und Charakter-Tabelle ausgelagert. Nicht 
elegant, sondern nur mit $include als Textdatei.

Fragen, wenn ich helfen kann, gerne. Ich habe auch schon öfters Rat in 
diesem Forum gefunden.

Eine Frage hätte ich doch noch:
Funktioniert der Touch auch, oder verwendest Du nur das Display?

Angenehmes Wochenende, Gruß
Alex

Hallo,

es funktioniert der Touch und das Display bestens!
Der Touch liefert nach der Kalibrierung genau die richtigen Werte 
zurück!

Hast Du es schon geschafft Darstellungen außerhalb von ASCII 
einzubinden, also z.b. kleine Buttons?

Grüßle
Thomas

Nachtrag: Kann ich die Schriftgröße innerhalb einer 'Seite' ändern?

Später soll das mal so aussehen:

-----------------------------
| Licht Wohnzimmer   <    > |   'die Pfeile sollten kleine Button sein
| Licht Büro         <    > |
|                           |
| Garage: offen             |   'Statusabfragen
| Temperatur Bad: 23°C      |   'Die 23°C sollten schön groß sein!
|                           |
|                           |
|---------------------------|
| Hauptmenü    |   Weiter   |
-----------------------------

so wie ich das interpretiere, kann ich mit dem aktuellen Programm immer 
eine Zeile zusammenbauen und dann am Ende komplett ausgeben. Kann ich 
auch wie oben ein Muster im Quellcode generieren und diesen dann 
anzeigen?
Also dass ich immer einen Bildschirm wie oben gestalte (egal ob ASCII 
oder Bild)?

Nach dem Motto
Zeile 1 = ---------------------
Zeile 2 = blblblblblblbblblblblb
Zeile 3 = blubblubblub
Zeile 4 = usw...

lcd_schreibe_jetzt_alle_zeilen()

Gruß
Thomas

Hi Thomas,

meine Sonderzeichen habe ich  in der Tabelle Tabchr (jetzt in 
RomTabs.txt) mit untergebracht, wie z. B. Ohm, Grad Celsius, ein Häkchen 
und einen Radiobutton (oder wie das Ding auch immer heißt). Etwas Platz 
ist noch vorhanden.

Nein, bisher gibt es nur eine Schriftgröße.  Kleine Pfeile könnte man 
noch in die Tabchr packen (Zeichenraster ist 7-breit und 8-hoch, nicht 
gerade viel).

Warum überhaupt ein Raster und eine Form-Tabelle?.
Der Display-Controller ist unflexibel, ohne Raster müsste man jedes 
Pixel einzeln in den Controller schreiben.
Für eine einfache Anbindung des Touchs ans Basic. Weil ich Ketten von 
größer-kleiner Abfragen vermeiden wollte. Die Auswertung (das getroffene 
Rasterkästchen wird berechnet)  dauert etwa 50 Mikrosekunden, dann 
stehen dem Basic Postion-Fein, Position gerastert und der Rückgabewert 
zur Verfügung.

Man kann auch nur ein Zeichen an eine beliebigen Postion ins Display 
schreiben  (Nach unten von 0 bis 79, zur Seite von 0 bis 22, wobei über 
71 nicht sinnvoll ist). Ganze Zeilen sind nicht notwendig

Das Motto „von oben nach unten“ und „lcd_schreibe_jetzt alle_Zeilen()“ 
ist eine gute Idee, aber nicht im Programm enthalten. Ursprünglich 
wollte ich die Bildschirmmasken ins Rom packen und von da aus laden. 
Aber das war mir für meine ersten Versuche zu unübersichtlich.

Naja, mit Software kann man immer fast alles machen, fragt sich nur, 
wie groß ist der Aufwand. Und jeder hat so seine Ideen. Die wirft man am 
besten alle in einen Topf, rührt um und realisiert die sinnvollsten 
davon.

Im Moment bin ich gerade am überlegen, wie man einen Linie- oder 
Box-Befehl basteln könnte.

Die aufgeteilte Version ist angehängt. Alle Dateien müssen sich zum 
Compilieren im gleichen Ordner befinden.

Gruß
Alex

Hi Alex,

ich hab mal die Dateien mit Trennlinien ein bischen getunt
(Das ist zwar nichts Besonders aber erhöht die Lesbarkeit beim 
programmieren)

Eventuell kannst Du damit was anfangen.

Ich denke es reicht auch vollkommen wenn mit ASCIIs gezeichnet wird. 
Persönlich muss ich keine "grafischen" Buttons haben, eine Linie wäre 
natürlich perfekt zum Buttons malen.

Die Raster und Form-Tabelle ist perfekt so, finde ich gut zu handeln.

Das Display macht einen rießen Spaß!

Gruß
Thomas

Hi Alex,

ich hätte da mal noch ein Frage. Bin gerade dabei mit dem COde zu 
spielen und klappt auch ganz gut soweit. Gelegentlich bin ich etwas am 
raten, aber man kommt durch Versuche meist drauf. Aktuell habe ich mir 
mal eine Testseite auf dem Display gemacht um einzelne Ports ein und 
auszuschaleten - rein aus Testzwecken.

Eine Frage zum Touch-Rückgabewerte-Raster:

1

Dim Lcd_format(192) As Byte

2

Dim Lcd_form_0 As String * 23 At Lcd_format(1) Overlay

3

Dim Lcd_form_1 As String * 23 At Lcd_format(25) Overlay

4

Dim Lcd_form_2 As String * 23 At Lcd_format(49) Overlay

5

Dim Lcd_form_3 As String * 23 At Lcd_format(73) Overlay

6

Dim Lcd_form_4 As String * 23 At Lcd_format(97) Overlay

7

Dim Lcd_form_5 As String * 23 At Lcd_format(121) Overlay

8

Dim Lcd_form_6 As String * 23 At Lcd_format(145) Overlay

9

Dim Lcd_form_7 As String * 23 At Lcd_format(169) Overlay

Wie darf ich mir das Raster genau vorstellen, von welcher bis zu welcher 
Zeile geht die LCD_FORM_0 und die LCD_FORM_7? Das wäre super zu wissen.

Als nächstes bin ich gerade dabei (experimentell) mit den Modulen
http://www.ehomeportal.de/Funk-System-FS20/Bausaetze/FS20-868-MHz-HF-Sendemodul-TX868-75.htm?shop=shop&SessionId=&a=article&ProdNr=68-620-11&t=1597&c=1932&p=1932
und
http://www.ehomeportal.de/FS20-868-MHz-Empfangsmodul-RX868-3V.htm?shop=shop&SessionId=&a=article&ProdNr=68-641-28

meine Wohnlichter zu schalten. Dafür hab ich eine gute Hilfe gefunden 
und bin gespannt bis mir 'die erste Leuchte angeht'

Viele Grüße
Thomas

PS: Würde Dir auch gerne bei was helfen, leider weiss ich als noch 
Beginner nicht bei was :-) g

Hallo Thomas,

ja, es ist schöner aufgeteilt und besser lesbar, danke.

Habe mal zum "Buttons malen" ein paar einfache Zeichen und Pfeile in die 
RomTabs eingegeben (ist angehängt, aber noch ungeprüft). Mit 
„Zeichensatz anzeigen“ kann man die Symbole sehen.

Dim Lcd_format(192) As Byte
Dim Lcd_form_0 As String * 23 At Lcd_format(1) Overlay  usw., usw

192 Byte Gesamtgröße =
(23 Zeichen je Zeichenzeile für den String + 1 für das interne 
Endezeichen 00h von Bascom.)

multipliziert mit

8 Zeichenzeilen zu je 10 Zeilen( Zeile = 1 Bildpunkt hoch).

Das ist halt eine Variante von vielen die das Display bietet. Ich habe 
23 Zeichen je Zeile, mit einer Höhe von 10 Zeilen gewählt. 80 Zeilen 
ergeben  deshalb 8 Zeichenzeilen – Schreiben kann man aber ab jeder 
Zeile (z.B locate Zeile 32, 33, 34 , ...usw.), passt halt nicht mehr ins 
gewählte Touch-Raster. Übrigens werden nur die nächsten 8 Zeilen 
überschrieben. 10 Zeichenzeilen gehen also auch.

Bildlich gesehen liegt unter jedem Rasterfeld ein Speicherplatz in der 
LCD_Form-Tabelle. Wird der Touch berührt, wird X/Y des Rasterfelds 
berechnet und der zugehörige Speicherplatz in LCD_form gelesen.

LCD_form_0 liegt unter der obersten Zeichenzeile 0, Position symmetrisch 
locate_Zeile = 01
LCD_form_7 liegt unter der untersten Zeichenzeile 7, Position 
symmetrisch locate_Zeile = 71

Zu beachten ist noch, dass das Leerzeichen für den Rückgabewert 0h 
steht. Möchte man ein Leerzeichen über den Touch eingeben, muss in die 
Formtabelle ein „_“ eingetragen werden. Für eine Funktionstaste wird nur 
128 addiert.

Beispiel: (1) erzeugt = (128+“1“),(128+“1“),(128+“1“) → 3 Raster breit
    1 liefert eine „1“ zurück

Mehr steckt nicht dahinter. Dinge wie () zum Erzeugen der 
Funktionstasten sind nicht wirklich notwendig. Habe ich mir nur aus 
Tipp-Faulheit und zur besseren Übersichtlichkeit eingebaut.

Gruß
Alex

Danke für Deine Antwort!

Die Pfeilchen sind praktisch, damit kann man richtig schöne Navigationen 
darstellen und der Radiobutton ist auch prima für zum Beispiel "Aktor 
ist EIN oder AUS".

Kommst Du voran mit Deiner Haussteuerung?

Grüßle
Thomas

Hallo Alex,

ich hab gerade ein Problem eventuell hast Du eine Idee:

Ich habe nun meine Sendemodule angekoppelt und kann auch schon 
funkschalten.
Das Problem ist, dass ich zur korrekten "Sendegeschwindigkeit" den 
ATMEGA auf 7372800Hz Takten muss (8MHz gingen zum Test auch aber nicht 
optimal)

damit ist aber der Touch und der Bildaufbau viel zu langsam.

Gibts da eine Möglichkeit, das zu umgehen?
Kann ich wärend des Betriebs des ATMEGA den Takt ändern (nur zum 
Zeitpunkt des Signalaussendens) und danach wieder zurück auf 16MHz?

Gruß
Thomas

Hallo Thomas,

mit meiner Haussteuerung, im Moment garnicht, bin zeitlich im Moment 
etwas knapp.

Habe es gerade mal mit 8 Mhz probiert, der Bildaufbau ist nicht 
sichtbar, dass geht wie immer schlagartig. Bei 16 Mhz werden 4 
Wartezyklen eingeschoben, bei 8 Mhz werden es wohl nur 2 sein. Also ist 
kein grober Geschwindigkeitsverlust zu erwarten - siehe oben Bild 
Ansteuerung 16080.jpg.

Beim Touch sieht das anders aus, der ist jetzt auf 16 Mhz mit 30 
Abfragen/sec ausgelegt. Werfe den Vorteiler halt wieder raus. Der Touch 
verbraucht dann bei 8 Mhz je Sekunde < 30 msec Rechenzeit, da muss man 
nicht wirklich was zurückändern.

Natürlich kann man mit etwas zusätzlicher Hardware die 
Taktgeschwindigkeit umschalten. Die Frage ist, brauchst die 
Rechenleistung von 16 Mhz? Oder soll der Stromverbrauch minimal werden? 
Und für was brauchst Du genau 7372800Hz?

Wie ist das Modul angekoppelt? Zum Beispiel könnte eine IRQ-Routine mit 
ungünstigen (hemmungslosen) Aufrufen den Mega lahmlegen.

Also an den 8 oder 7 Mhz liegt es sicher nicht.

Gruß
Alex


Tim0_isr:
'------------------------------------------------------------------
     Set Portb.0                  ' für Zeitmessung

' Incr Irq_teiler
' If Irq_teiler = 2 Then          ' Vorteiler durch 2 für 16 Mhz
                                  ' ergibt Touchabfrage alle 33 msec
'     Irq_teiler = 0
    Gosub Touch_auswerten

   Incr Ticker
   If Ticker = 3 Then
      Ticker = 0
      If Timer_a > 0 Then Decr Timer_a
      If Timer_b > 0 Then Decr Timer_b
   End If
' End If

   Reset Portb.0                   ' für Zeitmessung
Return

Hallo Alex,

du hast vollkommen Recht, ich brauche die 16MHz eigentlich nicht 
unbedingt und 'könnte' den Vorteiler raus machen, damit die Abfrage bei 
8MHz schnell genug ist.

Das habe ich auch gerade versucht, faszinierender Weise ändert sich 
dabei aber auch etwas bei meiner Sendesequenz?!

Wenn ich den Prescale vom Timer0
[/c]Config Timer0 = Timer , Prescale = 1024

1

abändere, funktioniert meine korrekte Protokollsendung nicht mehr in der richtigen Zeit.

2

3

Bei der Senderoutine wird das verwendet:

4

[c]

5

 Config Timer2 = Timer , Prescale = 64     'Timer for transmiter

6

   On Timer2 Isr_timer2

7

8

       Enable Timer2

9

       Goto Fs20tx_end

Theoretisch dürften die beiden doch keine Gemeinsamkeiten haben?

Wenn ich darf, sende ich Dir meinen Code mal per Mail,
eventuell kannst Du einen groben Fehler erkennen. Ist nicht all zu viel 
zum durchlesen.

Meine Sendemodule müssen das Protokoll eben in einer bestimmten 
Zeitspanne senden. Die funktionieren ähnlich wie der RC5-IR Code.

Gruß
Thomas

Hallo Thomas,  hallo benim,

Mail ist für mich nicht ok. Nichts für ungut, aber mit meiner 
Mailadresse bin ich sehr vorsichtig.

Dafür sind Foren wie dieses hier, transistorNET und ähnliche doch da.

Gruß
Alex

Hallo Thomas,

hmm, schwierig. Dass mit den Timern und Prescalern weiss ich leider auch 
nicht. Der Touch läuft per Interupt, zeitlich gesteuert über den 
Prescaler (Teiler 1024) mit nachgeschaltetem Timer_0 (Teiler 256) → 
28,125 Touchaufrufe/Sekunde bei 7372800 Mhz.

Der IRQ_Teiler ist Software  und verändert außer der Anzahl der 
Touchaufrufe nichts.

Um zeitlich kurze Impulsketten mit einem Mikroprozessor exakt zu 
erzeugen, wird der IRQ für den Touch wohl gesperrt werden müssen. Oder 
den IRQ rausnehmen und den Touch im Abstand von etwa 30 bis 60 msec 
selbst aufrufen, dann bleiben die zeitkritischen Programmteile 
ungestört.

Gruß
Alex

Danke für den Tipp,
aktuell klappt es zwar ganz gut, aber bei Gelegenheit kommt der 
Interrupt raus.

Ich hatte völlig übersehen, dass der Timer2 einen Prescaler von 128 
unterstützt. Timer0 und Timer1 machen das nicht. Aktuell funktioniert 
das senden perfekt.

Gruß
Thomas

@Allu,
Zufälle gibt es manchmal, faszinierend!

Ist ein Projekt welches mir sehr wichtig ist, auch wenn zur Zeit nicht 
so viel Zeit dafür ist. Würde mich freuen wenn es Dir gefällt und Dir 
dort auch mal geholfen wird!

Gruß
Thomas
www.TransistorNET.de :-)

@Alex,

was meinst Du zum rauswerfen der Interruptfunktion für den Touch, würde 
eventuell einiges an Programmaufwand ersparen.

Wärst Du dafür? (Können wir ja zusammen machen)

Gruß
Thomas

Hallo Thomas,

nein, die Touchroutine rauswerfen habe ich nicht gemeint, sondern "Gosub 
Touch_auswerten" nicht mehr per IRQ, sondern regelmäßig selbst aufrufen. 
Wie es jetzt ist, läuft der Touch ohne weiteres zutun, der 
Programmieraufwand würde m.E. eher größer werden.

Die IRQ-Routine möchte ich bei mir nicht rausnehmen, da mir sonst die 
Software-Timer A, B, und noch viele mehr wenn nötig) nicht mehr zur 
Verfügung stehen würden. Außerdem läuft darüber inzwischen die 
Zeitsteuerung zum Datenaustausch mit den Slaves.

Vielleicht wäre das auch eine einfache Lösung für Dein Problem, einfach 
im Interrupt bei Bedarf die Impulserzeugung aufrufen. Wenn es nicht 
länger als  25msec dauert, sollte es ohne Störungen ablaufen 
(vorausgesetzt die 28,125 Touchaufrufe/Sekunde sind noch eingestellt).

Gruß
Alex

... oder probiere mal:
"Disable Timer0" -> Steuerimpulse senden -> "Enable Timer0"  ....

Hallo Alex, das senden klappt bei mir inzwischen hervoragend. Mit dem 
Empfangen happert es aber noch. Unabhängig davon muss ich mir etwas 
einfallen lassen um noch einen Timer zu haben, da ich später auch zu 
einer bestimmten Uhrzeit etwas senden lassen möchte.

Leider reichen meine aktuellen BASCOM Kentnisse noch nicht ganz aus um 
das Programm so umzubauen dass ich einen Timer übrig habe.

Zum Thema Emfpangen von Funksignalen, habe ich Heute eventuell den 
Zugriff auf ein Oszi, dann sieht die Welt eventuell schon wieder ganz 
anders aus


Wünsche Euch ein schönes Wochenende!

Gruß
Thomas

Entschuldigt, dass ich mich (nochmal) einmische.

> Unabhängig davon muss ich mir etwas
> einfallen lassen um noch einen Timer zu haben, da ich später auch zu
> einer bestimmten Uhrzeit etwas senden lassen möchte.

Nur als Tip, ohne Euer Programm zu kennen:

Wie wäre es, einen Timer mehrere Dinge timen zu lassen?

Beispiel:

Ein Timer erzeugt im Zeitabstand von 10 ms Interrupts.

In diesem Interrupt wird:

- der Merker "ms10" gesetzt
- die Variable "hundsek" hochgezählt
- bei Erreichen von 100 husek auf 0 gesetzt und der Merker "neusek"
  gesetzt

Die Mainloop läuft nun im Kreis und fragt die Merker ab. Ist ein Merker 
gesetzt, wird zur entsprechenden Job-Routine verzweigt. Diese löscht 
(resetet) den Merker und erledigt den Job.

Der ms10-Job (alle 10 Millisekunden) kann den Touchscreen abfragen (oder 
Tasten abfragen und entprellen), TimeOut-Zähler für irgendwelche Dinge, 
die sonst per Warteschleife (Wait, Waitms) das Programm anhalten würden, 
herunterzählen, und weitere Dinge überprüfen, für die ein Abstand von 10 
ms akzeptabel ist. Durch das Führen weiterer Zählvariablen lassen sich 
weitere "Zeitscheiben" für zyklische Jobs einrichten.

Der Neusek-Job (alle Sekunde) zählt dann die Uhr einschließlich Kalender 
hoch, wobei sich für Schaltaufgaben die "fortlaufende Zahl" besser 
eignet, für die Anzeige allerdings getrennte Variablen für Sekunde, 
Minute, Stunde, Tag, Wochentag (Mo, Di...), Monat, Jahr, Jahrhundert. 
Bei Bedarf kann der Neusek-Job auch noch auch noch lange TimeOuts 
(Sekundenauflösung) verwalten.

Was meine ich mit "TimeOut"?

Eine Zählvariable (TimeOut-Zähler) wird vom zyklischen Job auf 0 
getestet. Ist sie 0, wird nichts gemacht. Ist sie nicht 0, dann wird sie 
vermindert. Wird sie dabei 0, so wird der entsprechende Job aufgerufen 
oder ein entsprechender Merker verändert. Um einen Timeout zu starten, 
muss die Routine, die ihn braucht, nur die TimeOut-Variable auf den Wert 
der gewünschten Wartezeit setzen. Dann geht's zur Mainloop, den Rest 
übernimmt der TimeOut.

Dies alles bitte nur als Hinweis auf alternative Programmstrukturen 
sehen, wie sie auch in Bascom möglich sind, wenn das Programm 
entsprechend konzipiert.

...

Hallo Hannes,

hmmm, alternative Programmstruktur? Ich sehe einen sauberen 
Programmaufbau im wesentlichen auch so, wie er von Dir oben beschrieben 
wird.

Gruß
Alex

@Allu,

ich lass es mal auf mich zukommen, aber die Displayansteuerung wie Sie 
aktuell (von Dir) ist ist super und klappt wirklich gut.

Ob ich die Timer noch brauche kommt demnächst auf.

Senden wie gesagt funktioniert, empfangen leider noch nicht ;)

Gruß
Thomas

@Thomas,

freud mich, wenn Du was verwenden konntest. Du brauchst einen Timer für 
eine Aktion pro Tag und ich die Uhrzeit, eine Schaltuhr wäre also nicht 
schlecht. Bin gerade am überlegen, wie man  Prozessorquarz, 
IRQ-Frequenz, Touchabfrage, Uhr und meinen seriellen Datenaustausch 
(vielleicht auch Dein Sendetelegramm, wenn Du mir verrätst wieviel Zeit 
es braucht) am geschicktesten zeitlich kombiniert. Habe ich dass richtig 
in Erinnerung, Du verwendest 7,372800 Mhz ?

Mir ist schon nicht klar, wie Du ohne Oszi den Sender zum funktionieren 
gebracht hast, aber auch noch einen Empfänger, der scheinbar strohdumm 
ist und nur Impulse liefert, zusätzlich mit dem Mega32 decodieren 
willst, das wird richtig eng. Da hilft höchstens noch das Zauberwort 
externer Interrupt.

Ich habe mal einen Funksteckdosenempfänger (läuft übrigens einwandfrei 
mit 5V) mit einem Mega8 kombiniert, weil ich was mit der Fernbedienung 
schalten wollte. Zugegeben, das Programm war primitiv und hat nur die 
Codes auf einem LCD angezeigt, aber der Mega8 war immer mit dem Ohr in 
der Luft. Vielleicht wäre ein Empfängerbedienungsmega8 auch eine Lösung. 
Ankopplung z.B. über die serielle Schnittstelle.

Gruß
Allu

Hallo Micha,

probier mal:

####### weiter im Menü ############

Locate_zeile = 61   ' Zur Zeile 6 gehört LCD_form_6
Locate_spalte = 0
'Muster = "01234567890123456789012"
Lcd_string = "  test"
Lcd_form_6 = "  (6 )"   ' LCD_form_6 gehört zur 6.Zeile,
                       'sonst stimmt Text und Schaltfläche nicht überein
Gosub Lcd_write_string

' Muss zum Schluss einmal aufgerufen werden.
' Gosub Lcd_form_aufbau            ' Funktionstasten erzeugen

'########### und zum sprung ###########

Test:

Gosub Lcd_clear                         ' Display löschen
Gosub Lcd_form_clear                    'alte Rückgabewerte löschen

Locate_zeile = 41       ' Zur Zeile 4 gehört LCD_form_4
Locate_spalte = 0
Lcd_string = "  TEST  "  ' Text für Display
Lcd_form_4 = "(6     )"  ' Funktionstaste "5" mit Klammerbreite 
vorbereiten
                           ' Die 5 muss direkt hinter "Klammer auf" 
stehen
Gosub Lcd_write_string                       'Text auf Display schreiben

Locate_zeile = 01
Locate_spalte = 0                     ' Zur Zeile 0 gehört LCD_form_0
Lcd_string = "Zurueck"                ' Text für Display
Lcd_form_0 = "(5    )"          ' Funktionstaste 5 mit der Klammerbreite 
vorbereiten
Gosub Lcd_write_string           'Text auf Display schreiben

Gosub Lcd_form_aufbau            ' Funktionstasten erzeugen

Temp_a = 0                        ' nur für Test

Do

If Touch_meldet = Ja Then

   ' Was getan werden soll, Beispiel:

   Incr Temp_a                        ' Test, um 1 erhöhen und anzeigen
   Locate_zeile = 45
   Locate_spalte = 18
   Lcd_string = Str(temp_a) + "  "
   Gosub Lcd_write_string

   Touch_meldet = Erledigt

   End If

Loop Until F_taste = _menue                 ' Rückkehr ausgewählt
Gosub Auswahl                               ' Auswahl aufbauen
Return                                      '.. und zurück

Gruß
Allu

Hallo zusammen,

anbei eine erweiterte Version für Bascom und und den ATMega8. Das 
Programm läuft auf der Schaltung von Benedikt. Umlaute und einige 
Sonderzeichen sind jetzt direkt erreichbar. Dünne() und dicke[] Rahmen 
für Tasten lassen sich automatisch erzeugen (allerdings zeigt mein 
Display unschöne Streifen bei zu vielen Balken).

Alles in den gleichen Ordner packen, dann sollte Bascom den .bas 
fehlerfrei übersetzen.

Das Programm lässt sich zum Testen des Displays und des Touchs verwenden 
und bietet Routinen um in Bascom Display und Touch einzubinden.

Gruß
Allu

Hallo und ein erfolgreiches, glückliches neues Jahr Zusammen!

Deinen Code werde ich gleich mal ausprobieren, Alex. Apropos: Das senden 
und Empfangen klappt nun hervorragend. Keine Probleme mehr. Jetzt geht 
es nur noch um ein chickes Displaydesign :-)

Viele Grüße und bis bald
Thomas

Diesen guten Wünschen kann ich mich nur anschließen und wünsche 
ebenfalls allen ein frohes neues Jahr, Glück und Gesundheit.

Thomas, schön das Deine Funkübertragung so gut funktioniert. Ich bin 
immer noch am Display basteln. Inzwischen gibt es paar neue Funktionen 
(Bilder oben) und einen Autorepeat für die Touchtasten. Die Uhr ist noch 
in Arbeit.

Leider zeigt das Display bei hellem Hintergrund dunkle Streifen.

Gruß
Alex

Wow, das sieht ja prima aus.
Ist das der Code von oben?

Werde ich heute mal noch anschauen.
Wie erstellst Du die Buttons? Bisher habe ich die immer von ASCII-Hand 
gemacht.

Gruß
Thomas

Edit: Ahhh, ich verstehe, die Klammern werden automatisch in einen 
chicken Rahmen übersetzt. Das ist ja super!

Jetzt hätte ich eine wichtige Frage:
Da ich bereits schon viel "Menügefusel" gemacht habe und nicht nochmal 
alles ändern möchte am bestehenden Projekte. Könntest Du mir sagen, 
welche Parts ich updaten muss, damit ich auf Deiner aktuellen Version 
bin?

Gruß
Thomas

Hallo Alex,

ich habe mir den Code mal genauer angeschaut und habe die Änderungen 
gefunden :-)

Die Sache bei mir ist, dass ich den Touch ganz ohne Timer abfrage. Ich 
packe bei einem Menü in jede Do-Schleife ein "Gosub Touch_auswerten" und 
greife so mit voller Brutalität ohne Timer auf eine Tastenaktion zu.

Das aber auch nur damit mir meine Timings vom Sende und 
Empfangsprotokoll passen. Das FS20 Protokoll ist da sehr empfindlich und 
ich benötige den Timer1 für das Empfangen (Captureport) und den Timer2 
für das Senden. Leider funktioniert somit die Sache mit den aufgeteilten 
Interrupts bei mir nicht, da das ja nur der Timer 1 kann.

Sehe ich das richtig?

Den Timer 0 habe ich bei mir komplett frei. Eventuelöl kann ich damit 
dann meine Uhr und ähnliches realisieren.

Gruß
Thomas

PS: Was meinst Du?

Jetzt kommt nochmal eine Frage:

Das "Hauptmenü" bzw. 'Auswahl:' besitzt wie ich das sehe Maximal 8 
Auswahlpunkte, die mit:

1

_kalibrieren Alias 1 + 48 + 128                             'Auswahlpunkt 1

2

_setup Alias 2 + 48 + 128                                   'Auswahlpunkt 2

3

_delete Alias 3 + 48 + 128                                  'Auswahlpunkt 3

4

_touch_werte_anzeigen Alias 4 + 48 + 128                    'Auswahlpunkt 4

5

_menue Alias 5 + 48 + 128                                   'Auswahlpunkt 5

6

_auswahl_6 Alias 6 + 48 + 128                               'Auswahlpunkt 6

7

_zeichensatz_anzeigen Alias 7 + 48 + 128                    'Auswahlpunkt 7

8

_fs20_senden Alias 8 + 48 + 128                             'Auswahlpunkt 8

ausgewertet werden.

Wie stelle ich es nun auf eine einfache Art an, meinen Untermenüs 
ebenfalls solche Auswahlpunkte zur Verfügung zu stellen? Bisher habe ich 
in meinen Untermenüs immer mit den X und Y Koordinaten gearbeitet um zu 
Erreichen, dass bei Betätigung eines Buttons das Ziel aufgerufen wird. 
Das ist aber recht aufwendig zu schreiben und ergibt einen riesen 
Quelltext.

Wie kann demnach eine einfache, ordentliche Abfrage weiterer Button aus 
einem Untermenü gemacht werden? Ist die 'Select Case' Anweisung mit 
vorigem Buchstabenvergeben im LCD_Form_x das wie Du es machst?

Viele Grüße
Thomas

Warum arbeitest Du nicht mit laufenden Menüpunktnummern? Diese kannst Du 
als Index auf die Texte nutzen und auch zum Verzweigen auf die Handler.

...

Klappt! :-)

Es wird so langsam ein Schuh draus.

Hallo Thomas,

zuerst zur letzten Frage nach den Menüpunkten.

> Das "Hauptmenü" bzw. 'Auswahl:' besitzt wie ich das sehe Maximal 8
> Auswahlpunkte, die mit:

> _kalibrieren Alias 1 + 48 + 128                    'Auswahlpunkt 1
  ... usw ...
>_fs20_senden Alias 8 + 48 + 128                     'Auswahlpunkt 8
> ausgewertet werden.

Nein, es sind viel mehr möglich, nämlich maximal 184. Genau so viel wie 
es kleine Touchtasten gibt (23 Spalten * 8 Zeichenzeilen). Im 
Testprogramm kann man das schön mit Touchtest und Texteingabe mal 
probieren.

Nur um die Möglichkeit zur freien Texteingabe zu behalten, gibt es die 
"Funktionstasten", o.k., ungünstige Wortwahl. Da passiert aber weiter 
nichts, als das von Lcd_form_aufbau das erste Zeichen nach der Klammer 
inklusive der Klammern mit dem (Zeichenwert + 128 = Rückgabewert) 
überschrieben wird.

Die Rückgabewerte werden in einem Array gespeichert, man kann genauso 
gut die Werte direkt zuweisen, z.B. : Lcd_format(29)= 1. Um die Eingabe 
und das Positionieren zu vereinfachen, können die einzelnen Werte auch 
in Form einer Textzeile direkt zugewiesen werden. Bascom verwendet wie C 
eine 0 als Textendezeichen, deshalb hat das Array 24 * 8 
Speicherstellen.

Dim Lcd_format(192) As Byte
Dim Lcd_form_0 As String * 23 At Lcd_format(1) Overlay
Dim Lcd_form_1 As String * 23 At Lcd_format(25) Overlay usw.

Die kleinen Folientasten liegen, flächenmässig betrachtet, dann genau 
über den Textzeichen, wenn die Pixelzeilen
Locate_zeile          01,11,21,31,41,51,61,71 Verwendung finden.
Passend dazu Lcd_form_0 ,1 ,2 ,3 ,4, 5 ,6 ,7 für die Rückgabewerte.

> Wie stelle ich es nun auf eine einfache Art an, meinen Untermenüs
> ebenfalls solche Auswahlpunkte zur Verfügung zu stellen? Bisher habe ich
> in meinen Untermenüs immer mit den X und Y Koordinaten gearbeitet um zu
> Erreichen, dass bei Betätigung eines Buttons das Ziel aufgerufen wird.
> Das ist aber recht aufwendig zu schreiben und ergibt einen riesen Quelltext.

Eben um die Programmierung nicht in endlose X/Y-Abfragen ausarten zu 
lassen, gibt es ja die Aufteilung in 23*8 kleine Tasten und die Tabelle 
mit den Rückgabewerten. Es funktioniert in allen Menüebenen mit 
vollkommen unterschiedlichen Rückgabewerten (sprich Tastenbelegungen). 
Vielleicht schaust Du Dir nochmal meinen Bascom-Quelltext an, da gibt es 
nirgendwo eine Koordinatenabfrage, nur die Auswertung von 
Rückgabewerten. Und ein Beispiel für eine Möglichkeit die Menüs zu 
wechseln, ist auch enthalten

In der Variablen F_Taste (Folien-Taste) wird der Rückgabewert 
zurückgegeben, der zu der Fläche auf dem Display passt. Mit dem 
dargestellen Zeichen selbst hat das überhaupt nichts zu tun. Kommt eine 
0 zurück, ist für diese Taste kein Rückgabewert eingetragen worden. Bei 
einem Menüwechsel muss man natürlich zuerst alle Rückgabewerte löschen 
und die neuen Rückgabewerte eintragen. In jedem Menü können die gleichen 
Rückgabewerte oder auch ganz andere Rückgabewerte verwendet werden - 
solange der Vorrat reicht.

Als Rückgabewerte empfehle ich die Ascii-Zeichen 0 bis 9, A bis Z
und a bis z zu verwenden. Sind eben einfach einzugeben.

Für die Auswertung des Rückgabewerts gibt es viele Möglichkeiten, ob 
„Select Case F_taste“, If F_taste = xyz then .., oder eine andere 
Abfragemöglichkeit, dass ist eben Geschmackssache.

Ich hoffe, es hilft weiter.
Gruß
Alex

Im Grafikmode - ja. Eine Möglichkeit, grob:

8x8 einstellen, Fonttabelle "um 90 Grad drehen". Die Adressberechnung 
muss dann angepasst werden, sodass die Chr-Bytes von links nach rechts 
ins Display geschrieben werden.

Gruß  allu

.             Normal:
-BBBB---  < 1.Pixelzeile
-B---B--
-B---B--
-BBBB---
-B---B--     bis
-B---B--
-BBBB---
--------  < 8.Pixelzeile
^      ^      Gedreht:
1. bis 8.
Pixelzeile

kolli schrieb:
> Jo also einfach den "Buchstaben" drehen, soweit klar.

Von "einfach" habe ich nichts gesagt. Du schreibst doch selbst:

> Klar das dann alle Werte neu berechnet werden müssen ....

Das beschreibt den Arbeitsaufwand recht gut. Durch das Drehen des 
Displays verschiebten sich die Adressen für die Zeichenzeilen, die 
Initialisierung des GLCD-Controllers und die Fonttabelle muß angepasst 
werden. Oder willst Du die Drehung per Programm im ATMega jedesmal neu 
berechen?

Das Programm Nur_text.bas ist für 23 Zeichen je Zeile ausgelegt. 
Schreiben kann man damit bis zu 10 Zeichenzeilen. Mit Touchprogramm sind 
es 8 Zeichenzeilen, damit die Folientasten dazu passen.

> mit $include bekomm ich dann die font8x8 rein
> Ja aber wie ruf ich dann aus der font8x8 auf? Weil er greift ja auf die
> tabchr Daten zu.

Über die Tabelle-font8x8 "tabchr:" schreiben und das alte tabchr: 
auskommentieren.

Ein Beispielprogramm habe ich leider nicht.

Gruß  allu

Kevin schrieb:
>  .... würde
> ich gern einzelne Pixel an oder aus schalten. Ich denke das wird am
> besten gehen wenn man Write_2_Byte ein bisschen umbaut, oder täusche ich
> mich da?

"Write_2_Byte" bedient das GLCD direkt. Soweit ich das Datenblatt des 
LC7981 verstanden habe wird immer zuerst das Instruction-Register 
(Befehl) ausgewählt und dann der entsprechende Datenwert (Daten) 
geschrieben. Die Routine schreibt also zuerst den Inhalt von "Befehl" 
und dann Inhalt von "Daten" in den GLCD-Controller.

Da gibt es also nichts zu ändern, vielmehr kannst Du die Routine für 
Deine Zwecke verwenden. Befehl und Datenwert eintragen und Write_2_Byte 
aufrufen. Von Bascom aus würde ich das so probieren,

im Bascomteil am Programmanfang:
Dim Command as Byte
Dim Datenwert as Byte

Im Assemblerprogramm direkt vor "Write_2_Byte:"
Zum_glcd:
      Loadadr Command, X
      LD  Befehl, X
      Loadadr Datenwert, X
      LD  Daten, X

Write_2_Byte:
      usw ....

Werte bestimmen und in "Command" und "Datenwert" eintragen und
mit "Gosub Zum_glcd" ausgeben.

Gruß allu

Hallo Kolli,

zum KS0108 kann ich nichts sagen. Muss es den unbedingt gedreht sein? 
Wäre es auch eine Möglikeit 2 Bereiche nebeneinander anzuzeigen? Zum 
Beispiel 10 Zeichen 3 Abstand und dann wieder 10 Zeichen. Quasi 2 
Tabellen nebeneinander.
Oder 3 Tabellen: 7 Zeichen, 1 Abstand, 7 Zeichen, 1 Abstand, 7 Zeichen
Das könntest Du mit dem Programm machen, so wie es ist.

Gruß  allu

Hallo,

also beim KS0108 liegen die Datenbyte's 90° "gedreht" im Speicher - 
bezogen auf das Display also senkrecht.
Mit etwas Anpassung sollte es also möglich sein mit den Fonts und 
Displayroutinen ein LC7981 im hochformat zu betreiben.

Sascha

Kevin schrieb:
> Hallo,
>
> danke schonmal für die Hilfe, aber irgendwie versteh ich bei dem
> Datenblatt nur kauderwelsch. Kann mir vielleicht jemand ein wenig hilfe
> geben?
> Ich werde nicht schlau daraus welchen Befehl ich schreiben soll, wie ich
> die Position setze und wie ich den Pixel an/aus schalte.

Befehle 0eh und 0fh...

>
> Ist für mich alles noch neuland.

Alle verfügbaren Befehle in Kurzform auflisten, um etwas mehr Übersicht 
zu erhalten und alle Befehle auf einen Blick zu sehen. Dann die Details 
der Befehle nachlesen. Notfalls auch mal etwas ausprobieren, wenn sich 
der Sinn beim Lesen nicht erschließt.

1

Zusammenfassung des Befehlssatzes des LCD-Treibers LC7981

2

des Pollin-GLCDs DG-16080-11 von Datavision:

3

4

00h: Einstellung der Betriebsart

5

01h: Zeilenhöhe und Zeichenbreite im Textmodus

6

02h: Anzahl Zeichen bzw. Bytes pro Zeile

7

03h: Teilerwert für Display-Multiplexing

8

04h: Cursorposition im Textmodus

9

10

08h: Startadresse für Anzeige Low (Scrolling)

11

09h: Startadresse für Anzeige High (Scrolling)

12

0ah: RAM-Zeiger Low

13

0bh: RAM-Zeiger High

14

0ch: RAM schreiben

15

0dh: RAM lesen

16

0eh: Pixel löschen

17

0fh: Pixel setzen

>
> Danke
>
> Grüsse Kevin

...

> Kennt jemand die Berechnungsroutine für das lower und upper Byte, oder
> kann mir jemand helfen?

Wie wäre es, sich Seite 15 des Datenblattes mal genauer anzusehen? Dabei 
den Druckfehler ignorieren, der sich da eingeschlichen hat, vertausche 
"Display Pattern" und "Character-Code" und die Tabelle ergibt Sinn.

Und dabei nicht vergessen, dass eine RAM-Zelle nicht einen Pixel 
enthält, sondern eine Gruppe aus 8 Pixeln. Dann sollte es Dir möglich 
sein, jede Pixelgruppe des Displays exakt zu adressieren. Die 
Adressierung des Pixels innerhalb der Gruppe ist ja Bestandteil des 
Befehls.

...

> Leider verstehe ich das nicht.

Überleg' mal...

Ein Byte sind 8 Pixel (oder Dots), diese liegen waagerecht 
nebeneinander.

Eine Pixelzeile hat 160 Pixel. Nun rate mal, wieviele Bytes man braucht, 
um eine Pixelzeile mit Pixeln zu füllen.

Und genau so viele Adressen weiter beginnt die nächste Pixelzeile.

Du bestimmst also die Adresse, indem Du erstmal die Nummer der Zeile mit 
der Anzahl der Bytes je Zeile multiplizierst und dann die waagerechte 
Position (in Achter-Blöcken betrachtet) dazu addierst. Nun hast Du die 
Adresse für das RAM, also für die Achtergruppe von Pixeln. Den 
eigentlichen Pixel in dieser Gruppe selektierst Du anschließend mit dem 
Parameter im Befehl 14 oder 15.

Um das zu verstehen, reicht eigentlich das Mathematikverständnis der 
Grundschule. Da ist keine höhere Mathematik dabei...

Wenn Du immernoch Probleme hast, dann nimm ein Blatt Millimeterpapier, 
zeichne die Displaygröße (160x80) sowie die Pixelgruppen (Bytes) ein und 
nummeriere sie durch (Adressen). Vielleicht fällt es Dir dann leichter, 
die (eigentlich recht einfachen) Zusammenhänge zu verstehen.

...

Hallo,
ich experimentiere momentan auch mit dem Display von Pollin.
Der Textmodus klappt super, auch Rahmen werden um die Buttons 
gezeichnet.

Hast du es jetzt hinbekommen ein Pixel zu setzen wo du es möchtest?
Ich komme gerade nicht weiter :(

Ich habe mal den Code angehangen mit dem ich teste.

Gruß MaXX

Hallo MaXX,

packe mal die LCD16080_2.txt und die LCD1600_1.bas in deinen Ordner und 
probiere mal damit. Testweise wird der 1., 2. und 8.-Pixel gesetzt.

Wofür ein neues Assemblerprogramm Write_pixel? Meiner Meinung nach liegt 
dort der Fehler.

Gruß  allu

Hallo Alex, DANKE !! :)

Das Pixel setzen funktioniert bestens! Kann man den ASM-Code irgendwie 
einkürzen??

Ich wollte mir die Funktion Pset(x,y) und Line(x1,y1,x2,y2) basteln.
Ich habe etwas getestet und bin auf die Werte in der Excel-Tabelle 
gekommen.

Hier der Code dazu:

1

Dim V As Byte

2

Dim W As Byte

3

Dim X As Byte

4

5

Dim W_to As Byte

6

W_to = 255

7

8

For V = 0 To 7

9

If V = 7 Then W_to = 126

10

   For W = 0 To 255                                         'W_to (23 out) '1.Zeile==> 23*7 (0..22=23)=190px

11

   Waitms 1

12

      For X = 0 To 6

13

         Command = &H0A                                     ' Befehl: RAM-Zeiger Low

14

         Datenwert = W                                      ' Zeichen 0..22

15

         Gosub Zum_glcd                                     ' In Display-RAM schreiben

16

17

         Command = &H0B                                     ' Befehl: RAM-Zeiger High

18

         Datenwert = V                                      ' Segment 0..7 + w_to = 126 !

19

         Gosub Zum_glcd                                     ' In Display-RAM schreiben

20

21

         Command = &H0F                                     ' Befehl: Pixel setzen

22

         Datenwert = X                                      ' Pixel 0-6 ! (7)

23

         Gosub Zum_glcd

24

      Next X

25

   Next W

26

Next V

Dieser Code füllt das LCD komplett mit Pixel.

Jetzt frag ich mich wie ich aus der Tabelle eine Formel hinbiege in der 
ich auf die x und y Koordinaten schließen kann?! *überleg..*

Gruß
MaXX

Hallo Chrix,

freud mich, dass dein "Pixeln" klappt. Die NOPs in der GLcd-Ansteuerung 
sind für einen Prozessortakt bis etwa 20Mhz ausgelegt. Die 
Geschwindigkeit jedoch bestimmt im wesentlichen das GLcd.

Zu deiner Frage:
> Kann man den ASM-Code irgendwie einkürzen??

Antwort: Sehr wahrscheinlich. Aber, Gegenfrage:  Wozu ?

Gruß Alex

Hallo,
ich habe jetzt die Formeln zusammengebastelt, die man benötigt um 
einzelne Pixel mit Koordinaten (x,y) zu setzen. …allerdings nur in 
Excel!

(Falls jemand Interesse daran hat bzw. damit weiter kommt => siehe 
Anhang)

Man kann nicht alles in eine Formel packen. k.A. wie es 
geschwindigkeitstechnisch aussieht. Höchstwahrscheinlich wäre es besser 
die Formeln in ASM umzusetzen?!

Hat jemand Ideen?

Gruß
MaXX

Ich muss das jetzt (offtópic) einfach mal los werden, Ihr seid echt 
spitze. Es macht richtig Freude, zusammen auf einem Forum Ideen 
auszuarbeiten. Sorry, dass ich länger nicht aktiv war in dieses Thread, 
aber mir fliegen die Termine um die Ohren :-)

Viele Grüße
Thomas

Hallo,
ich habe die Bestimmung der Koordinaten fertig, vorerst in VBA.

Nur zur Pixelbestimmung, ist dieser Code doch schon sehr umfangreich!
Sieht jemand eine Möglichkeit hier etwas zu optimieren?
bzw. eine ganz andere Herangehensweise?

Gruß
MaXX

(EXCEL mit VBA-Programm zum testen im Anhang)

1

'===================================================================================================

2

'---[P_Set - Funktion für Pollin 16080 ]------------------------------------------------------------

3

'===================================================================================================

4

Sub P_set(ByVal X1 As Byte, ByVal Y1 As Byte)

5

6

    Select Case Y1

7

    '---[Sonder 1]---------------------------------------------------------------

8

        Case 11: 'W = =KÜRZEN(R47/7)+((T47-43)*24)+240 'X=R47+(((T47-43)*24 + 240)*7)-(R48*7)-0

9

                If X1 < 112 Then

10

                   S1 = 240

11

                   S2 = 0

12

                   S3 = 240

13

                   V = 0

14

                Else 'W=KÜRZEN(R52/7)+((T52-43)*24)-16 'X=R52+(((T52-43)*24 + 000)*7)-(R53*7)-112

15

                   S1 = 0

16

                   S2 = 112

17

                   S3 = -16

18

                   V = 1

19

                End If

20

                GoSub SonderFall

21

        '---[Sonder 2]---------------------------------------------------------------

22

        Case 22:   'W =KÜRZEN(R25/7)+((T25-S1)*24)+S3 'X=R25+(((T25-S1)*24+S1)*7)-(R26*7)-S2

23

                If X1 < 56 Then

24

                   S1 = 248 '

25

                   S2 = 0 '

26

                   S3 = 248 '

27

                   V = 1

28

                Else 'W =KÜRZEN(R30/7)+((T30-S1)*24)-S3 'X=R30+(((T30-S1)*24+S1)*7)-(R31*7)-S2

29

                   S1 = 0 '

30

                   S2 = 56 '

31

                   S3 = -8 '

32

                   V = 2

33

                End If

34

                GoSub SonderFall

35

        '---[Sonder 3]---------------------------------------------------------------

36

        Case 43: 'W = =KÜRZEN(R47/7)+((T47-43)*24)+240 'X=R47+(((T47-43)*24 + 240)*7)-(R48*7)-0

37

                If X1 < 112 Then

38

                   S1 = 240

39

                   S2 = 0

40

                   S3 = 240

41

                   V = 3

42

                Else 'W=KÜRZEN(R52/7)+((T52-43)*24)-16 'X=R52+(((T52-43)*24 + 000)*7)-(R53*7)-112

43

                   S1 = 0

44

                   S2 = 112

45

                   S3 = -16

46

                   V = 4

47

                End If

48

                GoSub SonderFall

49

        '---[Sonder 4]---------------------------------------------------------------

50

        Case 54:

51

                If X1 < 56 Then

52

                   S1 = 248

53

                   S2 = 0

54

                   S3 = 248

55

                   V = 4

56

                Else

57

                   S1 = 0

58

                   S2 = 56

59

                   S3 = -8

60

                   V = 5

61

                End If

62

                GoSub SonderFall

63

        '---[Sonder 5]---------------------------------------------------------------

64

        Case 75: 'W = =KÜRZEN(R47/7)+((T47-43)*24)+240 'X=R47+(((T47-43)*24 + 240)*7)-(R48*7)-0

65

                If X1 < 112 Then

66

                   S1 = 240

67

                   S2 = 0

68

                   S3 = 240

69

                   V = 6

70

                Else 'W=KÜRZEN(R52/7)+((T52-43)*24)-16 'X=R52+(((T52-43)*24 + 000)*7)-(R53*7)-112

71

                   S1 = 0

72

                   S2 = 112

73

                   S3 = -16

74

                   V = 7

75

                End If

76

                GoSub SonderFall

77

    End Select

78

79

'----[01...10]---------------------------------------------------------------------

80

    If Y1 >= 1 Then

81

        If Y1 <= 10 Then

82

            S1 = 1

83

            S2 = 0

84

            S3 = 0

85

            GoSub NormalFall

86

        End If

87

    End If

88

89

'----[12...21]---------------------------------------------------------------------

90

    If Y1 >= 12 Then

91

        If Y1 <= 21 Then

92

            S1 = 12

93

            S2 = 8

94

            S3 = 0

95

            GoSub NormalFall

96

        End If

97

    End If

98

99

'----[23...32]---------------------------------------------------------------------

100

    If Y1 >= 23 Then

101

        If Y1 <= 32 Then

102

            S1 = 23

103

            S2 = 16

104

            S3 = 1

105

            GoSub NormalFall

106

        End If

107

    End If

108

'----[33...42]---------------------------------------------------------------------

109

    If Y1 >= 33 Then

110

        If Y1 <= 42 Then

111

            S1 = 33

112

            S2 = 0

113

            S3 = 1

114

            GoSub NormalFall

115

        End If

116

    End If

117

'----[44...53]---------------------------------------------------------------------

118

    If Y1 >= 44 Then

119

        If Y1 <= 53 Then

120

            S1 = 44

121

            S2 = 8

122

            S3 = 1

123

            GoSub NormalFall

124

        End If

125

    End If

126

'----[55...64]---------------------------------------------------------------------

127

    If Y1 >= 55 Then

128

        If Y1 <= 64 Then

129

            S1 = 55

130

            S2 = 16

131

            S3 = 3

132

            GoSub NormalFall

133

        End If

134

    End If

135

'----[66...74]---------------------------------------------------------------------

136

    If Y1 >= 66 Then

137

        If Y1 <= 74 Then

138

            S1 = 66

139

            S2 = 0

140

            S3 = 3

141

            GoSub NormalFall

142

        End If

143

    End If

144

'----[76...80]---------------------------------------------------------------------

145

    If Y1 >= 76 Then

146

        If Y1 <= 80 Then

147

            S1 = 76

148

            S2 = 8

149

            S3 = 3

150

            GoSub NormalFall

151

        End If

152

    End If

153

Exit Sub

154

'--[Normalfälle]-----------------------------------------------------------

155

NormalFall:

156

    '---[W]----------------------------------------------------------------

157

    Tmp1 = X1 / 7

158

    Tmp2 = Y1 - S1

159

    Tmp2 = Tmp2 * 24

160

    Tmp2 = Tmp2 + S2

161

    w = WorksheetFunction.RoundDown(Tmp1 + Tmp2, 0)          'w = Tmp1 + Tmp2

162

    '---[X]----------------------------------------------------------------

163

    Tmp1 = Y1 - S1

164

    Tmp1 = Tmp1 * 24

165

    Tmp1 = Tmp1 + S2

166

    Tmp1 = Tmp1 * 7

167

    Tmp2 = w * 7

168

    x = Tmp1 - Tmp2

169

    x = x + X1

170

    '---[V]----------------------------------------------------------------

171

    Tmp1 = Y1 + S3

172

    Tmp1 = Tmp1 * 160

173

    Tmp1 = Tmp1 / 7

174

    V = WorksheetFunction.RoundDown(Tmp1 / 256, 0)

175

Exit Sub

176

'--[Sonderfälle]-----------------------------------------------------------

177

SonderFall:

178

    '---[W]----------------------------------------------------------------

179

    Tmp1 = X1 / 7

180

    w = WorksheetFunction.RoundDown(Tmp1, 0)

181

    w = w + S3

182

    '---[X]----------------------------------------------------------------

183

    Tmp1 = w * 7

184

    Tmp2 = S1 * 7

185

    Tmp2 = X1 + Tmp2

186

    x = Tmp2 - Tmp1

187

    x = x - S2

188

Return

189

End Sub

@tc-maxx
Was hast Du eingentlich genau vor mit diesen Berechnungen ?
Was bedeuten die ganzen Variablen ?
Gehts darum, irgend ein Pixel im Grafikmodus zu setzen/löschen ?
Dann schauts mir etwas zu kompliziert aus. ;)

Hi,
ja mit dieser Funktion sollen mal Pixel gesetzt werden.
Die Variabeln sind die Anpassungen für die beiden Subs Normalfall & 
Sonderfall.

k.A. wie man sonst an so etwas herangeht, ich habe noch keine 
Erfahrungen in diesem Bereich.

Ich benötige aber die Pixel-Setz-Funktion dringend für mein aktuelles 
Projekt mit diesem Display.

Gruß
MaXX

@tc-maxx
also wenn man eine Pixelposition berechenen will, braucht man ja das 
entspr. Byte davon, in dem das Pixel liegt.

Wenn man davon ausgeht, das oben Links 0,0 liegt, sind bei diesem LCD in 
X-Richtung die Pixel innerhalb eines Bytes.
Also nur die X-Achse durch 8 Teilen, und man hat das Byte, dann noch die 
Anzahl Zeilen dazu.

BytePos = Y * 28 + X / 8

Die Pixelposition innerhalb des Bytes bekommt man, wenn man den Rest von 
X / 8 ausrechnet. Und noch umrechnet auf die andere aufsteigende 
Richtung da das 7. Bit ganz links ist.

Hi,
schau dir mal meine Exceltabelle an, wenn es so einfach wäre hätte ich 
nicht so eine große Funktion schrieben müssen.

MaXX

(im Anhang die *.bas mit funktionierender P_Set-Funktion)

@tc-maxx
da versteh ich aber trotzdem nicht so ganz was Du da so rumrechnest.

Willst Du gleich die XY-Werte vom Touch der Pixelsetz-Sub übergeben ?

Ich dachte es geht einfach darum, im Bereich von den 160x80 irgendwo ein 
Pixel zu treffen !

Klär mal auf.


Um ein Pixel zu setzen/löschen, muss man ja erst mal die Cursorposition 
(=RAM-Adresse) setzen, dann entsprechend setzen/löschen mit Befehl 12/13 
(&He, &Hf) die Pixelposition übergeben, das wars dann schon.

Wenn man das Pixel x 70,y 30 treffen will ergibt das RAM-Position:848, 
Bit 6.

Es muss nur noch abgestimmt werden, ob oben Links 0,0 oder 1,1 ist. Bei 
1,1 muss man vor dem Berechnen 1 abziehen :)

kann es sein das du dein Display falsch initialisiert hast?
Betreibst du es wirklich im Grafikmodus??

Ich benutze das Display ebenfalls, und Berechnung ist so wie 'Tiny 80' 
schrieb!

Sascha

Moin,
Jetzt hab ich versucht die Bascom-Lib weiter zu bauen, aber es hängt 
irgendwo :)
Komisch ist aber, wenn statt dem LCD an PortB der ISP hängt, läuft 
zumindest mal das Programm durch :-/

Heut seh ich nix mehr ;)
Deshalb hab ich die Lib und ein Beispiel für Text und eins für Grafik 
angehängt.

Das Problem in der Grafikversion ist, dass bei der ersten For-Schleife 
(Y=20), nur bis 31 gezählt wird, egal wo man anfängt zu zählen, die 
Linie wird auch gezeichnnet, kann man schön erkennen, wenn man ein Wait 
einbaut.

Bei der 2. For-Schleife kommen die Pixel irgendwo am LCD an, aber nur 
die ersten 6, aber die Anzahl stimmt :)

PS:
Das Programm bleibt an diesen Stellen komplett hängen.

allu schrieb:
> Hallo  Chriz,
>
> wenn die Initialisierung noch so ist, wie ich sie eingetragen hatte,
> dann läuft das Display im Grafikmodus. Aufgeteilt in 23 Zeichen pro
> Zeile mit 7 verwendeten Bit pro Byte. Genauer, es sind 22 Zeichen mit 7
> Bit-Breite und und das letzte mit 6 Bit-Breite (7*22 + 6 = 160 Pixel) je
> Zeile.

was soll denn der Mist - im Grafikmodus nicht die volle Bytebreite zu 
verwenden. Und im Grafikmodus gibts auch keine Zeichen pro Zeile.

nutze als:
'Character pitch'       7 => 8 Pixel
'number of Characters' 19 => 20 Byte pro Zeile

dann ergibt sich die Pixelnummer mit einer einfachen UND-Verküpfung mit 
7 aus der X-Koordinate. Die Cursoadresse zu X/8 + Y*20

Sascha

Hallo,
danke für eure Ausführungen, so wie es aussieht habe ich die Kirche 
komplett ums Dorf getragen.. ;)


So sieht’s momentan bei mir aus:

1

2

'(initialisierung wie allu)

3

'==============================================================================

4

'---[P_Set - Funktion für Pollin 16080 ]----------------------------------------

5

'===============================================================================

6

Sub P_set(byval X1 As Byte , Byval Y1 As Byte , Byval P_set_del As Byte)

7

8

   If P_set_del = 1 Then P_set_del = &HFH Else P_set_del = &HEH       ' Befehl: Pixel setzen/löschen

9

10

   Dim Tmp As Integer

11

   Dim Ganz As Integer

12

   Dim Addr As Integer

13

   Dim Rest As Integer                                      'Addr_High

14

   Dim Addr_lo As Integer

15

16

   Addr = Y1 * 24

17

   Ganz = X1 / 7

18

   Addr = Addr + Ganz                                       'Addr = Y1 * 24 + INT( X1 / 7 )

19

   Rest = X1 Mod 7                                          'Rest = X1 Mod 7 =

20

   Addr_lo = Low(addr)

21

22

   Command = &H0A                                           ' Befehl: RAM-Zeiger Low

23

   Datenwert = Addr_lo

24

   Gosub Zum_glcd                                           ' In Display-RAM schreiben

25

26

   Tmp = Y1 * 160

27

   Tmp = Tmp / 7

28

   Tmp = Tmp / 256

29

   Command = &H0B                                           ' Befehl: RAM-Zeiger High

30

   Datenwert = Tmp                                          ' Segment 0..7 ??

31

   Gosub Zum_glcd                                           ' In Display-RAM schreiben

32

33

   Command = P_set_del                                      ' Befehl: Pixel setzen

34

   Datenwert = Rest                                         ' Pixel 0-6

35

   Gosub Zum_glcd                                           ' In Display-RAM schreiben

36

End Sub

Der Datenwert für High kann 0, 1, 2, 3, 4, 5, 6, 7 sein.
Meine Rechnung dafür: Tmp =  Y * 160/7/256

So kommt es aber bei den Sonderfällen in den Zeilen 11, 22 , 43, 54 und 
75 zu Fehldarstellungen.

Wie kann ich das anders berechnen?

@Tiny 80: schön, dass du an der Lib weiterarbeitest ;)
MaXX

@ Chriz X.

wenn du das Display wie oben beschieben für den Grafikmodus 
initialisieren würdest, währe es so einfach ...

   Addr = Y1 * 20 + X1 / 8

   Command = &H0A
   Datenwert = low(Addr)
   Gosub Zum_glcd

   Command = &H0B
   Datenwert = high(Addr)
   Gosub Zum_glcd

   Command = P_set_del
   Datenwert = X1 Mod 7
   Gosub Zum_glcd

Sascha

Wenn ich es mit "Character pitch=8 Pixel" und "number of Characters = 20 
Byte pro Zeile" initialisiere, dann funktioniert der Rest von allu's 
Programm nicht mehr richtig oder?

@allu
ist folgender Abschitt alles was zum initialisieren des LCD gebraucht 
wird?
Wie müßte dies angepasst werden?

1

'----------------------------------------------------------------------------

2

Lcd_initialisieren:

3

'----------------------------------------------------------------------------

4

      ldi  ZL, low(Init_gc_mode *2)

5

      ldi  ZH, high(Init_gc_mode *2)

6

7

      lpm  Temp_1, Z+                                       ' Schleifenzähler

8

      lpm  Temp_1, Z+                                       ' Schleifenzähler

9

'----------------------------------------------------------------------------

10

Lcd_initialisieren_10:

11

'----------------------------------------------------------------------------

12

      lpm  Befehl,Z+

13

      lpm  Daten,Z+

14

      rcall Write_2_Byte

15

16

      dec  Temp_1

17

      brne LCD_Initialisieren_10

18

19

'----------------------------------------------------------------------------

20

Lcd_initialisieren_99:

21

'----------------------------------------------------------------------------

22

      ret

ich sehe zwar nicht was dort zum Display gesendet wird weil das in 
"Init_gc_mode" steht, und Temp_1 nicht initialsiert wird, aber das wirds 
schon sein.

>Wenn ich es mit "Character pitch=8 Pixel" und "number of Characters = 20
>Byte pro Zeile" initialisiere, dann funktioniert der Rest von allu's
>Programm nicht mehr richtig oder?
Ich weis ja nicht welche Grafikfunktionen du aus allu's lib noch 
verwendest, denn seine Initialisierung deutet ja eher auf den Textmodus 
hin.

Sascha

Hat eigentlich schon jemand einen Bascom-Zeichensatz erstellt, den man 
mit include einbindet, der für dieses LCD zu brauchen ist ?
Also alles um 90° gedreht.

allu schrieb:
> @Chrix, hast Du es mit der High-Adresse auch mal so probiert?

Super, so funktioniert's!
Danke!

1

'===============================================================================

2

'---[P_Set - Funktion für Pollin 16080 ]----------------------------------------

3

'===============================================================================

4

Sub P_set(byval X1 As Byte , Byval Y1 As Byte , Byval P_set_del As Byte)

5

6

   If P_set_del = 1 Then P_set_del = &HFH Else P_set_del = &HEH       ' Befehl: Pixel setzen/löschen

7

8

   Dim Ganz As Integer

9

   Dim Addr As Integer

10

11

   Addr = Y1 * 24

12

   Ganz = X1 / 7

13

   Addr = Addr + Ganz                                    

14

15

   Command = &H0A                                     

16

   Datenwert = Low(addr)                               

17

   Gosub Zum_glcd                                         

18

19

   Command = &H0B                                      

20

   Datenwert = High(addr)                               

21

   Gosub Zum_glcd                                         

22

23

   Command = P_set_del                                 

24

   Datenwert = X1 Mod 7                                

25

   Gosub Zum_glcd                                         

26

End Sub

Jetzt noch eine Line-Funktion, habt ihr da auch gleich noch was 
Passendes?
Nicht, dass ich wieder die komplette Kirche ansacke ;)

Gruß MaXX

Hallo,

also im Prinzip hätte alles soweit gepasst mit meiner Lib von gestern 
Nacht, 1. Fehler war, das ich die Zeilenanzahl mit 19 statt mit 20 
berechnet habe.
Warum sich das Programm gehängt hatte, war einfach nur wegen der 
Verkabelung, bzw, hab ich mit den Pullups rumprobiert, und schon gings 
:-D
Das Handy war glaub ich auch ein wenig schuld, das hier gleich daneben 
lag :-/

Angehängt die letzte Lib, und mein BastelTestProgramm.

Um den Touch hab ich mich noch nicht recht gekümmert, deshalb passen die 
Pixel nicht so ganz zusammen.

Tiny 80 schrieb:
> Angehängt die letzte Lib, und mein BastelTestProgramm.

Super Arbeit ! DANKE !

Gruß MaXX

Tiny 80 schrieb:
> Hat eigentlich schon jemand einen Bascom-Zeichensatz erstellt, den man
> mit include einbindet, der für dieses LCD zu brauchen ist ?
> Also alles um 90° gedreht.

Ich habe mal einen 8x8-Zeichensatz konvertiert. (90°)
Leider ziegt mir es nur in der 1. Zeile etwas an.

MaXX

Da wird diese Zeichen-Schreib-Funktion auch eine kleine Optimierung 
benötigen, um mit dem Byte-Layout zurecht zu kommen.
Muss ich mal angucken wie das Original das macht ;)

So, dann schaumamal :)

Mit dem Font von oben, und dieser Lib, und meinem BastelProg, kommt das 
im Bild raus ;)

Bei Lcdat kommt erst die Zeile, dann die Spalte (siehe Bascomhilfe) !
Anders als bei zB. KS0108 geht die Zeile von 1-80 (Pixel), die Spalte 
von 1-20 (Zeichen).

Ich hab aber nicht alle eventualitäten ausprobiert, auch weiss ich nicht 
was passiert, wenn man einen anderen Font als 8x8 verwendet !

mfG

Hi Tiny_80,
danke für deine Arbeit!
Jetzt steht meinem Projekt nichts mehr im Weg :)

Ich konvertiere dann noch ein paar Fonts (90°)

Gruß
MaXX