?? 51
字號:
Index = 5
Left = 735
TabIndex = 10
Top = 460
Width = 795
End
Begin VB.OptionButton optComPort
Caption = "COM5"
Height = 255
Index = 4
Left = 735
TabIndex = 9
Top = 195
Width = 795
End
Begin MSCommLib.MSComm ComPort
Left = 4920
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InputMode = 1
End
Begin VB.OptionButton optComPort
Caption = "COM4"
Height = 255
Index = 3
Left = 60
TabIndex = 8
Top = 975
Width = 795
End
Begin VB.OptionButton optComPort
Caption = "COM3"
Height = 255
Index = 2
Left = 60
TabIndex = 7
Top = 715
Width = 795
End
Begin VB.OptionButton optComPort
Caption = "COM2"
Height = 255
Index = 1
Left = 60
TabIndex = 6
Top = 455
Width = 795
End
Begin VB.OptionButton optComPort
Caption = "COM1"
Height = 255
Index = 0
Left = 60
TabIndex = 5
Top = 195
Value = -1 'True
Width = 795
End
Begin VB.CommandButton cmdDisconnect
Caption = "斷開"
Enabled = 0 'False
Height = 375
Left = 1500
TabIndex = 3
Top = 2400
Width = 1230
End
Begin VB.CommandButton cmdConnect
Caption = "連接"
Height = 375
Left = 105
TabIndex = 2
Top = 2385
Width = 1230
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 375
Left = 795
TabIndex = 1
Top = 3270
Width = 1230
End
Begin VB.Label lblStatus
Alignment = 2 'Center
Caption = "空閑"
Height = 240
Left = 60
TabIndex = 4
Top = 1485
Width = 2850
End
End
Begin VB.Frame Frame1
Caption = "接收數據顯示窗口"
Height = 2160
Left = 3705
TabIndex = 24
Top = 2400
Visible = 0 'False
Width = 4395
End
Begin VB.TextBox Text6
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H8000000A&
BeginProperty Font
Name = "宋體"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 4125
TabIndex = 26
Text = "FF"
Top = 255
Visible = 0 'False
Width = 360
End
Begin VB.TextBox Text4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000016&
BeginProperty Font
Name = "宋體"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 3675
TabIndex = 25
Text = "11111111"
Top = 270
Visible = 0 'False
Width = 360
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Dim hi, j, zd, yy
Dim strData As String
Dim bytInput() As Byte
Dim bytSendByte() As Byte '發送二進制數據
Dim sBarcodeTemp As String
Dim sInTemp As String
Public Function DecimaltoHex(ByVal Dec As Long) As String
Dim Hex As String
Dim r As Long
Dim Maks As Boolean
If Dec > 0 Then
Do While Dec <> 0
r = Abs(Dec Mod 16)
Dec = Dec \ 16
Hex = IIf(r > 9, Chr(55 + r), r) & Hex
Loop
Else
Maks = True
Do While Dec <> 0
r = 15 - Abs(Dec Mod 16) - Maks
Maks = r = 16
r = IIf(r = 16, 0, r)
Dec = Dec \ 16
Hex = IIf(r > 9, Chr(55 + r), r) & Hex
Loop
End If
DecimaltoHex = IIf(Len(Hex) = 0, "00", Right("00" & Hex, 2))
End Function
Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
Select Case Index
Case Index:
If Check1.Item(Index).Value = 1 Then
Shape1.Item(Index).FillColor = &HFF
Else
Shape1.Item(Index).FillColor = &HFFFFFF
End If
End Select
For ck = 0 To 7
If Check1.Item(7 - ck).Value = 1 Then
ckv = 0
Else
ckv = 1
End If
Text1.Text = Text1.Text & ckv
Next ck
End Sub
Private Sub Check2_Click(Index As Integer)
If ComPort.PortOpen = False Then
MsgBox "請先連接串口，然后在操作", vbInformation, "銳志電子溫馨提示"
Exit Sub
End If
Text4.Text = ""
Select Case Index
Case Index:
If Check2.Item(Index).Value = 1 Then
Shape2.Item(Index).FillColor = &HFF
Else
Shape2.Item(Index).FillColor = &HFFFFFF
End If
End Select
For ck = 0 To 7
If Check2.Item(7 - ck).Value = 1 Then
ckv = 0
Else
ckv = 1
End If
Text4.Text = Text4.Text & ckv
Next ck
sendbin (Text6.Text)
End Sub
Private Sub cmdConnect_Click()
'查找指定端口
Dim i As Integer
For i = 1 To 16
If optComPort(i - 1).Value = True Then
ComPort.CommPort = i
Exit For '跳出循環
End If
Next
If ComPort.PortOpen = True Then ComPort.PortOpen = False '如果端口打開則先關閉
ComPort.PortOpen = True '然后打開
'狀態信息
lblStatus = "已連接..."
''Text1.Text = "EXIT"
cmdConnect.Enabled = False
cmdDisconnect.Enabled = True
End Sub
Private Sub cmdDisconnect_Click()
'斷開連接
If ComPort.PortOpen = True Then ComPort.PortOpen = False
lblStatus = "已斷開..."
cmdDisconnect.Enabled = False
cmdConnect.Enabled = True
End Sub
Private Sub cmdExit_Click()
'先斷開端口再退出程序
If ComPort.PortOpen = True Then ComPort.PortOpen = False
Unload Me
End
End Sub
Private Sub Command1_Click()
If ComPort.PortOpen = False Then
MsgBox "請先連接串口，然后在操作", vbInformation, "銳志電子溫馨提示"
Exit Sub
End If
Select Case UCase(Text7)
Case 0
sendbin ("C0")
Case 1
sendbin ("F9")
Case 2
sendbin ("A4")
Case 3
sendbin ("B0")
Case 4
sendbin ("99")
Case 5
sendbin ("92")
Case 6
sendbin ("82")
Case 7
sendbin ("F8")
Case 8
sendbin ("80")
Case 9
sendbin ("90")
Case "A"
sendbin ("88")
Case "B"
sendbin ("83")
Case "C"
sendbin ("C6")
Case "D"
sendbin ("A1")
Case "E"
sendbin ("86")
Case "F"
sendbin ("8E")
End Select
End Sub
Public Function StrtoHex(ByVal strs As String) As String 'str to 16
Dim abytS() As Byte
Dim bytTemp As Byte
Dim strTemp As String
Dim lLocation As Long
abytS = StrConv(strs, vbFromUnicode)
For lLocation = 0 To UBound(abytS)
bytTemp = abytS(lLocation)
strTemp = Hex(bytTemp)
strTemp = Right("00" & strTemp, 2)
StrtoHex = StrtoHex & strTemp
Next lLocation
End Function
Public Function HextoStr(ByVal strs As String) As String '16 to str
Dim i As Integer, tmp As String
If Len(strs) Mod 2 Then Exit Function
For i = 1 To Len(strs) Step 2
n = Val("&H" & Mid(strs, i, 2))
If n < 0 Or n > 127 Then
n = Val("&H" & Mid(strs, i, 4))
i = i + 2
End If
tmp = tmp & Chr(n)
Next i
HextoStr = tmp
End Function
Private Sub Command2_Click()
If ComPort.PortOpen = False Then
MsgBox "請先連接串口，然后在操作", vbInformation, "銳志電子溫馨提示"
Exit Sub
End If
Text5.Text = "C0F9A4B0999282F880908883C6A1868E"
Timer1.Enabled = True
End Sub
Public Function D_To_B(ByVal Dec As Long) As String
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -