Serieller Empfänger mit AVR + BASCOM

Hallo
ich habe jetzt mal ein programm geschrieben das eine Zahl über RS232 empfangen soll und dann auf einem LCD anzeigen.
es funktioniert soweit auch, nur zeigt er eine andere zahl an als ich übergebe.
wenn ich "1" übergebe zeigt er z.b. 192 an. eigentlich zeigt er bei allen zahlen etwas zwischen 192 und 196 an.

hier mal mein BASCOM-Code:

Code:
--------------------------------------------------------------------------------

$regfile = "m8515.dat" 'Mega8515-Deklarationen
$crystal = 4000000
$baud = 1200 'Baudrate der UART: 9600 Baud
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6 , E = Portc.2 , Rs = Portc.0

Enable URXC 'Interrupt URXC einschalten
Enable Interrupts 'Interrupts global zulassen 'Interrupt-Routine setzen
On Urxc Schreiben
Dim I As Byte
Cls
Schreiben:
Cls
I = Udr
Lcd I
Return

End 'end program



--------------------------------------------------------------------------------



Und hier mein Visual-Basic-Programm mit dem ich die Daten übermittle.

Code:
--------------------------------------------------------------------------------

Dim a As Byte

Private Sub Command_send_Click()
a = Text1.Text
Call senden(a, 50) 'aufruf der unterfunktion zum senden
End Sub

Private Sub Form_Load()
MSComm1.InputMode = Binary 'Binaere Datenuebertragung
MSComm1.Settings = "1200, n, 8, 1" '1200Baud, no Parity, 8 Bits Data length, 1 Stop Bit
MSComm1.CommPort = 1 'COM1
MSComm1.PortOpen = True 'oeffnen des Ports
End Sub

Private Function senden(zahl, pause) 'unterfunktion zum senden der bytes
Dim out(2) As Byte '"as byte" muss dastehen weil sonst en fehler kommt
out(0) = 0 'erste zu übergebende zahl
out(1) = zahl 'zweite zu übergebende zahl
MSComm1.Output = out 'ausgabe der zahlen
Sleep (pause) 'pause
End Function



--------------------------------------------------------------------------------



Ich ich verwende das MSComm - Objekt um die daten zu senden. ich weiß nicht ob der fehler am VB-programm oder am BASCOM-Programm liegt. ich hoffe ihr könnt mir helfen.
ich habe es auch schon ohne interrupts probiert (wie auf seite 1 geschrieben). kommt genau das gleiche raus.
muss ich dem µC noch sagen dass es keine parity, 8 databits und 1 stopbit sind?
einen normalen text habe ich auf dem LCD schon angezeigt und das hat einwandfrei funktioniert.

bitte helft mir!!!

Majuz

[Majuz]

Hallo Zusammen

Tut mir leid, dass ich den alten Threat nochmal aufwärme, aber ich hab immernoch das gleiche Problem In den letzten 2 Jahren hatte ich viel mit meinem Studium zu tun, und deshalb blieb der Plotter etwas links liegen, aber jetzt mach ich mal wieder weiter

Ich hab das "UBRR = 25" eingefügt, aber es hat nichts gebracht. Ich hab auch nach der Formel im Datenblatt gerechnet und diese Zahl eingefügt, aber trotzdem Zeigt er nichts richtiges an....

Ich hoffe, ihr könnt mir helfen!!

Majuz

[Vitis]

stimmt auch der crystal wert? also die Taktfrequez des 8515 = 4MHz ?

[Majuz]

Hi

Ja, der Wert stimmt.
Mein größtes Problem ist, dass ich nicht weiß, wo das Problem liegt. Beim VB-Programm oder im µ-Controller.

Majuz

[Vitis]

Bascom hat doch auch ein Terminalprogramm eingebaut,
das kannste auch auf deine Porteinstellungen konfigurieren
und ebenfalls per Tastendruck Zeichen senden.
Die sollten dann wie aus Deinem VB-Programm raus auf dem
Display erscheinen.

Du hast auch keine Main-Loop drinne, schon erkannt?

Lösung:


Enable URXC 'Interrupt URXC einschalten
Enable Interrupts 'Interrupts global zulassen 'Interrupt-Routine setzen
On Urxc Schreiben
Dim I As Byte
Cls

' Mainloop
do
loop
end

' Leseroutine
Schreiben:
Cls
I = inkey()
Lcd I
print I ' <- Es wird ein Echo an den Sender zurückgesendet ... erleichtert das debuggen
Return
end

[Majuz]

Hallo zusammen

ich habe das nun probiert, aber es funktioniert nicht

Wenn ich z.B. die 1 auf der Tastatur drücke Zeit mir das LCD "255" an, und im Terminalprogramm kommt etwas in dieser Richtung "€€€x€x€xþ€xð". Es ist egal, welche Taste ich drücke, es kommt immer genau das gleiche.
Es funktionieren von den Zahlentasten oberhalb des Buchstabenfeldes der Tastatur nur die Zahlen 1,4,5,8,9,0. Bei allen anderen macht er überhaupt nichts. Auch bei den Buchstaben ist es genau das gleiche.

Was könnte das sein? Hat irgendwer eine Idee??

Majuz

[RHS]

@Majuz,

ich denke, Du hast 2 Probleme:

Zum Senden im VB-Programm siehe mal hier: http://www.mikrocontroller.net/forum/read-8-315366.html

Im Bascom-Programm solltest Du noch die Schnittstelle konfigurieren.
Siehe im Handbuch unter "Config Com?".