易語言中怎么制作二維碼生成器

小編給大家分享一下易語言中怎么制作二維碼生成器，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

DLL命令表

.版本 2
.DLL命令 二維碼_外形設置, , "QRCodeWin32.dll", "QRAppearance"
  .參數 模塊尺寸, 雙精度小數型
  .參數 方向, 整數型
  .參數 邊框, 整數型
.DLL命令 二維碼_編碼參數, , "QRCodeWin32.dll", "QRConfigure"
  .參數 版本, 整數型
  .參數 糾錯級別, 整數型
  .參數 掩膜, 整數型
.DLL命令 二維碼_默認設置, , "QRCodeWin32.dll", "QRSetDefault"
.DLL命令 二維碼_設置文本信息, , "QRCodeWin32.dll", "QRSetMessage"
  .參數 文本, 文本型
.DLL命令 二維碼_獲取模塊數, , "QRCodeWin32.dll", "QRGetActualRC"
  .參數 行, 整數型, 傳址
  .參數 列, 整數型, 傳址
.DLL命令 二維碼_設置圖像分辨率, , "QRCodeWin32.dll", "QRSetSize"
  .參數 寬度, 整數型
  .參數 高度, 整數型
.DLL命令 二維碼_保存到bmp文件, 整數型, "QRCodeWin32.dll", "QRSaveAsBMP"
  .參數 文件名, 文本型
.DLL命令 二維碼_復制wmf圖片到剪輯板, 整數型, "QRCodeWin32.dll", "QRCopyToClipboard"
.DLL命令 二維碼_設置前景色, , "QRCodeWin32.dll", "QRSetBackColor"
  .參數 紅, 整數型
  .參數 綠, 整數型
  .參數 藍, 整數型
.DLL命令 二維碼_設置背景色, , "QRCodeWin32.dll", "QRSetBarColor"
  .參數 紅, 整數型
  .參數 綠, 整數型
  .參數 藍, 整數型

生成二維碼

.版本 2
.支持庫 BmpOperate
.程序集 程序集1
.子程序 _啟動子程序, 整數型, , 請在本子程序中放置易模塊初始化代碼
_臨時子程序 ()
返回 (0)
.子程序 _臨時子程序
載入 (窗口1, , 假)
.子程序 快速生成二維碼, 字節集, 公開, 返回生成的二維碼圖像數據
.參數 原始文本, 文本型, , 超過120字符的只取前120字符，如果有漢字，可能出現亂碼
.參數 條碼版本, 整數型, 可空, 取值0～40，留空時為設置為0自動
.參數 糾錯級別, 整數型, 可空, 由低到高0～4，留空時為設置為0低
.參數 點陣大小, 雙精度小數型, 可空, 取值0.02～0.26，留空設置為0.02
.局部變量 圖片, 字節集
.局部變量 位圖, 位圖
.局部變量 目標位圖, 位圖
.局部變量 I, 整數型
.局部變量 頂點X, 整數型
.局部變量 頂點Y, 整數型
.局部變量 寬高, 整數型
.如果真 (取文本長度 (原始文本) ＞ 120)
  原始文本 ＝ 取文本左邊 (原始文本, 120)
.如果真結束
.如果真 (是否為空 (條碼版本))
  條碼版本 ＝ 0
.如果真結束
.如果真 (條碼版本 ＜ 0)
  條碼版本 ＝ 0
.如果真結束
.如果真 (條碼版本 ＞ 40)
  條碼版本 ＝ 40
.如果真結束
.如果真 (是否為空 (糾錯級別))
  糾錯級別 ＝ 0
.如果真結束
.如果真 (糾錯級別 ＜ 0)
  糾錯級別 ＝ 0
.如果真結束
.如果真 (糾錯級別 ＞ 4)
  糾錯級別 ＝ 4
.如果真結束
.如果真 (是否為空 (點陣大小))
  點陣大小 ＝ 0.02
.如果真結束
.如果真 (點陣大小 ＜ 0.02)
  點陣大小 ＝ 0.02
.如果真結束
.如果真 (點陣大小 ＞ 0.26)
  點陣大小 ＝ 0.26
.如果真結束
二維碼_設置文本信息 (原始文本)
二維碼_設置前景色 (255, 255, 255)
二維碼_設置背景色 (0, 0, 0)
二維碼_編碼參數 (條碼版本, 糾錯級別, 5)
二維碼_外形設置 (點陣大小, 1, 0)
二維碼_設置圖像分辨率 (400, 400)
二維碼_保存到bmp文件 (取運行目錄 () ＋ “\二維碼圖片.bmp”)
位圖.創建 (400, 400, 1, 0)
位圖.載入文件 (取運行目錄 () ＋ “\二維碼圖片.bmp”)
取位圖圖象頂點 (位圖, 頂點X, 頂點Y)
.計次循環首 (399, I)
  .如果真 (位圖.取某點顏色 (頂點X ＋ I － 1, 頂點Y) ＝ 0 且 位圖.取某點顏色 (頂點X, 頂點Y ＋ I － 1) ＝ 0)
    寬高 ＝ I
  .如果真結束
  .如果真 (頂點X ＋ I － 1 ≥ 399 或 頂點Y ＋ I － 1 ≥ 399)
    跳出循環 ()
  .如果真結束
.計次循環尾 ()
目標位圖.創建 (寬高, 寬高, 1, 0)
位圖.復制到 (頂點X, 頂點Y, 寬高, 寬高, 目標位圖, 0, 0, )
圖片 ＝ 目標位圖.取位圖數據 ()
刪除文件 (取運行目錄 () ＋ “\二維碼圖片.bmp”)
返回 (圖片)
.子程序 取位圖圖象頂點
.參數 位圖, 位圖
.參數 頂點X, 整數型, 參考
.參數 頂點Y, 整數型, 參考
.局部變量 X, 整數型
.局部變量 Y, 整數型
.計次循環首 (400, X)
  .計次循環首 (400, Y)
    .如果真 (位圖.取某點顏色 (X － 1, Y － 1) ＝ 0)
      頂點X ＝ X － 1
      頂點Y ＝ Y － 1
      返回 ()
    .如果真結束
  .計次循環尾 ()
.計次循環尾 ()

轉換二維碼啟動窗口

.版本 2
.程序集 窗口程序集1
.子程序 _生成按鈕_被單擊
二維碼圖片框.圖片 ＝ 快速生成二維碼 (要轉換內容編輯框.內容, 到數值 (組合框_版本.現行選中項), 到數值 (組合框_糾錯.現行選中項), 到數值 (組合框_點陣.內容))
.子程序 _窗口1_創建完畢
組合框_版本賦值 ()
_生成按鈕_被單擊 ()
.子程序 組合框_版本賦值
.局部變量 n, 整數型
.局部變量 像素, 整數型
.局部變量 文本, 文本型
.局部變量 數值, 雙精度小數型
數值 ＝ 0.02
像素 ＝ 21
組合框_版本.加入項目 (“自動”, )
.計次循環首 (40, n)
  文本 ＝ 到文本 (像素)
  組合框_版本.加入項目 (“版本_” ＋ 到文本 (n) ＋ “  ” ＋ 文本 ＋ “×” ＋ 文本, )
  像素 ＝ 像素 ＋ 4
.計次循環尾 ()
.計次循環首 (24, n)
  數值 ＝ 數值 ＋ 0.01
  組合框_點陣.加入項目 (到文本 (數值), )
.計次循環尾 ()

運行結果：

以上是“易語言中怎么制作二維碼生成器”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！