📄 form1.frm
字号:
Case 9
Label6.Caption = "..#5"
Case 10
Label6.Caption = "..6"
Case 11
Label6.Caption = "..#6"
Case 12
Label6.Caption = "..7"
Case 13
Label6.Caption = ".1"
Case 14
Label6.Caption = ".#1"
Case 15
Label6.Caption = ".2"
Case 16
Label6.Caption = ".#2"
Case 17
Label6.Caption = ".3"
Case 18
Label6.Caption = ".4"
Case 19
Label6.Caption = ".#4"
Case 20
Label6.Caption = ".5"
Case 21
Label6.Caption = ".#5"
Case 22
Label6.Caption = ".6"
Case 23
Label6.Caption = ".#6"
Case 24
Label6.Caption = ".7"
Case 25
Label6.Caption = "1"
Case 26
Label6.Caption = "#1"
Case 27
Label6.Caption = "2"
Case 28
Label6.Caption = "#2"
Case 29
Label6.Caption = "3"
Case 30
Label6.Caption = "4"
Case 31
Label6.Caption = "#4"
Case 32
Label6.Caption = "5"
Case 33
Label6.Caption = "#5"
Case 34
Label6.Caption = "6"
Case 35
Label6.Caption = "#6"
Case 36
Label6.Caption = "7"
Case 37
Label6.Caption = "1."
Case 38
Label6.Caption = "#1."
Case 39
Label6.Caption = "2."
Case 40
Label6.Caption = "#2."
Case 41
Label6.Caption = "3."
Case 42
Label6.Caption = "4."
Case 43
Label6.Caption = "#4."
Case 44
Label6.Caption = "5."
Case 45
Label6.Caption = "#5."
Case 46
Label6.Caption = "6."
Case 47
Label6.Caption = "#6."
Case 48
Label6.Caption = "7."
Case 49
Label6.Caption = "1.."
Case 50
Label6.Caption = "#1.."
Case 51
Label6.Caption = "2.."
Case 52
Label6.Caption = "#2.."
Case 53
Label6.Caption = "3.."
Case 54
Label6.Caption = "4.."
Case 55
Label6.Caption = "#4.."
Case 56
Label6.Caption = "5.."
Case 57
Label6.Caption = "#5.."
Case 58
Label6.Caption = "6.."
Case 59
Label6.Caption = "#6.."
Case 60
Label6.Caption = "7.."
Case 61
Label6.Caption = "1..."
Case 62
Label6.Caption = "#1..."
Case 63
Label6.Caption = "2..."
Case 64
Label6.Caption = "#2..."
Case 65
Label6.Caption = "3..."
End Select
End Sub
Private Sub Picture1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 122 'z
Label6.Caption = "..1"
Index = 1
Case 90 'Z
Label6.Caption = "..#1"
Index = 2
Case 120 'x
Label6.Caption = "..2"
Index = 3
Case 88 'X
Label6.Caption = "..#2"
Index = 4
Case 99 'c
Label6.Caption = "..3"
Index = 5
Case 118 'v
Label6.Caption = "..4"
Index = 6
Case 86 'V
Label6.Caption = "..#4"
Index = 7
Case 98 'b
Label6.Caption = "..5"
Index = 8
Case 66 'B
Label6.Caption = "..#5"
Index = 9
Case 110 'n
Label6.Caption = "..6"
Index = 10
Case 78 'N
Label6.Caption = "..#6"
Index = 11
Case 109 'm
Label6.Caption = "..7"
Index = 12
Case 44 ',
Label6.Caption = ".1"
Index = 13
Case 60 '<
Label6.Caption = ".#1"
Index = 14
Case 46 '.
Label6.Caption = ".2"
Index = 15
Case 62 '>
Label6.Caption = ".#2"
Index = 16
Case 47 '/
Label6.Caption = ".3"
Index = 17
Case 97 'a
Label6.Caption = ".4"
Index = 18
Case 65 'A
Label6.Caption = ".#4"
Index = 19
Case 115 's
Label6.Caption = ".5"
Index = 20
Case 83 'S
Label6.Caption = ".#5"
Index = 21
Case 100 'd
Label6.Caption = ".6"
Index = 22
Case 68 'D
Label6.Caption = ".#6"
Index = 23
Case 102 'f
Label6.Caption = ".7"
Index = 24
Case 103 'g
Label6.Caption = "1"
Index = 25
Case 71 'G
Label6.Caption = "#1"
Index = 26
Case 104 'h
Label6.Caption = "2"
Index = 27
Case 72 'H
Label6.Caption = "#2"
Index = 28
Case 106 'j
Label6.Caption = "3"
Index = 29
Case 107 'k
Label6.Caption = "4"
Index = 30
Case 74 'K
Label6.Caption = "#4"
Index = 31
Case 108 'l
Label6.Caption = "5"
Index = 32
Case 75 'L
Label6.Caption = "#5"
Index = 33
Case 59 ';
Label6.Caption = "6"
Index = 34
Case 58 ':
Label6.Caption = "#6"
Index = 35
Case 39 ''
Label6.Caption = "7"
Index = 36
Case 113 'q
Label6.Caption = "1."
Index = 37
Case 81 'Q
Label6.Caption = "#1."
Index = 38
Case 119 'w
Label6.Caption = "2."
Index = 39
Case 87 'W
Label6.Caption = "#2."
Index = 40
Case 101 'e
Label6.Caption = "3."
Index = 41
Case 114 'r
Label6.Caption = "4."
Index = 42
Case 82 'R
Label6.Caption = "#4."
Index = 43
Case 116 't
Label6.Caption = "5."
Index = 44
Case 84 'T
Label6.Caption = "#5."
Index = 45
Case 121 'y
Label6.Caption = "6."
Index = 46
Case 89 'Y
Label6.Caption = "#6."
Index = 47
Case 117 'u
Label6.Caption = "7."
Index = 48
Case 105 'i
Label6.Caption = "1.."
Index = 49
Case 73 'I
Label6.Caption = "#1.."
Index = 50
Case 111 'o
Label6.Caption = "2.."
Index = 51
Case 79 'O
Label6.Caption = "#2.."
Index = 52
Case 112 'p
Label6.Caption = "3.."
Index = 53
Case 91 '[
Label6.Caption = "4.."
Index = 54
Case 123 '{
Label6.Caption = "#4.."
Index = 55
Case 93 ']
Label6.Caption = "5.."
Index = 56
Case 125 '}
Label6.Caption = "#5.."
Index = 57
Case 49 '1
Label6.Caption = "6.."
Index = 58
Case 33 '!
Label6.Caption = "#6.."
Index = 59
Case 50 '2
Label6.Caption = "7.."
Index = 60
Case 51 '3
Label6.Caption = "1..."
Index = 61
Case 35 '#
Label6.Caption = "#1..."
Index = 62
Case 52 '4
Label6.Caption = "2..."
Index = 63
Case 36 '$
Label6.Caption = "#2..."
Index = 64
Case 53 '5
Label6.Caption = "3..."
Index = 65
Case 54 '6
Label6.Caption = "4..."
Index = 66
Case 94 '^
Label6.Caption = "#4..."
Index = 67
Case 55 '7
Label6.Caption = "5..."
Index = 68
Case 38 '&
Label6.Caption = "#5..."
Index = 69
Case 56 '8
Label6.Caption = "6..."
Index = 70
Case 42 '*
Label6.Caption = "#6..."
Index = 71
Case 57 '9
Label6.Caption = "7..."
Index = 72
End Select
Label7.Caption = Sta + Index
'Dim num As Integer
Dim outdata(0) As Byte
Data = Val(Label7.Caption)
outdata(0) = CByte(Data) '数据
MSComm1.OutBufferCount = 0
MSComm1.Output = outdata() '动态数组
Timer1.Enabled = True
Timer1.Interval = 250
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Option1_Click()
MSComm1.DTREnable = True
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub Option2_Click()
MSComm1.DTREnable = True
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub HScroll1_Change()
Sta = HScroll1.Value
Select Case Sta
Case 0
Text1.Text = "C"
Case 0
Text1.Text = "#C"
Case 2
Text1.Text = "D"
Case 3
Text1.Text = "#D"
Case 4
Text1.Text = "E"
Case 5
Text1.Text = "F"
Case 6
Text1.Text = "#F"
Case 7
Text1.Text = "G"
Case 8
Text1.Text = "#G"
Case 9
Text1.Text = "A"
Case 10
Text1.Text = "#A"
Case 11
Text1.Text = "B"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -