123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
Checks if a string is Binary

--------------------------------------------------------------------------------



Function IsBin(value)
Dim b, bb, i, j, s, values(1)

s = UCase(value)

values(0) = "0"
values(1) = "1"

bb = (Len(s) > 0)
For i = 1 To Len(s)
b = False
For j = 0 To 1
b = b Or (Mid(s, i, 1) = values(j))
Next
bb = bb And b
Next

IsBin = bb
End Function

--------------------------------------------------------------------------------
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG