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.
Dalam suatu Perusahaan maupun Badan Kepegawaian tentu membutuhkan karyawan agar mampu melaksanakan tujuan untuk mencapai…
selain menggunakan email, contact di dunia mayapun merambah dengan sistem sms gateway, dan yang sering…
dalam dunia medispun telah menggunakan system komputasi, berupa aplikasi berbasis desktop maupun under web. kali…
Aplikasi web merupakan salah satu media yang tepat untuk memberikan informasi kepada warga atau masyarakat…
Aplikasi Sistem Informasi Akedemik Sekolah menggunkan PHP MySQl atau berbasis web ini merupakan sebuah sebuah…
Pada kesempatan ini saya kembali membagikan buat anda pencinta aplikasi berbasis web yaitu source kode…