国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > 易語言 > 正文

易語言利用鼠標(biāo)模擬點擊的方式實現(xiàn)自動畫圖的代碼

2024-07-21 23:02:49
字體:
供稿:網(wǎng)友

DLL命令表

.版本 2.DLL命令 PostMessageA, 整數(shù)型, "user32.dll", "PostMessageA", , 如果函數(shù)調(diào)用成功,返回非零值:如果函數(shù)調(diào)用失敗,返回值是零  .參數(shù) hWnd, 整數(shù)型, , 其窗口程序接收消息的窗口的句柄  .參數(shù) Msg, 整數(shù)型, , 指定被寄送的消息  .參數(shù) wParam, 整數(shù)型, , 指定附加的消息特定的信息  .參數(shù) IParam, 整數(shù)型, , 指定附加的消息特定的信息

自動繪畫的代碼

此功能需要加載精易模塊5.6

.版本 2.支持庫 spec.支持庫 shell.支持庫 BmpOperate.程序集 窗口程序集_啟動窗口.程序集變量 文件路徑, 文本型.程序集變量 開始, 邏輯型.子程序 __啟動窗口_創(chuàng)建完畢窗口_熱鍵注冊 (取窗口句柄 (), 1, #A鍵, &_按鈕_繪畫_被單擊, 1).子程序 _按鈕_繪畫_被單擊.局部變量 a, 整數(shù)型.局部變量 b, 整數(shù)型.局部變量 鼠標(biāo)位置, 精易_坐標(biāo)程序_延時 (2000, )鼠標(biāo)位置 = 鼠標(biāo)_取位置 ()調(diào)試輸出 (1)開始 = 真.計次循環(huán)首 (畫板1.寬度, a)  .計次循環(huán)首 (畫板1.高度, b)    .如果 (畫板1.取點 (a, b) = 0)      程序_延時 (1)      鼠標(biāo)_移動 (, 鼠標(biāo)位置.橫 + a, 鼠標(biāo)位置.縱 + b)      鼠標(biāo)_按鍵 (1, 3)    .否則      鼠標(biāo)_按鍵 (1, 4)    .如果結(jié)束    系統(tǒng)_處理事件 ()    .如果真 (開始 = 假)      跳出循環(huán) ()    .如果真結(jié)束  .計次循環(huán)尾 ()  .如果真 (開始 = 假)    跳出循環(huán) ()  .如果真結(jié)束.計次循環(huán)尾 ()調(diào)試輸出 (2).子程序 _按鈕_載入_被單擊通用對話框1.初始目錄 = 取特定目錄 (3)通用對話框1.過濾器 = “PNG|*.png|JPG|*.jpg|BMP|*.bmp|JPGE|*.jpge”通用對話框1.打開 ()文件路徑 = 通用對話框1.文件名畫板1.底圖 = 讀入文件 (通用對話框1.文件名)畫板1.底圖 = 清除雜點 (二值化處理 (畫板1.取圖片 (, ), 150), 0).子程序 二值化處理, 字節(jié)集.參數(shù) 圖片, 字節(jié)集.參數(shù) 二值化值, 整數(shù)型.局部變量 位圖, 位圖.局部變量 x, 整數(shù)型.局部變量 y, 整數(shù)型.局部變量 RGB, 字節(jié)集.局部變量 顏色值, 整數(shù)型位圖.載入數(shù)據(jù) (圖片).計次循環(huán)首 (位圖.取高度 (), y)  .計次循環(huán)首 (位圖.取寬度 (), x)    RGB = 到字節(jié)集 (位圖.取某點顏色 (x - 1, y - 1))    顏色值 = (RGB [1] + RGB [2] + RGB [3]) ÷ 3    .如果 (二值化值 < 顏色值)      位圖.置某點顏色 (x - 1, y - 1, #白色)    .否則      位圖.置某點顏色 (x - 1, y - 1, #黑色)    .如果結(jié)束  .計次循環(huán)尾 ().計次循環(huán)尾 ()返回 (位圖.取位圖數(shù)據(jù) ()).子程序 清除雜點, 字節(jié)集.參數(shù) 圖片, 字節(jié)集, , 二值化后的圖片.參數(shù) 清除強度, 整數(shù)型, 可空, 默認為1.局部變量 位圖, 位圖.局部變量 x, 整數(shù)型.局部變量 y, 整數(shù)型.局部變量 x_, 整數(shù)型.局部變量 y_, 整數(shù)型.局部變量 i, 整數(shù)型.局部變量 a, 整數(shù)型.如果真 (是否為空 (清除強度))  清除強度 = 1.如果真結(jié)束位圖.載入數(shù)據(jù) (圖片).計次循環(huán)首 (位圖.取高度 (), y)  .計次循環(huán)首 (位圖.取寬度 (), x)    .如果真 (位圖.取某點顏色 (x - 1, y - 1) = #黑色)      a = 0      .計次循環(huán)首 (8, i)        x_ = 多項選擇 (i, 0, 1, 1, 1, 0, -1, -1, -1)        y_ = 多項選擇 (i, -1, -1, 0, 1, 1, 1, 0, -1)        .如果真 (位圖.取某點顏色 (x - 1 - x_, y - 1 - y_) = #黑色)          a = a + 1        .如果真結(jié)束      .計次循環(huán)尾 ()      .如果真 (a ≤ 清除強度)        位圖.置某點顏色 (x - 1, y - 1, #白色)      .如果真結(jié)束    .如果真結(jié)束  .計次循環(huán)尾 ().計次循環(huán)尾 ()返回 (位圖.取位圖數(shù)據(jù) ()).子程序 反色處理, 字節(jié)集.參數(shù) 圖片, 字節(jié)集.局部變量 位圖, 位圖.局部變量 x, 整數(shù)型.局部變量 y, 整數(shù)型.局部變量 RGB, 字節(jié)集位圖.載入數(shù)據(jù) (圖片).計次循環(huán)首 (位圖.取高度 (), y)  .計次循環(huán)首 (位圖.取寬度 (), x)    RGB = 到字節(jié)集 (位圖.取某點顏色 (x - 1, y - 1))    位圖.置某點顏色 (x - 1, y - 1, 取顏色值 (255 - RGB [1], 255 - RGB [2], 255 - RGB [3]))  .計次循環(huán)尾 ().計次循環(huán)尾 ()返回 (位圖.取位圖數(shù)據(jù) ()).子程序 _按鈕_黑白_被單擊畫板1.底圖 = 清除雜點 (二值化處理 (畫板1.取圖片 (, ), 150), 0).子程序 _按鈕_反色_被單擊畫板1.底圖 = 反色處理 (畫板1.取圖片 (, )).子程序 _滑塊條1_位置被改變調(diào)試輸出 (滑塊條1.位置)畫板1.底圖 = 讀入文件 (文件路徑)畫板1.底圖 = 清除雜點 (二值化處理 (畫板1.取圖片 (, ), 滑塊條1.位置), 0)

運行結(jié)果:

易語言,自動,繪畫

總結(jié)

以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對VeVb武林網(wǎng)的支持。


注:相關(guān)教程知識閱讀請移步到易語言教程頻道。
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 察哈| 积石山| 丰县| 乌拉特中旗| 红桥区| 墨玉县| 分宜县| 鲁山县| 望奎县| 土默特左旗| 华安县| 东至县| 高邑县| 湟源县| 达州市| 宾阳县| 分宜县| 北宁市| 韩城市| 渝中区| 平阴县| 青冈县| 根河市| 扎赉特旗| 台东县| 探索| 鹤壁市| 华池县| 南华县| 黄大仙区| 大邑县| 泽州县| 额敏县| 汤阴县| 离岛区| 开阳县| 潮州市| 昂仁县| 横峰县| 奈曼旗| 铁岭县|