XProfan

SetTimer 1000'wenn alle Sekunde das Telegramm geschickt werden soll.
f& = Opencom(...)
' evtl mit Setcom() konfigurieren
' dann mit pExec() Prozess zum Abhorchen der Schnittstelle aufrufen.
pid& = pExec(|Polling, %HWnd oder Fensterhandle, f&)
' Handle der Schnittstelle und evtl. andere Handles, die in der Procedur
' angesprochen werden (z.B. ein Editcontrol,Listbox usw.) mitgeben.
ende% = 0

WhileNot ende%

    WaitInput

    If %wmTimer

        process("Suspend", pid&)' Prozess anhalten
        ' Hier das Telegramm senden
        process("Resume", pid&)' Prozess läuft weiter

    EndWhile

    Proc Polling

        Parameters handle&, Port&
        var ende% = 0

        Whilenot ende%

            case getText$(handle&) = "" : ende% = 1
            ' Hier Schnittstelle pollen

        EndWhile

    ENDPROC