Program Konversi Bilangan dengan VB Net 2008

Konversi bilangan biner merupakan salah satu dari bagian beberapa mata kuliah Teknik Informatika yang harus diketahui oleh setiap mahasiswa yang mengikuti perkuliahan di bidang tersebut. Karena banyak nya Konversi bilangan yang harus diketahui akhirnya saya membuat sebuah Program Konversi Bilangan dengan VB Net 2008 dengan tujuan untuk mempermudah dan mempersingkat waktu untuk
mengkonversikan Bilangan yang satu ke bilangan yang lainnya. Program ini awalnya saya pelajari dari Dosen Pengampu Mata Kuliah Pemograman Visual (Bpak Mesran).

Untuk membuat Program Konversi Bilangan dengan VB Net 2008 anda dapat mengikuti langkah-langkah di bawah ini :

• Disainlah di Layar Form anda seperti gambar di bawah ini

• Setting  name TextBox1 menjadi  Bildes, TextBox2 menjadi Hkonversi, Button1 menjadi btnHexa, Button2 menjadi btnOctal, Button3 menjadi btnBinner. 
• Setelah itu ketikkan koding di bawah ini ke project anda :
  Public Class Form1
  
      Private Sub btnHexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHexa.Click
          Hkonversi.Text = Hex(Val(Bildes.Text))
      End Sub
      Private Sub Binner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Binner.Click
          Dim xHexa As String = Hex(Val(Bildes.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
  
          Hkonversi.Text = xbin2
      End Sub
  
      Private Sub btnOctal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOctal.Click
          Hkonversi.Text = Oct(Val(Bildes.Text))
      End Sub
  End Class
•  
• Setelah selesai mengketik koding silahkan jalankan Program Konversi Bilangan dengan VB Net 2008 anda dengan menekan tombol F5.
  
  Jika sudah dijalankan dan digunakan hasilnya seperti gambar dibawah ini !!!
  
  
  
  • Sekian artikel tentang Program Konversi Bilangan dengan VB Net 2008. Semoga Artikel ini dapat bermanfaat bagi anda.

Share this post

Berlangganan update artikel terbaru via email: