Penggunaan option button dan alogaritma if then else pada visual basic

Option button atau bisa juga disebut dengan option button adalah salah satu fasilitas dalam pemrograman GUI (graphic user interface) menggunakan visual basic, kadang option button sering juga disebut dengan radio button, penggunaan OB ini sangat erat dengan alogaritma if then else, karena bila memakai OB, dan dalam GUI kita terdapat lebih dari satu OB, hanya satu aja yang boleh bernilai true bila digunakan secara bersamaan. Nilai input untuk program adalah true atau false.

Alogaritma if then else
dalam visual basic, ada yang dapat dipakai yaitu if then else, dan if then elseif else, konsep sytaxnya adalah
if syarat 1 then
    kondisi 1
else
   kondisi 2
end if

untuk if then elseif

if syarat1 then
   kondisi 1
elseif syarat2
  kondisi 2
elseif syarat n
  kondisi n
else
   kondisi n+1
end if

Contoh Aplikasi
contoh pemograman menggunakan if then else,  adalah untuk menentukan proses perhitungan suku bunga bank, karena terdapat berbagai jenis skema, maka dapat kita jadikan pilihan perhitungan (sesuai dengan kuliah optimasi sistem energi BAB 3)
Pilihan perhitunga yang digunakan ada tiga jenis bunga yang dipakai yaitu
1. simple atau bunga tetap
2. bunga berbunga tahunan
3. bunga berbunga tidak tahunan / sistem compuding, misalnya per bulan, per 1/4 tahun dst

masukkan frame ke dalam form, frame berfungsi untuk mengorganisir kumpulan perintah, sehingga user dapat dengan mudah memahami inputtan suatu program, frame yang saya masukkan properties caption saya ganti dengan "metode perhitungan", kedalamnya saya masukkan option button 2 buah,  lalu masing-masing captionnya diganti dengan "simple", "bunga berbunga tahunan", " bunga berbunga lebih dari tahunan", bila ukuran option button tidak mencukupi, drag pinggirnya untuk mengubah ukuran yang sesuai, sehingga tulisanya bisa masuk semua.

Input perhitungan

karena nilai yang dimasukkan sama, kecuali compouding untuk bunga berbunga lebih dari tahunan, maka compuding diset mati (disabled) ketika metode simple dan bunga berbung tahunan dipilih, untuk inputan digunakan text box berjumlah 4 buah.

Desain Output

output menggunakan dua buah textbox satu untuk menghitung jumlah total yang harus dikembalikan, dan jumlah cicilan

Alogaritma

dengan tiga pilihan yang ada, alogaritma yang sesuai dengan penggunaan if then else adalah

1. baca p,i2,n,m

2. hitung i=i2/100 'konvert ke persen

3. if simple dipilih then

4.     s = P + (P * i * n)

5.     r = s / (n * 12)

6.   tulis hasil, s dan r  

7. ElseIf  bunga berbunga dipilih then

8.     s = P * ((1 + i) ^ n)

9.     r = s / (n * 12)

10.  tulis hasil, s dan r

11 ElseIf bunga compouding dipilih then Then

12.    s = P * ((1 + i / m) ^ (n * m))

13.    r = s / (n * m)

14.    tulis hasil, s dan r

15. Else

16.  MsgBox "pilih metode perhitungan"

17.  End If

memasukkan program

untuk menuliskan program sesuai dengan alogaritma diatas, double klik command button HITUNG lalu masukkan program seperti dibawah berikut

Dim P, i, s, r, n As Double ' deklarasi variable

Private Sub CommandButton1_Click()

P = TextBox1.Text

i2 = TextBox2.Text

n = TextBox3.Text

m = TextBox6.Text

i2 = 1 / 100 ' mengubah persen

    If optsimple.Value = True Then ' pilihan bunga simple

    s = P + (P * i * n)

    r = s / (n * 12)

    TextBox4.Text = Val(s)

    TextBox5.Text = Val(r)

    

    ElseIf optb.Value = True Then  ' pilihan bunga berbunga

    s = P * ((1 + i) ^ n)

    r = s / (n * 12)

    TextBox4.Text = s

    TextBox5.Text = r

    

    ElseIf optbb.Value = True Then  'pilihan compouding

    s = P * ((1 + i / m) ^ (n * m))

    r = s / (n * m)

    TextBox4.Text = s

    TextBox5.Text = r

    Else

    MsgBox "pilih metode perhitungan"

    End If

End Sub

untuk mematikan textbox m (compouding) bila tidak dipilih

Private Sub optb_Click()

TextBox6.Enabled = False  ' mematikan text box compouding

End Sub

Private Sub optbb_Click()

TextBox6.Enabled = True   ' menghidupkan text box compuding

End Sub

Private Sub optsimple_Click()

TextBox6.Enabled = False  ' mematikan text box compuding

End Sub

untuk memudahkan menghapus nilai yang ada di textbox setelah nilai dimasukkan atau dihitung semua textbox diberi nilai kosong, 

Private Sub CommandButton2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

End Sub

untuk meload form dari excell ketika button2 diklik

Sub Button2_Click()

UserForm1.Show

End Sub

Hasil Running Program

lalu muncul form sebagai berikut

hasil excell dapat didownload pada embed object berikut, namun tampilan pada embed object terkadang hanya putih, silahkan download lalu check di visual basicnya

Read More