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的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
