Pada artikel kali ini saya akan membahas sebuah bilangan yang ada dalam sistem komputer dan cara membuat konversinya di vb6. Lalu apa saja yang termasuk kedalam bilangan yang ada dalam sistem komputer itu, yaitu Desimal, Biner, Oktal dan Heksadesimal. Sebelum ke tutorial cara membuat konversi bilangan Yuk kita cari tau dulu apa pengertian dari ke 4 bilangan komputer tersebut
Desimal,suatu bilangan yang menggunakan radix atau basis 10
Biner,suatu bilangan yang menggunakan radix atau basis 2
Oktal,suatu bilangan yang menggunakan basis 8
Heksadesimal, suatu bilangan yang menggunakan basis 16
Setelah kita memahami keempat bilangan komputer tesebut sekarang kita akan membahas bagaimana Cara membuat konversinya dengan menggunakan VB6, mari ikutilah langkah-langkahnya sebagai berikut
Cara Membuat Aplikasi Konversi Bilangan Biner, Desimal, Oktal dan Heksadesimal di VB6
Buka Form VB6 anda dan pilih standar EXE
Tanamkan dalam beberapa Label, 2 Texbox, 2 Frame dan 3 Commandbutton
Desainlah form seperti gambar dibawah ini :
 |
| Desain Form |
Keterangan :
Label1 Caption INPUT NILAI
Label2 Caption HASIL NILAI
Text11 Caption Text1
Text2 Caption Text2
Option1 Caption Desimal
Option2 Caption Biner
Option3 Caption Oktal
Option4 Caption Hexadesimal
Option5 Caption Desimal
Option6 Caption Biner
Option7 Caption Oktal
Option8 Caption Hexadesimal
Command1 Caption Konversi
Command2 Caption Hapus
Command1 Caption Keluar
Frame1 Caption Bilangan Masukan
Frame2 Caption Bilangan Keluaran
Setelah Anda mendesain form seperti diatas lalu ketikan kode berikut dibawah ini :
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 D As Long
Dim Nilai As String
On Error GoTo ErrorHandler
D = (2 ^ 31) - 1
Do 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
Loop
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 Command1_Click()
Text2.Enabled = False
If Text1.Text = "" And Text2.Text = "" Then
MsgBox ("Maaf !! Anda Harus Memasukkan Nilai")
Text1.SetFocus
End If
If Option2 = True And Option5 = True Then Text2.Text = BinToDes(Text1.Text)
If Option2 = True And Option6 = True Then Text2.Text = Text1.Text
If Option2 = True And Option7 = True Then Text2.Text = BinToOk(Text1.Text)
If Option2 = True And Option8 = True Then Text2.Text = BinToHex(Text1.Text)
If Option1 = True And Option6 = True Then Text2.Text = DesToBin(Text1.Text)
If Option1 = True And Option5 = True Then Text2.Text = Text1.Text
If Option1 = True And Option7 = True Then Text2.Text = DesToOk(Text1.Text)
If Option1 = True And Option8 = True Then Text2.Text = DesToHex(Text1.Text)
If Option3 = True And Option6 = True Then Text2.Text = OkToBin(Text1.Text)
If Option3 = True And Option8 = True Then Text2.Text = OkToHex(Text1.Text)
If Option3 = True And Option5 = True Then Text2.Text = OkToDes(Text1.Text)
If Option3 = True And Option7 = True Then Text2.Text = Text1.Text
If Option4 = True And Option6 = True Then Text2.Text = HexToBin(Text1.Text)
If Option4 = True And Option5 = True Then Text2.Text = HexToDes(Text1.Text)
If Option4 = True And Option7 = True Then Text2.Text = HexToOk(Text1.Text)
If Option4 = True And Option8 = True Then Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Dim x As String
x = MsgBox("Apakah Anda Ingin Keluar?", vbOKCancel, "Keluar")
If x = vbCancel Then
Text1.SetFocus
ElseIf x = vbOK Then
End
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
MsgBox "Welcome To Program Konversi Bilangan", vbOKOnly, "Welcome"
Text1.Text = ""
Text2.Text = ""
End Sub
 |
| Output Program |
No comments:
Post a Comment