Visual Basic 6. Руководство разработчика


         

Класс - часть 2


NumString & " " & ReadTenths(tenth * 10)

leftover = Number - (hundred * 100) - (tenth * 10)

If leftover > 0 Then

NumString = NumString & " " & _

ReadSingle(leftover)

End If

End If

Else              ' Чтение чисел между 1000 и 9999

thousand = Fix(Number / 1000)

NumString = ReadSingle(thousand) & " thousand"

leftover

= Number - (thousand * 1000)

If leftover > 0 Then

hundred

= Fix(leftover / 100)

If hundred > 0 Then

NumString

= NumString & " " &_

ReadSingle(hundred) & " hundred"

End If

leftover

= Number – (thousand * 1000)- _

(hundred *100)

If leftover > 0 Then

tenth   Fix(leftover / 10)

If tenth > 0 Then

NumString = NumString & " " & _

ReadTenths(tenth * 10)

End If

leftover = Number - (thousand * 1000) - _

(hundred * 100)

- (tenth * 10)

If leftover > 0 Then

NumString

= NumString & " " & _

ReadSingle(leftover)

End If

End If

End If

End If

Number2String = NumString

End Function

Public Function LowerCaps(str As String) As String

Dim newWord As String, newStr As String

Dim tempStr As String

Dim WDelimiter As Integer

tempStr = Trim(str)

WDelimiter = InStr(tempStr, " ")

While WDelimiter > 0

newWord = Left(tempStr, WDelimiter)

tempStr = Right(tempStr, Len(tempStr) - WDelimiter)

newStr = newStr & UCase(Left(newWord, 1)) & _

Mid(newWord, 2, Len(newWord) - 1)

WDelimiter = InStr(tempStr, " ")

Wend

newWord = tempStr

newStr = newStr & UCase(Left(newWord, 1)) & _

Mid(newWord, 2, Len(newWord) - 1)

LowerCaps = newStr

End Function

Public Function Integer2Binary(ByVal Number As Long) As String

HexNum = Hex(Number)

For i = 1 To Len(HexNum)

BinNum = BinNum & BinaryDigits("&H" & Mid(HexNum, i, 1))

Next

Integer2Binary = BinNum

End Function

Функция Number2Stnng() наиболее сложная. Она похожа на функцию, которая используется проектом READNUM в приложении С (на компакт-диске) для считывания числовых значений. Функция Number2Stnng() может преобразовывать целые значения в диапазоне от 0 до 9999, но можно легко добавить код для работы с большими и нецелыми значениями. Функция Number2Stnng() вызывает функции ReadTenths() и ReadSingle(), которые являются закрытыми членами класса, т.е. их можно вызывать из компонентов класса, но внешние программы не имеют к ним доступа. Если просмотреть члены класса StringClass в броузере объектов, то можно увидеть закрытые члены класса. Однако они будут представлены как Private, напо­миная о том, что к ним нет доступа из их приложений.




Содержание  Назад  Вперед