Konversi Bilangan Menggunalan VB 6,0

-
Konversi Bilangan

 Konversi bilangan adalah suatu proses dimana satu system bilangan dengan basis tertentu akan dijadikan bilangan dengan basis yang lain.
Konversi bilangan adalah perubahan bilangan yang biasanya kita kenal seperti bilangan biner, hexadesimal, desimal dan oktal. Dimana sistem bilangan ini wajib kita pahami untuk seorang mahasiswa Teknik Elektro apalagi ingin menjadi seorang Programmer.
1.    Desimal
Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.
2.    Heksadesimal
Bilangan heksadesimal 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.
3.    Biner
Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1
4.    Oktal
Bilangan heksadesimal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7
Berikut tabel konversi bilangan :
Desimal
Biner
Oktal
Hexadesimal
0
0
0
0
1
1
1
1
2
10
2
2
3
11
3
3
4
100
4
4
5
101
5
5
6
110
6
6
7
111
7
7
8
1000
10
8
9
1001
11
9
10
1010
12
A
11
1011
13
B
12
1100
14
C
13
1101
15
D
14
1110
16
E
15
1111
17
F
 berikut  langkah langkahnya
11.  Seperti biasa buatlah New Project pada software VB anda kemudian tambahkan 11 label, 2 textbox, 2 frame, 8 optionbutton, dan 3 commandbutton.
   2.   Desainlah menjadi seperti gambar dibawah ini :

Gambar Form Aplikasi Konversi Bilangan dengan program VB
3.    Kemudian ketikkan kode/script/listing program dibawah ini :
Option Explicit

Private Sub command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub command3_Click()
End
End Sub
Private Sub command1_Click()
  If Option2.Value And Option5.Value Then Text2.Text = BinToDes(Text1.Text)
  If Option2.Value And Option6.Value Then Text2.Text = Text1.Text
  If Option2.Value And Option7.Value Then Text2.Text = BinToOk(Text1.Text)
  If Option2.Value And Option8.Value Then Text2.Text = BinToHex(Text1.Text)
  If Option1.Value And Option6.Value Then Text2.Text = DesToBin(Text1.Text)
  If Option1.Value And Option5.Value Then Text2.Text = Text1.Text
  If Option1.Value And Option7.Value Then Text2.Text = DesToOk(Text1.Text)
  If Option1.Value And Option8.Value Then Text2.Text = DesToHex(Text1.Text)
  If Option3.Value And Option6.Value Then Text2.Text = OkToBin(Text1.Text)
  If Option3.Value And Option8.Value Then Text2.Text = OkToHex(Text1.Text)
  If Option3.Value And Option5.Value Then Text2.Text = OkToDes(Text1.Text)
  If Option3.Value And Option7.Value Then Text2.Text = Text1.Text
  If Option4.Value And Option6.Value Then Text2.Text = HexToBin(Text1.Text)
  If Option4.Value And Option5.Value Then Text2.Text = HexToDes(Text1.Text)
  If Option4.Value And Option7.Value Then Text2.Text = HexToOk(Text1.Text)
  If Option4.Value And Option8.Value Then Text2.Text = Text1.Text

  With Text1
    .SelStart = 0
    .SelLength = Len(Text1.Text)
  End With
End Sub

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 C        As Byte
  Dim D        As Long
  Dim Nilai    As String
  On Error GoTo ErrorHandler
  D = (2 ^ 31) - 1
  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
  Wend
  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 Form_Load()
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  Text1.Text = ""
  Text2.Text = ""
End Sub

      Simpan dan Jalankan Program anda dengan menekan tombol F5,

          Hasilnya seperti berikut:



Komentar

Posting Komentar

Postingan populer dari blog ini

komunikasi cpu

-
                                                                                                   KOMUNIKASI CPU 1.      PENGERTIAN KOMUNIKASI CPU Komunikasi adalah suatu proses dimana saling terhubungnya komponen komponen komputer atau pertukaran data, maupun intruksi   dalam menciptakan suatu informasi.           CPU (central prosess unit) adalah perangkat keras komputer yang berfungsi untuk menerima data dan melaksanaka...
Baca selengkapnya

Perbedaan Antara Wireless LAN dengan Wired LAN

-
Perbedaan Jaringan Kabel (Wired LAN) Dengan Wireless LAN WIRELESS LAN      Jaringan lokal nirkabel atau WLAN adalah suatu jaringan area lokal nirkabel yang menggunakan gelombang radio sebagai media tranmisinya: link terakhir yang digunakan adalah nirkabel, untuk memberi sebuah koneksi jaringan ke seluruh pengguna dalam area sekitar. Area dapat berjarak dari ruangan tunggal ke seluruh kampus. Tulang punggung jaringan biasanya menggunakan kabel, dengan satu atau lebih titik akses jaringan menyambungkan pengguna nirkabel ke jaringan berkabel. LAN nirkabel adalah suatu jaringan nirkabel yang menggunakan frekuensi radio untuk komunikasi antara perangkat komputer dan akhirnya titik akses yang merupakan dasar dari transiver radio dua arah yang tipikalnya bekerja di bandwith 2,4 GHz (802.11 b, 802.11 g) atau 5 GHz (802.11 a). Kebanyakan peralatan mempunyai kualifikasi Wi-Fi, IEEE 802.11 b atau akomodasi IEEE 802.11 g dan menawarkan beberapa level keamanan seperti WEP dan...
Baca selengkapnya

Materi komputer grafik dan pengolahan Citra

-
Komputer Grafik Pengerian Komputer Grafik Komputer Grafik adalah bagian dari ilmu komputer yang berkaitan dengan pembuatan dan manipulasi gambar (visual) secara digital dapat diartikan sebagai seperangkat alat yang terdiri dari hardware dan software untuk membuat/mengolah gambar, grafik atau citra realistik untuk seni, game komputer, foto dan animasi komputer.Bentuk sederhana dari grafika komputer adalah grafika komputer 2D yang kemudian berkembang menjadi grafika komputer 3D, pemrosesan citra (image processing), dan pengenalan pola (pattern recognition). Grafika komputer sering dikenal juga dengan istilah visualisasi data. 2. Sejarah Grafika Komputer Sejarah grafika dimulai sejak jaman dahulu ketika bangsa mesir, roma dan yunani berkomunikasi secara grafik. Beberapa lukisan yang terdapat pada batu nisan orang mesir dapat dikatakan sebagai lukisan teknik. Leonardo da Vinci sudah menghasilkan lukisan dengan objek 3D dengan pandangan isometrik. Perkembangan grafika kompute...
Baca selengkapnya