Ansteuerungsprolbem mit Bascom

[SkySurfer]

Hi,

hatte es schonmal in elektronik Forum gepostet aber ist glaub ich hier besser aufgehoben:

ich habe mir das experimentierboard von xeyon zugelegt, hab aber ein problem die schalter abzufragen.

die beschaltung ist im bild zusehen. display und schalter laufen beide zum teil über den port b.

meine überlegung um die schalter auszulesen war folgende :
pin b2 = 0, pin b1 = 1, pin d6 = 1, dann pin b4 -7 auf 0 abprüfen und entsprechende aktionen ausführen das selbe dann mit pin d6 = 0 pin d7 =1
am schluss dann wieder pin b2 = 0 und pin d7 = 0.

aber das display zeigt dann nur noch zeichensalat an und alle schalteraktionen werden auch ohne drücken ausgeführt..

wo liegt mein fehler ?

Gruß SkySurfer

[Marco78]

Schau doch mal hier: https://www.roboternetz.de/phpBB2/viewtopic.php?t=13531
Es stehen auch nur drei Beiträgen zwischen deinem und dem im Link!
Ob es in Elektronik steht oder hier auch nochmal ändert nicht viel. Die allermeisten schauen überall nach.

Des weiteren fehlt hier noch das Bild zum Schaltplan.
Hilfreich wäre es auch, wenn du deinen kompletten Code noch zeigst.

Sehe ich es richtig, das das LCD wenn noch kein Taster gedrückt wurde ganz normal arbeitet?

[SkySurfer]

hier ist noch mein Programmcode :


Cls
Print "Start"
Home
Lcd "Start"

Config Portb = Input
Do

Config Portb = Output
Home 'cursor home
Lcd Time$
Config Portb = Input 'show the date and time



' Von Display auf Tasten umschalten
Portb.2 = 0
Portb.1 = 1


' Die ersten 4 Schalter auswählen
Portd.6 = 1
If Portb.4 = 0 Then
Print "Pinb.4 gedrückt"
End If
If Portb.5 = 0 Then
Print "Pinb.5 gedrückt"
End If
If Portb.6 = 0 Then
Print "Pinb.6 gedrückt"
End If
If Portb.7 = 0 Then
Print "Pinb.7 gedrückt"
End If
' Die zweiten 4 Schalter auswählen
Portd.6 = 0
Portd.7 = 1
If Portb.4 = 0 Then
Print "Pinb.4 gedrückt"
End If
If Portb.5 = 0 Then
Print "Pinb.5 gedrückt"
End If
If Portb.6 = 0 Then
Print "Pinb.6 gedrückt"
End If
If Portb.7 = 0 Then
Print "Pinb.7 gedrückt"
End If
Portd.7 = 0
Portb.2 = 1
Portb.1 = 0


Loop


EDIT: Tags eingefügt. Bitte immer dran denken (PicNick)