2 mega16 uber sw uart verbinden
hallo,
ich versuche gerade zwei m16 über sw uart zu verbinden.
dazu habe ich den rx auf den tx des anderen gelegt. zusätzlich habe ich die 2mc noch über einen I/O miteinander verbunden. so soll es möglich sein, das der eine über ein high auf der I/O leitung den anderen auffordert etwas zu senden.
soweit so gut.
aber, wenn der eine sendet, kommt bei dem anderen leider nichts an. gesendet wird aber, dass hab ich mit einem max232 schon überprüft.
wiesst ihr was ich da falsch gemacht hab?
MC1 (Empfänger)
Code:
Config Portd.7 = Output
Portd.7 = 0
'empfangspaket von mc1
Dim Paketmc1(7) As Byte
Config Serialin = Buffered , Size = 7
'RS232 Buffer
Open "COMc.2:300,8,N,1,inverted" For Input As #1
Do
Portd.7 = 1
Inputbin #1 Paketmc1(1) ; 7
Close #1
printbin packete(1);7 'hw uart ausgabe
Portd.7 = 0
Loop
End
MC2 (sender)
Code:
Packete(1) = 1
Packete(2) = 2 'Aufforderung von mc2
Packete(3) = 3 'Aufforderung von mc2
Packete(4) = 4 'Aufforderung von mc2
Packete(5) = 5 'Aufforderung von mc2
Packete(6) = 6
Packete(7) = 7 'Aufforderung von mc2
Open "COMB.7:300,8,N,1,inverted" For Output As #1
Do
If Pinb.6 = 1 Then
Printbin #1 , Packete(1) ; 7
Close #1
End If
loop
vielleicht findet ihr was.
mfg
xeus
