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)