Konversikan Bilangan Desimal ke Bilangan Biner
Tutorial VB saya kali ini membahas tentang bagaimana sebuah program dapat bekerja sebagai alat konversi. Program ini masih menggunakan Microsoft Visual Basic
Cara kerjanya?
Cukup memasukan bilangan kedalam text box yang sudah disiapkan di awal form
Membuat Form Bilangan Biner dan Bilangan Desimal
Syarat yang diperlukan:- Text Box = 2
- Command Button = 2
Syarat tambahan yang diperlukan:
- Tidak ada
Berikut ini Source Code dan penjelasannya:
Private Sub Command1_Click()
'didalam variabel awal digunakan long, karena kita akan mencari bilangan desimal
Dim Decimal1 As Long
'didalam variabel awal digunakan string, karena kita akan mencari binary
Dim Binary1 As String
'didalam variabel awal digunakan long, karena kita akan mencari bilangan desimal
Dim Binary2 As String
'jika terjadi kesalahan dalam penulisan, maka akan menstabilkannya dengan kode berikut
On Error GoTo ErrEnd
Binary1 = ""
Binary2 = ""
'dimaksudkan diatas jangan sampai ada yang kosong
Decimal1 = Text1.Text
'Ini Rumusnya
Do Until Decimal1 = 0
If Deelbaar2(Decimal1) = False Then
Binary2 = Binary2 & 1
ElseIf Deelbaar2(Decimal1) = True Then
Binary2 = Binary2 & 0
End If
Decimal1 = Int(Decimal1 / 2)
Loop
For a = Len(Binary2) To 1 Step -1
Binary1 = Binary1 & Mid(Binary2, a, 1)
Next a
Text2.Text = Binary1
Exit Sub
'kenapa ada dua end sub
'ini dikarenakan kita akan memanggil sub didalam suatu fungsi / wadah
'maka berikutnya langsung di tuliskan seperti dibawah ini
ErrEnd:
Alert = MsgBox("Error " & Err.Number & ": " & Err.Description, vbCritical)
End Sub
Untuk melihat dan mempelajari program Convert Decimal ke Binary, kalian bisa melihatnya di Source Code Convert Decimal ke Binary. Dapatkan juga contoh programnya, yang bisa kalian download disana.
