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
Lesezeichen