.版本 2
.程序集 窗口程序集1
.程序集變量 全局變量1, 文本型
.程序集變量 全局變量2, 整數型
.子程序 _按鈕10_被單擊
編輯框10.內容 ＝ “”
.子程序 _按鈕18_被單擊
編輯框7.內容 ＝ “”
編輯框5.內容 ＝ “”
.子程序 _圖形按鈕35_被單擊
.如果 (圖形按鈕35.選中 ＝ 真)
選擇框3.選中 ＝ 真
選擇框4.選中 ＝ 真
選擇框5.選中 ＝ 真
選擇框6.選中 ＝ 真
.否則
選擇框3.選中 ＝ 假
選擇框4.選中 ＝ 假
選擇框5.選中 ＝ 假
選擇框6.選中 ＝ 假
.如果結束
.子程序 _選擇框1_被單擊
.如果 (選擇框1.選中 ＝ 真)
圖片框6.可視 ＝ 假
信息框 (“電機1已開啟”, 0, )
.否則
圖片框6.可視 ＝ 真
.如果結束
.子程序 _選擇框2_被單擊
.如果 (選擇框2.選中 ＝ 真)
圖片框7.可視 ＝ 假
信息框 (“電機2已開啟”, 0, )
.否則
圖片框7.可視 ＝ 真
.如果結束
.子程序 _組合框1_列表項被選擇
端口1.波特率 ＝ 組合框1.現行選中項
.子程序 _組合框2_列表項被選擇
端口1.端口號 ＝ 組合框2.現行選中項 ＋ 1
.子程序 _組合框3_列表項被選擇
端口1.數據位數 ＝ 組合框3.現行選中項 ＋ 5
.子程序 _組合框4_列表項被選擇
端口1.停止位數 ＝ 組合框4.現行選中項 × 0.5 ＋ 1
.子程序 _組合框5_列表項被選擇
端口1.奇偶校驗方案 ＝ 組合框5.現行選中項
.子程序 _按鈕14_被單擊
.如果 (端口1.發送數據 (編輯框7.內容) ＝ 假)
編輯框5.內容 ＝ “發送失敗!”
圖片框4.可視 ＝ 假
編輯框7.內容 ＝ “”
.否則
編輯框5.內容 ＝ “發送成功!”
圖片框4.可視 ＝ 真
編輯框7.內容 ＝ “”
.如果結束
.子程序 _圖形按鈕2_被單擊
.如果 (圖形按鈕2.選中 ＝ 假)
.如果 (端口1.啟動 () ＝ 假)
.如果 (信息框 (“端口被侵占！”, 0, ) ＝ 0)
圖形按鈕2.選中 ＝ 假
.否則
.如果結束
圖形按鈕2.選中 ＝ 真
.否則
.如果結束
.否則
.如果結束
.如果 (圖形按鈕2.選中 ＝ 真)
端口1.停止 ()
.否則
.如果結束
.子程序 _按鈕1_被單擊
.如果 (圖形按鈕37.選中 ＝ 假)
編輯框7.加入文本 (“1”)
.否則
編輯框7.內容 ＝ “1”
.如果結束
.子程序 _按鈕2_被單擊
編輯框7.加入文本 (“2”)
.子程序 _按鈕3_被單擊
編輯框7.加入文本 (“3”)
.子程序 _按鈕11_被單擊
編輯框7.加入文本 (“#”)
.子程序 _編輯框7_內容被改變
.如果 (編輯框7.內容 ＝ “#”)
編輯框5.內容 ＝ “”
.否則
.如果結束
.如果 (取文本長度 (編輯框7.內容) ＞ 22)
信息框 (“停停停停停！”, 0, )
.否則
.如果結束
.子程序 _按鈕5_被單擊
編輯框7.加入文本 (“4”)
.子程序 _按鈕4_被單擊
編輯框7.加入文本 (“5”)
.子程序 _按鈕6_被單擊
編輯框7.加入文本 (“6”)
.子程序 _按鈕12_被單擊
編輯框7.加入文本 (“0”)
.子程序 _按鈕7_被單擊
編輯框7.加入文本 (“7”)
.子程序 _按鈕8_被單擊
編輯框7.加入文本 (“8”)
.子程序 _按鈕9_被單擊
編輯框7.加入文本 (“9”)
.子程序 _按鈕13_被單擊
編輯框7.加入文本 (“*”)
.子程序 _按鈕15_被單擊
全局變量2 ＝ 取文本長度 (編輯框7.內容)
全局變量1 ＝ 取文本左邊 (編輯框7.內容, 全局變量2 － 1)
編輯框7.內容 ＝ 全局變量1
.子程序 __啟動窗口_創建完畢
.局部變量 RET, 整數型
RET ＝ GetWindowLong (取窗口句柄 (), -20)
RET ＝ 位或 (RET, 524288)
SetWindowLong (取窗口句柄 (), -20, RET)
SetLayeredWindowAttributes (_啟動窗口.取窗口句柄 (), 0, 255, 2)
.子程序 _滑塊條3_位置被改變
SetLayeredWindowAttributes (_啟動窗口.取窗口句柄 (), 0, 滑塊條3.位置, 2)
.子程序 _端口1_收到信號
.參數 信號類型, 整數型
編輯框10.加入文本 (“接收到數據”)
.子程序 _編輯框10_內容被改變
.子程序 _編輯框5_內容被改變
.子程序 _外形框3_鼠標左鍵被按下, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.子程序 _分組框6_鼠標左鍵被按下, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.子程序 _編輯框11_內容被改變
.子程序 _按鈕14_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
.如果 (鍵代碼 ＝ 13)
.如果 (端口1.發送數據 (編輯框7.內容) ＝ 假)
編輯框5.內容 ＝ “發送失敗!”
圖片框4.可視 ＝ 假
編輯框7.內容 ＝ “”
.否則
編輯框5.內容 ＝ “發送成功!”
圖片框4.可視 ＝ 真
編輯框7.內容 ＝ “”
.如果結束
.否則
|
[復制鏈接]
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
很想了解一下 向您學習知識 很是感謝 
