by sherif rofael (15 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th July 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
' 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
No comments have been posted about this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decima. Why not be the first to post a comment about this program convert a decimal from 0 to 999999999999 to its binary equivalent and also with decima.