JoyPad mit RN-Mega128Funk
Hallo!
Ich möchte den JoyPad am RN-Mega128Funk über dafür vorgesehenen Wannenleiste JOY anschliessen. Wie soll den so ein Code aussehen, damit die aktuellen Werte der Joysticks und Taster über RS232 ausgegeben werden?
Ich habe es mit BeispielCode von JoyPad probiert, aber irgendwie zeigt es immer die gleichen Werte an, unabhängig davon was ich drücke.
bis dann,
Nico
Unterschiede zwischen M32 und M128 bei ADC?
Hallo!
Ich habe den JoyPad an RN-Control ausprobiert und es funktioniert einwandfrei.
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
Der RN-128Funk scheint auch zu funktionieren.
Deshalb ist meine Frage: Kann es sein dass es bei Mega128 anders programmiert werden muss?
Mfg
Nico