Download Source Code Aplikasi

Simulasi Konversi Biner Ke Desimal Memakai Visual Basic

Sunday, October 6th, 2019 - Konversi Bilangan, Simulasi, Visual Basic 6.0

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

Desiglah form simulasi konversi biner ke Desimal berikut ini :

simulasi konversi bilangan Biner ke Desimal Simulasi Konversi Biner Ke Desimal Menggunakan Visual Basic

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

simulasi konversi bilangan Biner ke Desimal Simulasi Konversi Biner Ke Desimal Menggunakan Visual Basic

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

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.

(Telah didownload 3 kali, 1x didownload hari ini)
Download Source Code Aplikasi
Simulasi Konversi Biner Ke Desimal Memakai Visual Basic | admin | 4.5


error: Content is protected !!