Program Aplikasi Konversi Bilangan Menggunakan VB.NET

Assalamu'alaikum Wr. Wb..

Wah sudah lama juga ngk posting-posting ane,,, nah kali ni ane berkesempatan untuk berbagi ni pada Agan sekalian yaitu "Program Aplikasi Konversi Bilangan Menggunakan VB.NET" . Program ini merupakan aplikasi untuk memudah kan kita dalam Mengkonversikan Bilangan , Misalnya Decimal ke binner, Decimal ke Oktal dan Decimal ke Hexadesimal. Nah Berikut ini adalah tampilan Program Aplikasi Konversi Bilangan Menggunakan VB.NET.

Keterangan :

Pada desain aplikasi Program Konversi Bilangan terdapat :

• 3 label dengan nama konversi bilangan, input, output
• 2 textbox dengan nama Masukannilai dan Nilaikeluar
• 4 botton dengan nama btnhexa, btnoktal, btnbiner, dan tbnkeluar



Dan berikut ini adalah listing programnya :

1. Public Class Form1
3.     Private Sub bnthexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnthexa.Click
4.         Nilaikeluar.Text = Hex(Val(Masukannilai.Text))
5.     End Sub
7.     Private Sub btnoktal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntoktal.Click
8.         Nilaikeluar.Text = Oct(Val(Masukannilai.Text))
9.     End Sub
11.     Private Sub btnbiner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbiner.Click
12.         Dim xhexa As String = Hex(Val(Masukannilai.Text))
13.         Dim xbin As String
14.         Dim xbin2 As String
15.         Dim xkata As String
16.         Dim i As Integer
17.         xbin2 = ""
18.         For i = 1 To Len(xhexa)
19.             xbin = ""
20.             xkata = Mid(xhexa, i, 1)
21.             Select Case UCase(xkata)
22.                 Case "0"
23.                     xbin = "0000"
24.                 Case "1"
25.                     xbin = "0001"
26.                 Case "2"
27.                     xbin = "0010"
28.                 Case "3"
29.                     xbin = "0011"
30.                 Case "4"
31.                     xbin = "0100"
32.                 Case "5"
33.                     xbin = "0101"
34.                 Case "6"
35.                     xbin = "0110"
36.                 Case "7"
37.                     xbin = "0111"
38.                 Case "8"
39.                     xbin = "1000"
40.                 Case "9"
41.                     xbin = "1001"
42.                 Case "A"
43.                     xbin = "1010"
44.                 Case "B"
45.                     xbin = "1011"
46.                 Case "C"
47.                     xbin = "1100"
48.                 Case "D"
49.                     xbin = "1101"
50.                 Case "E"
51.                     xbin = "1110"
52.                 Case "F"
53.                     xbin = "1111"
54.                 Case "h", "H"
55.                     xbin = ""
56.                 Case Else
57.                     xbin = ""
58.             End Select
59.             xbin2 = xbin2 + xbin
60.         Next i
61.         Nilaikeluar.Text = xbin2
62.     End Sub
64.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
65.         Nilaikeluar.Enabled = False
66.     End Sub
68.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
69.         End
70.     End Sub
71. End Class