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
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
请问一下vb和tc的骗译语问有什么具体的区别。
& ......
