Druckbare Version
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
Irgent etwas muss im Programm falsch laufen - Was?Code:
$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
Tobias
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
Sorry,
da bin ich noch nicht so fit.
Köntets du mir mal den gesamten Code zeigen
$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
in Zeile6 erhalte ich auch in dem von dir erstellten Code einen Fehler
Config Print0 = Portd.2 , Mode = Set
welche Version von Bascom hast denn??
Version 1.11.7.7
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
Danke, ich evrsuchs mal!
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.