XProfan

proc Test

    inc counter
    return 1

endproc

var int counter = 0
var int branch = 0

if Test()

    branch = 1

elseif Test()

    branch = 2

elseif Test()

    branch = 3

else

    branch = 4

endif

print "Abgearbeiteter Zweig:", branch
print "Aufrufe Test:", counter
waitinput
end

ifnot callbackCheck

elseif Call(callBackCheck, ...)

d'autre

endif

ifnot callbackCheck

else

    if Call(callBackCheck, ...)

    else

    endif

' kurzschluss
var int A = 0
var int B = 10

if (A <> 0) and ((B / A) >= 5)

    messagebox("An dieser Stelle im Algorithmus konnte B durch A geteilt werden.","Erfolg",0)

else

    messagebox("An dieser Stelle ist der Quotient (B / A) echt kleiner als 5 oder eine Division durch 0 wurde verhindert","F E H L E R",0)

endif

if 5 = 5

    print "5=5"

elseif 6 = 6

    print "sechs"

else

    print "nix"

endif

if SomeAPICall()' gibt 0 aus, falls was schief gegangen ist.

    print "Juchuu, alles in Ordnung!"

elseif MessageBox("Hat nicht geklappt. Beenden?", "", ~MB_YESNO) = ~IDNO

    print "Trotz Fehler weitermachen."

else

    print "Programm wird beendet."
    end

KompilierenMarqueSéparation
return gespeicherterWert or LangeRechnung("Dauert très longtemps.")

marcher dans XProfan pas.

Kurz et bien: dans Si-Elseif-Strukturen halte je es pour très  sinnvoll, alle weiteren Bedingungen trop ignorer, sobald une véritable ergibt.

chez boolschen Operatoren halte je es aussi pour sinnvoll, mais là peut qui Meinungen unterschiedlich son.

important ist seulement, dass qui Documentation irgendwo erwähnt, comment XProfan sich verhält. avec cela on pas im Dunkeln tapst.