正弦函数的产生

laojiang1111 2008-03-31 09:58:26
需要做一个东西。由电脑模拟产生一个正弦信号,要求信号是离散的数字信号,输入到d/a板中,再转换为模拟信号。
小弟初学,不知如何着手,请各位前辈指点一下
...全文
54 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
东方之珠 2008-03-31
'正弦波一个周期(0-360度的图形):

Option Explicit

Private Sub Command1_Click()
Dim x As Long, y As Long
For x = 0 To 360
y = 100 + 100 * Sin(x * 3.14159265 / 180)
Me.PSet (x, y), RGB(255, 0, 0)
Next
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub
回复
东方之珠 2008-03-31
Option Explicit

Private Sub Command1_Click()
Dim x As Long, y As Long
For x = 0 To 360
y = 100 + 10 * Sin(x * 3.14159265 / 180)
Me.PSet (x, y), RGB(255, 0, 0)
Next
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub
回复
laojiang1111 2008-03-31
thank you
采集的是pci接口的,ac6111,这个接口问题我好好琢磨琢磨

回复
shakoe 2008-03-31
for i=1 to 10000
j=sin(i)
next i

通过串口把j送去d/a
回复
laojiang1111 2008-03-31
不需要把正弦函数画出来,二楼的程序看了一下,不知道频率是多少,做到后面需要变换频率
回复
rzzat1478 2008-03-31
UP
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-31 09:58
社区公告
暂无公告