Rahmat Muammar: Aplikasi Visual Basic untuk Perhitungan Modulasi Frekuensi

Pada kali ini, saya akan memposting suatu aplikasi sederhana untuk melakukan perhitungan dari modulasi frekuensi. Pada aplikasi ini, saya buat menjadi 3 bagian dalam suatu struktur navigasi seperti berikut:

Keterangan:

1. Input: berasal dari nilai suatu persamaan sinyal FM seperti V_c, ω_c,m_f dan ωm

2. Proses: merupakan suatu cara pengolahan data input untuk menghasilkan data output

3. Output: berupa nilai-nilai seperti Fc, Fi, m_f, dan BW (metode Carson)

Flow Chart

Berikut ini merupakan alur kerja total dari program yang saya posting.

Source Code

Private Sub Commandp_Click()

Textvc.Text = Text1.Text
If Text1.Text = "" Then Textvc.Text = "0"

Textfc.Text = Val(Text2.Text) * Val(Int(10) ^ Val(Text3.Text)) / Int(2)

Textfi.Text = Int(10) ^ Val(Text5.Text) / Int(2)
If Text5.Text = "" Then Textfi.Text = "0"

Textmf.Text = (Text4.Text)
If Text4.Text = "" Then Textmf.Text = "0"

Textdfm.Text = Val(Val(Textmf.Text) * Val(Textfi.Text))
Textbw.Text = Int(2) * (Val(Textdfm.Text) + Val(Textfi.Text))

Textvc.Visible = True
Textfc.Visible = True
Textfi.Visible = True
Textmf.Visible = True
Textdfm.Visible = True
Textbw.Visible = True

Labelvc.Visible = True
Labelfc.Visible = True
Labelfi.Visible = True
Labelmf.Visible = True
Labeldfm.Visible = True
Labelbw.Visible = True

Labelk.Visible = True
Labelkvc.Visible = True
labelkefm.Visible = True
labelkfc.Visible = True
labelkfi.Visible = True
Labelkmf.Visible = True
Labelkdfm.Visible = True
Labelkbw.Visible = True

Labelhz1.Visible = True
Labelhz2.Visible = True
Labelhz3.Visible = True
Labelhz4.Visible = True

End Sub

Tampilan Aplikasi