Ошибка при отсутствии значения в строке

@Ramandu · Регистрация: 27.11.2018

Author24 — интернет-сервис помощи студентам

Допустим, человек который пользуется калькулятором просто тупо забыл ввести одно из двух значений (или оба). Выходит ошибка, что не вышло вычислить среднее число (ведь отсутствие значение VB понимает как пустую строку). Как сделать так, чтобы в таком случае программа автоматически подставляла число 0 в пустую строку? Тогда не будет ошибки.

VB.NET

            Dim aaaa As Double
            Dim bbbb As Double
            aaaa = CDbl(TextBox1.Text)
            bbbb = CDbl(TextBox2.Text)
            TextBox1.Text = (aaaa + bbbb) / 2
            TextBox2.Text = ""

Я пытался сам разобраться но не смог

@rvs_dk · 29.11.2018, 20:59

Перед присваивание добавь

VB.NET

1	If Textbox1.Text="" Then Textbox1.Text="0"

@andrsh · 29.11.2018, 21:25

При использовании данной функции программа не выдает ошибки из-за того что один из TextBox пустой.

VB.NET

Function vvod(ByVal T As TextBox, ByVal a As Double)
        Dim b As Double
        Try
            b = T.Text
        Catch ex As Exception
            b = a
        End Try
        Return b
    End Function

а присвоение переменной значения из TextBox выглядит так

Присваивание значения переменной из TextBox при использовании данной функции. Данная тема уже была озвучена на форуме.

VB.NET

1	х = vvod(TextBox1, 0)

В твоем случае можно сделать вывод сообщения о том что один из TextBox не заполнен

VB.NET

If TextBox1.Text="" Then
MsgBox("Введите значение ")
            Exit Sub
        End If

пока пользователь не введет значение программа не будет дальше выполнятся

	29.11.2018, 21:25

Ошибка при отсутствии значения в строке

Решение