Kuriosität? 2313-Pin wird durch alles high

[Mike (Gast)]

Hallo Leute,ich habe da ein kleines problem. Bei diesem quelltext macht
alles (loses stück draht, mein fingernagel ect) mein pind.5 aufhigh. es
erscheint also eine 1 auf dem display...die versuchsschaltung ist auf
einer geätzten platine und wurde semi-proffessionell hergestellt,daran
sollte es niht liegen

$regfile = "2313def.dat"
$crystal = 4000000

Config Portd = Input


Dim A As Byte
A = 0
Cursor Off Noblink
Cls

Do
A = 0
If Pind.5 = 1 Then A = 1
Locate 2 , 1
Lcd A


Loop

_temp1 = 1
!rCall _write_lcd



was mache ich falsch, hab schon 3 stunden probiert, bis ich darauf kam,
daß jedes bißchen d.5 high macht...

[thkaiser (Gast)]

Ich würde mal sagen, daß es daran liegt, daß der Eingang sehr hochohmig
ist. Nimm einen Widerstand (1...100K) und verbinde PD5 und Masse mit
diesem Widerstand. Dieses Verhalten ist übrigens völlig normal.

[Mike (Gast)]

habe 220,470, 1k und100k probiert...er reagiert nicht mehr auf meinen
fingernagel,aber auch nicht auf das anlegen der externen  spannung...
wie müßte denn im bascom quelltext das genau konfiguriert werden?