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