Code:
'Diese Unterfunktion fragt die Tastatur am analogen Port ab
Function Tastenabfrage() As Byte
Local Ws As Word
Tastenabfrage = 0
   Ton = 600
   Start Adc
   Ws = Getadc(7)
   If Ws < 1010 Then
      Select Case Ws
         Case 410 To 450
Tastenabfrage = 1
            Ton = 550
         Case 340 To 380
Tastenabfrage = 2
            Ton = 500
         Case 265 To 305
Tastenabfrage = 3
            Ton = 450
         Case 180 To 220
Tastenabfrage = 4
            Ton = 400
         Case 100 To 130
Tastenabfrage = 5
            Ton = 350
      End Select
      Sound Portd.7 , 400 , Ton                             'BEEP
   End If
End Function
Code:
Taste = Tastenabfrage()
   If Taste <> 0 Then
      Select Case Taste
         Case 1
         'tu was
      End Select
   End If
Was willst du mehr als diese Codeteile (wie sie im Beispielprogramm vorhanden sind)?!? Steht doch alles dabei .. und nach 2 Stunden brauchst du noch net pushen, da ist dein Thread bestimmt noch nicht untergegangen ..

Schönen Samstag
Tobi