Ansteuerungsprolbem mit Bascom

[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)