易語言 猜數字遊戲
阿新 • • 發佈:2019-02-17
.版本 2
.程式集 視窗程式集_啟動視窗
.程式集變數 程式集隨機數, 整數型
.子程式 __啟動視窗_建立完畢
置隨機數種子 ()
程式集隨機數 = 取隨機數 (0, 99)
輸出除錯文字 (程式集隨機數)
.子程式 _按鈕_確定_被單擊
.' 如果 (到整數 (編輯框_輸入內容.內容) > 程式集隨機數)
' 資訊框 (“輸入的數字太大了”, 0, , )
.否則
.' 如果 (到整數 (編輯框_輸入內容.內容) < 程式集隨機數)
' 資訊框 (“輸入的數字太小了”, 0, , )
.否則
' 資訊框 (“輸入正確”, 0, , )
.如果結束
.如果結束
.判斷開始 (到整數 (編輯框_輸入內容.內容) > 程式集隨機數)
資訊框 (“輸入的數字太大了”, 0, , )
.判斷 (到整數 (編輯框_輸入內容.內容) < 程式集隨機數)
資訊框 (“輸入的數字太小了”, 0, , )
.預設
資訊框 (“輸入正確”, 0, , )
.判斷結束
.子程式 _按鈕_重新生成_被單擊
程式集隨機數 = 取隨機數 (0, 99)
輸出除錯文字 (程式集隨機數)
編輯框_輸入內容.內容 = “”
.程式集 視窗程式集_啟動視窗
.程式集變數 程式集隨機數, 整數型
.子程式 __啟動視窗_建立完畢
置隨機數種子 ()
程式集隨機數 = 取隨機數 (0, 99)
輸出除錯文字 (程式集隨機數)
.子程式 _按鈕_確定_被單擊
.' 如果 (到整數 (編輯框_輸入內容.內容) > 程式集隨機數)
' 資訊框 (“輸入的數字太大了”, 0, , )
.否則
.' 如果 (到整數 (編輯框_輸入內容.內容) < 程式集隨機數)
' 資訊框 (“輸入的數字太小了”, 0, , )
.否則
' 資訊框 (“輸入正確”, 0, , )
.如果結束
.如果結束
.判斷開始 (到整數 (編輯框_輸入內容.內容) > 程式集隨機數)
資訊框 (“輸入的數字太大了”, 0, , )
.判斷 (到整數 (編輯框_輸入內容.內容) < 程式集隨機數)
資訊框 (“輸入的數字太小了”, 0, , )
.預設
資訊框 (“輸入正確”, 0, , )
.判斷結束
.子程式 _按鈕_重新生成_被單擊
程式集隨機數 = 取隨機數 (0, 99)
輸出除錯文字 (程式集隨機數)
編輯框_輸入內容.內容 = “”