Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Re: tasten reagieren nicht Kategorie: Verschiedenes (von GEMINI1606 - 10.12.2009 12:36)
Als Antwort auf tasten reagieren nicht von sönke - 9.12.2009 22:19
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board
> 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.
>
>
> 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
>


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


    Antwort schreiben


Antworten:

Re: tasten reagieren nicht (von sönke - 10.12.2009 16:24)