• Home
 · 
• Math/Dates
 · 
• this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decima

this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decima

this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decimal point for ex.: 128492.89293 it's really a

Rate this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decima

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' equivalent  and also with decimal point for ex.: 128492.89293

' it's really a great program 

' it made it in 7 hours without break.

' please copy and paste this code or download my program from:

' http://sherif1.netfirms.com/binary1.2.exe

' how to use code:

' make a text box and name it : " l"

' make a command box , copy and paste the code below in it.

' to get the source code please e-mail me :  [email protected]


Private Sub Command1_Click()
Dim u1 As Integer
Cls
T = Int(l)
s = l - T
d = s
If T <= 255 Then k1 = 1
If T > 255 And T <= 4095 Then k1 = 2
If T > 4095 And T <= 65536 Then k1 = 3
If T > 65536 And T <= 1048576 Then k1 = 4
If T > 1048576 And T <= 16777216 Then k1 = 5
Open "C:\WIndows\DESKTOP\new.TXT" For Output As #1
If l = "" Then l = 0
p = T
Select Case k1
Case 1
Print #1, , " "; ; "MSB", "        "; "LSB"
For k = 1 To 8
A = T / 2
b = Int(A)
i = (A - b) * 2
T = b
Select Case k
Case 1
I1 = i
Case 2
I2 = i
Case 3
I3 = i
Case 4
I4 = i
Case 5
I5 = i
Case 6
I6 = i
Case 7
I7 = i
Case 8
I8 = i
End Select
Next k
T = ""
Print #1, l, ":"; I8; I7; ; I6; I5; I4; I3; I2; I1; ".";
Case 2
Print #1, , " "; ; "MSB", "                    "; "LSB"
For k = 1 To 12
A = T / 2
b = Int(A)
i = (A - b) * 2
T = b
Select Case k
Case 1
I1 = i
Case 2
I2 = i
Case 3
I3 = i
Case 4
I4 = i
Case 5
I5 = i
Case 6
I6 = i
Case 7
I7 = i
Case 8
I8 = i
Case 9
I9 = i
Case 10
I10 = i
Case 11
I11 = i
Case 12
I12 = i
End Select
Next k
T = ""
Print #1, l, ":"; I12; I11; I10; I9; I8; I7; ; I6; I5; I4; I3; I2; I1; ".";
Case 3
Print #1, , " "; ; "MSB", "                                "; "LSB"
For k = 1 To 16
A = T / 2
b = Int(A)
i = (A - b) * 2
T = b
Select Case k
Case 1
I1 = i
Case 2
I2 = i
Case 3
I3 = i
Case 4
I4 = i
Case 5
I5 = i
Case 6
I6 = i
Case 7
I7 = i
Case 8
I8 = i
Case 9
I9 = i
Case 10
I10 = i
Case 11
I11 = i
Case 12
I12 = i
Case 13
I13 = i
Case 14
I14 = i
Case 15
I15 = i
Case 16
I16 = i
End Select
Next k
T = ""
Print #1, l, ":"; I16; I15; I14; I13; I12; I11; I10; I9; I8; I7; ; I6; I5; I4; I3; I2; I1; ".";
Case 4
Print #1, , " "; ; "MSB", "                                            "; "LSB"
For k = 1 To 20
A = T / 2
b = Int(A)
i = (A - b) * 2
T = b
Select Case k
Case 1
I1 = i
Case 2
I2 = i
Case 3
I3 = i
Case 4
I4 = i
Case 5
I5 = i
Case 6
I6 = i
Case 7
I7 = i
Case 8
I8 = i
Case 9
I9 = i
Case 10
I10 = i
Case 11
I11 = i
Case 12
I12 = i
Case 13
I13 = i
Case 14
I14 = i
Case 15
I15 = i
Case 16
I16 = i
Case 17
I17 = i
Case 18
I18 = i
Case 19
I19 = i
Case 20
I20 = i
End Select
Next k
T = ""
Print #1, l, ":"; I20; I19; I18; I17; I16; I15; I14; I13; I12; I11; I10; I9; I8; I7; ; I6; I5; I4; I3; I2; I1; ".";
Case 5
Print #1, , " "; ; "MSB", "                                                        "; "LSB"
For k = 1 To 24
A = T / 2
b = Int(A)
i = (A - b) * 2
T = b
Select Case k
Case 1
I1 = i
Case 2
I2 = i
Case 3
I3 = i
Case 4
I4 = i
Case 5
I5 = i
Case 6
I6 = i
Case 7
I7 = i
Case 8
I8 = i
Case 9
I9 = i
Case 10
I10 = i
Case 11
I11 = i
Case 12
I12 = i
Case 13
I13 = i
Case 14
I14 = i
Case 15
I15 = i
Case 16
I16 = i
Case 17
I17 = i
Case 18
I18 = i
Case 19
I19 = i
Case 20
I20 = i
Case 21
I21 = i
Case 22
I22 = i
Case 23
I23 = i
Case 24
I24 = i
End Select
Next k
T = ""
Print #1, l, ":"; I24; I23; I22; I21; I20; I19; I18; I17; I16; I15; I14; I13; I12; I11; I10; I9; I8; I7; ; I6; I5; I4; I3; I2; I1; ".";
End Select
Do While s > i
s = s * 10
u1 = u1 + 1
i = Int(s)
Loop
s = s / (Exp(u1))
r1 = 1
r2 = 0
Do While r1 > r2
r1 = 2 * d
r2 = Int(r1)
d = r1 - r2
Print #1, r2;
Loop
Close #1
U30 = "A FILE CALLED NEW.TXT IS PLACED @ YOUR DESKTOP CONTAING THE ANSWER, PRESS OPEN FILE TO SEE THE ANSWER"
End Sub

