[易語言時尚編程100例 / 未知 著 ]
    書香中文網 出品作品Txt版閱讀,閱讀作品更多請訪問:http://www.sxcnw.com
 
    書籍介紹:
    {WsErr}

 ------章節內容開始-------

    第一卷 第一章
    書香中文網 更新時間:2007-1-12 23:35:47 本章字數:11969

?易語言時尚編程100例
（一）例程名稱：計算編輯框的輸入內容的長度
設立本100例教程的目的：把易語言現有的例程都學習一遍，以達到共同脫菜的目的。
★、例程來源。
㈠、例程名稱：計算編輯框的輸入內容的長度（暫名）
㈡、下載地址：
㈢、作者：（暫不詳）
★、例程詳解。
不知程序作者是誰？該程序作者或提問者為什么要做該例程？有什么作用？有知道者請跟貼。我在編輯時修改。
該例程只有一個子程序，該子程序只有一行執行代碼，程序如下：
子程序：_編輯框1_內容被改變
標簽1.標題    ＝    到文本    (取文本長度    (編輯框1.內容))
編程大概思路：
㈠、確定用什么樣的子程序，包括確定用什么控件來發送指令（事件驅動承擔者），什么控件用來傳遞指令，什么控件用來執行指令，什么控件用來反饋指令。
⑴、確定發送指令控件。比如用按鈕作為事件驅動（發送指令）承擔者，則程序大概是：
子程序：_按鈕1_被單擊
標簽1.標題    ＝    到文本    (取文本長度    (編輯框1.內容))
當然，如果想使編輯框在輸入文本時即時顯示文本長度，就要用到編輯框本身的事件，如本程序的第一種子程序，即子程序：_編輯框1_內容被改變，通過在編輯框輸入信息來發送指令。
⑵、確定傳遞、執行或反饋指令控件。如果我們用信息框來執行或反饋指令，則程序大概類似下面為好：
子程序：_按鈕1_被單擊
信息框    (“你輸入的文本長度是：”    ＋    到文本    (取文本長度    (編輯框1.內容))
0
)
思考：如果想做到按“enter”時就彈出該信息框，應怎樣做？
㈡、“計算編輯框的輸入內容的長度”也即是確定編輯框的某個屬性值，那么我們就重點查找編輯框的有關屬性、方法和事件及易語言系統有關的命令，看有哪些在本例程中用得上。還是比較難找呢。
交流附件上傳地址：http://www.91asp.com/
（二）例程名稱：幼兒算術軟件
由于還沒有找到新空間存放例程，所以《菜鳥每日一課》和其他課程暫停，代之以一門新課程：《易語言時尚編程100例》，專門學習研究別人的程序。由于本人也是菜鳥，所以一般是照搬其中的代碼，保持原汁原味，其中是否有錯，由高手來跟貼完善評改吧。
★、例程來源。
㈠、例程名稱：幼兒算術軟件
㈡、下載地址：    http://eyuyan.com/non-cgi/usr/1/1_3244.e
㈢、作者：bklbklbk
★、例程詳解。
該程序近日由作者上傳到論壇，程序明白易懂，主要功能代碼也不多，所以我們現在就以它為研究學習對象。
該程序由三個窗口組成，其中_啟動窗口只是該程序的封面，窗口2只是說明文件，核心功能都在窗口1中實現，所以這里只講解窗口1，窗口1中又只有“出題”和“計算結果”兩個重要子程序，其他的子程序是輔助的。
㈠、先講講怎樣實現隨機出題。
在隨機出題中作者要做兩件事：⑴、用單選框設置有三個出題計算數的范圍：1到10；1到20；1到100，分別代表三種不同的學習程度。⑵、按三種計算數范圍隨機出題。下面看程序是怎樣做的：
子程序：_按鈕1_被單擊
置隨機數種子    ()
※一般過程是先置隨機數種子再隨機取數
編輯框1.內容    ＝    到文本    (取整    (取隨機數    (最小號碼
最大號碼)))
※隨機選擇第一個計算數
編輯框2.內容    ＝    到文本    (取整    (取隨機數    (最小號碼
最大號碼)))
※隨機選擇第一個計算數。取整數的隨機數，“取整”是算術運算命令
編輯框3.內容    ＝    “”
※清空“編輯框3”以便你把結果填上去
標簽2.標題    ＝    “”
※清空“標簽2”（提示正確與否）以方便指出對還是錯
編輯框3.獲取焦點    ()
※使“編輯框3”獲取焦點光標以便你輸入計算結果
如果    (單選框1.選中    ＝    真)
最大號碼    ＝    10
※當選擇最大數為10的計算范圍時
否則
如果    (單選框2.選中    ＝    真)
最大號碼    ＝    20
否則
如果    (單選框3.選中    ＝    真)
最大號碼    ＝    100
否則
如果結束
如果結束
如果結束
㈡、再講講怎樣評價你的計算結果。
該子程序分別設置了加、減、乘、除四種運算情況，我們以“減法”為例說明：
如果    (標簽3.標題    ＝    “-”)
※當選擇為減法運算時。選擇不同的運算方式，該標簽的標題就發生相應變化
如果    (變量1    ＞    變量2)
※當減數大于被減數時
如果    (變量3    ＝    變量1    －    變量2)
※當運算結果正確時
標簽7.可視    ＝    真
※該標簽的標題是“正確”
標簽2.標題    ＝    “恭喜你！做對了”
標簽5.標題    ＝    到文本    (變量4    ＋    1)
※顯示正確的次數，變量4存放的是正確次數，為靜態短整數型容器，靜態容器能將正確次數保留到下次運算，數值型數據的默認值為0
變量4    ＝    變量4    ＋    1
※給變量4賦值
否則    ※當運算結果錯誤時
標簽2.標題    ＝    “錯啦！重做一遍”
標簽8.可視    ＝    真
※該標簽的標題是“錯誤”
標簽6.標題    ＝    到文本    (變量5    ＋    1)
變量5    ＝    變量5    ＋    1
如果結束
變量6    ＝    變量4    ＋    變量5
※賦值于變量6    ，表示運算次數的總和，即正確次數與錯誤次數之和
標簽13.可視    ＝    真
※該標簽的標題是“共計”
標簽12.標題    ＝    到文本    (變量4    ＋    變量5)
標簽9.標題    ＝    到文本    (取整    (變量4    ÷    變量6    ×    100))
標簽11.可視    ＝    真
※該標簽的標題是“正確率”
標簽10.可視    ＝    真
※該標簽的標題是“    %”
否則
標簽2.標題    ＝    “不能相減”
※當減數小于被減數時
如果結束
上面是以減法的實現為例對該軟件功能實現作一說明，整個窗口1的程序如下：
窗口程序集：窗口程序集2
程序集容器：最小號碼    數據類型：短整數型
程序集容器：最大號碼    數據類型：短整數型
------------------------------
子程序：_按鈕2_被單擊
局部容器：變量1    數據類型：短整數型
局部容器：變量2    數據類型：短整數型
局部容器：變量3    數據類型：短整數型
局部容器：變量4    數據類型：短整數型    
局部容器：變量5    數據類型：短整數型    
局部容器：變量6    數據類型：整數型
變量1    ＝    文本到數值    (編輯框1.內容)
變量2    ＝    文本到數值    (編輯框2.內容)
變量3    ＝    文本到數值    (編輯框3.內容)
編輯框3.獲取焦點    ()
如果    (標簽3.標題    ＝    “+”)
如果    (變量3    ＝    變量1    ＋    變量2)
標簽7.可視    ＝    真
標簽2.標題    ＝    “恭喜你！做對了”
標簽5.標題    ＝    到文本    (變量4    ＋    1)
變量4    ＝    變量4    ＋    1
否則
標簽2.標題    ＝    “錯啦！重算一遍”
標簽8.可視    ＝    真
標簽6.標題    ＝    到文本    (變量5    ＋    1)
變量5    ＝    變量5    ＋    1
如果結束
變量6    ＝    變量4    ＋    變量5
標簽13.可視    ＝    真
標簽12.標題    ＝    到文本    (變量4    ＋    變量5)
標簽9.標題    ＝    到文本    (取整    (變量4    ÷    變量6    ×    100))
標簽11.可視    ＝    真
標簽10.可視    ＝    真
否則
如果    (標簽3.標題    ＝    “-”)
如果    (變量1    ＞    變量2)
如果    (變量3    ＝    變量1    －    變量2)
標簽7.可視    ＝    真
標簽2.標題    ＝    “恭喜你！做對了”
標簽5.標題    ＝    到文本    (變量4    ＋    1)
變量4    ＝    變量4    ＋    1
否則
標簽2.標題    ＝    “錯啦！重做一遍”
標簽8.可視    ＝    真
標簽6.標題    ＝    到文本    (變量5    ＋    1)
變量5    ＝    變量5    ＋    1
如果結束
變量6    ＝    變量4    ＋    變量5
標簽13.可視    ＝    真
標簽12.標題    ＝    到文本    (變量4    ＋    變量5)
標簽9.標題    ＝    到文本    (取整    (變量4    ÷    變量6    ×    100))
標簽11.可視    ＝    真
標簽10.可視    ＝    真
否則
標簽2.標題    ＝    “不能相減”
如果結束
否則
如果    (標簽3.標題    ＝    “×”)
如果    (變量3    ＝    變量1    ×    變量2)
標簽7.可視    ＝    真
標簽2.標題    ＝    “恭喜你！做對了”
標簽5.標題    ＝    到文本    (變量4    ＋    1)
變量4    ＝    變量4    ＋    1
否則
標簽2.標題    ＝    “錯啦！重做一遍”
標簽8.可視    ＝    真
標簽6.標題    ＝    到文本    (變量5    ＋    1)
變量5    ＝    變量5    ＋    1
如果結束
變量6    ＝    變量4    ＋    變量5
標簽13.可視    ＝    真
標簽12.標題    ＝    到文本    (變量4    ＋    變量5)
標簽9.標題    ＝    到文本    (取整    (變量4    ÷    變量6    ×    100))
標簽11.可視    ＝    真
標簽10.可視    ＝    真
否則
如果    (標簽3.標題    ＝    “÷”)
如果    (變量2    ≠    0)
如果    (變量3    ＝    變量1    ÷    變量2)
標簽7.可視    ＝    真
標簽2.標題    ＝    “恭喜你！做對了”
標簽5.標題    ＝    到文本    (變量4    ＋    1)
變量4    ＝    變量4    ＋    1
否則
信息框    (“錯啦！重做一遍”
#錯誤圖標
“錯誤”)
標簽8.可視    ＝    真
標簽6.標題    ＝    到文本    (變量5    ＋    1)
變量5    ＝    變量5    ＋    1
如果結束
變量6    ＝    變量4    ＋    變量5
標簽13.可視    ＝    真
標簽12.標題    ＝    到文本    (變量4    ＋    變量5)
標簽9.標題    ＝    到文本    (取整    (變量4    ÷    變量6    ×    100))
標簽11.可視    ＝    真
標簽10.可視    ＝    真
否則
信息框    (“除數不能為0”
#錯誤圖標
“錯誤”)
如果結束
否則
如果結束
如果結束
如果結束
如果結束
------------------------------
子程序：_按鈕7_被單擊
銷毀    ()
------------------------------
子程序：_按鈕3_被單擊
標簽3.標題    ＝    “+”
標簽1.標題    ＝    “加法運算”
編輯框3.獲取焦點    ()
------------------------------
子程序：_按鈕4_被單擊
標簽3.標題    ＝    “-”
標簽1.標題    ＝    “減法運算”
編輯框3.獲取焦點    ()