標題: 第一次使用易語言寫的控制臺程序 [打印本頁]
作者: xiaojuan    時間: 2014-9-17 23:49
標題: 第一次使用易語言寫的控制臺程序




.版本 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.可視 ＝ 假
信息框 (“電機1已開啟”, 0, )
.否則
圖片框6.可視 ＝ 真
.如果結(jié)束


.子程序 _選擇框2_被單擊

.如果 (選擇框2.選中 ＝ 真)
圖片框7.可視 ＝ 假
信息框 (“電機2已開啟”, 0, )
.否則
圖片框7.可視 ＝ 真
.如果結(jié)束


.子程序 _組合框1_列表項被選擇

端口1.波特率 ＝ 組合框1.現(xiàn)行選中項

.子程序 _組合框2_列表項被選擇

端口1.端口號 ＝ 組合框2.現(xiàn)行選中項 ＋ 1

.子程序 _組合框3_列表項被選擇

端口1.數(shù)據(jù)位數(shù) ＝ 組合框3.現(xiàn)行選中項 ＋ 5

.子程序 _組合框4_列表項被選擇

端口1.停止位數(shù) ＝ 組合框4.現(xiàn)行選中項 × 0.5 ＋ 1

.子程序 _組合框5_列表項被選擇

端口1.奇偶校驗方案 ＝ 組合框5.現(xiàn)行選中項

.子程序 _按鈕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_鼠標左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型



.子程序 _分組框6_鼠標左鍵被按下, 邏輯型
.參數(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é)束


.否則
作者: blj178    時間: 2014-10-18 11:06
先頂一個看
作者: 明白    時間: 2014-10-18 11:28
程序功能挺多！
易語言，一般人都很容易上手
作者: 9lyx    時間: 2014-12-19 13:10
能不能發(fā)個給我
作者: 9lyx    時間: 2014-12-19 13:11
我正在學(xué)習(xí)這方面的東西
作者: 業(yè)華    時間: 2014-12-27 21:33
你好，請師傅可以發(fā)這個控制臺源碼過來嗎？
作者: mabaoguang    時間: 2015-3-29 14:07
易語言，我也用，多聯(lián)系！向您學(xué)習(xí)！
作者: wis98    時間: 2015-10-7 23:49
你好，請師傅可以發(fā)這個控制臺源碼給我學(xué)習(xí)一下好嗎？先謝謝了。
作者: liu8120    時間: 2015-10-8 15:52
師傅您好，提一次聽說易語言，可以發(fā)給我這個資料了解一下么謝謝！
作者: renhua18    時間: 2016-4-29 18:16
不錯  不錯 支持國產(chǎn)易語言
作者: lhnuaa    時間: 2016-7-17 10:03
631872348@qq. com,一直在學(xué)這個…謝謝樓主了
作者: huanan    時間: 2016-8-27 12:44
我一直在找易語言與單片機的通信，老師能不能將您的易碼與單片機的源碼發(fā)一份給我，向您學(xué)習(xí)學(xué)習(xí)，先謝謝了。
作者: lzd1733884095    時間: 2016-9-1 09:12
很想了解一下   向您學(xué)習(xí)知識  很是感謝  
作者: 小時候可花    時間: 2017-3-19 16:32
樓主！麻煩您也給我發(fā)一份源碼吧！  最近在學(xué)單片機串口通信，只是想用易語言 比較簡單點
作者: bhjyqjs    時間: 2018-2-12 10:29
謝謝樓主分享
作者: bhjyqjs    時間: 2018-3-2 10:34
正在學(xué)習(xí)易語言，謝謝樓主分享。但串口通訊一直卡殼，請樓主發(fā)份完整程序給我，謝謝！

作者: hanwnpu    時間: 2018-6-4 05:46
我也是學(xué)易語言的，以前弄輔助，現(xiàn)在學(xué)單片機視頻小車，給我來一份源碼吧兄弟。
作者: 向日葵男人    時間: 2018-7-22 18:55
更高級啊，，，學(xué)習(xí)一下
作者: qq35404085    時間: 2018-8-28 23:00
易語言不錯
作者: bhjyqjs    時間: 2018-8-29 09:37
不錯，在學(xué)習(xí)，謝了！
作者: 2855187259    時間: 2019-3-4 20:25
不錯，其實我還是一個小白，學(xué)習(xí)一下吧
作者: 聯(lián)嘉達    時間: 2019-5-14 05:14
學(xué)習(xí)中，樓主辛苦
作者: 冰上燃火    時間: 2019-11-6 21:25
您好   很想學(xué)習(xí)關(guān)于易語言控制單片機方面的知識   很是感謝
作者: yuguangzhi    時間: 2020-2-26 18:12
能發(fā)個源碼不？
作者: jjww748    時間: 2020-11-10 23:43
05年接觸了易語言, 也是接觸的第一門編程語言, 很親切!
作者: 愛你一生    時間: 2020-12-12 17:51
能給我發(fā)一份源代碼嗎，我好學(xué)習(xí)一下
作者: pktv    時間: 2021-9-2 00:39
求大神給個源代碼，我想開發(fā)個機械視覺
作者: qzyhlf    時間: 2021-12-10 16:34

好資料，51黑有你更精彩!!!
作者: hzh173    時間: 2021-12-10 16:51
只是聽說易語音，還不會用
作者: snoboby    時間: 2021-12-15 18:42
中文編程，讀著很順，贊！



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1