Antwort auf: hintereinander passieren lassen

Startseite Foren Deutsches LiveCode-Forum hintereinander passieren lassen Antwort auf: hintereinander passieren lassen

#19362
Klaus Major
Administrator

    Hi Gerry,

    hast du das so gemeint mit Code Tags?

    seufz, ein Blick auf meinen vorletzen Post sollte diese Frage beantworten…

    Aber was genau funktioniert denn an dem Skript nicht?
    Und wie lang ist denn Deine “Geschichte”?
    Da Du ja “uhrAktualisieren” jede Sekunde abfeuerst.

    Ich habe mal ein paar Optimierungen vorgenommen, bite auf die Kommentare achten.

    on uhrAktualisieren
    
      ## Immer wichtig, wenn wir mehr als ein oder zwei Sachen auf dem Montor aktualisieren.
      ## Das beschleunigt den Bildschirmaufbau, Gilt BESONDERS für Felder!
      lock screen
    
       revSetSpeechSpeed 270
       put fld "uhr" into zeitwert
       subtract 1 from zeitwert
       put zeitwert into fld "uhr"
       revSpeak fld "uhr"
       add 1 to fld "meineZahl"
       if zeitwert > 0 then
          
          ## Strings, dazu gehören auch die Namen der zu SENDenden Handler, immer in Anführungszeichen!
          send "uhrAktualisieren" to me in 1 seconds
       else
          subtract 30 from fld "meineZahl"
          
          ## DEFAULT-Wert setzen:
          put BLACK into tFarbe
          
          ## KEIN THE bei der Ansprache von LC Objekten! 
          ## Das benötigen wir bei Custom Properties!
          ## put the foregroundColor of the button "W" into the fld "au"
          put the foregroundColor of button "W" into fld "au"
          set backgroundColor of stack "Timer down" to white
          beep
          
          if the hilited of widget "farben" then
             
             ## Die andere Option:
             put WHITE into tFarbe
             set backgroundColor of stack "Timer down" to blue
          end if
          
          ## Jetzt erst alle Felder einfärben:
          ## In einem REPEAT LOOP, spart Tipparbeit! :-)
          repeat for each item tFeld in "uhr,Schalter,meineZahl,vorlesen,Geschichte"
             set the foregroundColor of fld tFeld to tFarbe
          end repeat
          
          if the hilited of widget "lesen" then
             revSetSpeechSpeed 210
             revSpeak fld "Geschichte"
          end if
       end if
       
       ## Alles fertig, Vorhang wieder auf:
       unlock screen
    end uhrAktualisieren

    Und so sieht das mit den CODE Tags aus! 😎
    Rein logisch gibt es aber in dem Skript keinen Grund nicht zu funktionieren!?

    Gruß

    Klaus