BIKIN KONVERSI DENGAN VB 6.0 DAN SOURCH CODE

LANGKAH MEMBUAT PROGAM KONVERSI DENGAN VISUAL BASIC 6.0

Oleh M YANTO

Syarat : Telah Terinstal Progam VB 6.0 pada komputer

1. Pertama-tama anda klik progam VB pada menu STAR => All Progam = > Visual Studio => Visual Basic 6.0 , maka akan tampilan windows sebagai berikut :

2. Pilih icon Standart.EXE (double klik) untuk memulai membuat progam (project) baru dengan Visual Basic.

Maka tampilan gambarnya akan berubah menjadi Form berikut :

bagian sebagai berikut :

Windows	Keterangan
Form	Tempat untuk membuat tampilan program secara grafis
Toolbox	Toolbox berisi tool yang biasa disebut dengan control.
Project	Berisi daftar type file yang digunakan dalam aplikasi. Aplikasi dalam Visual Basic dinamakan project
roperties	Digunakan untuk mengatur tampilan dari form atau control/toolbox yang digunakan dalam aplikasi.
Code	Tempat yang digunakan untuk menulis program visual basic. Ketika program dijalankan maka tampilan akan mengikuti seperti instruksi yang di berikan pada window code tersebut.

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 , or hubungi Mr.Okrek

SELAMAT MENCOBA !!!!