Membuat Kalkulator Biner Di VB

Langkah pertama yang dilakukan adalah membuat design pada form, pada program kali ini saya membuat 3 label, 2 edit.text, 3 ooptionbutton, 1 button. Dan ubah captionnya agar user mudah menggunakkan program tersebut. Agar tampilan lebih menarik saya merubah jenis font pada setiap component yang digunakan, serta menambahkan background pada bagian propertis form yang digunakan dan menambahkan icon untuk form tersebut. (lihat gambar)

Langkah kedua adalah memberikan intruksi (sintax) pada button1, option1, option2 dan option3.

· Untuk button 1:

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Button ini di berikan sintax seperti text diatas, agar jika di klik maka akan mengkosongkan nilai yang ada pada text1.text, text2.text, serta menghilangkan pilihan (nilai) pada optin 1, 2 dan 3.

· Untuk Option1:

Private Sub Option1_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 2

a = (a - b) / 2

n = b & n

Text2.Text = n

Wend

End Sub

Membuat variable a yang sudah di tetapkan sebagai inputan pada text1.text. membuat variable n yang semula tidak bernilai. Tahap berikutnya adalah menggunakan sintax perulangan while untuk variable a>=1 maka akan menghasilkan variable b dengan nilai variable a mod 2, lalu menjalankan perintah a = (a-b)/2, serta menghasilkan variable n dengan nilai variable b di tambahkan dengan variable n. Selanjutnya menetapkan variable n di text2.text dan mengahiri while dengan wend.

· Untuk Option2:

Private Sub Option2_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 8

a = (a - b) / 8

n = b & n

Text2.Text = n

Wend

End Sub

Pada Option yang kedua ini sama saja dengan option1, hanya saja pada tahap ini dibagian variable b diberi nilai mod 8, sehingga nilai pada a juga berubah menjadi a = (a-b)/8.

· Untuk Option3:

Private Sub Option3_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 16

a = (a - b) / 16

If b = 15 Then

n = "F" & n

ElseIf b = 10 Then

n = "A" & n

ElseIf b = 11 Then

n = "B" & n

ElseIf b = 12 Then

n = "C" & n

ElseIf b = 13 Then

n = "D" & n

ElseIf b = 14 Then

n = "E" & n

Else: n = b & n

End If

Text2.Text = n

Wend

End Sub

Pada tahap yang terakhir ini (button3) kita akan memasukkan sintax yang sama dengan sintax pada option 1 &2, hanya saja pada option3 ini kita merubah nilai mod menjadi 16 dan menambahkan pengecualian didalam perulangan while tersebut, ini dapat dilihat dengan adanya if, elseif dan end if. Untuk if yang pertama yaitu jika b = 15 maka akan menghasilkan n dengan nilai “F” dan menambahkan kembali n tersebut, jika b bernilai 10 maka akan membuat n = “A”, jika b bernilai 11 maka n = “B”, jika b = 12 maka n = “C”, jika b = 13 maka n = “D”, jika b = 14 maka n = “E”, dan diakhiri dengan end if serta penutupan perulangan wend.

OUTPUT

SOURCE CODE COMPLATE:

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Private Sub Option1_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 2

a = (a - b) / 2

n = b & n

Text2.Text = n

Wend

End Sub

Private Sub Option2_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 8

a = (a - b) / 8

n = b & n

Text2.Text = n

Wend

End Sub

Private Sub Option3_Click()

a = Text1.Text

n = ""

While a >= 1

b = a Mod 16

a = (a - b) / 16

If b = 15 Then

n = "F" & n

ElseIf b = 10 Then

n = "A" & n

ElseIf b = 11 Then

n = "B" & n

ElseIf b = 12 Then

n = "C" & n

ElseIf b = 13 Then

n = "D" & n

ElseIf b = 14 Then

n = "E" & n

Else: n = b & n

End If

Text2.Text = n

Wend

End Sub