RS485 - brauch dringend Hilfe

[elkokiller]

Hallo,

ich versuche einen kleinen hausbus per Max485 auf zu bauen.
Leider geht bei mir nichts über den Bus.

Den RE und DE Anschluss des Max 485 habe ich an Portd.2 des Atmega 8 angeschlossen und folgenden Code geschrieben

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600




Config Portd.2 = Output                                     ' RS485


Dim I As Byte
Dim Key As Byte



Do



 Portd.2 = 1

 Waitms 10
 'Print A
 Print "Hallo"
 Waitms 10

 Portd.2 = 0

Loop


End

Irgent etwas muss im Programm falsch laufen - Was?
Tobias

[bertl100]

damit klappts.


Config Print0 = Portd.2 , Mode = Set
Config Pind.2 = Output

dann brauchst du nur mehr print oder print0

den Rest macht der compiler

MFg

Bertl

[elkokiller]

Sorry,

da bin ich noch nicht so fit.

Köntets du mir mal den gesamten Code zeigen

[bertl100]

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600


Config Print0 = Portd.2 , Mode = Set
Config Pind.2 = Output



Dim I As Byte
Dim Key As Byte



Do






'Print A
Print "Hallo" ' oder print0 "Hallo"


wait 1

Loop


End

[elkokiller]

in Zeile6 erhalte ich auch in dem von dir erstellten Code einen Fehler
Config Print0 = Portd.2 , Mode = Set

[bertl100]

welche Version von Bascom hast denn??

[elkokiller]

Version 1.11.7.7

[bertl100]

Bei der Version gibt es wahrscheinlich noch kein config print0

Saug einfach die neueste Version runter, dann gehts.
Mehr als 4 KB hast ja sowieso nicht.

MFG

Bertl

[elkokiller]

Danke, ich evrsuchs mal!

[Vitis]

Das ist insgesamt käse ...
Du schaltest die 485 zu früh um.
Das ist das Proble mit fertigen Routinen ala Print
schau mal im Datenblatt unter UTXC, oder unter Stichwort 485
Du musst das txc-bit abfragen bevor du umschaltest, weil sonst durch den sendepuffer des AVR die 485 vor ende der übertragung umgeschaltet wird.