Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Port funktioniert nicht Kategorie: Programmierung Basic (von Grex - 14.01.2009 10:05)
Grex nutzt:  Open-Micro
Hallo Forum, ich habe da ein Problem mit der Programmierung von zwei Ports.
Hier einmal der "simple" Code:



--- Definiere Ports OpenMicro --------------------------------------------------------

define RS232             PORT[1]
define portDrucklose     PORT[4]
define portDruck         PORT[5]
define portTaster        PORT[6]



' --- Definiere Variablen ----------------------------------------------------------------------
define varCounter            byte[1]        ' Counter f├╝r Pause



' --- Voreinstellung der Hard- & Software ----------------------------------------------
' -1 = Ein/On; 0 = Aus/Off

portDruck = -1                                ' Port auf Ausgang schalten
portDrucklose = -1                          ' Port auf Ausgang schalten

portDruck = 0                                 ' Startposition
portDrucklose = -1                          ' Startposition

varCounter = 0

' --- Hauptschleife -------------------------------------------------------------------------
#Schleife
portDruck = 0
portDrucklose = -1
if portTaster = -1 then goto Schleife1
goto Schleife



' --- Wenn Taste gedr├╝ckt ist dann... -------------------------------------------------------
  #Schleife1
  portDrucklose = 0                             ' Port 4 ausschalten
  portDruck = -1

  varCounter = 0
             For varCounter = 0 to 10          ' enspricht ca. 4 Sekunden
                 If portTaster = 0 then goto Schleife
                    Pause 20                        ' entspricht 0,4 Sekunden Pause (Faktor mal 20ms)
             NEXT varCounter


  portDruck = 0
  portDrucklose = 0


  #Schleife2
  If portTaster = -1 then goto Schleife2



goto Schleife                               ' Zur├╝ck zur Hauptschleife



end                                             ' Programmende




Das Problem:
Soweit funktioniert alles. Wenn man die Taste gedr├╝ckt h├Ąlt, und das Programm eigentlich ├╝ber die ForNext Schleife das "portDruck" und "portDrucklose" auf AUS bzw. 0 setzten soll funktioniert das nicht. Anstatt es auf null zu setzen ist auf unerkl├Ąrlicher Weise "portDruck" auf EIN/-1 und "portDrucklose" auch auf EIN/-1. L├Ąsst man die Taste los, springt er normal zur Hauptschleife.
Ich frage mich wo der hinspringt wenn die Taste gedr├╝ckt bleibt. Normalerweise m├╝sste der da aus der Schleife (ForNext) herausgehen und im Porgramm weiterarbeiten - macht er aber nicht wirklich.


Kann mir dazu jemand helfen?

Danke.
lg grex

 Antwort schreiben

Bisherige Antworten:

Re: Port funktioniert nicht (von grex - 25.01.2009 19:46)
Re: Port funktioniert nicht (von ManfredW - 14.01.2009 22:20)
Re: Port funktioniert nicht (von Robby - 14.01.2009 15:03)