API gesucht

**B.Hauser** · 25-01-12, 09:34

Wie wäre es damit:

Code:

 /Free
    *IN50 = (MyNum  = %Int(MyNum));
    *IN51 = (MyNum <> %Int(MyNum));

*IN50 wird auf *ON gesetzt, wenn MyNum keine Nachkommastellen hat.
*IN51 wird auf *ON gesetzt, wenn MyNum Nachkommastellen hat.

Birgitta

**Vigi** · 25-01-12, 10:16

Danke für die schnellen Antworten!
Beide Möglichkeiten funktionieren.
Habe mich für Birgitta Antwort entschieden

So sieht das dann aus:
/free
*IN79 = *OFF;
*IN79 = (HILF2 = %Int(HILF2));
/end-free

1000 Dank!

**Fuerchau** · 25-01-12, 10:25

Das vorherige Ausschalten kannst du dir sparen, da das Ergebnis des Vergleiches *OFF oder *ON ist.

Thema: API gesucht