Würde gerne bestimmte LED´s auf tastenabfrage ansteuern also drücke taste x um LED y zum leuchten zu bringen!
Jetzt habe ich keine Ahnung mehr was ich überhaupt gemacht habe, ich glaube das sieht man auch am CODE ..
Habe jetzt die ganze zeit rum probiert jetzt habe ich ein knoten im kopf, hilfe wer super !

THX Dirk

Code:
'*********************************************************************

   $regfile = "m32def.dat"
   ' bei Mega 16 $regfile = "m16def.dat"
   $framesize = 32
   $swstack = 32
   $hwstack = 32
   $crystal = 16000000                                      'Quarzfrequenz
   $baud = 9600

'*********************************************************************
Declare Function Tastenabfrage() As Byte
Declare Sub Led1()
Declare Sub Led2()
Declare Sub Led3()

'Porta.7 = 1
Config Pina.7 = Input                                       'Für Tastenabfrage
Config Portc = Output
Dim Taste As Byte
Config Adc = Single , Prescaler = Auto
'Portc.1 = 0

Do
   'Print " Warte auf Eingabe!"
  ' Wait 10

   Taste = Tastenabfrage()
   If Taste <> 0 Then

      Select Case Taste
         Case 1
            Call Led1
         Case 2
            Call Led2
         Case 3
            Call Led3
        End Select
        Sound Portd.7 , 400 , 500                           'BEEP
   Wait 10
   End If
   Wait 10
   Loop
      End


Sub Led1
     Portc.3 = 1
     Print "LED1 ist an"
   End Sub

Sub Led2
     Portc.3 = 1
     Print "LED1 ist an"
   End Sub

 Sub Led3
     Portc.3 = 1
     Print "LED1 ist an"
   End Sub
Ich weiß sieht ganz schön Besch... aus .!