Script VB Untuk Konversi Bilangan Desimal Ke Biner dan Biner Ke Desimal

Source code berikut berguna untuk membantu konversi bilangan desimal ke biner dan juga sebaliknya, dari biner ke desimal. Mendukung sampai 2147483647 bilangan.
Buat 1 project dengan :
1 Form
2 CommandButton
2 TextBox
Source code :

view source

print?

01	Private Sub Command1_Click()

02	Dim Decimal1 As Long

03	Dim Binary1 As String

04	Dim Binary2 As String

05	On Error GoTo ErrEnd

06	Binary1 = ""

07	Binary2 = ""

08	Decimal1 = Text1.Text

09	Do Until Decimal1 = 0

10	If Deelbaar2(Decimal1) = False Then

11	Binary2 = Binary2 & 1

12	ElseIf Deelbaar2(Decimal1) = True Then

13	Binary2 = Binary2 & 0

14

End If

15	Decimal1 = Int(Decimal1 / 2)

16

Loop

17	For a = Len(Binary2) To 1 Step -1

18	Binary1 = Binary1 & Mid(Binary2, a, 1)

19

Next a

20	Text2.Text = Binary1

21

Exit Sub

22

ErrEnd:

23	Alert = MsgBox("Error " & Err.Number & ": " & Err.Description, vbCritical)

24

End Sub

25

26	Private Sub Command2_Click()

27	On Error GoTo ErrEnd

28	For a = 1 To Len(Text2.Text)

29	If Mid(Text2.Text, a, 1) <> "0" And Mid(Text2.Text, a, 1) <> "1" Then

30	MsgBox "Wrong binary number!"

31

Exit Sub

32

End If

33

Next a

34	Dim Binary1 As String

35	Dim Decimal1 As Long

36	Decimal1 = 0

37	Binary1 = Text2.Text

38	For a = 1 To Len(Binary1)

39	Decimal1 = Decimal1 * 2 + Mid(Binary1, a, 1)

40

Next a

41	Text1.Text = Decimal1

42

Exit Sub

43

ErrEnd:

44	Alert = MsgBox("Error " & Err.Number & ": " & Err.Description, vbCritical)

45

End Sub

46

47	Private Function Deelbaar2(Getal As Long) As Boolean

48	If Getal = Int(Getal / 2) * 2 Then

49	Deelbaar2 = True

50	ElseIf Getal <> Int(Getal / 2) * 2 Then

51	Deelbaar2 = False

52

End If

53	End Function

Download Source Code
Mirror link :

• Download Script VB Untuk Konversi Bilangan Desimal Ke Biner Dan Sebaliknya [Ziddu]
• Download Script VB Untuk Konversi Bilangan Desimal Ke Biner Dan Sebaliknya [MediaFire]