Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

ich schnall das mit dem Neuwert = TIMER + Wartezeit nicht so Kategorie: Programmierung Basic (von hecktor - 27.08.2005 19:39)

hecktor nutzt:  CC1-M-Unit V1.1

garnicht richtig angefangen und geht schon nicht  , was mach ich falsch? define wiled1                port[1] define waled2                port[2] define schrled3              port[3] define schlled4              port[4] define ventled5              port[5] define pumpled6              port[6] define  schalter1            port[7] define  schalter2            port[8] define  Wert12               word[4]  ' = Byte 7,8 Zwischenspeicher' define  wert1                byte [7]  ' Zwischenspeicher' define  wert1Bit0            Bit [49]  ' für Bit-Handling des byte wert1 ' define  wert1Bit1            Bit [50] define  wert1Bit2            Bit [51] define  Bit81_88             byte [11] ' >>(Bit 81 bis 88)<<' define  FlankeMinpuls Bit    [81]   ' Flankenbit für Minuten-Takt' define  FlankeSekpuls Bit    [82]   ' Flankenbit für 4-Sek-Takt' define  Sekpuls               Bit [83]   ' Bit 4-Sekunden Impuls ' define  Minpuls              Bit [84]   ' Bit Impuls (einmal je Minute)' define  HalbMinpuls          Bit [85]   ' Bit Impuls (zweimal je Minute)' define  Neuwert              word [12] ' (Neuwert für TIMER-Beispiele  ab 11)' define  Wartezeit            word [12] ' (= Neuwert für TIMER-Beispiele  ab 11)' #loop wait schalter2 if schalter2 = OFF THEN goto schritt1 #schritt1 ventled5 = OFF : Wartezeit  = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER > 0 then goto Schrittweiter #schritt2 pumpled6 = OFF : wiled1 = ON : schrled3=ON : Wartezeit = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt3 wiled1 = OFF : schrled3 = OFF :waled2 = ON :  Wartezeit = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt4 waled2 = OFF :wiled1 = ON : schlled4 = ON : Wartezeit = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt5 wiled1 = OFF : schlled4 = OFF :waled2 = ON : Wartezeit = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt6 waled2 = OFF :wiled1 = ON :schrled3 = ON :Wartezeit = 1500 ' x 20 msec  = 30 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt7 wiled1 = OFF : schrled3 = OFF : ventled5 = ON : Wartezeit = 500 ' x 20 msec  = 10 Sekunden' Goto TimerNeuwert if TIMER = > 0 then goto Schrittweiter #schritt8 pumpled6 = ON : wait schalter2 : goto loop #TimerNeuwert                         hier weiss ich nicht so recht weiter, hilfe Neuwert = TIMER + Wartezeit 'Neuwert = 32767 + 32767 '= 65534 das sind – 2)Zulässig ist maximal: Wartezeit = 32767 'x 20 msec  = 10,92.. Minuten     #Schritt if (Schritt = 1) then goto Schritt1 if (Schritt = 2) then goto Schritt2 if (Schritt = 3) then goto Schritt3 if (Schritt = 4) then goto Schritt4 if (Schritt = 5) then goto Schritt5 if (Schritt = 6) then goto Schritt6 if (Schritt = 7) then goto Schritt7 if (Schritt = 8) then goto Schritt8   #Schrittweiter ' if (Schritt = 1) then goto Schritt2   if (Schritt = 2) then goto Schritt3 if (Schritt = 3) then goto Schritt4 if (Schritt = 4) then goto Schritt5 if (Schritt = 5) then goto Schritt6 if (Schritt = 6) then goto Schritt7 if (Schritt = 7) then goto Schritt8     #Ende '

Antwort schreiben

Bisherige Antworten:

Re: ich schnall das mit dem Neuwert = TIMER + Wartezeit nicht so (von Achim - 27.08.2005 20:46)
Re: Wartezeit (von ManfredW - 27.08.2005 20:39)
    Re: Wartezeit (von hecktor - 27.08.2005 21:39)