Simulasi Konversi Biner Ke Desimal Memakai Visual Basic

Program berikut ini untuk melaksanakan simulasi konversi bilangan Biner ke Desimal.

Desiglah form simulasi konversi biner ke Desimal berikut ini :

Berikut programnya

Function pangkat(nilai As Byte, pang As Integer) As Double
    pangkat = 0
    Dim xhasil As Double
    xhasil = 1
    For i = 1 To pang
        xhasil = xhasil * nilai
    Next i
    pangkat = xhasil
End Function

Sub Pisahkan()
    If Biner.Text = “” Then Exit Sub
    For i = 0 To 7
        Bin(i).Text = “”
        Des(i).Text = “”
    Next i
    For i = 0 To Len(Biner.Text) – 1
       
        Bin(i).Text = Mid(Biner.Text, Len(Biner.Text) – i, 1)
    Next i
End Sub

Private Sub Bin_Change(Index As Integer)
    Dim xdes As Double
    If Bin(Index).Text = “” Then Exit Sub
    If Bin(Index).Text <> “0” Then
        Des(Index).Text = pangkat(2, Val(Index))
    Else
        Des(Index).Text = 0
    End If
   
    xdes = 0
    For j = 0 To 7
        xdes = xdes + Val(Des(j).Text)
    Next j
    Desimal.Text = xdes
End Sub

Private Sub Biner_Change()
    Call Pisahkan
End Sub

Private Sub Form_Load()
    Dim ctrl As Control
    Dim txtControl As TextBox
    Dim cmbControl As ComboBox
    For Each ctrl In Form1.Controls
        If TypeOf ctrl Is TextBox Then
                ctrl.Text = “”
        End If
    Next
End Sub

Berikut hasil program simulasi konversi biner ke desimal

Terima kasih telah membaca artikel Simulasi Konversi Biner ke Desimal memakai Visual Basic.