4-fach Dipschalter 1Led

[for_ro]

Hallo Malte0815,
hiermit
PortC = 1
schaltest du nur den PullUp von PortC.0 ein. Mach es mal so:
PortC = 15
das schaltet die PullUps von PortC.0 - PortC.3 ein.

Ich würde die Abfrage so machen:

Dim Dips As Byte

Do
   Dips = PinC And &b0000_1111   'du willst ja nur die unteren 4 Pins
   If Dips = 15 Then
      LED = 1
   Else
      LED = 0
   End If
Loop

Edit: Ich hatte übersehen, dass die Dip-Schalter gegen GND schalten. Ist ja klar, mit PullUps.