VB中这段程序是什么意思？
VB中这段程序是什么意思？
Option Explicit
Dim datatemp As Single
Dim dataway As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
MSComm1.PortOpen = True
Command1.Enabled = False
Command2.Enabled = True
Public Sub wendusms(GSM_text As String, number As String, timein As String)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connstr As String
Set conn = New ADODB.Connection
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\数据库\yonghu.mdb"
conn.Open connstr
Set rs = New ADODB.Recordset
rs.Open "温度记录", conn, 0, 2, 2
rs("温度") = GSM_text
rs("操作员") = number
rs("时间") = timein
Set rs = Nothing
conn.Close
Set conn = Nothing
Private Sub Command2_Click()
Timer1.Enabled = False
MSComm1.PortOpen = False
Command1.Enabled = True
Command2.Enabled = False
Private Sub Command3_Click()
Private Sub Form_Load()
Command2.Enabled = False
Private Sub MSComm1_OnComm()
Dim inbyte() As Byte
Dim buffer As String
Select mEvent
Case comEvReceive
Dim i%, buf$
'""没有空格
inbyte = MSComm1.Input
For i = LBound(inbyte) To UBound(inbyte)
buf = buf + Hex(inbyte(i)) + Chr(32)
Case comEvSend
End Select
buffer = buffer + buf
'十进制转换
If Len(RTrim(Mid(buffer, 1, 2))) = 1 Then
datatemp = Val("&H" & Mid(buffer, 3, 2) & Str("0") & Mid(buffer, 1, 2)) * 0.1
datatemp = Val("&H" & Mid(buffer, 3, 2) & Mid(buffer, 1, 2)) * 0.1
If datatemp
smstext.Text = Format$(datatemp, "0.0")
Private Sub Timer1_Timer()
MSComm1.Output = Chr(&H8181) + Chr(&H52) + Chr(&HC)
smstime.Text = Year(Now) & "-" & Month(Now) & "-" & Day(Now) & "
Call wendusms(smstext.Text, smsno.Text, smstime.Text)
请一句一句的解说，或者留下QQ，教我一下！
nu=inputbox(&nu=&)
弹出个输入对话框显示 nu=
让你输入的东西赋给nun=str(nu)
把 nu变量的值转换成字符串 赋给 n p=instr(n,&.&)
instr是查找函数，查找第二个参数“.” 在n中首次出现的位置，返回值给pif p&0 then
如果p大于 0，就是找到了，没找到p等于0print mid(n.p)
在窗体上输出
mid是从p位置开始 返回n变量里面的字符到窗体（n.p）里面可能是逗号else
上面if 不成立，执行这里。print &end&
在窗体上输出 endend if
if 条件语句结束
请问可以帮我吧 关键程序语言解释一下功能吗
其他回答 (3)
选择明确
　　作为一个datatemp暗淡
　　昏暗的dataway为整数
　　Command1 _点击(私人替补)。
　　Timer1。真正使=
　　MSComm1。PortOpen =是真实的
　　Command1。使=错误
　　Command2。真正使=
　　最后潜艇
　　亚wendusms(GSM __公众文本字符串、数字、快速的字符串)。
　　作为ADODB.Connection本周二暗淡
　　作为ADODB.Recordset昏暗
　　昏暗的connstr作为字符串
　　本周二=新ADODB.Connection集合
　　connstr = &提供商= microsoft.jet.oledb.4.0数据源= & &;应用程序路及“\数据库yonghu.mdb \ &
　　伊。打开connstr
　　新ADODB.Recordset rs =集合
　　拉尔夫-舒马赫。打开“温度记录”,&九零年代,0,2、2
　　rs.AddNew
　　如果快速& &”
　　拉尔夫-舒马赫(“温度”)= GSM _文本
　　拉尔夫-舒马赫(“操作员”)=号码
　　拉尔夫-舒马赫(“时间”)=快速
　　rs.Update
　　如果
　　rs.Close
　　设置rs =一无所有
　　conn.Close
　　本周二=不设置
　　最后潜艇
　　Command2 _点击(私人替补)。
　　Timer1。使=错误
　　MSComm1。PortOpen =错误
　　Command1。真正使=
　　Command2。使=错误
　　最后潜艇
　　Command3 _点击(私人替补)。
　　我卸下
　　最后
　　最后潜艇
　　私人潜艇装载形式()。
　　Command2。使=错误
　　最后潜艇
　　MSComm1 _ OnComm私人替补()。
　　昏暗的inbyte()为字节
　　昏暗的缓冲作为字符串
　　mEvent选择案例
　　案例comEvReceive
　　我buf昏暗,美元
　　buf = &的&没有空格
　　inbyte = MSComm1.Input
　　因为我= LBound(inbyte)UBound(inbyte)。
　　buf = buf +十六进制(inbyte(我)+(32)。
　　第二天我
　　案例comEvSend
　　最后选取
　　buf缓冲=缓冲+
　　十进制转换'
　　如果一定RTrim(中期(缓冲、1、2))= 1
　　“&H datatemp =瓦(“及中期(缓冲、3、2)和力量(“0”)中(缓冲、1、2)* 0.1
　　别的
　　“&H datatemp =瓦(“及中期(缓冲、3、2)及中期(缓冲、1、2)* 0.1
　　如果
　　如果datatemp & & 0即可
　　smstext。文本格式(datatemp美元),“0.0”)。
　　如果
　　最后潜艇
　　Timer1 _计时器私人替补)。
　　MSComm1。&H8181输出=()+(&H52)+(&HC)。
　　smstime。(现在)的文本一年”及“&每月——(现在)和“-”及日(现在)和“和时间
　　wendusms(smstext打电话。文本,smsno。文本,smstime.Text)。
　　最后潜艇
这是VB程序
这是VB程序吗
我也指看懂一点点...
等待您来回答
编程领域专家halcon halcon论坛 halconbbs halcon 标定板 halcon 模板匹配 halcon视频教程 hal..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB环境下halcon
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB中Timer1.Interval=1000是什么意思？
VB中Timer1.Interval=1000是什么意思？
谁知道这句代码是什么意思？还有就是timer这个控件的用法是什么啊？
就是说没格一秒执行一次TIME事件
等待您来回答
编程领域专家CallbackDate在vb中什么意思_百度知道
CallbackDate在vb中什么意思
提问者采纳
9%是属于【自定义函数】
其他类似问题
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}