Coding untuk membuat program menghitung GGL Induksi pada Kumparan Primer menggunakan program Visual Basic
Berikut adalah alur program yang akan dibuat pada program Visual Basic :
Berikut adalah alur program yang akan dibuat pada program Visual Basic :
Public Np_rumus1, Np_rumus2, Dflux, Dt, fluks_maks, sin,
omega_t, phi, L, Ep_rumus1, Ep_rumus2, Ep_hasil
Public Label_keterangan_output, Label_hasil_Ep,
rumus_pilihan
Sub hitung_ggl_induksi()
End Sub
Sub rumus1()
rumus_pilihan = 1
Ep_hasil = Ep_rumus1
Form_input_rumus1.Hide
Call
tampilkan_hasil
End Sub
Sub rumus2()
rumus_pilihan = 2
Ep_hasil =
Ep_rumus2
Form_input_rumus2.Hide
Call
tampilkan_hasil
'Call ambil_data_input_rumus2
End Sub
Sub tampilkan_hasil()
Form_hasil_Ep.Label_keterangan_output = "Output Ep menggunakan
Rumus " & rumus_pilihan
Form_hasil_Ep.Label_hasil_Ep = Ep_hasil
Form_hasil_Ep.Show
Form_pilihan_rumus.Hide
End Sub
Sub ambil_data_input_rumus1()
Np_rumus1 =
InputBox_Np_rumus1.Value
Dflux =
InputBox_dfluks.Value
Dt =
InputBox_dt.Value
Ep_rumus1 =
-Np_rumus1 * (Dflux / Dt)
End Sub
Sub ambil_data_input_rumus2()
Np_rumus2 =
InputBox_Np_rumus2.Value
fluks_maks =
InputBox_fluks_maks.Value
sin =
InputBox_sin.Value
omega_t =
InputBox_omega_t.Value
phi =
InputBox_phi.Value
L =
InputBox_L.Value
Ep_rumus2 =
-Np_rumus2 * fluks_maks * sin * (omeg_t * (phi / L))
End Sub
Sub run_program()
Range("C17").Select
Selection.ClearContents
Call
form_pilihan_rumus_show
End Sub
Modul 2
Sub form_pilihan_rumus_show()
Form_pilihan_rumus.Show
End Sub
Sub form_pilihan_rumus_hide()
Form_pilihan_rumus.Hide
End Sub
Sub form_input_rumus1_show()
Form_input_rumus1.Show
End Sub
Sub form_input_rumus1_hide()
Form_input_rumus1.Hide
End Sub
Sub form_input_rumus2_show()
Form_input_rumus2.Show
End Sub
Sub form_input_rumus2_hide()
Form_input_rumus2.Hide
End Sub
Sub form_hasil_Ep_show()
Form_hasil_Ep.Show
End Sub
Sub form_hasil_Ep_hide()
Form_hasil_Ep.Hide
End Sub
Form 1
Private Sub OptionButton1_Click()
Form_input_rumus1.Show
End Sub
Private Sub OptionButton2_Click()
Form_input_rumus2.Show
End Sub
Form 2
Private Sub OkButton_input_rumus2_Click()
Np_rumus2 =
Me.InputBox_Np_rumus2.Value
fluks_maks =
Me.InputBox_fluks_maks.Value
sin =
Me.InputBox_sin.Value
omega_t =
Me.InputBox_omega_t.Value
phi =
Me.InputBox_phi.Value
L =
Me.InputBox_L.Value
Ep_rumus2 =
-Np_rumus2 * fluks_maks * sin * (omega_t * (phi / L))
Call rumus2
End Sub
Form 3
Private Sub OkButton_input_rumus1_Click()
Np_rumus1 =
Me.InputBox_Np_rumus1.Value
Dflux =
Me.InputBox_dfluks.Value
Dt = Me.InputBox_dt.Value
Ep_rumus1 =
-Np_rumus1 * (Dflux / Dt)
Call rumus1
End Sub
Form 4
Private Sub CommandButton_close_form_hasil_Ep_Click()
Sheet1.Range("C17").Select
Selection.Value =
Ep_hasil
form_hasil_Ep_hide
End Sub