📄 special128.bas
字号:
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
sum = sum + 17 * chk
End If
If ((st = "18") Or (ch = Chr(50))) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
sum = sum + 18 * chk
End If
If ((st = "19") Or (ch = Chr(51))) Then
Dl = RECTANGLE(hDc, x, b, x + w * r2, b + hgt)
x = x + w * 4 * 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 * 5 * r2
sum = sum + 19 * chk
End If
If ((st = "20") Or (ch = Chr(52))) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * 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 + 20 * chk
End If
If ((st = "21") Or (ch = Chr(53))) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 3 * r2
sum = sum + 21 * chk
End If
If ((st = "22") Or (ch = Chr(54))) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * 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 * r1, b + hgt)
x = x + w * 3 * r2
sum = sum + 22 * chk
End If
If ((st = "23") Or (ch = Chr(55))) Then
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
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * r2
sum = sum + 23 * chk
End If
If ((st = "24") Or (ch = Chr(56))) Then
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * 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 * 4 * r2
sum = sum + 24 * chk
End If
If ((st = "25") Or (ch = Chr(57))) Then
Dl = RECTANGLE(hDc, x, b, x + w * (r1 + r2), b + hgt)
x = x + w * (r1 + 2 * r2)
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * r2
Dl = RECTANGLE(hDc, x, b, x + w * r2, b + hgt)
x = x + w * (r2 + r2)
sum = sum + 25 * chk
End If
If ((st = "26") Or (ch = ":")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 5 * 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 * 3 * r2
sum = sum + 26 * chk
End If
If ((st = "27") Or (ch = ";")) Then
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 * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 3 * r2
sum = sum + 27 * chk
End If
If ((st = "28") Or (ch = "<")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 5 * r2
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
sum = sum + 28 * chk
End If
If ((st = "29") Or (ch = "=")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
sum = sum + 29 * chk
End If
If ((st = "30") Or (ch = ">")) Then
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 * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
sum = sum + 30 * chk
End If
If ((st = "31") Or (ch = "?")) Then
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 * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
sum = sum + 31 * chk
End If
If ((st = "32") Or (ch = "@")) Then
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * 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 * 3 * r2
sum = sum + 32 * chk
End If
If ((st = "33") Or (ch = "A")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
sum = sum + 33 * chk
End If
If ((st = "34") Or (ch = "B")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
sum = sum + 34 * chk
End If
If ((st = "35") Or (ch = "C")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, 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 + 35 * chk
End If
If ((st = "36") Or (ch = "D")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
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 * 4 * r2
sum = sum + 36 * chk
End If
If ((st = "37") Or (ch = "E")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, 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 * r1, b + hgt)
x = x + w * 4 * r2
sum = sum + 37 * chk
End If
If ((st = "38") Or (ch = "F")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
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
sum = sum + 38 * chk
End If
If ((st = "39") Or (ch = "G")) 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 * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
sum = sum + 39 * chk
End If
If ((st = "40") Or (ch = "H")) 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 * r1, b + hgt)
x = x + w * 4 * r2
sum = sum + 40 * chk
End If
If ((st = "41") Or (ch = "I")) 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 * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
sum = sum + 41 * chk
End If
If ((st = "42") Or (ch = "J")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 6 * r2
sum = sum + 42 * chk
End If
If ((st = "43") Or (ch = "K")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 2 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
x = x + w * 4 * r2
sum = sum + 43 * chk
End If
If ((st = "44") Or (ch = "L")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, 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 * 3 * r2, b + hgt)
x = x + w * 4 * r2
sum = sum + 44 * chk
End If
If ((st = "45") Or (ch = "M")) Then
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
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 5 * r2
sum = sum + 45 * chk
End If
If ((st = "46") Or (ch = "N")) Then
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 * 6 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 2 * r2, b + hgt)
x = x + w * 3 * r2
sum = sum + 46 * chk
End If
If ((st = "47") Or (ch = "O")) Then
Dl = RECTANGLE(hDc, x, b, x + w * r1, b + hgt)
x = x + w * 4 * r2
Dl = RECTANGLE(hDc, x, b, x + w * 3 * r2, b + hgt)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -