【参赛】软硬皆施DIY信号发生器DDS上位机AD9851(50)PC端射频信号源音频发生器软件发射

w6955 · 发表于 2014-10-5 17:50:10

强大，好。这回搞什么都有基础了。

木子 · 发表于 2014-10-5 21:03:33

楼主的设计不错,用低端的单片机完成任务,点赞.

仙鹤 · 发表于 2014-10-5 23:22:53

支持一下楼主。

n109 · 发表于 2014-10-6 00:01:35

楼主厉害，软硬兼修的高手，这基本上可以作为教材了。

西北大灰狼 · 发表于 2014-10-6 22:38:30

好厉害

ntwhq · 发表于 2014-10-9 10:18:39

本帖最后由 ntwhq 于 2014-10-10 09:15 编辑

用电脑作上位机来控制信号发生器，很强大，我以前也编过用电脑通过串口控制单片机的程序，但当时没有实现自动检测到串口的功能，是在程序中指定串口的，期待学习楼主以后公布的上位机源代码。

laghi · 发表于 2014-10-10 08:55:08

ntwhq 发表于 2014-10-9 10:18
用电脑作上位机来控制信号发生器，很强大，我以前也编过用电脑通过串口控制单机的程序，但当时没有实 ...

谢谢版主的关注！这是引导窗口的代码，检测串口

Option Explicit
Private Function QiDong(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String)
Dim Proba, Proba2 As Integer
Dim Boja2 As String
Me.ScaleMode = vbPixels
With slika
.ScaleMode = vbPixels
.AutoRedraw = True
End With
For Proba2 = 0 To slika.ScaleWidth
DoEvents
For Proba = 0 To slika.ScaleHeight
Boja2 = slika.Point(Proba2, Proba)
Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2
Next
Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja
Next
For Proba2 = 0 To slika.ScaleHeight
Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja
Next
End Function
Private Sub Form_Load()
If App.PrevInstance Then MsgBox "本程序已经在运行！请不要重复启动，避免浪费系统资源。", vbOKOnly, "亲爱的朋友：": End
End Sub
Private Sub Form_Unload(Cancel As Integer)
'
End Sub
Private Sub Timer1_Timer()
QiDong Picture1, 476, 220, 0, 0, Me.BackColor
If Timer1.Interval = 1000 Then
' frmAdministrator.Show
Unload Me
End If
'Dim Xi As Integer
'For Xi = 0 To 5
'ADWinP(Xi) = 0
'Next Xi
Fm.Show
Dim Ci, Sj As Integer
Sj = 0
For Ci = 1 To 16
Fm.MSComm1.CommPort = Ci
On Error Resume Next
Fm.MSComm1.PortOpen = True
If Err.Number = 0 Then
Sj = Sj + 1
Else
Fm.MSComm1.PortOpen = False
End If
Next Ci
If Sj = 0 Then
MsgBox "亲爱的朋友！在您的计算机上没有发现串口哦，请检查驱动及硬件设备！"
Else
MsgBox "亲爱的朋友！在您的计算机上共搜索到： " & Sj & "个串口。"
End If
End Sub

复制代码

ntwhq · 发表于 2014-10-10 09:14:30

laghi 发表于 2014-10-10 08:55
谢谢版主的关注！这是引导窗口的代码，检测串口

谢谢！

w6955 · 发表于 2014-10-10 11:39:22

谢谢老哥无私奉献

laghi · 发表于 2014-10-10 14:48:01

w6955 发表于 2014-10-10 11:39
谢谢老哥无私奉献

感谢关注！

这里还有几个模块的代码一并贴出：
LCD显示数码管的！可以多个模式调整

MorphLCD.rar (18.61 KB, 下载次数: 140)
QQ图片20141010144352.jpg

爱上电子我爱 · 发表于 2014-10-12 07:57:50

不错就是看不懂

aihao · 发表于 2014-10-12 21:25:48

不知支持9851么？你用的是9850

laghi · 发表于 2014-10-13 08:03:12

aihao 发表于 2014-10-12 21:25
不知支持9851么？你用的是9850

是支持的，控制指令完全相同，就差一个bit的倍频，选上就开了

aihao · 发表于 2014-10-13 09:37:27

内容这就买个9851，他的频率高点，既然能测频率，能否适当加个震荡电路辅助测量电感，电容呢？

laghi · 发表于 2014-10-13 10:36:40

aihao 发表于 2014-10-13 09:37
内容这就买个9851，他的频率高点，既然能测频率，能否适当加个震荡电路辅助测量电感，电容呢？

楼上朋友，这个是信号发生器，是用来产生一定频率的正弦波或方波的。

		自动登录	找回密码
密码			加入会员