📄 iq检波.frm
字号:
VERSION 5.00
Begin VB.Form IQ检波仿真
Caption = "IQ检波仿真"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3090
ScaleWidth = 4680
WindowState = 2 'Maximized
Begin VB.TextBox Text5
BackColor = &H00C0FFFF&
ForeColor = &H00FF0000&
Height = 2295
Left = 9960
MultiLine = -1 'True
TabIndex = 18
Text = "IQ检波.frx":0000
Top = 120
Width = 5055
End
Begin VB.CommandButton 改变幅度
Caption = "改变幅度/相角"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4080
TabIndex = 17
ToolTipText = "可以直接进行修改"
Top = 10440
Width = 1935
End
Begin VB.TextBox Text4
BackColor = &H00FF80FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8760
TabIndex = 16
Text = "1"
Top = 120
Width = 735
End
Begin VB.TextBox Text3
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
TabIndex = 8
Text = "60"
Top = 120
Width = 615
End
Begin VB.TextBox Text2
BackColor = &H0080FF80&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 5
Text = "20"
Top = 120
Width = 615
End
Begin VB.TextBox Text1
BackColor = &H0080FFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 3
Text = "200"
Top = 120
Width = 615
End
Begin VB.CommandButton 退出
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13080
TabIndex = 1
Top = 10440
Width = 1575
End
Begin VB.CommandButton 计算
Caption = "计算"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 11400
TabIndex = 0
Top = 10440
Width = 1695
End
Begin VB.Label Label12
BackColor = &H00E0E0E0&
Caption = "带通滤波后(红) SQR（I*I+Q*Q）"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 5160
TabIndex = 19
Top = 5160
Visible = 0 'False
Width = 3615
End
Begin VB.Label Label11
Caption = "IQ幅度B"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7680
TabIndex = 15
Top = 240
Width = 975
End
Begin VB.Label Label10
Caption = "低通滤波后（蓝） SQR(I*I+Q*Q)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5160
TabIndex = 14
Top = 4560
Visible = 0 'False
Width = 3495
End
Begin VB.Label Label9
Caption = "Q:解调 X COS (90+FI)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 13
Top = 4080
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label8
Caption = "I:解调 X COS (0+FI)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 12
Top = 3600
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label7
Caption = "调 制"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 11
Top = 3240
Visible = 0 'False
Width = 975
End
Begin VB.Label Label6
Caption = "数 据"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 10
Top = 2640
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label5
Caption = "载 波"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 9
Top = 2040
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label4
Caption = "IQ相角 FI"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4800
TabIndex = 7
Top = 240
Width = 1215
End
Begin VB.Label Label3
Caption = "F"
BeginProperty Font
Name = "Symbol"
Size = 10.5
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6120
TabIndex = 6
Top = 240
Width = 255
End
Begin VB.Label Label2
Caption = "数据幅度X"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2640
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.Label Label1
Caption = "载波幅度A"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 2
Top = 240
Width = 1215
End
End
Attribute VB_Name = "IQ检波仿真"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 计算_Click()
Dim A1 As Double
Dim A2 As Double
Dim BZ As Double
Dim Dx As Double
Dim Lx As Double
Dim Dy As Double
Dim Xx As Double
Dim Y1 As Double
Dim Y2 As Double
Dim Y3 As Double
Dim Y4 As Double
Dim Y5 As Double
Dim Y6 As Double
Dim Y7 As Double
Dim Da As Double
Dim Dz As Double
Dim X As Double
Dim i As Integer
Me.Cls
Lx = Me.ScaleWidth - 100
Dy = Me.ScaleHeight / 10
Dx = Lx / (360 * 50)
Dz = Dy / 200
A1 = Val(Text1.Text) * Dz
A2 = Val(Text2.Text) * Dz
BZ = Val(Text3.Text) * 3.14156 / 180
X = Val(Text4.Text)
Da = 3.14156 / 180
Me.DrawWidth = 2
Line (100, Dy * 2)-((Lx), Dy * 2), vbGreen
Line (100, Dy * 3)-((Lx), Dy * 3), vbRed
Line (100, Dy * 4)-((Lx), Dy * 4), vbYellow
Line (100, Dy * 6)-((Lx), Dy * 6), vbGreen
Line (100, Dy * 7)-((Lx), Dy * 7), vbCyan
Line (100, Dy * 9)-((Lx), Dy * 9), vbYellow
For i = 1 To 360 * 50
Xx = 100 + Dx * i
Y1 = A1 * Cos(Da * i)
Y2 = A2 * (Cos(Da * i / 10))
Y3 = X * (A1 + Y2) * Cos(Da * i)
Y4 = Y3 * Cos(Da * i + BZ)
Y5 = Y3 * Cos(Da * i + Da * 90 + BZ)
Y6 = X * (A1 + Y2) / 2
Y7 = X * Y2 / 2
Me.PSet (Xx, Y1 + Dy * 2), vbBlue
Me.PSet (Xx, Y2 + Dy * 3), vbRed
Me.PSet (Xx, Y3 + Dy * 4), vbMagenta
Me.PSet (Xx, -Y4 + Dy * 6), vbBlue
Me.PSet (Xx, -Y5 + Dy * 7), vbGreen
Me.PSet (Xx, -Y6 + Dy * 9), vbBlue
Me.PSet (Xx, -Y7 + Dy * 9), vbRed
Next i
Label5.Left = Me.ScaleWidth / 2
Label5.Top = Dy * 2
Label5.Visible = True
Label6.Left = Me.ScaleWidth / 2
Label6.Top = Dy * 3
Label6.Visible = True
Label7.Left = Me.ScaleWidth / 2
Label7.Top = Dy * 4
Label7.Visible = True
Label8.Left = Me.ScaleWidth / 2
Label8.Top = Dy * 6
Label8.Visible = True
Label9.Left = Me.ScaleWidth / 2
Label9.Top = Dy * 7
Label9.Visible = True
Label10.Left = Me.ScaleWidth / 2
Label10.Top = Dy * 9 - 200
Label10.Visible = True
Label12.Left = Me.ScaleWidth / 2
Label12.Top = Dy * 9 + 200
Label12.Visible = True
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -