久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: 第一次使用易語言寫的控制臺程序 [打印本頁]

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

.版本 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.內容＝ “”
.如果結束

.否則

作者: blj178 時間: 2014-10-18 11:06
先頂一個看

作者: 明白 時間: 2014-10-18 11:28
程序功能挺多！
易語言，一般人都很容易上手

作者: 9lyx 時間: 2014-12-19 13:10
能不能發個給我

作者: 9lyx 時間: 2014-12-19 13:11
我正在學習這方面的東西

作者: 業華 時間: 2014-12-27 21:33
你好，請師傅可以發這個控制臺源碼過來嗎？

作者: mabaoguang 時間: 2015-3-29 14:07
易語言，我也用，多聯系！向您學習！

作者: wis98 時間: 2015-10-7 23:49
你好，請師傅可以發這個控制臺源碼給我學習一下好嗎？先謝謝了。

作者: liu8120 時間: 2015-10-8 15:52
師傅您好，提一次聽說易語言，可以發給我這個資料了解一下么謝謝！

作者: renhua18 時間: 2016-4-29 18:16
不錯不錯支持國產易語言

作者: lhnuaa 時間: 2016-7-17 10:03
631872348@qq. com,一直在學這個…謝謝樓主了

作者: huanan 時間: 2016-8-27 12:44
我一直在找易語言與單片機的通信，老師能不能將您的易碼與單片機的源碼發一份給我，向您學習學習，先謝謝了。

作者: lzd1733884095 時間: 2016-9-1 09:12

很想了解一下向您學習知識很是感謝

作者: 小時候可花 時間: 2017-3-19 16:32
樓主！麻煩您也給我發一份源碼吧！最近在學單片機串口通信，只是想用易語言比較簡單點

作者: bhjyqjs 時間: 2018-2-12 10:29
謝謝樓主分享

作者: bhjyqjs 時間: 2018-3-2 10:34
正在學習易語言，謝謝樓主分享。但串口通訊一直卡殼，請樓主發份完整程序給我，謝謝！

作者: hanwnpu 時間: 2018-6-4 05:46
我也是學易語言的，以前弄輔助，現在學單片機視頻小車，給我來一份源碼吧兄弟。

作者: 向日葵男人 時間: 2018-7-22 18:55
更高級啊，，，學習一下

作者: qq35404085 時間: 2018-8-28 23:00
易語言不錯

作者: bhjyqjs 時間: 2018-8-29 09:37
不錯，在學習，謝了！

作者: 2855187259 時間: 2019-3-4 20:25
不錯，其實我還是一個小白，學習一下吧

作者: 聯嘉達 時間: 2019-5-14 05:14
學習中，樓主辛苦

作者: 冰上燃火 時間: 2019-11-6 21:25
您好很想學習關于易語言控制單片機方面的知識很是感謝

作者: yuguangzhi 時間: 2020-2-26 18:12
能發個源碼不？

作者: jjww748 時間: 2020-11-10 23:43
05年接觸了易語言, 也是接觸的第一門編程語言, 很親切!

作者: 愛你一生 時間: 2020-12-12 17:51
能給我發一份源代碼嗎，我好學習一下

作者: pktv 時間: 2021-9-2 00:39
求大神給個源代碼，我想開發個機械視覺

作者: qzyhlf 時間: 2021-12-10 16:34

好資料，51黑有你更精彩!!!

作者: hzh173 時間: 2021-12-10 16:51
只是聽說易語音，還不會用

作者: snoboby 時間: 2021-12-15 18:42
中文編程，讀著很順，贊！

歡迎光臨 (http://m.zg4o1577.cn/bbs/)