Selamat datang di BLOGchanif.com

Program Aplikasi Konversi Bilangan Menggunakan VB.NET

Friday, March 14, 20140 komentar

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

Post a Comment

 
Support : Cara Gampang | Resep Masakan Kampung | Johny Template | Mas Templatea | Mesran[dot]Net
Copyright © 2011. BLOGchanif.com - All Rights Reserved
Template Created by Creating Website Modify by CaraGampang.Com
Proudly powered by Blogger