VB 串口数据采集

塞又亦 2007-04-25 04:53:14 403 浏览

这个问题恐怕没有几个人会吧！！！主要是太难了，呵呵，一般的回答的都是在别的地方复制的，我想听听你们自己的想法，我要实现串口数据的保存和实时显示，保存在数据库中，实时显示是... 这个问题恐怕没有几个人会吧！！！主要是太难了，呵呵，一般的回答的都是在别的地方复制的，我想听听你们自己的想法，我要实现串口数据的保存和实时显示，保存在数据库中，实时显示是用曲线图的形式画出来，真难啊，想以采集的时间为横坐标，采集到的压力数据为纵坐标，请你们告诉我一下啊，现在高手太少了。。。。。画图是应该先入库再调数据库的数据还是直接接受串口数据进行做图？这一点我还不知道！展开

参与评论

登录后参与评论

全部评论(2条)

havehou932 2007-04-26 00:00:00

我看你主要是难在画图吧，你可以用MSCHART控件，具体用法可以参考MSDN

赞(1)

回复(0)

评论

评论
登录后参与评论
靳薪善 2016-08-22 00:00:00

实时采集的数据可直接用来画曲线，但往往为了以后查询，同时应按定时间隔写入数据库或文本文件。所以可在写入数据库后通过查询做到实时显示和更新。 '窗体加载时将已记录的数据查询后绘图 Private Sub Form_Load() chaxun1 = "select * from jishijilu where gyh_riqi='" & gongyi_sj(0) & "-" & record_rq & "'order by shijian " mdh = chaxun1 Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False" Adodc3.RecordSource = mdh Adodc3.Refresh zslNew = Adodc3.Recordset.RecordCount Text4 = zslNew If zslNew >= 1 Then Adodc3.Recordset.MoveFirst For i = 0 To zslNew - 1 quexian(0， i) = Adodc3.Recordset(0) For j = 2 To 9 quexian(j， i) = Adodc3.Recordset(j) Next j Adodc3.Recordset.MoveNext Next i Adodc3.Recordset.MoveFirst For j = 0 To zslNew - 1 Picture1.Line (j * 5 + 500， quexian(2， j) * -30 + 3399)-(j * 5 + 500， quexian(2， j) * -30 + 3401)， vbRed， BF Picture1.Line (j * 5 + 500， quexian(3， j) * -30 + 3399)-(j * 5 + 500， quexian(3， j) * -30 + 3401)， QBColor(7)， BF Picture1.Line (j * 5 + 500， quexian(4， j) * -30 + 3399)-(j * 5 + 500， quexian(4， j) * -30 + 3401)， vbWhite， BF Picture1.Line (j * 5 + 500， quexian(5， j) * -30 + 3399)-(j * 5 + 500， quexian(5， j) * -30 + 3401)， vbYellow， BF Picture1.Line (j * 5 + 500， quexian(6， j) * -30 + 3399)-(j * 5 + 500， quexian(6， j) * -30 + 3401)， vbGreen， BF If quexian(8， j) < 1 Then wy_wy = 0 + 166.7 br_br = 55 ElseIf quexian(8， j) >= 1 And quexian(8， j) < 10 Then wy_wy = -1500 + 166.7 br_br = 5.5556 ElseIf quexian(8， j) >= 10 And quexian(8， j) < 100 Then wy_wy = -3000 + 166.7 br_br = 0.5555 ElseIf quexian(8， j) >= 100 And quexian(8， j) < 1000 Then wy_wy = -4500 + 166.7 br_br = 0.055555 End If Picture1.Line (j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3397 + 3000)-(j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3403 + 3000)， QBColor(11)， BF Next j zslOld = zslNew End If '记录时间Z长75小时 Picture2.Height = 10000 Picture2.Visible = True Picture1.Visible = True colvb = vbWhite xx = 100 yy = 150 txt = "℃" wp = xp(colvb， xx， yy， txt) yy = 350 txt = "100" wp = xp(colvb， xx， yy， txt) xx = 200 yy = 1850 txt = "50" wp = xp(colvb， xx， yy， txt) yy = 3350 xx = 300 txt = "0" wp = xp(colvb， xx， yy， txt) xx = 100 yy = 4850 txt = "-50" wp = xp(colvb， xx， yy， txt) xx = 0 yy = 6350 txt = "-100" wp = xp(colvb， xx， yy， txt) xx = 10800 + 100 yy = 150 txt = "℃" wp = xp(colvb， xx， yy， txt) yy = 350 txt = "100" wp = xp(colvb， xx， yy， txt) xx = 10800 + 200 yy = 1850 txt = "50" wp = xp(colvb， xx， yy， txt) yy = 3350 xx = 10800 + 300 txt = "0" wp = xp(colvb， xx， yy， txt) xx = 10800 + 100 yy = 4850 txt = "-50" wp = xp(colvb， xx， yy， txt) xx = 10800 + 0 yy = 6350 txt = "-100" wp = xp(colvb， xx， yy， txt) '真空坐标 colvb = vbRed xx = 11400 yy = 150 txt = "Pa" wp = xp(colvb， xx， yy， txt) yy = 350 txt = "1000" wp = xp(colvb， xx， yy， txt) xx = 11500 yy = 1850 txt = "100" wp = xp(colvb， xx， yy， txt) yy = 3350 xx = 11600 txt = "10" wp = xp(colvb， xx， yy， txt) xx = 11700 yy = 4850 txt = "1" wp = xp(colvb， xx， yy， txt) xx = 11500 yy = 6350 txt = "0.1" wp = xp(colvb， xx， yy， txt) xx = 500 yy = 150 txt = "Pa" wp = xp(colvb， xx， yy， txt) yy = 350 txt = "1000" wp = xp(colvb， xx， yy， txt) yy = 150 xx = 2200 txt = "6hr" wp = xp(colvb， xx， yy， txt) xx = 4000 txt = "12hr" wp = xp(colvb， xx， yy， txt) xx = 5800 txt = "18hr" wp = xp(colvb， xx， yy， txt) xx = 7600 txt = "24hr" wp = xp(colvb， xx， yy， txt) xx = 9400 txt = "30hr" wp = xp(colvb， xx， yy， txt) xx = 13000 txt = "42hr" wp = xp(colvb， xx， yy， txt) xx = 14800 txt = "48hr" wp = xp(colvb， xx， yy， txt) xx = 16600 txt = "54hr" wp = xp(colvb， xx， yy， txt) xx = 18400 txt = "60hr" wp = xp(colvb， xx， yy， txt) xx = 20200 txt = "66hr" wp = xp(colvb， xx， yy， txt) xx = 22000 txt = "72hr" wp = xp(colvb， xx， yy， txt) xx = 23800 txt = "78hr" wp = xp(colvb， xx， yy， txt) xx = 25600 txt = "84hr" wp = xp(colvb， xx， yy， txt) xx = 27400 txt = "90hr" wp = xp(colvb， xx， yy， txt) xx = 29200 txt = "96hr" wp = xp(colvb， xx， yy， txt) xx = 600 yy = 1850 txt = "100" wp = xp(colvb， xx， yy， txt) yy = 3350 xx = 11600 txt = "10" wp = xp(colvb， xx， yy， txt) xx = 700 yy = 4850 txt = "1" wp = xp(colvb， xx， yy， txt) xx = 600 yy = 6350 txt = "0.1" wp = xp(colvb， xx， yy， txt) xx = 22100 yy = 350 txt = "1000" wp = xp(colvb， xx， yy， txt) yy = 1850 txt = " 100" wp = xp(colvb， xx， yy， txt) yy = 3350 txt = " 10" wp = xp(colvb， xx， yy， txt) yy = 4850 txt = " 1" wp = xp(colvb， xx， yy， txt) yy = 6350 txt = " 0.1" wp = xp(colvb， xx， yy， txt) '画格 Picture1.ForeColor = vbWhite Picture1.Line (450， 700)-(500， 700) Picture1.Line (450， 1000)-(500， 1000) Picture1.Line (450， 1300)-(500， 1300) Picture1.Line (450， 1600)-(500， 1600) Picture1.ForeColor = vbRed Picture1.Line (500， 566.7)-(550， 566.7) Picture1.Line (500， 733.3)-(550， 733.3) Picture1.Line (500， 900)-(550， 900) Picture1.Line (500， 1066.7)-(550， 1066.7) Picture1.Line (500， 1233.3)-(550， 1233.3) Picture1.Line (500， 1400)-(550， 1400) Picture1.Line (500， 1566.7)-(550， 1566.7) Picture1.Line (500， 1733.3)-(550， 1733.3) Picture1.Line (500， 2066.7)-(550， 2066.7) Picture1.Line (500， 2233.3)-(550， 2233.3) Picture1.Line (500， 2400)-(550， 2400) Picture1.Line (500， 2566.7)-(550， 2566.7) Picture1.Line (500， 2733.3)-(550， 2733.3) Picture1.Line (500， 2900)-(550， 2900) Picture1.Line (500， 3066.7)-(550， 3066.7) Picture1.Line (500， 3233.3)-(550， 3233.3) Picture1.Line (500， 3566.7)-(550， 3566.7) Picture1.Line (500， 3733.3)-(550， 3733.3) Picture1.Line (500， 3900)-(550， 3900) Picture1.Line (500， 4066.7)-(550， 4066.7) Picture1.Line (500， 4233.3)-(550， 4233.3) Picture1.Line (500， 4400)-(550， 4400) Picture1.Line (500， 4566.7)-(550， 4566.7) Picture1.Line (500， 4733.3)-(550， 4733.3) Picture1.Line (500， 5066.7)-(550， 5066.7) Picture1.Line (500， 5233.3)-(550， 5233.3) Picture1.Line (500， 5400)-(550， 5400) Picture1.Line (500， 5566.7)-(550， 5566.7) Picture1.Line (500， 5733.3)-(550， 5733.3) Picture1.Line (500， 5900)-(550， 5900) Picture1.Line (500， 6066.7)-(550， 6066.7) Picture1.Line (500， 6233.3)-(550， 6233.3) Picture1.ForeColor = vbWhite Picture1.Line (450， 400)-(27500， 400) Picture1.Line (450， 1900)-(27500， 1900) Picture1.Line (450， 3400)-(27500， 3400) Picture1.Line (450， 4900)-(27500， 4900) Picture1.Line (450， 6400)-(27500， 6400) Picture1.Line (450， 2200)-(500， 2200) Picture1.Line (450， 2500)-(500， 2500) Picture1.Line (450， 2800)-(500， 2800) Picture1.Line (450， 3100)-(500， 3100) Picture1.Line (450， 3700)-(500， 3700) Picture1.Line (450， 4000)-(500， 4000) Picture1.Line (450， 4300)-(500， 4300) Picture1.Line (450， 4600)-(500， 4600) Picture1.Line (450， 5200)-(500， 5200) Picture1.Line (450， 5500)-(500， 5500) Picture1.Line (450， 5800)-(500， 5800) Picture1.Line (450， 6100)-(500， 6100) Picture1.Line (500， 400)-(500， 6400) Picture1.Line (500 + 0， 400)-(500 + 0， 6400) Picture1.Line (1400 + 0， 400)-(1400 + 0， 6400) Picture1.Line (2300 + 0， 400)-(2300 + 0， 6400) Picture1.Line (3200 + 0， 400)-(3200 + 0， 6400) Picture1.Line (4100 + 0， 400)-(4100 + 0， 6400) Picture1.Line (5000 + 0， 400)-(5000 + 0， 6400) Picture1.Line (5900 + 0， 400)-(5900 + 0， 6400) Picture1.Line (6800 + 0， 400)-(6800 + 0， 6400) Picture1.Line (7700 + 0， 400)-(7700 + 0， 6400) Picture1.Line (8600 + 0， 400)-(8600 + 0， 6400) Picture1.Line (9500 + 0， 400)-(9500 + 0， 6400) Picture1.Line (10400 + 0， 400)-(10400 + 0， 6400) Picture1.Line (11300， 400)-(11300， 6400) Picture1.Line (12200， 400)-(12200， 6400) Picture1.Line (13100， 400)-(13100， 6400) Picture1.Line (14000， 400)-(14000， 6400) Picture1.Line (14900， 400)-(14900， 6400) Picture1.Line (15800， 400)-(15800， 6400) Picture1.Line (16700， 400)-(16700， 6400) Picture1.Line (17600， 400)-(17600， 6400) Picture1.Line (18500， 400)-(18500， 6400) Picture1.Line (19400， 400)-(19400， 6400) Picture1.Line (20300， 400)-(20300， 6400) Picture1.Line (21200， 400)-(21200， 6400) Picture1.Line (22100， 400)-(22100， 6400) Picture1.Line (23000， 400)-(23000， 6400) Picture1.Line (23900， 400)-(23900， 6400) Picture1.Line (24800， 400)-(24800， 6400) Picture1.Line (25700， 400)-(25700， 6400) Picture1.Line (26600， 400)-(26600， 6400) Picture1.Line (27500， 400)-(27500， 6400) Picture1.Line (0 * 5 + 500， 3400 - b(0) * 30)-(c(1) * 5 + 500， 3400 - b(0) * 30)， QBColor(12) Picture1.Line (c(1) * 5 + 498， 3400 - b(1) * 30)-(c(2) * 5 + 502， 3400 - b(1) * 30)， QBColor(12) Picture1.Line (c(2) * 5 + 498， 3400 - b(2) * 30)-(c(3) * 5 + 502， 3400 - b(2) * 30)， QBColor(12) Picture1.Line (c(3) * 5 + 498， 3400 - b(3) * 30)-(c(4) * 5 + 502， 3400 - b(3) * 30)， QBColor(12) Picture1.Line (c(4) * 5 + 498， 3400 - b(4) * 30)-(c(5) * 5 + 502， 3400 - b(4) * 30)， QBColor(12) Picture1.Line (c(5) * 5 + 498， 3400 - b(5) * 30)-(c(6) * 5 + 502， 3400 - b(5) * 30)， QBColor(12) Picture1.Line (c(6) * 5 + 498， 3400 - b(6) * 30)-(c(7) * 5 + 502， 3400 - b(6) * 30)， QBColor(12) Picture1.Line (c(7) * 5 + 498， 3400 - b(7) * 30)-(c(8) * 5 + 502， 3400 - b(7) * 30)， QBColor(12) Picture1.Line (c(8) * 5 + 498， 3400 - b(8) * 30)-(c(9) * 5 + 502， 3400 - b(8) * 30)， QBColor(12) Picture1.Line (c(9) * 5 + 498， 3400 - b(9) * 30)-(c(10) * 5 + 502， 3400 - b(9) * 30)， QBColor(12) Picture1.Line (c(10) * 5 + 498， 3400 - b(10) * 30)-(c(11) * 5 + 502， 3400 - b(10) * 30)， QBColor(12) Picture1.Line (c(11) * 5 + 498， 3400 - b(11) * 30)-(c(12) * 5 + 502， 3400 - b(11) * 30)， QBColor(12) Picture1.Line (c(12) * 5 + 498， 3400 - b(12) * 30)-(c(13) * 5 + 502， 3400 - b(12) * 30)， QBColor(12) Picture1.Line (c(13) * 5 + 498， 3400 - b(13) * 30)-(c(14) * 5 + 502， 3400 - b(13) * 30)， QBColor(12) Picture1.Line (c(14) * 5 + 498， 3400 - b(14) * 30)-(c(15) * 5 + 502， 3400 - b(14) * 30)， QBColor(12) Picture1.Line (c(15) * 5 + 498， 3400 - b(15) * 30)-(c(16) * 5 + 502， 3400 - b(15) * 30)， QBColor(12) chaxun1 = "select * from jishijilu where gyh_riqi='" & gongyi_sj(0) & "-" & record_rq & "'order by shijian " mdh = chaxun1 Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False" Adodc3.RecordSource = mdh Adodc3.Refresh zslNew = Adodc3.Recordset.RecordCount Text4 = zslNew If zslNew >= 1 Then Adodc3.Recordset.MoveFirst For i = 0 To zslNew - 1 quexian(0， i) = Adodc3.Recordset(0) For j = 2 To 7 quexian(j， i) = Adodc3.Recordset(j) Next j Adodc3.Recordset.MoveNext Next i Adodc3.Recordset.MoveFirst For j = 0 To zslNew - 1 Picture1.Line (j * 5 + 500， quexian(2， j) * -30 + 3399)-(j * 5 + 500， quexian(2， j) * -30 + 3401)， vbRed， BF Picture1.Line (j * 5 + 500， quexian(3， j) * -30 + 3399)-(j * 5 + 500， quexian(3， j) * -30 + 3401)， QBColor(7)， BF Picture1.Line (j * 5 + 500， quexian(4， j) * -30 + 3399)-(j * 5 + 500， quexian(4， j) * -30 + 3401)， vbWhite， BF Picture1.Line (j * 5 + 500， quexian(5， j) * -30 + 3399)-(j * 5 + 500， quexian(5， j) * -30 + 3401)， vbYellow， BF Picture1.Line (j * 5 + 500， quexian(6， j) * -30 + 3399)-(j * 5 + 500， quexian(6， j) * -30 + 3401)， vbGreen， BF If quexian(8， j) < 1 Then wy_wy = 0 + 166.7 br_br = 55 ElseIf quexian(8， j) >= 1 And quexian(8， j) < 10 Then wy_wy = -1500 + 166.7 br_br = 5.5556 ElseIf quexian(8， j) >= 10 And quexian(8， j) < 100 Then wy_wy = -3000 + 166.7 br_br = 0.5555 ElseIf quexian(8， j) >= 100 And quexian(8， j) < 1000 Then wy_wy = -4500 + 166.7 br_br = 0.055555 End If Picture1.Line (j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3397 + 3000)-(j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3403 + 3000)， QBColor(11)， BF Next j zslOld = zslNew End If zslOld = zslNew End Sub '通过计时器调用定时更新 Private Sub cmdRef_Click() chaxun1 = "select * from jishijilu where gyh_riqi='" & gongyi_sj(0) & "-" & record_rq & "'order by shijian " mdh = chaxun1 Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False" Adodc3.RecordSource = mdh Adodc3.Refresh zslNew = Adodc3.Recordset.RecordCount Text4 = zslNew If zslNew > 1 Then Adodc3.Recordset.MoveLast For j = 2 To 7 quexian(j， i) = Adodc3.Recordset(j) Next j Picture2.Height = 10000 Picture1.Visible = True If zslOld >= 1 Then For j = zslOld - 1 To zslNew - 1 Picture1.Line (j * 5 + 500， quexian(2， j) * -30 + 3399)-(j * 5 + 500， quexian(2， j) * -30 + 3401)， vbRed， BF Picture1.Line (j * 5 + 500， quexian(3， j) * -30 + 3399)-(j * 5 + 500， quexian(3， j) * -30 + 3401)， QBColor(7)， BF Picture1.Line (j * 5 + 500， quexian(4， j) * -30 + 3399)-(j * 5 + 500， quexian(4， j) * -30 + 3401)， vbWhite， BF Picture1.Line (j * 5 + 500， quexian(5， j) * -30 + 3399)-(j * 5 + 500， quexian(5， j) * -30 + 3401)， vbYellow， BF Picture1.Line (j * 5 + 500， quexian(6， j) * -30 + 3399)-(j * 5 + 500， quexian(6， j) * -30 + 3401)， vbGreen， BF If quexian(8， j) < 1 Then wy_wy = 0 + 166.7 br_br = 55 ElseIf quexian(8， j) >= 1 And quexian(8， j) < 10 Then wy_wy = -1500 + 166.7 br_br = 5.5556 ElseIf quexian(8， j) >= 10 And quexian(8， j) < 100 Then wy_wy = -3000 + 166.7 br_br = 0.5555 ElseIf quexian(8， j) >= 100 And quexian(8， j) < 1000 Then wy_wy = -4500 + 166.7 br_br = 0.055555 End If Picture1.Line (j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3395 + 3000)-(j * 5 + 500， quexian(8， j) * br_br * -30 + wy_wy + 3405 + 3000)， QBColor(11)， BF Next j End If '记录时间Z长96小时 cmdPrint.Enabled = True End If zslOld = zslNew End Sub

