📄 aaa.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "LED-BCD"
ClientHeight = 2520
ClientLeft = 45
ClientTop = 435
ClientWidth = 5130
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2520
ScaleWidth = 5130
StartUpPosition = 3 '窗口缺省
Begin VB.OptionButton Yin
BackColor = &H0000C000&
Caption = "共阴"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2205
Style = 1 'Graphical
TabIndex = 2
Top = 105
Value = -1 'True
Width = 1275
End
Begin VB.OptionButton Yang
BackColor = &H0000C000&
Caption = "共阳"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3675
Style = 1 'Graphical
TabIndex = 1
Top = 105
Width = 1275
End
Begin VB.TextBox Text1
Height = 1485
Left = 2205
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 0
Top = 735
Width = 2745
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "7"
ForeColor = &H8000000E&
Height = 225
Index = 7
Left = 1680
TabIndex = 10
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 2100
Width = 225
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "6"
ForeColor = &H8000000E&
Height = 225
Index = 6
Left = 315
TabIndex = 9
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 1155
Width = 1065
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "5"
ForeColor = &H8000000E&
Height = 855
Index = 5
Left = 105
TabIndex = 8
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 315
Width = 225
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "4"
ForeColor = &H8000000E&
Height = 855
Index = 4
Left = 105
TabIndex = 7
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 1365
Width = 225
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "3"
ForeColor = &H8000000E&
Height = 225
Index = 3
Left = 315
TabIndex = 6
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 2205
Width = 1065
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "2"
ForeColor = &H8000000E&
Height = 855
Index = 2
Left = 1365
TabIndex = 5
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 1365
Width = 225
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "1"
ForeColor = &H8000000E&
Height = 855
Index = 1
Left = 1365
TabIndex = 4
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 315
Width = 225
WordWrap = -1 'True
End
Begin VB.Label P
Alignment = 2 'Center
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "0"
ForeColor = &H8000000E&
Height = 225
Index = 0
Left = 315
TabIndex = 3
ToolTipText = "鼠标左键点击LED亮或不亮,右键输入IO口线号"
Top = 105
Width = 1065
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function BCD(a As String) As Byte
Dim i As Byte
Dim j As Byte
Dim tmp() As Byte
Dim tmp1 As String
tmp1 = Trim(a)
i = Len(tmp1)
ReDim tmp(0 To i - 1) As Byte
If (i > 8) Then Exit Function '11111111=&HFF
For j = 0 To i - 1
tmp(j) = CByte(Right(tmp1, 1))
tmp1 = Left(tmp1, Len(tmp1) - 1)
Next
j = 0
For i = 0 To 7
j = j + tmp(i) * 2 ^ i
Next
BCD = j
End Function
Private Function LED2B() As String
Dim i As Byte
Dim j As Byte
Dim tmp(0 To 7) As String
Dim tmp1 As String
tmp1 = ""
For i = 0 To 7
j = CByte(P(i).Caption)
If P(i).BackColor = &H80000007 Then
If Yang Then
tmp(j) = "1"
Else
tmp(j) = "0"
End If
Else
If Yang Then
tmp(j) = "0"
Else
tmp(j) = "1"
End If
End If
Next
For i = 0 To 7
tmp1 = tmp(i) & tmp1
Next
LED2B = tmp1
End Function
Private Sub Form_Load()
GoGoGo
End Sub
Private Sub P_Click(Index As Integer)
If P(Index).BackColor = &HFF& Then
P(Index).BackColor = &H80000007
Else
P(Index).BackColor = &HFF&
End If
GoGoGo
End Sub
Private Sub P_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbRightButton Then Exit Sub
Dim a As String
Dim i As Byte
Dim j As Byte
Dim tmp As Byte
Dim tmp1 As Byte
tmp = CByte(P(Index).Caption)
a = InputBox("格式:" & Chr(13) & Chr(10) & "比如P10就输入0" & Chr(13) & Chr(10) & _
"P11就输入1" & Chr(13) & Chr(10) & "依此类推", "输入IO口线号")
If Len(a) > 1 Then Exit Sub
If Not IsNumeric(a) Then Exit Sub
If VarType(CByte(a)) <> vbByte Then Exit Sub
If a > 7 Or a < 0 Then Exit Sub
P(Index).Caption = a
For i = 0 To 7
If i <> Index Then
tmp1 = CByte(P(i).Caption)
If tmp1 = a Then
P(i).Caption = tmp
Exit For
End If
End If
Next
GoGoGo
End Sub
Private Sub GoGoGo()
Text1.Text = ""
Text1.Text = "二进制: " & LED2B & Chr(13) & Chr(10) & _
"十进制: " & BCD(LED2B) & Chr(13) & Chr(10) & _
"16进制: 0x" & Hex(BCD(LED2B))
End Sub
Private Sub Yang_Click()
GoGoGo
End Sub
Private Sub Yin_Click()
GoGoGo
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -