Program Pencari Nilai Resistansi Op-Amp dengan Visual Basic

Aplikasi yang saya buat ini bertujuan untuk mencari atau menentukan nilai resistansi pada Inverting Op-Amp dan non Inverting Op-Amp. Cara kerja aplikasi ini adalah dengan mengolah input yang berupa data nilai Vin (tegangan input) dan nilai Vout (tegangan output) yang diinginkan. Output yang dihasilkan dari program ini adalah nilai Rf dan Rin pada inverting op-amp, dan Rf dan Rg pada non inverting op-amp.

STRUKTUR NAVIGASI :

inverting op-amp

non inverting op-amp

FLOW CHART :

inverting op-amp

non inverting op-amp

SOURCE CODE :



Private Sub Command1_Click() Dim i As Integer Dim rin, rf As Integer vin_result_inverting.Caption = "Nilai Vin : " + vin_inverting.Text + " Volt" vout_result_inverting.Caption = "Nilai Vout : " + vout_inverting.Text + " Volt" i = vout_inverting.Text Mod 2 If i = 0 Then rf = vout_inverting.Text * 2 * -1 rin = 2 Else rf = vout_inverting.Text * 3 * -1 rin = 3 End If rin_inverting.Caption = "Nilai Rin : " + Str(rin) + " Kohm" rf_inverting.Caption = "Nilai Rf : " + Str(rf) + " Kohm" End Sub Private Sub Command2_Click() Dim i As Integer Dim rin, rf As Integer vin_result_noninverting.Caption = "Nilai Vin : " + vin_noninverting.Text + " Volt" vout_result_noninverting.Caption = "Nilai Vout : " + vout_noninverting.Text + " Volt" i = (vout_noninverting.Text - 1) Mod 2 If i = 0 Then rf = (vout_noninverting.Text - 1) * 2 rin = 2 Else rf = (vout_noninverting.Text - 1) * 3 rin = 3 End If rin_noninverting.Caption = "Nilai Rin : " + Str(rin) + " Kohm" rf_noninverting.Caption = "Nilai Rf : " + Str(rf) + " Kohm" End Sub Private Sub Form_Load() vin_inverting.Text = 0 vout_inverting.Text = 0 times_inverting.Text = 0 vin_noninverting.Text = 0 vout_noninverting.Text = 0 times_noninverting.Text = 0 End Sub Private Sub times_inverting_Change() If times_inverting.Text = "" Then vout_inverting.Text = 0 Else vout_inverting.Text = "-" + Str(times_inverting.Text * vin_inverting.Text) End If End Sub Private Sub times_noninverting_Change() If times_noninverting.Text = "" Then vout_noninverting.Text = 0 Else vout_noninverting.Text = Str(times_noninverting.Text * vin_noninverting.Text) End If End Sub


TAMPILAN APLIKASI :