Private Sub Command2_Click()
Label2.Caption = Time
End Sub

Private Sub Command3_Click()
Dim dd As Double
dd = Shell("notepad c:\windows\desktop\new.txt")
End Sub

Private Sub M_Click()
If True Then v = 4
End Sub

Private Sub N_Click()
If True Then v = 5
End Sub

Private Sub O_Click()
If True Then v = 6
End Sub

Private Sub T_Change()

End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub README_Click()
Open "C:\SHERIFTXT.TXT" For Output As #2
Print #2, "HI ALL , ALL WHAT I WANNA SAY THAT THIS PROGRAM IS ABLE TO CONVERT A DECIMAL NUMBER"
Print #2, "HAVING A DECIMAL POINT SUCH AS : 110.7 OR 18463746.98  ETC....."
Print #2, "THIS FUNCTION CANNOT BE DONE BY ANY SCIENTIFIC CALCULATOR EVEN  F(X)-2 ALGEBRA"
Print #2, "MY PROGRAM IS ABLE TO DO THAT "
Print #2, "ONLY PUT AT THE TEXT BOX THE DECIMAL NUMBER SUCH AS  12937.927 AND PRESS 'GET BINARY' "
Print #2, "THEN OPEN FILE , A FILE WILL BE OPENED , READ UR ANSWER"
Print #2, " ENJOY THE PROGRAM  AND E-MAIL FOR COMMENTS"
Print #2, "E MAIL : [email protected]"
Print #2, "WEBSITE: WWW.YALLAHWI.4T.COM"
Print #2, "WEBSITE 2:WWW.SHERIF.HTMLPLANET.COM"
Print #2, "                                                           YOURS,"
Print #2, "                                                        SHERIF ROFAEL"
Close #2
Dim SS As Double
SS = Shell(" NOTEPAD C:\SHERIFTXT.TXT")
End Sub


Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub

Private Sub X_Click()
If True Then v = 1
End Sub

Private Sub Y_Click()
If True Then v = 2
End Sub

Private Sub Z_Click()
If True Then v = 3
End Sub