📄 am调制解调模块.frm
字号:
Height = 2295
Left = 4560
ScaleHeight = 1970.9
ScaleMode = 0 'User
ScaleWidth = 3196.751
TabIndex = 1
Top = 6240
Width = 3855
End
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
BackColor = &H80000005&
Height = 2415
Left = 4560
ScaleHeight = 2076.72
ScaleMode = 0 'User
ScaleWidth = 3196.751
TabIndex = 0
Top = 3360
Width = 3855
End
Begin VB.Label Label7
Caption = "峰值包络解调"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8760
TabIndex = 8
Top = 6120
Width = 1575
End
Begin VB.Line Line12
X1 = 8520
X2 = 8640
Y1 = 7320
Y2 = 7440
End
Begin VB.Line Line11
X1 = 8520
X2 = 8640
Y1 = 7320
Y2 = 7200
End
Begin VB.Line Line10
X1 = 9600
X2 = 8520
Y1 = 7320
Y2 = 7320
End
Begin VB.Line Line9
X1 = 9600
X2 = 9600
Y1 = 5160
Y2 = 7320
End
Begin VB.Line Line8
X1 = 8520
X2 = 9600
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line7
X1 = 8520
X2 = 8640
Y1 = 4080
Y2 = 4200
End
Begin VB.Line Line6
X1 = 8520
X2 = 8640
Y1 = 4080
Y2 = 3960
End
Begin VB.Label Label6
Caption = "*cosωt"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 9240
TabIndex = 6
Top = 3000
Width = 855
End
Begin VB.Line Line5
X1 = 9600
X2 = 8520
Y1 = 4080
Y2 = 4080
End
Begin VB.Label Label5
Caption = " + Vcm"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 8640
TabIndex = 5
Top = 1680
Width = 855
End
Begin VB.Line Line4
X1 = 9600
X2 = 9480
Y1 = 2040
Y2 = 2160
End
Begin VB.Line Line3
X1 = 9480
X2 = 9600
Y1 = 1920
Y2 = 2040
End
Begin VB.Line Line2
X1 = 9600
X2 = 9600
Y1 = 2040
Y2 = 4080
End
Begin VB.Line Line1
X1 = 9600
X2 = 8520
Y1 = 2040
Y2 = 2040
End
Begin VB.Label Label3
Caption = "解调后波形V"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3720
TabIndex = 4
Top = 6000
Width = 3135
End
Begin VB.Label Label2
Caption = "调制后波形Vam"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3600
TabIndex = 3
Top = 3120
Width = 1575
End
Begin VB.Label Label1
Caption = "原始波形Vf"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3600
TabIndex = 2
Top = 240
Width = 1215
End
End
Attribute VB_Name = "AM调制解调模块"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s, n, k As Single
Private Sub Form_Load()
s = 25: n = 20
Picture1.Scale (-0.5, 5)-(10.5, -5)
Picture2.Scale (-0.5, 5)-(10.5, -5)
Picture3.Scale (-0.5, 5)-(10.5, -5)
Timer1.Enabled = False
End Sub
Private Sub cose_Click()
Check1.Value = 0
Timer1.Enabled = True
draw
End Sub
Private Sub renyi_Click()
Check1.Value = 0
Timer1.Enabled = True
draw
End Sub
Private Sub HScroll1_Change()
draw
End Sub
Private Sub HScroll1_scroll()
draw
End Sub
Private Sub HScroll2_Change()
draw
End Sub
Private Sub HScroll2_scroll()
draw
End Sub
Private Sub Option1_Click()
draw
End Sub
Private Sub Option2_Click()
draw
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
Timer1.Enabled = True
Check1.Caption = "暂停"
Else: Timer1.Enabled = False
Check1.Caption = "继续"
End If
End Sub
Private Sub draw()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture1.Line (0, 0)-(10, 0)
Picture2.Line (0, 0)-(10, 0)
Picture3.Line (0, 0)-(10, 0)
Dim X, Y, x1, x3, y1, y2, y3, am, am1 As Single, m1 As Integer
n = HScroll2.Value
s = HScroll1.Value / 10
x1 = 0
If cose.Value = True Then
y1 = 2 * Cos(x1 + k)
Else
y1 = Cos(x1 + k) + Cos(2 * (x1 + k))
End If
am1 = y1 + s: y3 = Abs(y1 + s)
For X = 0 To 10 Step 0.01
If cose.Value = True Then
Y = 2 * Cos(X + k)
Else: Y = Cos(X + k) + Cos(2 * (X + k))
End If
am = (Y + s) * Cos(n * X)
Picture1.Line (x1, y1)-(X, Y)
Picture2.Line (x1, am1)-(X, am)
If am > am1 Then
m = 1
Else: m = 0
End If
If m < m1 Then
y2 = am1
If Option1.Value = True Then
Picture3.Line (x3, y3)-(X, y2)
Else: Picture3.Line (x3, y3 - s)-(X, y2 - s)
End If
y3 = y2: x3 = X
Else
End If
y1 = Y: x1 = X: am1 = am: m1 = m
Next X
End Sub
Private Sub Timer1_Timer()
k = k + 0.1
draw
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -