Membuat Perhitungan Frekuensi Osilator Colpitts & Clapp dengan Visual Basic

Pada kesempatan kali ini saya akan menjelaskan  aplikasi perhitungan frekuensi Osilator Colpitts dan Clapp yang telah saya buat. Cara kerja aplikasi ini adalah memasukkan input berupa angka lalu diproses sesuai dengan source code dan akan menghasilkan output. Pada Osilator Colpitts pertama-tama kita masukkan nilai C1 dan C2 (kapasitor) untuk mencari nilai CT (kapasitor total), setelah itu masukkan nilai L (induktansi) untuk mencari nilai Fr (frekuensi). Sementara pada Osilator Clapp kita masukkan nilai dari C3 dan L saja, karena C1 dan C2 tidak terlalu mempengaruhi untuk perhitungan frekuensi pada osilator clapp.

Berikut adalah struktur navigasinya :

Osilator Colpitts

Osilator Clapp

                                                                        Flow Chart 

Source code

Private Sub Hapus_Click() C1.Text = "" C2.Text = "" CT.Text = "" L.Text = "" Fr.Text = "" End Sub Private Sub Hapus2_Click() C3.Text = "" L2.Text = "" Fr2.Text = "" End Sub Private Sub Hitung_Click() CT.Text = (Val(C1.Text) * Val(C2.Text)) / (Val(C1.Text) + Val(C2.Text)) End Sub Private Sub Hitung2_Click() Fr.Text = Val(L.Text) * Val(CT.Text) Fr.Text = Val(Fr.Text) ^ 0.5 Fr.Text = 1 / Val(Fr.Text) Fr.Text = 0.1591549431 * Val(Fr.Text) End Sub Private Sub Hitung3_Click() Fr2.Text = Val(L2.Text) * Val(C3.Text) Fr2.Text = Val(Fr2.Text) ^ 0.5 Fr2.Text = 1 / Val(Fr2.Text) Fr2.Text = 0.1591549431 * Val(Fr2.Text) End Sub 

Berikut adalah tampilan dari aplikasi yang telah saya buat