Laut Datenblatt ist ein KS0066 Kontroller in dem LCD, das sollte mit den Standard LCD-Libs funktionieren ohne irgend welche Chip-Libs einbinden zu müssen.
Schreib noch mal genau welches RN-Control und LCD Adapter du verwendest und zeig auch das Testprogramm, dann kann man sicher leichter helfen.
Hallo,
da du selbst nicht den Code postest poste ich mal einen:
Und nun schauen wir mal ....Code:'################################################### 'Ein Standard-LCD 4x20 Zeichen mit dem 'RN-LCDStandardAdapter an Port B 'von RN-Control angeschlossen 'rnlcdadapterstdtest.bas ' 'Autor: Frank 'Verwendet wurden: RN-Control & RN-LCDAdapter (robotikhardware.de) 'Weitere Beispiele sind im Roboternetz gerne willkommen! '############################################################## '$programmer = 12 'MCS USB (Zeile weglassen wenn anderer Programmer) ' -------------- RN-Control übliche _____________________ Declare Function Tastenabfrage() As Byte $regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 64 $crystal = 16000000 'Quarzfrequenz $baud = 19200 Config Scl = Portc.0 'Ports fuer IIC-Bus Config Sda = Portc.1 Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung Config Pina.7 = Input 'Für Tastenabfrage Porta.7 = 1 'Pullup Widerstand ein Dim Taste As Byte Dim Ton As Integer I2cinit Start Adc Sound Portd.7 , 400 , 450 'BEEP Sound Portd.7 , 400 , 250 'BEEP Sound Portd.7 , 400 , 450 'BEEP Print Print "**** RN-Control V1.4 *****" Print "Demoprogramm um Zusatzboard RN-LCDAdapter zu demonstrieren" Print ' -------------- Ende RN-Control übliche _____________________ Config Portb.4 = Output 'Spannung an LCD aktivieren Lcdpower Alias Portb.4 Lcdpower = 1 Config Portb.6 = Output Lcd_rw Alias Portb.6 Lcd_rw = 0 'Wait 1 Config Lcd = 20 * 4 ', Chipset = Ks077 Wait 1 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.5 , Rs = Portb.7 'Config Lcdbus = 4 Initlcd Cls Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte Lcd "RN-LCDADAPTER" Locate 2 , 1 Lcd "an RN-Control" Locate 3 , 1 Lcd "beides Bausaetze von" Locate 4 , 1 Lcd "robotikhardware.de" Do Taste = Tastenabfrage() If Taste <> 0 Then Select Case Taste Case 1: Cls Locate 1 , 1 Lcd "Gedrueckt wurde nun:" Locate 2 , 1 Lcd "Taste 1" Case 2 Cls Locate 1 , 1 Lcd "Gedrueckt wurde nun:" Locate 2 , 1 Lcd "Taste 2" Case 3 Cls Locate 1 , 1 Lcd "Gedrueckt wurde nun:" Locate 2 , 1 Lcd "Taste 3" Case 4 Cls Locate 1 , 1 Lcd "Gedrueckt wurde nun:" Locate 2 , 1 Lcd "Taste 4" Case 5 Cls Locate 1 , 1 Lcd "Licht wird umgeschaltet" Toggle Lcdpower End Select Sound Portd.7 , 400 , 500 'BEEP End If Waitms 100 Loop End ' Diese Unterfunktion fragt die Tastatur am analogen Port ab ' Sollte beim betätigen einer Taste kein Quittungston kommen, dann ' muss die Tastenabfrage (Select Case Anweisung in Funktion ) ' an ihr Board angepaßt werden. Widerstandstoleranzen sorgen in ' Einzelfällen manchmal dafür das die Werte etwas anders ausfallen ' Am besten dann den WS wert mit Print für jede Taste ausgeben lassen Function Tastenabfrage() As Byte Local Ws As Word Tastenabfrage = 0 Ton = 600 Ws = Getadc(7) 'Print "ws= " ; Ws If Ws < 1010 Then Select Case Ws Case 400 To 455 Tastenabfrage = 1 Ton = 550 Case 335 To 380 Tastenabfrage = 2 Ton = 500 Case 250 To 305 Tastenabfrage = 3 Ton = 450 Case 180 To 220 Tastenabfrage = 4 Ton = 400 Case 100 To 130 Tastenabfrage = 5 Ton = 350 End Select Sound Portd.7 , 400 , Ton 'BEEP End If End Function
Hast Du auch die JTAGEN Fuse deaktiviert ?
Die benutzt einige Ports von Port C - Welche genau weiss ich jetzt gerade nicht.
EDIT:
Du schreibst ja, das Du Port B benutzt, dann ist das ja nicht relavant.
Ich hab auch schon mal ein 4x20 Zeichen LCD von Reichelt verbaut, das lies sich mit meiner Standard LCD .lib problemlos initialisieren.
Rück doch mal den Code raus, den Du benutzt, dann wird das hier kein Ratespiel.
Hallo und Guten Abend!
erst einmal euch allen vielen Dank für die Hinweise, die letztlich auch zum Ziel führten. Das Testprogramm hefte ich gern an. HEXPLORER hatte mir auch noch ein komplettes Skript geschickt, das ich (auch aus Zeitgründen!)einfach 1:1 in Bascom eingelesen habe und siehe da, es funktioniert. Geändert habe ich daran nix. Warum mein Testproamm von der CD für den RN-Control 1.4 nicht geht, weiß ich nicht. Zwei kleine Probleme hab ich in diesem Zusammenhang trotzdem nicht lösen können. Die Tastenabfrage im Testprogramm funktioniert für die Tasten 1 und 2 nicht. Das werde ich am Wochenende mal genauer nachsehen. Dann geht das Programm nur, wenn ich den USBISP-Dongle, mit dem ich das Programm compiliere und auf den RN-Control 1.4 µC schicke, angeschlossen habe. Ich ging immer davon aus, dass das Programm auf dem µC völlig autark mit dem LCD betrieben werden kann, sobald es sich darauf befindet. Alles andere macht ja wohl auch keinen Sinn??... Wozu brauche ich die Verbindung zum PC / BASCOM-Script ?? Denkfehler? Ich arbeite dran...
Nun bin ich, Dank Eurer Hilfe, ein deutliches Stück weiter und meinem Projekt näher gekommen!
Bis demnächst mit neuen Fragezeichen in diesem Forum(Leider konnte ich erst jetzt antworten, weil ich in meinem Job etwas länger unterwegs war)
rn_lcd_adapter_std_test.bas
Nacht-Grüße aus dem Norden
Peter
Das ist doch schon mal was, schön das es jetzt besser geht.
Kommentiere das erste " $prog &HFF , &HFF , &HDA , &H00 " aus.
Und dann entferne alle übrigen Zeilen " $prog &HFF , &HFF , &HDA , &H00 " innerhalb des Codes, denn wenn überhaupt benötigst du die Fuse-Einstellung ein einziges Mal - beim Programmstart.
Das Tasterproblem würde ich versuchen einzukriesen indem du dir den Wert der zwei betreffenden Taster (WS) per Print auf dem LCD anzeigen lässt. Kommt da nichts an, funbktionieren die Taster vielleicht nicht. Oder die Widerstände sind nicht korrekt.
Wie kommt die Spannung aufs Board?
Wenn du über den USB-Programmer das Board mit Spannung versorgen kannst, dann würde ich diese Spannung abschalten. Und nur den Anschluss am Board direkt mit min 7-14V benutzen.
Ob das mit dem USBISP-Dongle überhaupt möglich ist weiß ich jetzt so nicht - aber ich vermute schon, denn auch hier würde was anderes nicht viel Sinn machen
Viele Grüße
Jörg
Geändert von HeXPloreR (17.10.2014 um 22:30 Uhr)
Das einzige am USBISP-Dongle, das dem Controller mehr helfen könnte als zu stören, ist m.E. die Resetleitung.
Miss mal, ob am Resetpin des Controllers ohne Dongle gegen Vcc und GND ein mitlerer Widerstand gemäß Schaltplan zu messen ist.
Also soweit ich weiß zieht der Pro_grammer den µC nur beim Programmiervorgang auf GND und somit in den Reset. Sonst würde das ganze Programm nicht neu geflasht verwerden können oder auch überhaupt nicht anlaufen. Und der Pro_grammer kann auch danach normalerweise angeschlossen bleiben.
EDIT:Allerdings sollte er auch ohne weitere Probleme entfernbar sein.
Ist das Board selbst zusammen gelötet?
Ist UREF Jumper gesteckt?
Geändert von HeXPloreR (18.10.2014 um 11:53 Uhr)
Hallo Jörg,
das Auskommentieren brachte das gewünschte Ergebnis, der RN-Control, als Fertiggerät beschafft, läuft nun auch ohne Programm-Dongle. Die Brücke UREF ist gesteckt, die Spannung für den RN-Control kommt von einem kleinen Netzeil, 12 Volt. Die Tasten 5, 4 und 3 funktionieren und haben folgende WS-Werte auf dem LCD gezeigt: Taste 5: 1017-100 , Taste 4 : 1017 -181 , Taste 3: 1017 - 257. Die Taste 1: 1017 - 3977 (defekt!?) und die Taste 2: 1017-3297 (defekt!?) konnte ich nicht weiter ermitteln, da muss ich noch recherchieren.
Da nun die Anzeige funktioniert, werde ich nach und nach mein eigentliches Projekt angehen (Schalten von 3 Geräten sekundengenau nach DCF77) .
Ich könnte mir vorstellen, dass ich mich hier sehr bald wieder einfinden werde
Bis dahin mit Dank an Dich für die Tipps und Hinweise!
Wochenend-Grüße aus dem Norden
Peter
Berechtigungen
Zitieren
Lesezeichen