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) 
  ' Print "Tastenabfrage anpassen!ADC Wert ws=" ; Ws 
   If Ws < 500 Then 
      Select Case Ws 
         Case 400 To 450 
            Tastenabfrage = 1 
            Ton = 550 
         Case 330 To 380 
            Tastenabfrage = 2 
            Ton = 500 
         Case 260 To 305 
            Tastenabfrage = 3 
            Ton = 450 
         Case 180 To 220 
            Tastenabfrage = 4 
            Ton = 400 
         Case 90 To 130 
            Tastenabfrage = 5 
             Ton = 350 
 '        Case Else 
'              Print "Tastenabfrage anpassen!ADC Wert ws=" ; Ws 
      End Select 
      Sound Portd.7 , 400 , Ton                             'BEEP 

   End If 


End Function
(aus dem Beispielprogramm vom RN-Control)

mfg Axi