赞(2)

回复(0)

评论

评论
登录后参与评论

热门问答

VB 串口数据采集: 这个问题恐怕没有几个人会吧！！！主要是太难了，呵呵，一般的回答的都是在别的地方复制的，我想听听你们自己的想法，我要实现串口数据的保存和实时显示，保存在数据库中，实时显示是... 这个问题恐怕没有几个人会吧！！！主要是太难了，呵呵，一般的回答的都是在别的地方复制的，我想听听你们自己的想法，我要实现串口数据的保存和实时显示，保存在数据库中，实时显示是用曲线图的形式画出来，真难啊，想以采集的时间为横坐标，采集到的压力数据为纵坐标，请你们告诉我一下啊，现在高手太少了。。。。。画图是应该先入库再调数据库的数据还是直接接受串口数据进行做图？这一点我还不知道！展开

串口数据采集程序: 现有一个盘点机底座，是串口通讯的，像用VB做一个采集程序，具体是怎样的？... 现有一个盘点机底座，是串口通讯的，像用VB做一个采集程序，具体是怎样的？展开

用作串口数据采集的VB程序，出现“数据溢出”和“下标越界”的错误: 程序不是自己写的，是机器自带的，存在很多问题，据我的了解1.当某个值低于0或者大于32就会“溢出”2.在数据采集过程（将数值写入txt）一段时间后，一定会出现3.在数据监视过程（... 程序不是自己写的，是机器自带的，存在很多问题，据我的了解 1.当某个值低于0或者大于32就会“溢出” 2.在数据采集过程（将数值写入txt）一段时间后，一定会出现 3.在数据监视过程（不写入，仅查看），不定时出现溢出实在是不懂vb，想找大神帮帮忙啊~ 展开

串口转换服务器和数据采集网关有什么区别？: 如题，想买其中一种组建网络，要求只有485总线输入，以太网输出。当然扩展功能也是很重要的，请各位师傅帮忙分析分析。回一楼的师傅：是这样的么？我也不是很清楚，看看别人的意见吧... 如题，想买其中一种组建网络，要求只有485总线输入，以太网输出。当然扩展功能也是很重要的，请各位师傅帮忙分析分析。回一楼的师傅：是这样的么？我也不是很清楚，看看别人的意见吧展开

海量RS232/485串口数据采集存储(备份)解决方案:

LabVIEW虚拟仪器数据采集与串口通信测控应用实战: 麻烦您给我也传份LabVIEW虚拟仪器数据采集与串口通信测控应用实战的电子书和视频文件吧，多谢了，QQ：308074810... 麻烦您给我也传份 LabVIEW虚拟仪器数据采集与串口通信测控应用实战的电子书和视频文件吧，多谢了，QQ：308074810 展开

labview虚拟仪器数据采集与串口通信测控应用实战: 我想要这个光盘里的所有内容谢谢我想要这个光盘里的所有内容谢谢348086239QQlabview虚拟仪器数据采集与串口通信测控应用实战这本书光盘里的内容所有的... 我想要这个光盘里的所有内容谢谢我想要这个光盘里的所有内容谢谢 348086239QQ labview虚拟仪器数据采集与串口通信测控应用实战这本书光盘里的内容所有的展开

LabVIEW虚拟仪器数据采集与串口通信测控应用实战电子书: 发到ainsa.love@163.com... 发到ainsa.love@163.com 展开

串口调试软件的串口通讯:

vb 循环器: 会做了，但是如何循环呢？ text1 输入，label1显示，点击按钮开始，比如text1的值是10，怎样才能让程序10到0然后执行某个功能，text1的值又变成10，再。如此循环

vb是什么:

用VB做了个数据采集的程序，程序很卡，都是有哪些原因呢？:

vb使用串口和西门子200通讯，西门子200做从站，modbus-RTU，谁能给我个范例。:

vb计时器设计图片左右往复运动vb代码:

求LabVIEW虚拟仪器数据采集与串口通信测控应用实战_李江的光盘资料。: qq邮箱：384455874@qq.com... qq邮箱：384455874@qq.com 展开

LabVIEW虚拟仪器数据采集与串口通信测控应用实战.iso 请发我一份，谢谢！:

LabVIEW虚拟仪器数据采集与串口通信测控应用实战.iso 请发我一份，谢谢！:

vb 内循环: vb里面如何输出如下的效果：a(3)分别为1，2，3我不要写成fori=1to3print#1，a(i)nexti循环输出到一行里，语句这个样子：print#1，a(i)，i=1to3但这样写是错的该如何写请高手指点fori=1to... vb里面如何输出如下的效果： a(3) 分别为1，2，3 我不要写成 for i= 1 to 3 print #1， a(i) next i 循环输出到一行里，语句这个样子：print #1， a(i)，i=1 to 3 但这样写是错的该如何写请高手指点 for i= 1 to 3 print #1， a(i); next i Z后我问好了在a(i)后面加个分号就好了展开

VB计时器interval: 我把interval的属性调到10，定义一个静态变量t，Timer1.Timer事件为t=t+1，结果一秒内t自加100。但我把interval设为1，结果一秒内t自加甚至不到1，这是什么情况？如何解决？

vb正计时器: 做一个这样的格式的 00:00:00 往上计时 dim a as date a=format(00:00:00 AM) text1.text=a timer.interval=1000 a=a+1 我纯新手只知道大概是这样一个格式请帮忙修改下。 Z好每句后面加上说明 Z好修改我这上面的吧

9月突出贡献榜

推荐主页

仪器网（yiqi.com）欢迎您！

联系我们

关注我们