UC知道请VB高手帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/22 07:46:55
我想在文本框中显示接受到的所有十六进制数据，并在图片框上显示相关波形，不知道怎么修改我下面的程序，请高手帮帮忙
Option Explicit
Dim num As Integer, i As Integer, A3 As String, A0 As String
Dim instring() As Byte
Private Sub Command1_Click()
Dim a!(30), b!(30)
num = MSComm1.InBufferCount
instring = MSComm1.Input
For i = 0 To num - 1
a(i) = i
b(i) = instring(i)
Text2.Text = Hex(b(i))
Graph1.Cls
If i = 1 Then
Graph1.PSet (a(i), b(i))
Else
Graph1.Line -(a(i), b(i))
End If
Next i
End Sub
'=================================
'2进制转换为10进制
Private Function BIN() As String
Dim tmpVal As String, iCount As Long
Dim tmpV As String
For iCount = 1 To Len(strA)
tmpVal = Val(tmpVal) + Val(Mid$(strA, iCount, 1)) * (2 ^ (Len(strA) - iCount))
Next iCount
A0 = tmpVal
End Function
Private Sub Command2_Click()
Dim i As Single
i = Val(Text1.Text)
If Text1.Text = &qu
Option Explicit
Dim num As Integer, i As Integer, A3 As String, A0 As String
Dim instring() As Byte
Private Sub Command1_Click()
Dim a!(30), b!(30)
num = MSComm1.InBufferCount
instring = MSComm1.Input
For i = 0 To num - 1
a(i) = i
b(i) = instring(i)
Text2.Text = Hex(b(i))
Graph1.Cls
If i = 1 Then
Graph1.PSet (a(i), b(i))
Else
Graph1.Line -(a(i), b(i))
End If
Next i
End Sub
'=================================
'2进制转换为10进制
Private Function BIN() As String
Dim tmpVal As String, iCount As Long
Dim tmpV As String
For iCount = 1 To Len(strA)
tmpVal = Val(tmpVal) + Val(Mid$(strA, iCount, 1)) * (2 ^ (Len(strA) - iCount))
Next iCount
A0 = tmpVal
End Function
Private Sub Command2_Click()
Dim i As Single
i = Val(Text1.Text)
If Text1.Text = &qu
看我的
用菜单编辑器
控件 name 标题 文本 边界
文本框 txtbox
标签1 label1 十进制
标签2 . 八进制
标签3 . 十六进制
标签4 . 1-fixed single
标签5 .(一样)
标签6 label6
菜单编辑器上
八进制 octv
十进制 dec
十六进制 hexv
Private sub octv_click
answer=val(txtbox.text)
octv.checked=true
dec.checked=false
hexv.checked=false
label5.caption=oct$(answer)
end sub
Private sub dec_click
answer=val(txtbox.text)
octv.checked=false
dec.checked=true
hexv.checked=false
label4.caption=format(answer)
end sub
Private sub hexv_click
answer=val(txtbox.text)
octv.checked=false
dec.checked=false
hexv.checked=true
label4.caption=hex$(answer)
end sub