Nun dann ist das mit der Tastenanpassung doch relativ einfach.
Ändere mal oben im Code
Code:
Adc_ohne_taste = Adc_ohne_taste - 2 'für Toleranz
in
Code:
Adc_ohne_taste = Adc_ohne_taste - 20 'für Toleranz
Dadurch kann man Toleranzgrenze erweitern, z.B. auch bei Spannungsschwankungen
und dann ändere noch die Funktion Tastenabfrage entsprechend deinen Werten ab. Passend wäre zum Beispiel folgende:
Code:
'Diese Unterfunktion fragt die Tastatur am analogen Port ab
Function Tastenabfrage() As Byte
Tastenabfrage = 0
Ton = 600
Ws = Getadc(0)
' Print "ws=" ; Ws
If Ws < Adc_ohne_taste Then
Select Case Ws
Case 395 To 440
Tastenabfrage = 1
Ton = 550
Case 320 To 370
Tastenabfrage = 2
Ton = 500
Case 240 To 300
Tastenabfrage = 3
Ton = 450
Case 170 To 230
Tastenabfrage = 4
Ton = 400
Case 90 To 130
Tastenabfrage = 5
Ton = 350
Case Else
Print "Bitte Tastenabfrage an Messert ws="; Ws; " anpassen!"
End Select
Sound Portb.0 , 400 , Ton 'BEEP
End If
End Function
Du solltest versuchen diese Codeänderungen zu verstehen, das hilft dir dann bei vielen anderen Dingen weiter. Schlag mal in einem Buch oder der Bascom Hilfe nach der "Select Case -Anweisung" nach, vermutlich wird dir das dann klar werden.
Es wird über einen Spannungsteiler für jede Taste ein etwas andere Spannung ermittelt (das ist der WS-Wert). Diese Werte können ein wenig schwanken ode rbei sehr schwachen Batterien (wenn es unter 7V geht) sich auch verändern. Daher wird durhc die Select Case Anweisung immer ein bestimmter Bereich den tasten zugeordnet. Somt funktioniert die Tastenabfrage nach der Anpassung auch bei Schwankungen sehr gut.
In der Regel muss die Anpassung garnicht erfolgen, bei den hier aufgebauten Board´s hat die eigentlich immer schon gut gepasst. Vielleicht ist dein Netzteil etwas schwach oder aber dein Lötzinn hatte etwas zuviel Flussmittel und dadurch Widerstand etwas verändert oder aber die 1% Toleranzen der Widerstände haben sich ungünstig addiert. Wie auch immer, ist eigentlich nebensächlich, da man es ja per Software nur anpassen muss.
Hoffe alle Klarheiten sind beseitigt
- nun dann mal viel Spaß!
Lesezeichen