BELAJAR MEMBUAT SOFTWARE SENDIRI
Aplikasi
ini bias kita gunakan untuk mempermudah kita dalam konversi bilangan, yang mana
kebanyakan orang mengira bahwa konversi itu susah, bahka rumit, tetapi selain
memnggunakan aplikasi ini kita bias juga manfaatkan kalkulator computer,
sebagai alat penghitungnya.
Baik,
saya coba kenalkan dengan system bilangan yaitu:
Bilangan
desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu
0,1,2,3,4,5,6,7,8,9.,
Bilangan
octal adalah bilangan yang mempunyai delapan simbol angka yaitu
0,1,2,3,4,5,6,7.
Bilangan
hexa 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.
Dan
Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1.
Langsung
saja kita awali denga mengisntal software visual basic, adapun versinya tererah
anda tinggal menyesuaikan, selanjutnya tambahkan beberapa atribut kedalam form
antara lain :
·
3 buah Label
·
2 buah TextBox
·
1 buah ComboBox
·
2 buah Button
Kemudian
sesuaikan tata letaknya di form sesuai
selera anda, dan untuk program yang saya coba contohkan seperti gambar berikut!
Adapun Scripnya Sebagai Berikut :
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Konversi.Items.Add("Hexa")
Konversi.Items.Add("Binner")
Konversi.Items.Add("Octal")
End Sub
Private Sub Konversi_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Konversi.SelectedIndexChanged
If
Konversi.Text = "Hexa" Then
BilanganOutput.Text =
Hex(Val(BilanganInput.Text))
ElseIf
Konversi.Text = "Binner" Then
Dim
xHexa As String
= Hex(Val(BilanganInput.Text))
Dim
xBin As String
Dim
xBin2 As String
Dim
xKata As String
Dim
i As Integer
xBin2 = ""
For
i = 1 To Len(xHexa)
xBin = ""
xKata = Mid(xHexa, i, 1)
Select
Case UCase(xKata)
Case
"0"
xBin = "0000"
Case
"1"
xBin = "0001"
Case
"2"
xBin = "0010"
Case
"3"
xBin = "0011"
Case
"4"
xBin = "0100"
Case
"5"
xBin = "0101"
Case
"6"
xBin = "0110"
Case
"7"
xBin = "0111"
Case
"8"
xBin = "1000"
Case
"9"
xBin = "1001"
Case
"A"
xBin = "1010"
Case
"B"
xBin = "1011"
Case "C"
xBin = "1100"
Case
"D"
xBin = "1101"
Case
"E"
xBin = "1110"
Case
"F"
xBin = "1111"
Case
"h", "H"
xBin = ""
Case
Else
xBin = ""
End
Select
xBin2 = xBin2 + xBin
Next
i
BilanganOutput.Text = xBin2
ElseIf
Konversi.Text = "Octal" Then
BilanganOutput.Text =
Oct(Val(BilanganInput.Text))
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
BilanganInput.Text = ""
BilanganOutput.Text = ""
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
|
Keterangan:
Untuk TextBox nya beri
nama "BilanganInput" dan "BilanganOutput".
Untuk ComboBox beri nama
"Konversi".
Untuk kedua Button beri
nama "BtnHapus" dan "BtnKeluar".
Lihat Juga Videonya
Jika Ingin Mencoba, Anda Bisa langsung install programnya, silahkan download
Tag :
Materi TKJ
