📄 special128.bas
字号:
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 77 * chk
End If
If ((st = "78") Or (ch = Chr(14)) Or (ch = "n")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 78 * chk
End If
If ((st = "79") Or (ch = Chr(15)) Or (ch = "o")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 79 * chk
End If
If ((st = "80") Or (ch = Chr(16)) Or (ch = "p")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
sum = sum + 80 * chk
End If
If ((st = "81") Or (ch = Chr(17)) Or (ch = "q")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
sum = sum + 81 * chk
End If
If ((st = "82") Or (ch = Chr(18)) Or (ch = "r")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 82 * chk
End If
If ((st = "83") Or (ch = Chr(19)) Or (ch = "s")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 83 * chk
End If
If ((st = "84") Or (ch = Chr(20)) Or (ch = "t")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 84 * chk
End If
If ((st = "85") Or (ch = Chr(21)) Or (ch = "u")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 85 * chk
End If
If ((st = "86") Or (ch = Chr(22)) Or (ch = "v")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 86 * chk
End If
If ((st = "87") Or (ch = Chr(23)) Or (ch = "w")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 87 * chk
End If
If ((st = "88") Or (ch = Chr(24)) Or (ch = "x")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 88 * chk
End If
If ((st = "89") Or (ch = Chr(25)) Or (ch = "y")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 89 * chk
End If
If ((st = "90") Or (ch = Chr(26)) Or (ch = "z")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 90 * chk
End If
If ((st = "91") Or (ch = Chr(27)) Or (ch = "{")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 91 * chk
End If
If ((st = "92") Or (ch = Chr(28)) Or (ch = "|")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 7 * r2
sum = sum + 92 * chk
End If
If ((st = "93") Or (ch = Chr(29)) Or (ch = "}")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 93 * chk
End If
If ((st = "94") Or (ch = Chr(30)) Or (ch = "~")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 94 * chk
End If
If ((st = "95") Or (ch = Chr(31))) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
sum = sum + 95 * chk
End If
If ((st = "96") Or (ch = "-77")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 7 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 96 * chk
End If
If ((st = "97") Or (ch = "-78")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
sum = sum + 97 * chk
End If
If ((st = "98") Or (ch = "-53")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 98 * chk
End If
If ((st = "99") Or (ch = "-54")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 99 * chk
End If
If ((st = "100") Or (ch = "-55")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
sum = sum + 100 * chk
End If
If ((st = "101") Or (ch = "-68")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 101 * chk
End If
If ((st = "102") Or (ch = "-71")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
sum = sum + 102 * chk
End If
chk = chk + 1
Next
If bar.lShowCheck = 1 Then
sum = (sum Mod 103)
'绘制检查字符
Select Case (sum)
Case 0:
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Case 1:
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Case 2:
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
Case 3:
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
Case 4:
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -