Hi leider funzt der Input bei mir immer noch nicht ich weiss langsam echt nicht mehr was ich machen soll

Code:
$regfile = "m8def.dat"
$crystal = 4000000

Config Portb = Output
Config Portd = Input
Dim I As Integer
Enable Interrupts

Portd = 0


Do
   Portb.1 = 1
   I = Portd.7
   If I = 1 Then
     Portb.1 = 0
   End If

Loop
aber wenn ich jetzt Portd.7 auf Vcc Lege passiert nüx und wenn ich mich nicht teusche ist Pord.7 auf der linken seite der 2. von unten oder nicht ? ?


Mfg Maik