Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > > moin > > > > > > ich mache gerade erste schritte mit der pro128 > > > (hatte vorher ne c-control unit plus) und wollte > > > einfach beim drücken des tasters (port PF.7) > > > den Port (PF.0)ein und beim loslassen wieder ausschalten. > > > Nur erhalte ich am PF.0 immer nur ein h-signal. > > > im debug modus kann ich feststellen, > > > dass das programm die erste if bedingung immer > > > für wahr hält, egal ob der taster (gegen GND) > > > geschlossen oder offen ist. weis nicht mehr weiter > > > und wäre für jede antwort dankbar. > > > > > > <basic> > > > Sub main() > > > Dim a As Byte > > > Port_DataDirBit(47,0) > > > Port_DataDirBit(40,1) > > > Port_WriteBit (40,0) > > > > > > Lab ein > > > a=Port_ReadBit(47) > > > If a=1 Then > > > Port_WriteBit (40,1) > > > Goto aus > > > End If > > > Goto ein > > > > > > Lab aus > > > a=Port_ReadBit(47) > > > If a=0 Then > > > Port_WriteBit(40,1) > > > Goto ein > > > End If > > > Goto aus > > > > > > End Sub > > > </basic> > > > > Hallo Sönke, > > > > du solltest noch mit PortWriteBit(47,1) den PullUp für den Eingang einschalten. > > > > Desweiteren, hast du in beiden schleifen PortWriteBit(40,1) eines von beiden sollte aber eine 0 haben. > > > > Gruß > > GEMINI1606 > > monin > > danke klappt jetzt hervorragend das mit dem pullup hatte ich vergessen. > > Gruß sönke
