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:
Beispiel für den Sender: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
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







Zitieren


Lesezeichen