Bascom und RS485 - Probleme mit dem senden
Hallo,
ich habe mir auf meinem Steckbrett folgendes aufgebaut:
Mega16 mit 16Mhz und RS485 Treiber an UART, PD2 ist die Enabled Leitung vom RS485 Treiber. Am Mega hängt noch ein 16*2 LCD
Mega8 mit 10Mhz und RS485 Treiber an UART, PD2 ist die Enabled Leitung vom RS485 Treiber
beide Treiber sind wie http://www.elektronik-projekt.de/con...5bus_small.gif
hier beschrieben angeschlossen.
Nun möchte ich mit Bascom vom Mega8 aus einen "Befehl" an den Mega16 senden. Ich habe mir die Beispiele von SNAP angesehen und versucht, das ganze auf meine Hardware zu übertragen. Das ganze klappt leider nicht. Nun habe ich erstmal versucht, mit einfachen Print und Input Befehlen eine Verbindung der beiden controller herzustellen.
hier ist der code vom Mega8 :
Code:
$regfile = "m8def.dat"
$crystal = 10000000
$baud = 9600
Config Portd = Output
Portd.2 = 1 ' RS485 Treiber auf senden
Do
Print "Hallo" ;
Wait 1
Loop
und hier der code vom Mega16 :
Code:
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
Config Portd = Output
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Dim Test As String * 5
Portd.2 = 0
Cls ' Clear the LCD display
Cursor Off
Do
Inputbin Test
Locate 1 , 1
Lcd Test
Loop
es kommt jedoch nichts auf dem display an. kann mir jemand helfen bitte ?
mfg Kay
