Самоучитель VBA


         

Проверка корректности ввода данных


'

Set ПоляВвода(1) = TextBoxl

Set ПоляВвода(2) = TextBox2

Set ПоляВвода(3) = TextBox3

Set ПоляВвода(4) = TextBox4

Set ПоляВвода(5) = TextBox5

Set ПоляВвода(6) = TextBox6

'

' Проверка корректности ввода данных

'

For i = 1 To 6

If IsNumeric(ПоляВвода(i).Text) = False Then Select Case i

Case 1

MsgBox "Ошибка в начальном значении х", vblnformation, "Поверхность"

TextBox1.SetFocus

Exit Sub

Case 2

MsgBox "Ошибка в начальном значении у", vblnformation, "Поверхность"

TextBox2.SetFocus

Exit Sub

Case 3

MsgBox "Ошибка в шаге х", vblnformation, "Поверхность"

TextBox3.SetFocus

Exit Sub

Case 4

MsgBox "Ошибка в шаге у", vblnformation, "Поверхность"

TextBox4.SetFocus

Exit Sub

Case 5

MsgBox "Ошибка в конечном значении х", vblnformation, "Поверхность"

TextBox5.SetFocus

Exit Sub

Case 6

MsgBox "Ошибка в конечном значении у", vblnformation, "Поверхность"

TextBox6.SetFocus

Exit Sub

End Select

End If

Next i

'

' Считывание с диалогового окна

' значений переменных

'

х_нз = CDbl(TextBoxl.Text)

у_нз = CDbl(TextBox2.Text)

х__шаг = CDbl (TextBox3.Text)

у_шаг = CDbl(TextBox4.Text)

х_пз = CDbl(TextBox5.Text)

у_пз = CDbl(TextBox6.Text)

УрПоверхности = Trim(TextBoxV.Text)

'

' Проверка согласованности введенных данных

'

If х_нз >= х_пз Then

MsgBox "Начальное значение х слишком большое", vblnformation, "Поверхность"

TextBoxl.SetFocus

Exit Sub

End If

If х_нз + х_шаг >= х_пз Then

MsgBox "Шаг х великоват", vblnformation, "Поверхность"

TextBox3.SetFocus

Exit Sub

End If

If у_нз >= у_пз Then

MsgBox "Начальное значение у слишком большое", vblnformation, "Поверхность"

TextBox2.SetFocus

Exit Sub

End If

If у_нз + у_шаг >= у_пз Then

MsgBox "Шаг у великоват", vblnformation, "Поверхность"

TextBox4.SetFocus

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