📄 special128.bas
字号:
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
sum = sum + 47 * chk
End If
If ((st = "48") Or (ch = "P")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
sum = sum + 48 * chk
End If
If ((st = "49") Or (ch = "Q")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, 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 * 3 * r2, b + hgt)
x = x + w * 4 * r2
sum = sum + 49 * chk
End If
If ((st = "50") Or (ch = "R")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * r2
sum = sum + 50 * chk
End If
If ((st = "51") Or (ch = "S")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
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 * 4 * r2
sum = sum + 51 * chk
End If
If ((st = "52") Or (ch = "T")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * 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 + 52 * chk
End If
If ((st = "53") Or (ch = "U")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
sum = sum + 53 * chk
End If
If ((st = "54") Or (ch = "V")) 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 * 2 * r2, b + hgt)
x = x + wd * 5 * r2
sum = sum + 54 * chk
End If
If ((st = "55") Or (ch = "W")) 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 * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 55 * chk
End If
If ((st = "56") Or (ch = "X")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * 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 * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 56 * chk
End If
If ((st = "57") Or (ch = "Y")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 4 * r2
sum = sum + 57 * chk
End If
If ((st = "58") Or (ch = "Z")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * 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 + 58 * chk
End If
If ((st = "59") Or (ch = "[")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 3 * r2, b + hgt)
x = x + wd * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 59 * chk
End If
If ((st = "60") Or (ch = "\")) Then
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
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 60 * chk
End If
If ((st = "61") Or (ch = "]")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 4 * 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 + 61 * chk
End If
If ((st = "62") Or (ch = "^")) Then
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
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 62 * chk
End If
If ((st = "63") 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 * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 6 * r2
sum = sum + 63 * chk
End If
If ((st = "64") Or (ch = Chr(0))) 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 * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 4 * r2
sum = sum + 64 * chk
End If
If ((st = "65") Or (ch = Chr(1)) Or (ch = "a")) 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 * 2 * r2, b + hgt)
x = x + wd * 6 * r2
sum = sum + 65 * chk
End If
If ((st = "66") Or (ch = Chr(2)) Or (ch = "b")) 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 * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 66 * chk
End If
If ((st = "67") Or (ch = Chr(3)) Or (ch = "c")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, 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 * 2 * r2, b + hgt)
x = x + wd * 4 * r2
sum = sum + 67 * chk
End If
If ((st = "68") Or (ch = Chr(4)) Or (ch = "d")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, 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 * 2 * r2, b + hgt)
x = x + wd * 3 * r2
sum = sum + 68 * chk
End If
If ((st = "69") Or (ch = Chr(5)) Or (ch = "e")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * r2, b + hgt)
x = x + wd * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 5 * r2
sum = sum + 69 * chk
End If
If ((st = "70") Or (ch = Chr(6)) Or (ch = "f")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
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 * 3 * r2
sum = sum + 70 * chk
End If
If ((st = "71") Or (ch = Chr(7)) Or (ch = "g")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, 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 * r1, b + hgt)
x = x + wd * 5 * r2
sum = sum + 71 * chk
End If
If ((st = "72") Or (ch = Chr(8)) Or (ch = "h")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 3 * r2
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
sum = sum + 72 * chk
End If
If ((st = "73") Or (ch = Chr(9)) Or (ch = "i")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, 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 * r1, b + hgt)
x = x + wd * 3 * r2
sum = sum + 73 * chk
End If
If ((st = "74") Or (ch = Chr(10)) Or (ch = "j")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * 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 + 74 * chk
End If
If ((st = "75") Or (ch = Chr(11)) Or (ch = "k")) 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 * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + wd * r1, b + hgt)
x = x + wd * 2 * r2
sum = sum + 75 * chk
End If
If ((st = "76") Or (ch = Chr(12)) Or (ch = "l")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 2 * 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 * r1, b + hgt)
x = x + wd * 5 * r2
sum = sum + 76 * chk
End If
If ((st = "77") Or (ch = Chr(13)) Or (ch = "m")) Then
Dl = RECTANGLE(hDc, x, b, x + wd * 4 * r2, b + hgt)
x = x + wd * 7 * r2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -