So, den JoyPad an Buchse LCD des RN-128Funk angeschlossen, und folgendes Code eingegeben:
Code:
' ---------------RN-Mega128Funk übliche ------------------

$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)

Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk

' ---------------------------------------------------

Config Portf = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc   '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

  If Pinf.5 = 0 Then Print #2 , "Joystick 1 wird runter gedrueckt!"
  If Pinf.6 = 0 Then Print #2 , "Joystick 2 wird runter gedrueckt!"
  If Pinf.7 = 0 Then Print #2 , "Taster 1  wird gedrueckt!"
  If Pinf.8 = 0 Then Print #2 , "Taster 2 wird gedrueckt!"

  Wait 2
Loop


End
Und es funktioniert einwandfrei!!!