Gast
#55530
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...