网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,197贴子：1,165,794
  • 44回复贴，共1页

求助:VB怎么做个 通用函数供其它事件调用...

Private Sub C3_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.InputLen = 0
sd = "01ED00BB8" '这行的东西不一样.......................
MSComm1.Output = Chr(5) + sd + SumChk(sd)
MSComm1.PortOpen = False
End If
End Sub
有几个按钮,功能都差不多.能不能在 VB通用那儿建立个....供几个按钮调用.
就像下面的SumChk()
Private Function SumChk(Dats$) As String
Dim i&
Dim CHK&
For i = 1 To Len(Dats)
CHK = CHK + Asc(Mid(Dats, i, 1))
Next i
SumChk = Right(Hex$(CHK), 2)
End Function


在模块里
public sub send(comm as MSComm,msg as string)
.......


public sub send(comm as MSComm,msg as string)
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.InputLen = 0
send= msg
MSComm1.Output = Chr(5) + sd + SumChk(sd)
MSComm1.PortOpen = False
End If
End Sub
Private Sub C3_Click()
msg="01ED00BB8"
end


public sub send(MSComm1 as MSComm,msg as string)
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.InputLen = 0
send= msg
MSComm1.Output = Chr(5) + sd + SumChk(sd)
MSComm1.PortOpen = False
End If
End Sub
Private Sub C3_Click()
msg="01ED00BB8"
send msg
end


public 一般都放在模块中调用，尽量用函数而不要去用过程。
If MSComm1.PortOpen = False Then
可能是 ： If form1.MSComm1.PortOpen = False Then


Private Sub MsComm1_OnComm()
Dim i%, cData$, byIN() As Byte
Select Case MSComm1.CommEvent
Case comEvCD '　CD 线的状态发生变化
Case comEvCTS '　CTS线的状态发生变化
Case comEvDSR '　DSR线的状态发生变化
Case comEvReceive '　DSR线的状态发生变化
'　用二进制模式接收十六进制数据：
MSComm1.InputMode = ComInputModeBinary
ReDim byIN(MSComm1.InBufferCount)
byIN = MSComm1.Input
For i = 0 To UBound(byIN)
If Len(Hex(byIN(i))) = 1 Then
cData = cData & "0" & Hex(byIN(i)) & " "
Else
cData = cData & Hex(byIN(i)) & " "
End If
Next
Text1.Text = vbCrLf & cData
End Select
End Sub
Public Sub jieshou() '　接收数据处理为16进制
Dim i As Integer
For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i))
Else
strData = strData & Hex(bytInput(i))
End If
Next i
Text1.Text = strData
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Text1.Text = ""
End Sub


我刚考完vb.运气不错。最后2道大题都是填?的填空题，但是运行不了，考试的时候。我就直接保存交卷了，后来室友说，前面的’注释符没去掉就零分！我一个都没去……有考过的大神……知道给分吗。好担心




兄弟，你需要的是要恶补一下基础。


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 44回复贴，共1页
分享到: