文件名称：vb 波形显示范例 datalogger
文件大小：276KB
文件格式：RAR
更新时间：2012-04-07 17:21:39
VB 波形显示
可按时间长短显示波形！很好的资料！Private Sub MSComm1_OnComm() ' RS232 端口监视 TEMP = 0 FUK = "" ModStr = "" ModStr = MSComm1.Input If LOGIC Then If ModStr = "" Then TEMP = "0" Else FUK = Asc(ModStr) TEMP = TEMP + FUK End If LGAna.CommActiv (Hex$(TEMP)) Exit Sub End If If ModStr <> "" Then If MSComm1.InputMode = comInputModeText Then FUK = Asc(ModStr) TEMP = TEMP + FUK Else TEMP = ModStr End If Else FUK = "0" TEMP = 0 End If If ClockS = False Then AdVance TMR = TMR + 1 Label3 = " " & TMR End If End Sub
【文件预览】：
codefans.net
----DataLogger2()
--------Form9.frm(11KB)
--------Form1.frm(124KB)
--------Form9.frx(35KB)
--------Form5.frx(2KB)
--------MSSCCPRJ.SCC(482B)
--------Form2.frm(21KB)
--------Examples()
--------Form6.frm(6KB)
--------Form7.frx(2KB)
--------DLogSnd.cfg(60B)
--------Form7.frm(3KB)
--------Form1.frx(4KB)
--------Form3.frx(3KB)
--------Module1.bas(10KB)
--------Form8.frm(10KB)
--------Project1.vbw(502B)
--------Form8.frx(3KB)
--------Form6.frx(2KB)
--------LGAna.frm(13KB)
--------Form4.frm(2KB)
--------Form5.frm(4KB)
--------DataLoggerInstructions.pdf(188KB)
--------TimeTest()
--------LGAna.frx(2KB)
--------Form2.frx(2KB)
--------Form3.frm(7KB)
--------Form4.frx(210KB)
--------Project1.vbp(2KB)