Hallo!
Ich habe den JoyPad an RN-Control ausprobiert und es funktioniert einwandfrei.
Der RN-128Funk scheint auch zu funktionieren.Code:$regfile = "m128def.dat" ' Bei Mega 128 " $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 16000000 'Quarzfrequenz $baud = 19200 'Baudrate für Funkmodul $baud1 = 9600 'Baudrate für MAX Open "com2:" For Binary As #2 'Ausgabe über zweite serielle Schnittstelle (MAX) ' --------------------------------------------------- Config Porta = Input Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung Dim Joy1x As Word 'Variablen für Positionen der JoyPad Steuerknüppel Dim Joy1y As Word Dim Joy2x As Word Dim Joy2y As Word Print #2 , "" Print #2 , "**** RN-Mega128Funk ****" Print #2 , "" Start Adc Do Joy1y = Getadc(0) Joy1x = Getadc(1) Print #2 , "Joystick 1 Position: X=" ; Joy1x ; " Y=" ; Joy1y Joy2y = Getadc(2) Joy2x = Getadc(3) Print #2 , "Joystick 2 Position: X=" ; Joy2x ; " Y=" ; Joy2y Wait 2 Loop End
Deshalb ist meine Frage: Kann es sein dass es bei Mega128 anders programmiert werden muss?
Mfg
Nico





Zitieren

Lesezeichen