只有當無其它對話存在時，才能生成一則對話。

對話可用一個軟鍵刪除，該軟鍵的標注由程序員定義。

最多能定義 7 個軟鍵。

? 對話適用于顯示必須由用戶回答的問題。

? 用函數(shù) Set_KrlDlg( )? 可生成一則對話。

? 用函數(shù)僅僅可生成對話。

? 但該函數(shù)不等到對話得到回答。

? 用函數(shù)Exists_KrlDlg( ) 可檢查一則特定的對話是否還存在。

? 該函數(shù)也不等到對話得到回答，而是僅僅在緩存器中查找?guī)в性摼浔膶υ挕?/p>

? 因此，KRL 程序中的詢問必須循環(huán)進行，直至對話得到回答或被刪除。

? 接下來的程序流程根據(jù)用戶所選的軟鍵而定。

? 按鍵的聲明和初始化

DECL KRLMSGDLGSK_T Softkey[7] ; 準備 7 個可能的軟鍵

softkey[1]={sk_type #value, sk_txt[] "key1"}

softkey[2]={sk_type #value, sk_txt[] "key2"}

softkey[3]={sk_type #value, sk_txt[] "key3"}

softkey[4]={sk_type #value, sk_txt[] "key4"}

softkey[5]={sk_type #value, sk_txt[] "key5"}

softkey[6]={sk_type #value, sk_txt[] "key6"}

softkey[7]={sk_type #value, sk_txt[] "key7"}

通過 Exists_KrlDlg() 進行分析：在索引 4 下創(chuàng)建的按鍵也以 4 作為反饋應(yīng)答。

; 第 4 號軟鍵以 4 作為反饋應(yīng)答

softkey[4]={sk_type #value, sk_txt[] "key4"}

若未給所有按鍵編程或有間斷地編程 （編號 1、4、6），則按鍵將并列排布。若僅使用了按鍵 1、4、6，則也只能給出 1、4、6 反饋。

給用戶自定義的對話編程:

1. 將主程序載入編輯器。

2. 為以下對象聲明工作變量：

發(fā)送人、信息號、信息文本 （自 KrlMsg_T ）

具有 3 個用于參數(shù)的元素的數(shù)組 （自 KrlMsgPar_T ）

7 個可能的按鍵 （自? KrlMsgDlgSK_T ）

通用信息提示選項 （自 KrlMsgOpt_T ）

“句柄”（作為 INT ）

檢查結(jié)果的變量 （作為 BOOL）

回答按了哪個按鍵的結(jié)果變量 （作為 INT ）

3. 用所需值初始化工作變量。

4. 給函數(shù)調(diào)用 Set_KrlDlg(…)? 編程。

5. 用一個循環(huán)停止程序，直到對話得到了應(yīng)答。

6. 調(diào)用函數(shù) Exists_KrlDlg( )? 來分析對話。

7. 規(guī)劃程序中的其它分支并進行編程。

8. 關(guān)閉并保存主程序。

生成對話后程序被停住。回答后信息提示被刪除。然后程序繼續(xù)運行。接著給 switch-case 分支編程同樣，程序復(fù)位或退出程序時信息提示也將消失。可通過在信息提示選項中的設(shè)置 Clear_P_Reset TRUE ?引發(fā)這種情況。

DECL KRLMSG_T myQuestion

DECL KRLMSGPAR_T Parameter[3]

DECL KRLMSGDLGSK_T Softkey[7] ; 準備 7 個可能的軟鍵

DECL KRLMSGOPT_T Option

DECL INT handle, answer

DECL BOOL present

...

myQuestion={modul[] "College", Nr 1909, msg_txt[] "My Questiontext"}

Option= {VL_STOP FALSE, Clear_P_Reset TRUE, Clear_P_SAW FALSE,?

Log_to_DB TRUE}?

; 通配符為空通配符 [1..3]

Parameter[1] = {Par_Type #EMPTY}

Parameter[2] = {Par_Type #EMPTY}

Parameter[3] = {Par_Type #EMPTY}

softkey[1]={sk_type #value, sk_txt[] "key1"} ; 按鍵 1

softkey[2]={sk_type #value, sk_txt[] "key2"} ; 按鍵 2

softkey[3]={sk_type #value, sk_txt[] "key3"} ; 按鍵 3

softkey[4]={sk_type #value, sk_txt[] "key4"} ; 按鍵 4

softkey[5]={sk_type #value, sk_txt[] "key5"} ; 按鍵 5

softkey[6]={sk_type #value, sk_txt[] "key6"} ; 按鍵 6

softkey[7]={sk_type #value, sk_txt[] "key7"} ; 按鍵 7

...

...; 生成對話

handle = Set_KrlDlg(myQuestion, Parameter[ ],Softkey[ ], Option)

answer=0

REPEAT ; 用于在回答對話前停住程序的循環(huán)

present = exists_KrlDlg(handle ,answer) ; 回答由系統(tǒng)寫入

UNTIL NOT(present)

...

SWITCH answer

CASE 1 ; 按鍵 1

; 按鍵 1 的操作

...

CASE 2 ; 按鍵 2

; 按鍵的操作2

...

CASE 7 ; 按鍵 7

; 按鍵 7 的操作

ENDSWITCH

...

例如:

生成EMZ的選擇框，選擇幾號焊鉗

DEFFCT INT SetDlgMsg()

DECL?KrlMsg_T?Msg

DECL?KrlMsgPar_T?Par[3]

DECL?KrlMsgOpt_T?Opt

DECL?KrlMsgDlgSK_T?SK[7]

INT?nHandle,?nAnswer

T 2模式下執(zhí)行EMZ

Msg?=?{Modul[]?"vw_emz",?Nr 10,?Msg_txt[]?"Antriebsschnittstelleselektieren"}?提示信息條?“EMZ使用幾號工具用來測量”

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"}

SK[5]={ Sk_Type #VALUE,?Sk_txt[]?"5"}

SK[6]={ Sk_Type #VALUE,?Sk_txt[]?"6"}

SK[7]={ Sk_Type #VALUE,?Sk_txt[]?"7"}

選擇幾號焊鉗

Opt?=?{ VL_Stop True,?Clear_P_ResetTrue,?Log_To_DB FALSE }?信息屬性設(shè)置

nHandle?=?Set_KrlDlg?(Msg,?Par[],SK[],?Opt)?激活信息提示

If?(nHandle>0)Then

While?(Exists_KrlDlg(nHandle,?nAnswer))?關(guān)閉對話窗口

Wait?sec?0.1

Endwhile

Endif

Return(nAnswer)?選擇按鈕的值被發(fā)出

;

ENDFCT

編輯：黃飛

?