Checks if a string is Binary

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

GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

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