Kann mir jemand sagen, warum zwar die Variable gesetzt, aber die Warteschleife nicht verlassen wird?
&ACCESS RVO1
&COMMENT
DEF rc_df_az ( )
; **************************************
; *** DEKLARATIONSTEIL VON VARIABLEN ***
; **************************************
DECL KrlMsg_T msg
DECL KrlMsgPar_T par[3]
DECL KrlMsgOpt_T opt
DECL KrlMsgDlgSK_T SK[7]
DECL int nHandle, keynumber
;FOLD INI
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 )
;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
;ENDFOLD (USER INI)
;ENDFOLD (INI)
; ************************************
; *** PROGRAMMIERUNG DIALOGFENSTER ***
; ************************************
LOOP
msg = {modul[] "RobsCafe", Nr 1, msg_txt[] "Was wuenschen Sie?"}
SK[1] = {sk_Type #value, sk_txt[] "1"}
SK[2] = {sk_Type #value, sk_txt[] "2"}
SK[3] = {sk_Type #value, sk_txt[] "3"}
SK[4] = {sk_Type #value, sk_txt[] "4"}
; -- Dialogmeldung mittels KrlDlg absetzen --
nHandle = Set_KrlDlg (msg, par[], SK[], opt)
; -- Wenn die Meldung erfolgreich abgesetzt wurde (nhandle > 0), dann --
IF (nHandle > 0) THEN
; -- Warteschleife bis Benutzer Meldung quittiert --
while (Exists_KrlDlg(nHandle, keynumber))
wait Sec 0.1
endwhile
; ************************
; *** AUSFUEHRUNGSTEIL ***
; ************************
SWITCH keynumber
CASE 1
A=1
CASE 2
A=2
CASE 3
A=3
CASE 4
A=4
ENDSWITCH
ENDIF
ENDLOOP
END
