VB 波形
timer2用来采集点数，timer1用来显示点
Private Sub Timer1_Timer() '显示波形时间控制
Dim x1 As Long, x2 As Long, scaleY As Single, scaleX As Single, xd As Single, i As Integer ', xi, yi 'xd为显示的数据（经过转换后的）,ADData为采集的数据
Dim max1 As Single, min1 As Single, flag As Integer, m As Integer, n As Single
scaleY = Pic1.ScaleHeight / 10 'scaleY为输出波形一半占整个显示框的比例
scaleX = Pic1.ScaleWidth / 10
x1 = HScroll3.Value - 10000
Pic1.Cls '清屏
max1 = Y(1)
min1 = Y(1)
For i = 0 To 300 '300ms显示一次，一次显示300个点，以减小运行本函数所开销的时间，不至于下一秒采样时不能采
If Y(i) > max1 Then '求最大最小值
max1 = Y(i)
End If
If Y(i) < min1 Then
min1 = Y(i)
End If
If i > 2 And i < 299 Then '求频率
If (Y(i) - Y(i + 1)) * (Y(i) - Y(i - 1)) >= 0 Then
If flag >= 1 Then
If Y(i) - Y(m) > 5 Or Y(i) - Y(m) < -5 Then
If flag = 2 Then
n = i - m
Tex
相关问答：
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
