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

Tampilan awal

Setelah melakukan Perhitungan

Persamaan yang dipakai pada proses perhitungan

Demikian yang bisa saya share pada para pembaca. Sekian dan terima kasih.