Minggu, 04 Juli 2010

Decimal Convert To Binary

Pada materi sebelumnya tentang sistem bilangan telah dijelaskan sedikit tentang Berbagai macam bilangan dan bagaimana cara mengkonversinya. Pada artikel ini kita akan mencoba membuat sebuah program yang akan melakukan konversi bilangan Desimal ke biner menggunakan visual basic 6.0.

Untuk membuatnya , relatif mudah jika kita telah memahami konsep bilangan dan cara kerja Microsoft Visual Basic. Namun bagi kita yang kurang paham (termasuk saya) mungkin akan sedikit kesulitan terutama dalam mencari algoritma yang tepat untuk membuatnya.

Intinya adalah pembagian bilangan desimal yang akan dikonversi dengan 2 dan menyimpan sisanya serta melakukan looping untuk hasil bagi yang masih ada. Mungkin langsung saja kita terapkan pada program kita. Langkahnya :

>> Buka Microsoft Visual Basic 6.0  ( Disini saya selalu menganggap anda telah memiliki dasar programer)
>> tambahkan sebuah kontrol label ,sebuah kontrol text dan juga sebuah kontrol button.
>> selanjutnya buka jendela code dan buat sebuah fungsi seperti ini:
'***************************************************
Public Function bino(ByVal nDecimal As Integer) As String
Dim bin  As String
Dim ulang As Integer

For ulang = 0 To 3
bin = IIf(nDecimal And 2 ^ ulang, "1", "0") & _
bin
Next
   
bino = bin
   
End Function
'***************************************************

>>klik dua kali command button dan ketikan listing berikut

Label1.caption = bino(text1.text)

>>jalankan program anda


Program yang akan anda buat akan menampilkan binary sebanyak 4 digit (coba perhatikan " For ulang = 0 To 3") untuk memperbayaknya silakan ganti angka tiga dengan 15 (missal). Jika anda memberikan angka decimal ke control text dan mengklik button maka label akan menjadi nilai binary yang merupakan hasil konversi dari nilai decimal yang anda masukan tadi.

Selanjutnya coba gunakan funsi yang ini:
Public Function dcb(desimal As Variant) As String
Dim andi As Integer
If desimal >= 65535 Then
dcb = "OVER LOAD!"
Exit Function
End If
Do
If (desimal And 2 ^ andi) = 2 ^ andi Then
dcb = "1" & dcb
Else
dcb = "0" & dcb
End If
andi = andi + 1
Loop Until 2 ^ andi > desimal
End Function

Hasilnya tidak akan jauh berbeda….


Selanjutnya akan kita bahas bagaimana membuat program untuk mengkonversi bilangan tersebut ke Hexadesimal.

0 comments:

Posting Komentar

Need Your Comments, Please !!!