vb编程实例讲解、告诉我一些简单的vb编程代码？( 八 ) _vb编程实例

=
Val(Text1.Text)
-
Val(Text2.Text)
'（-）被点时运行这里
End
Sub
Private
Sub
Command3_Click()
Text3.Text
=
Val(Text1.Text)
*
Val(Text2.Text)
'command3("*")被点时运行这里
End
Sub
Private
Sub
Command4_Click()
Text3.Text
=
Val(Text1.Text)
/
Val(Text2.Text)
'command4("/")被点时运行这里
End
Sub
Q5：vb串口通信程序实例
我也是自己摸索开发出来的每一款VBtoCOM通讯，有具体的思路如下：
给你推荐一个工具“com串口测试工具 ComTone V1.0 中文绿色版”
1、打开你的噪音计的测试软件，调整好串口号、通讯频率等等，我用温度计举例说明。
开始查询后有返回数值，这个Receive：就是返回的数值000304012200004b05,
打开串口监视精灵，监视软件的com口事件：
这里面的Write是测试软件发出的查询指令，read是设备返回的数据指令
Private Sub Command1_Click() '发送指令
If Not MSComm1.PortOpen Then
MSComm1.CommPort = 7 '串口为7
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.InputLen = 0 '读取接收缓冲区的所有字符
MSComm1.PortOpen = True'打开串口
MSComm1.RTSEnable = False '置为发送状态
End If
Dim pu() As Byte
Dim strdataAs String
Dim crc_js() As Byte
ReDim pu(7)'这个数组是8位的查询指令
pu(0) = "&H00" '温度计地址
pu(1) = "&H03" '查询指令
pu(2) = "&H00" '2、3为温度计地址
pu(3) = "&H00" '2、3为温度计地址
pu(4) = "&H00" '4、5为读取寄存器长度
pu(5) = "&H02" '4、5为读取寄存器长度
pu(6) = "&HC5" '6、7为CRC校验码因为我们不知道设备的CRC校验规则所以用测试软件产生的校验码
pu(7) = "&HDA" '6、7为CRC校验码
MSComm1.Output = pu
'不做任何事情，仅仅允许其它应用程序处理它们的事件。
DoEvents
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.RThreshold = 9 '所要接收的数据长度，我们通过COM检测精灵看到了回传数据一共是9字节
MSComm1.RTSEnable = True '转为接收状态
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen Then
MSComm1.PortOpen = False'关闭串口
End If
Timer1.Enabled = False
End Sub
Private Sub MSComm1_OnComm() 'COM事件
Dim PA() As Byte
Dim PB As String
Select Case MSComm1.CommEvent
Case comEvReceive
MSComm1.InputLen = 0 '读取接收缓冲区的所有字符
PB = MSComm1.Input
PA() = PB
For i = 0 To UBound(PA())
'Print "PA(" & i & ")"; PA(i)
If Len(Hex(PA(i))) = 1 Then
strdata = https://www.08ts.cn/strdata &"0" & Hex(PA(i))
Else
strdata = https://www.08ts.cn/strdata & Hex(PA(i))
End If
Next
'回传的数据串：000304012600000AC4，这9字节根据通讯协议我们进行拆分
'00为协议内回传机号，03为读命令，04为返回的数据长度 0126 为我要的温度数据为十六进制表达，下面我进行数据处理
wd = CLng("&H" & Left(Right(strdata, 12), 4)) / 10 & "℃"'根据通讯协议换算成温度
Text1 = Text1 & vbCrLf & strdata & "" & wd
strdatahttps://www.08ts.cn/= ""
MSComm1.PortOpen = False'关闭串口
End Select
End Sub
Private Sub Timer1_Timer()
Call Command1_Click
End Sub
这是我的测试结果。
下面是通讯协议
这个是我的软件用检测精灵检测的结果

Q6：告诉我一些简单的vb编程代码
给几个写的模块给你看看
Public Function LoadData(strSQL As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
If Not rst.EOF Then
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
If fld.Name = ctl.Name Then
ctl = rst(fld.Name)
Exit For
End If
Next
End If
Next
End If
rst.Close
Set rst = Nothing
End Function
Public Function AddData(TableName As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
Set rst = CurrentDb.OpenRecordset(TableName, , dbReadOnly)
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then

vb编程实例讲解、告诉我一些简单的vb编程代码？( 八 )

推荐阅读

现金|来自狱友的“杀熟”，男子狱中交友出狱行骗再进班房

|同行丈夫表示毫不知情：我都不知道她怀孕！，女子公厕，15 分钟产子丢垃圾桶后离开

咖啡店被瑞幸“打败”的星巴克又有新招：全球首家办公咖啡厅来了

白煮秋葵，怎么做才好吃？

婚恋|以家人之名：子秋编造尖尖开房，凌霄报警，李尖尖气到断绝关系

板栗怎么剥皮比较快生栗子怎么剥皮

「」可乐鸡翅的做法窍门

民警|住手！别再疯狂试探了！

电子商务法对微商代购监管加码有人沉寂，有人转型

云南省境内玉蒙铁路的火车终点站玉蒙铁路

浅色衣服染上颜色了怎么办？

青年|主公！八百里加急战报！这一战已在所难免……

工作计划范文?工作计划书范文大全

娱乐火锅历史|这四个地方能不去就不去，不仅无用还伤面子，受用了，人在低谷

人到中年，如果不差钱，建议常吃这5种食物，好过天天吃保健品

蛆虫可以吃吗

『前瞻网』7种疫苗同时开发中，砸钱提速!比尔·盖茨称1年内疫苗规模化生产

关系|鬼谷子大智慧：真正会说话的人，都特别重视“关系”的重要性

宁静：靠 “真性情”活成娱乐圈颜色不一样的烟火

澎湃新闻|从贫困县到“猎奇景区”，负债累累的独山县火了