Membuat Aplikasi Konversi Bilangan dengan VB

Konversi bilangan adalah perubahan bilangan yang biasanya kita kenal seperti bilangan biner, hexadesimal, desimal dan oktal. Dimana sistem bilangan ini wajib kita pahami untuk seorang mahasiswa Teknik Elektro apalagi ingin menjadi seorang Programmer.
1. Desimal
Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.
2. Heksadesimal
Bilangan heksadesimal adalah bilangan yang mempunyai enam belas simbol angka yaitu 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.
3. Biner
Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1
4. Oktal
Bilangan heksadesimal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7

Berikut tabel Konversi Bilangan:

Desimal	Biner	Oktal	Hexadesimal
0	0	0	0
1	1	1	1
2	10	2	2
3	11	3	3
4	100	4	4
5	101	5	5
6	110	6	6
7	111	7	7
8	1000	10	8
9	1001	11	9
10	1010	12	A
11	1011	13	B
12	1100	14	C
13	1101	15	D
14	1110	16	E
15	1111	17	F

Baiklah kita akan membuat program Aplikasi Konversi Bilangan dengan VB dimana aplikasi ini akan membantu anda mengkonversikan bilangan secara cepat dan tepat :
1. Seperti biasa buatlah New Project pada software VB anda kemudian tambahkan 11 label, 2 textbox, 2 frame, 8 optionbutton, dan 3 commandbutton.
2. Desainlah menjadi seperti gambar dibawah ini :

3. Dan setiap beri nama setiap textbox dan optionbutton seperti text warna coklat tersebut, mengganti namanya di Propertiesbar. Jika ada kekeliruan form tidak berjalan dengan sempurna :v
4. Lalu Copy code/script dibawah ini

Untuk Tombol Clearnya
Private Sub cmdclear_Click()
txtmasuk.Text = ""
txtkeluar.Caption = ""
txtmasuk.SetFocus
optdesimalm.Value = False
optbinerm.Value = False
optoktalm.Value = False
optheksam.Value = False
optdesimalk.Value = False
optbinerk.Value = False
optoktalk.Value = False
optheksak.Value = False
End Sub
Untuk Tombol Exitnya
Private Sub cmdexit_Click()
x = MsgBox("Do you want to exit now ?", vbYesNo, "Information")
If x = vbYes Then
Unload Me
Else
End If
End Sub

Untuk Tombol Konversinya
Private Sub cmdkonversi_Click()
If optbinerm.Value And optdesimalk.Value Then txtkeluar.Caption = BinToDes(txtmasuk.Text)
If optbinerm.Value And optbinerk.Value Then txtkeluar.Caption = txtmasuk.Text
If optbinerm.Value And optoktalk.Value Then txtkeluar.Caption = BinToOk(txtmasuk.Text)
If optbinerm.Value And optheksak.Value Then txtkeluar.Caption = BinToHex(txtmasuk.Text)
If optdesimalm.Value And optbinerk.Value Then txtkeluar.Caption = DesToBin(txtmasuk.Text)
If optdesimalm.Value And optdesimalk.Value Then txtkeluar.Caption = txtmasuk.Text
If optdesimalm.Value And optoktalk.Value Then txtkeluar.Caption = DesToOk(txtmasuk.Text)
If optdesimalm.Value And optheksak.Value Then txtkeluar.Caption = DesToHex(txtmasuk.Text)
If optoktalm.Value And optbinerk.Value Then txtkeluar.Caption = OkToBin(txtmasuk.Text)
If optoktalm.Value And optheksak.Value Then txtkeluar.Caption = OkToHex(txtmasuk.Text)
If optoktalm.Value And optdesimalk.Value Then txtkeluar.Caption = OkToDes(txtmasuk.Text)
If optoktalm.Value And optoktalk.Value Then txtkeluar.Caption = txtmasuk.Text
If optheksam.Value And optbinerk.Value Then txtkeluar.Caption = HexToBin(txtmasuk.Text)
If optheksam.Value And optdesimalk.Value Then txtkeluar.Caption = HexToDes(txtmasuk.Text)
If optheksam.Value And optoktalk.Value Then txtkeluar.Caption = HexToOk(txtmasuk.Text)
If optheksam.Value And optheksak.Value Then txtkeluar.Caption = txtmasuk.Text

With txtmasuk
.SelStart = 0
.SelLength = Len(txtmasuk.Text)
End With
End Sub

Public Function BinToDes(ByVal NBiner As String) As Long
Dim A As Integer
Dim B As Long
Dim Nilai As Long
On Error GoTo ErrorHandler
B = 1
For A = Len(NBiner) To 1 Step -1
If Mid(NBiner, A, 1) = "1" Then Nilai = Nilai + B
B = B * 2
Next
BinToDes = Nilai
Exit Function
ErrorHandler:
BinToDes = 0
End Function


Public Function DesToBin(ByVal NDesimal As Long) As String
Dim C As Byte
Dim D As Long
Dim Nilai As String
On Error GoTo ErrorHandler
D = (2 ^ 31) - 1
While D > 0
If NDesimal - D >= 0 Then
NDesimal = NDesimal - D
Nilai = Nilai & "1"
Else
If Val(Nilai) > 0 Then Nilai = Nilai & "0"
End If
D = D / 2
Wend
DesToBin = Nilai
Exit Function
ErrorHandler:
DesToBin = 0
End Function

Public Function DesToHex(ByVal NDesimal As Long) As String
DesToHex = Hex(NDesimal)
End Function

