source code VB - konversi

1.KONVERSI BINER KE DESIMAL

'Deskripsi: Mengkonversi dari bilangan Binary ke bilangan Desimal.

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form Anda.

'----------------------------------------------------------------

Private Function BinaryToDecimal(ByVal BinValue As String) As Long

Dim lngValue As Long

Dim x As Long

Dim k As Long

k = Len(BinValue) ' will only work with 32 or fewer "bits"

For x = k To 1 Step -1 ' work backwards down string

If Mid$(BinValue, x, 1) = "1" Then

If k - x > 30 Then ' bit 31 is the sign bit

lngValue = lngValue Or -2147483648# ' avoid overflow error

Else

lngValue = lngValue + 2 ^ (k - x)

End If

End If

Next x

BinaryToDecimal = lngValue

End Function

Contoh penjumlahan biner dengan hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas

3. Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek1 = BinaryToDecimal(Text1)

okrek2 = BinaryToDecimal(Text2)

Text3 = Val(okrek1) + Val(okrek2)

End Sub

Contoh lain untuk menampilkam massage boxpada form , ketikkan kode di bawah ini :

Private Sub Form_Load()

'Ganti "11001" di bawah dengan bilangan binary yang Anda inginkan untuk

'dikonversi ke bilangan desimal.

MsgBox BinaryToDecimal("11001") 'contoh ini menghasilkan 25

End Sub

2.KONVERSI DESIMAL KE BINER

'Deskripsi: Mengkonversi bilangan desimal menjadi bilangan binary.

' (kelipatan 2).

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box

' 2. Copy-kan coding berikut ke dalam editor Form Anda.

'-------------------------------------------------------------------

Public Function dec2bin(mynum As Variant) As String

Dim loopcounter As Integer

If mynum >= 2 ^ 31 Then

dec2bin = "Bilangan terlalu besar!"

Exit Function

End If

Do

If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then

dec2bin = "1" & dec2bin

Else

dec2bin = "0" & dec2bin

End If

loopcounter = loopcounter + 1

Loop Until 2 ^ loopcounter > mynum

End Function

Contoh pengurangan decimal dengan hasl biner :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas ,Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek = Text1 - Text2

Text3 = dec2bin(okrek)

End Sub

CONTOH jika ingin merubah huruf bilangan decimal di text1 menjadi bilangan biner di text2

Ketikkan kode berikut

'Masukkan bilangan ke dalam Text1.

'Lihat hasilnya di Label1...

Private Sub Text1_Change()

Text2 = dec2bin(Text1.Text)

End Sub

3.KONVERSI heksa ke desimal

Jika kamu ingin membuat konversi Bilangan HEKSAmenjadi bilangan DESIMAL

Contoh pembagian heksa hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Hexa ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strHexOkrek1 = Text1

strHexOkrek2 = Text2

Text3 = Val("&H" + strHexOkrek1) / Val("&H" + strHexOkrek2)

End Sub

4.KONVERSI decimal ke heksa

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Heksa

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh perkalian bilangan Desimal hasil Heksa

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexa

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) * val(text2)

Text3 = hex(Okrek)

End Sub

5.KONVERSI okta ke desimal

Jika kamu ingin membuat konversi Bilangan OKTA menjadi bilangan DESIMAL

Contoh pengurangan okta hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Okta ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strOctOkrek1 = Text1

strOctOkrek2 = Text2

Text3 = Val("&O" + strOctOkrek1) - Val("&O" + strOctOkrek2)

End Sub

6.KONVERSI decimal ke okta

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Okta

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh penjumlahan bilangan Desimal hasil Okta

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexadesimal

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) + val(text2)

Text3 = Oct(Okrek)

End Sub

Untuk Project yang lain silahkan kamu kreasikan sendiri..

SELAMAT MENCOBA !!!!


sumber : mokrek86.blogspot.com