Bitte Hilfe bei String empfangen und ausgeben am LCD mit Bluetooth Modul (Bascom)

[Peter (Gast)]

Grüß euch und schönen Abend,

ich habe folgendes Problem:

Gegeben sind zwei Atmega8 an denen jeweils ein BTM222 Bluetooth Modul 
angeschlossen ist.

An dem einen AVR wird eine Spannung gemessen, per Bluetooth mittels dem 
Print Befehl an die Uart geschickt. So weit so gut, funktioniert alles.

Der anderen AVR soll nun die Spannung an einem LCD ausgeben.
Der String wird auch empfangen und ordentlich weitergegeben von dem 
Bluetooth Modul an den AVR. Dies habe ich mit dem Windows Terminal 
überprüft. Dort kommen die Werte super im Sekundentakt an. Genau so wie 
es sein soll.

Dann stehe ich aber an. Das LCD zeigt zwar den Wert an, schreibt aber 
immer weiter und überschreibt die Zahlen. Es wird dann ein WirrWarr an 
Zahlen am Display. Mir kommt es so vor, als wenn der Wert erst langsam 
angezeigt wird und dann wirds immer schneller, das sehe ich weil dann 
das Display immer öfters flackert.

Was kann hier nicht stimmen? Anbei der Code für Bascom.

Vielen Dank
Lg Peter

$regfile = "m8def.dat"
$crystal = 8000000

$baud = 9600

Config Portd.5 = Output
Config Portb.0 = Output
Config Portd.6 = Output
Config Portd.7 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portd.2 = Output

Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portb.0 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.2
Config Lcd = 16 * 2
Cursor Off

On Urxc Onrxd
Enable Urxc
Enable Interrupts

Dim S As String * 1

Cls
Lcd "Hallo"
Wait 1
Cls

Do

Locate 1 , 1
Lcd S

Loop
End


Onrxd:
  S = S + Chr(udr)
Return

[MWS (Gast)]

Was soll denn das sein ?

-> Dim S As String * 1

Ein 1 Byte langer String ?

-> S = S + Chr(udr)

String läuft nach zweitem Aufruf über, wird auch nie gelöscht.

[Peter (Gast)]

ahh,

s = ""

hat gefehlt.

Jetzt scheint es zu funktionieren, danke!

Der String besteht nur im Moment aus einem Byte, werden später mal mehr 
werden.

Danke
Peter