Public Function HexToDes(ByVal NHexa As String) As Long
Dim E As Integer
Dim Nilai As Long
Dim F As Long
Dim CharNilai As Byte
On Error GoTo ErrorHandler
For E = Len(NHexa) To 1 Step -1
Select Case Mid(NHexa, E, 1)
Case "0" To "9": CharNilai = CInt(Mid(NHexa, E, 1))
Case Else: CharNilai = Asc(Mid(NHexa, E, 1)) - 55
End Select
Nilai = Nilai + ((16 ^ F) * CharNilai)
F = F + 1
Next E
HexToDes = Nilai
Exit Function
ErrorHandler:
HexToDes = 0
End Function
Public Function DesToOk(ByVal NDesimal As Long) As String
DesToOk = Oct(NDesimal)
End Function

Public Function OkToDes(ByVal NOktal As String) As Long
Dim G As Integer
Dim H As Long
Dim Nilai As Long
On Error GoTo ErrorHandler
For G = Len(NOktal) To 1 Step -1
Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))
H = H + 1
Next G
OkToDes = Nilai
Exit Function
ErrorHandler:
OkToDes = 0
End Function

Public Function BinToOk(ByVal bin As Long) As String
BinToOk = DesToOk(BinToDes(bin))
End Function

Public Function BinToHex(ByVal NBiner As Long) As String
BinToHex = DesToHex(BinToDes(NBiner))
End Function

Public Function OkToBin(ByVal NOktal As Double) As String
OkToBin = DesToBin(OkToDes(NOktal))
End Function
Public Function OkToHex(ByVal NOktal As Double) As String
OkToHex = DesToHex(OkToDes(NOktal))
End Function

Public Function HexToBin(ByVal NHexa As String) As String
HexToBin = DesToBin(HexToDes(NHexa))
End Function

Public Function HexToOk(ByVal NHexa As String) As Double
HexToOk = DesToOk(HexToDes(NHexa))
End Function

Private Sub FrKonBil_Load()
Welcome = MsgBox("Konversi Bilangan by Chimpunk!", vbInformation, "Thanks to XTKJD")
If Welcom = okvb Then
Unload Me
Else
OpenURL "http://blogspot.com", Me.hWnd
End If
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
txtmasuk.Text = ""
txtkeluar.Caption = ""

End Sub

Private Sub Form_Load()

End Sub

5. Lalu Paste code/script tadi ke Jendela Code, (View Code).
6. Coba Run/Play form tadi.
7. Tadaaa! udah jadi. Selamat bereksperimen Gan

Perbadingan Aplikasi Android dan Aplikasi Apple

Apakah anda pengguna Gadget dengan Aplikasi Android atau anda adalah salah satu pengguna Aplikasi Apple? bagaimana rasanya. Tentu jika anda hanya memiliki salah satu aplikasi baik Android atau Apple tidak dapat membedakannya. Tapi ada baiknya kita ketahui perbandingan kedua aplikasi tersebut sesuai dengan penuturan Jared Spurbeck salah satu analis software open source.


Jika anda mempunyai dua gadget dengan masing-masing punya Aplikasi berbeda, Android atau Apple, maka anda akan merasakan perbedaan yang mendasar dalam penggunaan gadget tersebut. Aplikasi Android dan Aplikasi Apple sangat berbeda dan mari kita kupas satu persatu.

Aplikasi Android

Android adalah buatan raksasa Google yang saat ini mengalami perkembangan pengguna yang cukup pesat. Aplikasi Android berbasis bahasa Java yang sering kita jumpai saat mengenyam pendidikan di Indonesia. Karena mudahnya membuat Aplikasi ini maka dengan waktu singkat Produk Aplikasi Android tumbuh pesat dalam hal jumlah. Banyak yang gratis dan terkesan abal-abal serta ada juga yang baik tentunya dengan harga yang harus anda bayar.
Android Market adalah tempat untuk mendapatkan Aplikasi Android. Pengembang Aplikasi Android hanya dikenai biaya flat $ 25 untuk menempatkan Aplikasinya di Android Market dan jika aplikasinya berbayar, cukup menambah $ 20.
Aplikasi Android harus menyesuaikan dengan banyaknya ukuran layar yang beredar pada gadget di pasar. Tentu ini harus dicermati bagi setiap pengembang kalau tidak maka jangan heran kalau ada pengguna yang berkomentar buruk karena aplikasinya tidak jalan. Keuntungan bagi pengguna adalah banyak sekali aplikasi android gratis yang siap menancap di Smartphone atau Android Tablet.
Ini bukan berarti semua Aplikasi Android tidak baik, banyak sekali Aplikasi Android yang cukup baik dan semua itu tergantung anda menyesuaikan Layar gadget dan aplikasinya.

Aplikasi Apple

Aplikasi Apple tidak sefamiliar android untuk saat ini. Walaupun demikian, Aplikasi Apple bekerja lebih baik dan lebih mudah digunakan. Aplikasi ini dapat anda jumpai di App Store.Pengembang Aplikasi Apple harus merogoh kocek sekitar $ 99 agar Aplikasinya di pajang di App Store. Walaupun bayar lebih mahal, Aplikasi dari Pengembang ini harus lolos saringan Apple sebelum masuk tokonya.
Aplikasi Apple dibuat dengan bahasa Objective-C yang biasa digunakan dalam pembuatan aplikasi untuk Mac dan iOS. Pengembang Aplikasi untuk iPhone dan iPad ini lebih fokus karena pada dasarnya hanya memiliki satu layar pengguna.
Dari ulasan Aplikasi Android dan Aplikasi Apple di atas apakah anda sudah menentukan pilihan. Secara keseluruhan, Aplikasi Apple layak dilirik tapi bukan berarti Aplikasi Android tidak layak karena dalam Android Market masih banyak Aplikasi yang sangat menarik. Sekarang silahkan tentukan pilihan anda karena saya sudah sedikit membandingkan Aplikasi Android dan Aplikasi iPhone atau iPad (Aplikasi Apple) di atas