Hi,
ich wollte texte von einem µC zum anderen übertragen, war auch kein Problem. Nun wollte ich das ganze noch über Längere Strecken ohne nerfige Kabel machen und hab mir einfach mal ein Funkset gekauft.
Also habe ich den TX des einen Microcontrollers mit dem Eingang des Senders verbunden und den RX des anderen µC mit dem Ausgang des Empfängers. Nun habe ich den Sender-µC mit dem Bascome Befehl "print" einfach eine 1 übertragen lassen und den Empfänger-µC mit dem Befehl "inkey()" aud die 1 reagieren lassen, in dem eine Led angeschaltet werden sollte.
Doch aus irgend einem Grund Funktioniert es nur mit in 1 von 100 übertragenen Siganlen. Wie kann ich das ändern ?
So hier sind noch ein Paar Infos die man vieleicht benötigt:
Sender-/Empfänger:
868 Mhz
Reichweite beträgt max. 200m
Senderleistung unter 10mW
Ich benutze Antennen die ich aus alten W-lan Routern Ausgebaut habe ca. 8 - 15 cm lang.
Link zur beschreibung hier.
Beispiel Code für den Empfänger:
Code:
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
$baud = 300
Portc.5 = Output
Dim X As Byte
Do
X = Inkey()
If X = 49 Then
Portc.5 = 1
Else
Portc.5 = 0
End If
Loop
End
Beispiel für den Sender:
Code:
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
$baud = 300
Do
print "1"
wait 5
Loop
End
Danke für Eure Hilfe
Lesezeichen