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

生成二維碼

.版本 2
.支持庫(kù) BmpOperate
.程序集 程序集1
.子程序 _啟動(dòng)子程序, 整數(shù)型, , 請(qǐng)?jiān)诒咀映绦蛑蟹胖靡啄K初始化代碼
_臨時(shí)子程序 ()
返回 (0)
.子程序 _臨時(shí)子程序
載入 (窗口1, , 假)
.子程序 快速生成二維碼, 字節(jié)集, 公開(kāi), 返回生成的二維碼圖像數(shù)據(jù)
.參數(shù) 原始文本, 文本型, , 超過(guò)120字符的只取前120字符，如果有漢字，可能出現(xiàn)亂碼
.參數(shù) 條碼版本, 整數(shù)型, 可空, 取值0～40，留空時(shí)為設(shè)置為0自動(dòng)
.參數(shù) 糾錯(cuò)級(jí)別, 整數(shù)型, 可空, 由低到高0～4，留空時(shí)為設(shè)置為0低
.參數(shù) 點(diǎn)陣大小, 雙精度小數(shù)型, 可空, 取值0.02～0.26，留空設(shè)置為0.02
.局部變量 圖片, 字節(jié)集
.局部變量 位圖, 位圖
.局部變量 目標(biāo)位圖, 位圖
.局部變量 I, 整數(shù)型
.局部變量 頂點(diǎn)X, 整數(shù)型
.局部變量 頂點(diǎn)Y, 整數(shù)型
.局部變量 寬高, 整數(shù)型
.如果真 (取文本長(zhǎng)度 (原始文本) ＞ 120)
  原始文本 ＝ 取文本左邊 (原始文本, 120)
.如果真結(jié)束
.如果真 (是否為空 (條碼版本))
  條碼版本 ＝ 0
.如果真結(jié)束
.如果真 (條碼版本 ＜ 0)
  條碼版本 ＝ 0
.如果真結(jié)束
.如果真 (條碼版本 ＞ 40)
  條碼版本 ＝ 40
.如果真結(jié)束
.如果真 (是否為空 (糾錯(cuò)級(jí)別))
  糾錯(cuò)級(jí)別 ＝ 0
.如果真結(jié)束
.如果真 (糾錯(cuò)級(jí)別 ＜ 0)
  糾錯(cuò)級(jí)別 ＝ 0
.如果真結(jié)束
.如果真 (糾錯(cuò)級(jí)別 ＞ 4)
  糾錯(cuò)級(jí)別 ＝ 4
.如果真結(jié)束
.如果真 (是否為空 (點(diǎn)陣大小))
  點(diǎn)陣大小 ＝ 0.02
.如果真結(jié)束
.如果真 (點(diǎn)陣大小 ＜ 0.02)
  點(diǎn)陣大小 ＝ 0.02
.如果真結(jié)束
.如果真 (點(diǎn)陣大小 ＞ 0.26)
  點(diǎn)陣大小 ＝ 0.26
.如果真結(jié)束
二維碼_設(shè)置文本信息 (原始文本)
二維碼_設(shè)置前景色 (255, 255, 255)
二維碼_設(shè)置背景色 (0, 0, 0)
二維碼_編碼參數(shù) (條碼版本, 糾錯(cuò)級(jí)別, 5)
二維碼_外形設(shè)置 (點(diǎn)陣大小, 1, 0)
二維碼_設(shè)置圖像分辨率 (400, 400)
二維碼_保存到bmp文件 (取運(yùn)行目錄 () ＋ “\二維碼圖片.bmp”)
位圖.創(chuàng)建 (400, 400, 1, 0)
位圖.載入文件 (取運(yùn)行目錄 () ＋ “\二維碼圖片.bmp”)
取位圖圖象頂點(diǎn) (位圖, 頂點(diǎn)X, 頂點(diǎn)Y)
.計(jì)次循環(huán)首 (399, I)
  .如果真 (位圖.取某點(diǎn)顏色 (頂點(diǎn)X ＋ I － 1, 頂點(diǎn)Y) ＝ 0 且 位圖.取某點(diǎn)顏色 (頂點(diǎn)X, 頂點(diǎn)Y ＋ I － 1) ＝ 0)
    寬高 ＝ I
  .如果真結(jié)束
  .如果真 (頂點(diǎn)X ＋ I － 1 ≥ 399 或 頂點(diǎn)Y ＋ I － 1 ≥ 399)
    跳出循環(huán) ()
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
目標(biāo)位圖.創(chuàng)建 (寬高, 寬高, 1, 0)
位圖.復(fù)制到 (頂點(diǎn)X, 頂點(diǎn)Y, 寬高, 寬高, 目標(biāo)位圖, 0, 0, )
圖片 ＝ 目標(biāo)位圖.取位圖數(shù)據(jù) ()
刪除文件 (取運(yùn)行目錄 () ＋ “\二維碼圖片.bmp”)
返回 (圖片)
.子程序 取位圖圖象頂點(diǎn)
.參數(shù) 位圖, 位圖
.參數(shù) 頂點(diǎn)X, 整數(shù)型, 參考
.參數(shù) 頂點(diǎn)Y, 整數(shù)型, 參考
.局部變量 X, 整數(shù)型
.局部變量 Y, 整數(shù)型
.計(jì)次循環(huán)首 (400, X)
  .計(jì)次循環(huán)首 (400, Y)
    .如果真 (位圖.取某點(diǎn)顏色 (X － 1, Y － 1) ＝ 0)
      頂點(diǎn)X ＝ X － 1
      頂點(diǎn)Y ＝ Y － 1
      返回 ()
    .如果真結(jié)束
  .計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()

轉(zhuǎn)換二維碼啟動(dòng)窗口

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

運(yùn)行結(jié)果：