Visual Basic. Не считает сотые. Запутался в типах - есть ответ

artemhp, 145 просмотров

Dim k1sum As Double
k1sum = Val(k11.Text) + Val(k21.Text) + Val(k31.Text) + Val(k41.Text) + Val(k51.Text) // Считает верно

b11.Caption = Round(Val(k11.Text) / k1sum, 2) // Считает верно
b12.Caption = Round(Val(k12.Text) / k2sum, 2) // Считает верно
b13.Caption = Round(Val(k13.Text) / k3sum, 2) // Считает верно
b14.Caption = Round(Val(k14.Text) / k4sum, 2) // Считает верно
b15.Caption = Round(Val(k15.Text) / k5sum, 2) // Считает верно

n1.Caption = Val(b11.Caption) + Val(b12.Caption) + Val(b13.Caption) + Val(b14.Caption) + Val(b15.Caption) // Считает неверно. Выводит 0

Считало верно до тех пор, пока были целые числа, а именно в k11, k12...,
а вот b11.Caption - уже сотые меньше нуля, и в caption записывается через запятую типа: 0,01 возможно по этому не считает.
как сделать так, что бы записывало не через запятую, а через точку.

Ответы:

Maxim Barbinov

Создаете новую функцию которая заменяет запятую на точку , например Function tochka(slovo As String) As String
Затем уже добавляете ее везде: k1sum = Val( tochka(k11.Text) ) + Val( tochka(k21.Text) ) + ....
Хотя не знаю воспринимает ли Val точку как дробь или как конец записи числа.

Стих

Ну так сделайте больше число цифр после запятой в Round, у вас там как раз сотые стоят.

Если совсем ничего не получится - уж точно запустится обычный Windows Transmission Remote под эмуляцией Wine

Уберите строки из выражений и работайте с числовыми переменными.

15 лет назад

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

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

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