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
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
