Code
DEF HP()
DECL INT nAntwort
MsgDialog(nAntwort, "Alles klar?","HP",,,,,,,"Nein","Ja")
MsgNotify("Taste %1 gedrueckt","HP",nAntwort)
IF nAntwort==1 THEN
Anwendung1() ; "Ja"
ELSE
Anwendung2() ; "Nein"
ENDIF
END
Alles anzeigen
Und fuer maximal sieben Unterprogramme:
Code
DEF HP()
DECL INT nAntwort
LOOP
MsgDialog(nAntwort, "Select Program","HP",,"7","6","5","4","3","2","1")
MsgNotify("Program %1 gewaehlt","HP",nAntwort)
SWITCH nAntwort
Case 1:
Unterprog1()
Case 2:
Unterprog2()
Case 3:
Unterprog3()
Case 4:
Unterprog4()
Case 5:
Unterprog5()
Case 6:
Unterprog6()
Case 7:
Unterprog7()
ENDSWITCH
ENDLOOP
END
Alles anzeigen