Das neue Board - Robotikhardware.de
Das neue Board - Robotikhardware.de
Das neue Board - Robotikhardware.de
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Tausen<strong>de</strong>r = Zahl / 1000Temp = Tausen<strong>de</strong>r * 1000Zahl = Zahl - TempHun<strong>de</strong>rter = Zahl / 100Temp = Hun<strong>de</strong>rter * 100Zahl = Zahl - TempZehner = Zahl / 10Temp = Zehner * 10Zahl = Zahl - TempEiner = Zahl'Nullen vorne entfernenIf Tausen<strong>de</strong>r = 0 ThenTausen<strong>de</strong>r = 10If Hun<strong>de</strong>rter = 0 ThenHun<strong>de</strong>rter = 10If Zehner = 0 ThenZehner = 10End IfEnd IfEnd IfZiffer_digitalanzeige 4 , Einer , 0Ziffer_digitalanzeige 3 , Zehner , 0Temp2 = Hun<strong>de</strong>rterZiffer_digitalanzeige 2 , Temp2 , 0Temp2 = Tausen<strong>de</strong>rZiffer_digitalanzeige 1 , Temp2 , 0End Sub'Sen<strong>de</strong>t EasyRadio Befehl und prüft ob korrekt empfangen'Rückgabe: 0=Erfolgreich 1=FehlerFunction Rn_sen<strong>de</strong>funkbefehl(byval Funkbefehl As String) As ByteLocal Sech As String * 20Local Z As BytePrint Funkbefehl;Waitms 40Sech = ""DoZ = Inkey()Sech = Sech + Chr(z)Loop Until Z = 0'Auf Echo wartenIf Left(sech , 9) = Funkbefehl ThenPrint "ACK";Rn_sen<strong>de</strong>funkbefehl = 0ElseRn_sen<strong>de</strong>funkbefehl = 1End IfEnd Function'Empfängt Datenstring (Holt alles aus <strong>de</strong>m Eingabebuffer)'Rückgabe: 0=Erfolgreich 1=FehlerFunction Rn_empfange_funkstring(dat As String) As ByteLocal Z As ByteWaitms 20Dat = ""DoZ = Inkey()If Z 0 Then Dat = Dat + Chr(z)Loop Until Z = 0Rn_empfange_funkstring = 0End Function'Auf Echo warten