XProfan

Ich verstehs Problem nicht. ^^

Du kannst mit &getTickCount und einer Variable doch schauen, wie viel Zeit vergangen ist.

29.10.2009 ▲

Detlef
Tussing

Ich möchte alle 75 Sekunden das Hauptprogramm verlassen und Proc2 aufrufen das dann alle 15 Sekunden Proc3 aufruft

Ich hoffe das ist verständlich

Gruß Detlef Tussing
Windows XP, XProfan 10

Das wäre dann
Kompilieren Markieren Separieren

proc proc2

    setTimer 15000

    while 1

        waitInput
        case %wmTimer : proc3()

    wend

    killTimer

endproc

cls

while 1

    settimer 75000

    while 1

        waitinput
        case %wmTimer : break

    wend

    killtimer
    proc2()

wend

aber das macht ja keinen Sinn. ^^

E.T.

... und warum dann nicht gleich alle 15 sec. Proc3 aufrufen ???

Wäre interessant zu wissen, was Proc2 & 3 so unterschiedliches machen sollen...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Detlef
Tussing

Ein Programm prüft 7 Eingänge und 10 Ausgänge einer externen Hardwarekarte.
Diese Karte ist mit zwei weitern Karten verbunden, die von einem anderen Programm geprüft und gesteuert wird, dieses Programm muss 14 Eingänge und 20 Ausgänge prüfen und schalten, dabei muss je nach Eingang ein entsprechender Ausgang geschaltet werden(und das der Reihe nach), danach ist für 75 Sekunden Pause in der nur 2 Eingänge alle 15 Sekunden abgefragt werden um 1 Ausgang zu schalten. Dann geht es von vorne los und das rund um die Uhr alle 365 Tage lang bzw so lang das Netbook es aushält.

Ich hoffe es verständlich erklärt zu haben

Und vielen Dank an IF für die schnelle Hilfe

werde es gleich ausprobieren und in meinem Proc einbinden

Aber noch eine Frage

Kann man an einem laufenden Programm (unter Xprofan geschriebene EXE Datei) Variablen übergeben ???
Das währe mein nächstes Projekt.

Gruß Detlef Tussing
Windows XP, XProfan 10

Variablen nicht wirklich aber Werte per SendMessage und UserMessage. [...]

Detlef
Tussing

viekeicht habe ich mich doch falsch ausgedrückt
Hier ein neuer Versuch
Kompilieren Markieren Separieren

Hauptprogramm
blablabla
timer1
blablabla

proc timer1

    read
    warte 15 Sekunden dann wiederholen, und das 3x

endproc

proc read

    readdigit1&

    if readdigi1&=1

        setdigi(8)

    endif

endproc

Gruß Detlef Tussing
Windows XP, XProfan 10

Könntest Du mal aufhören Codes niemals in Codeboxen zu posten?

Codebox:
Kompilieren Markieren Separieren

quelltext

Detlef
Tussing

Der `CODE` ist doch garnicht lauffähig, ich hab halt X-Prof als Texteditor misbraucht.

Entschuldigung

Gruß Detlef Tussing
Windows XP, XProfan 10

Rolf
Koch

Ohne auf den Code grossartig einzugenen, aber ich wundere mich die ganze Zeit über folgendes
readdigit1&, welches so sinnlos da rumsteht in einer Zeile.
Kompilieren Markieren Separieren

proc read

    readdigit1&

    if readdigi1&=1

        .....

Was soll dies denn sein? Eine Variable die einfach nur so da steht? Ohne Zuweisung oder ähnlichem?

Detlef
Tussing

Noch ne Frage

ich weis ich werde lästig

ich muss einen Nadeldrucker dazu bringen pro Ereigniss eine Zeile zu drucken
also eine Liste, und nicht pro Ereigniss eine Seite auswerfen.

Ich hab mich noch nie mit X-Profan und Drucken beschäftigt

auch noch nicht danach gesucht.

was ich nun nachholen werde, aber vieleicht hat jemand auch so ein Problem gehabt und hat eine Lösung gefunden oder geschrieben.

Gruß Detlef Tussing
Windows XP, XProfan 10