Controller verschluckt 4. Zeichen

[peterfido]

Wenn der Code kleiner wird, dafür aber ein Zeichen mehr ankommt, dann würde ich mal auf Eingangsbufferüberlauf tippen. Es könnte sein, dass durch den LCD Befehl eine Pause mit eingebracht wird. Wie sieht es denn ohne ausgabe auf dem LCD aus? Lässt sich der Eingang evtl per Interrupt abfragen?

[robodriver]

Ja, das Problem bei Bascom ist das man keine Bufferlänge für die RS232 einstellen kann.

Aber peterfido hat recht:
Das "schreiben" auf dem LCD nimmt generell sehr viel Zeit in Anspruch. Es kann sein das er durch das lange schreiben dann ein Zeichen am RS232 verschluckt.

Also probiers doch mal mit dieser Schleife:

Do 
   B = Inkey(#4) 
   If B <> 0 Then Print #4 , Chr(b) 
Loop

Ach ja, und tu uns mal den gefallen: Teste das ganze doch auch mal mit längeren Zeichenketten. Mit 10 Zeichen am Stück oder so. Dann sieht man sowas auf einem Blick obs immer das vorletzte Ist oder immer das 4. und immer jedes 4. oder ob der Fehler immer in unregelmäßigen Abständen auftritt.
Also ruhig mal mit 10 Zeichen und 11 und 12 und 13 und so probieren.

Gruß Robodriver

[AVRbrauns]

Ersteinmal vielen Dank für eurer Bemühungen.

Wenn ich das LCD Display nicht anspreche, dann reagiert der Controller viel schneller.

Folgendes kann ich dann übertragen, aber auch hier sind noch Fehler vorhanden. Das kann doch net sein oder ?
Wir haben mittlerweile auch schon eine 2. Platine versucht, aber bei dieser tritt der gleiche Effekt auf.
Ist der Quellcode an sich schlecht oder liegt es an Bascom ?


start1 start1
starte1 start1
rrrssstttt rrrsstt
123456789ab 123458b
123456789abc 123458bc
123456789abcdefghijkl 123458behkl

[robodriver]

Hm, also der Fehler scheint doch recht unregelmäßig zu kommen.

Vielleicht schauen wir nochmal kurz auf die Hardware:
Bitte miss mal die Spannung am MAX232 Baustein nach. Vielleicht reichen die Pegel nicht ganz aus.

Und ansonsten würde mir jetzt nur noch eins einfallen:
Schick den empfangenen String mal erst dann zurück wenn er vollständig übertragen wurde (erfordert ein <Enter> am Ende des Strings (chr10 und chr13):

dim str as string * 15
dim Buchstabe as string * 1
str=""
Do 
   B = Inkey(#4) 
   buchstabe = chr(b)
   If b = 13 then
     Print #4 , str
     str = ""
   Else
     str = str + buchstabe
   End If
Loop

Probier dann mit diesem Code nochmal die Zeichenketten die du oben schonmal probiert hast. Wenns dann immer noch net klappt muss es eigentlich an der Hardware liegen.

Gruß Robodriver

[peterfido]

Max232 bei USB? Ich nutze für USB den FTDI und habe bei 57600 keine Probleme. Der Fehler muss irgendwo anders sein. Evtl mal die Hardware überprüfen und die Kondensatoren an der Versorgunsspannung nicht weglassen.

[robodriver]

Hm, das angesprochene Board hab ich hier leider noch nicht gefunden.
Und da ich in einer Schaltung auch Daten über USB übertrage und das ganze über FT232 --> MAX232 läuft, dachte funktioniert das hier genauso (oder halt über den FTDI)
Irgend eine Wandlung muss drinne sein, denn im Programm spricht er ja RS232 an.
Und da ist immer das Problem das der Controller mit TTL-Pegel arbeitet aber RS232 immer erst auf den +12/-12V Pegel gewandelt werden muss.
5V ist für RS232 ein undefinierter zustand. Desshalb ist es immer wichtig das die 12 Volt vernünftig erzeugt werden

[AVRbrauns]

Also wenn das vion Interesse sein könnte, wir haben dieses Board:
http://<br /> <a href="http://www.s...=162</a><br />

[robodriver]

okay, das ist ein fetiger USB treiber. Welcher genau steht leider nicht drinne. Aber offensichtlich wird dort mit keinen echten RS232 Pegeln sondern nur mit den TTL Pegeln gearbeitet. Also meine Vermutung ist damit schonmal zunichte.

Aber ich habe gesehen dass das Board auch noch eine echte RS232 Schmittstelle mit echten Pegeln hat (MAX232).
Kannst ja mal versuchen diese an deinen PC anzuschließen und das ganze nochmal zu versuchen.


Bitte vergiss aber nicht mal das von gestern 15:39 Uhr mal um zu setzen. Denn damit müsste es eigentlich dann funktionieren. Wenn nicht muss es ein Hardware fehler sein.