Найдите ошибку в коде Visual Basic 6 - есть ответ

AnanAsSS, 336 просмотров

-2

Option Explicit

Private Function ConvertToBinary(ByVal lngQuotient As Long) As String
Dim strBinary As String
Dim strReturn As String
Dim i As Integer
i = 100
strBinary = String(i, "0")
Do While lngQuotient
Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
lngQuotient = lngQuotient \ 2
i = i - 1
Loop
strReturn = Right(strBinary, 100 - i)
ConvertToBinary = strReturn
End Function

Private Sub Command1_Click()
Text2.Text = ConvertToBinary(Text1.Text)
End Sub

Не конвертирует файлы с числами после запятой?

Примечание:
А можете написать код как это запилить? плз

Ответы:

Хафизов Тимур

Оператор \ (Visual Basic) возвращает целочисленное частное от деления. Например выражение 14 \ 4 равно 3.

MVS

1. Запомните! тип Long - ЦЕЛОЧИСЛЕННЫЙ тип с размером 32 бита (для VB6).
2. Значения с плавающей точкой через mod не преобразуются. Там другой механизм. Для VB6 можно попробовать через API импрортировать rtlmovememory из kernel32.dll, перенести значение в байтовый массив, затем байтовый массив переводить в Bin
3. Строки также переводятся побайтово, но есть одно НО: vb6 работает в однобайтовой системной кодировке. Для русской форточки в CP1251. Для работы с UTF8 или UTF16 нужны отдельные извращения.

MVS

Никхалай

Гугл-поиск дает результаты намного быстрее чем гугл-ответы.
http://www.vbgold.com/vb-projects/integer-to-binary.shtml

Удачник

А сделать это очень просто - нужно запись в скобке
ByVal lngQuotient As Long
поменять на
ByVal lngQuotient As Single

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.