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
Lesezeichen