VBNet - Форум - Только ржать не надо...

Вопрос: Только ржать не надо... Добавлено: 30.10.03 08:30

Автор вопроса: faksmodem | ICQ: 256952685

Я в этом примере просто пытаюсь научиться проверять вводимые пользователем данные.Нужно понять как вызвать функцию проверки.Вот пример кода :
Dim intZar As Integer
Dim intWrema As Integer
if Proverka_Check() = 1 then
End Sub
End if
Private Sub cmdRez_Click()
txtRez = intZar * IntWrema
txtRez.Text = txtRez
End Sub
Public Function Proverka_Check() As Integer
' If Val(frmZar.txtNazvanie.Text) <= 0 Then
' intPress = MsgBox("Введенны неправильные данные", vbCritical)
' Зарплата.txtNazvanie.SetFocus
' Proverka_Check() = 1
' Exit Function
' End If
If Val(frmZar.txtZar.Text) <= 0 Then
intPress = MsgBox("Введенны неправильные данные", vbCritical)
Зарплата.txtZar.SetFocus
Proverka_Check() = 1
Exit Function
End If
If Val(frmZar.txtWrema.Text) <= 0 Then
intPress = MsgBox("Введенны неправильные данные", vbCritical)
Зарплата.txtWrema.SetFocus
Proverka_Check() = 1
End If
'ошибок не обнаруженно
Proverka_Check() = 0
End Function

Ответить

Ответы Всего ответов: 11

Номер ответа: 1
Автор ответа:

faksmodem

ICQ: 256952685

Вопросов: 3
Ответов: 8

Профиль | | #1

Добавлено: 30.10.03 10:19

Ну так кто нито поможет или нет.Меня интересует почему не получается вызвать функцию.

Ответить

Номер ответа: 2
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #2

Добавлено: 30.10.03 10:42

я бы сделал примерно как-то так...

Private Sub cmdRez_Click()
If Proverka(frmZar.txtZar.Text) = True And Proverka(frmZar.txtWrema.Text) = True Then
txtRez.Text = frmZar.txtZar.Text * frmZar.txtWrema.Text
Else
MsgBox ("Введены неправильные данные!"), vbCritical
End If

End Sub

Public Function Proverka(ppp As Integer) As Boolean
If ppp <= 0 Then
Proverka = False
Else
Proverka = True
End If
End Function

Ответить

Номер ответа: 3
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #3

Добавлено: 30.10.03 10:50

Как вообще этот код может работать?

Dim intZar As Integer

Dim intWrema As Integer

if Proverka_Check() = 1 then

End Sub

End if

Это же лажа какая-то!

Отсутствует начало функции

End Sub вместо Exit Sub, т.е. End if вне функции!

Ответить

Номер ответа: 4
Автор ответа:

faksmodem

ICQ: 256952685

Вопросов: 3
Ответов: 8

Профиль | | #4

Добавлено: 30.10.03 11:02

.COM

Спасибо, теперь мне все понятно.Твой код гораздо проще и понятней.Я перемудрил сдесь.пример заработал

Ответить

Номер ответа: 5
Автор ответа:

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | | #5

Добавлено: 30.10.03 11:05

LamerOnLine точно

Ответить

Номер ответа: 6
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #6

Добавлено: 30.10.03 11:20

Точно что код не рабочий или что я LamerOnLine?

Если это не глюк моего браузера, то этот код совершенно мутный, по крайней мере начало...

Любо куски кода были вырезаны из разный частей и вклеены как попало, либо End Sub стоит вместо Exit Sub, ну даже тогда я смысла и верного синтаксиса не вижу!

То есть, декларация процедуры cmdRez_Click() зависит от if Proverka_Check() ? )

faksmodem, может пояснишь что к чему? Вдруг я и в самом деле ламер!

Ответить

Номер ответа: 7
Автор ответа:

faksmodem

ICQ: 256952685

Вопросов: 3
Ответов: 8

Профиль | | #7

Добавлено: 30.10.03 11:52

декларация процедуры cmdRez_Click() зависит от if Proverka_Check() ?

Да именно это я и имел в виду.

Ответить

Номер ответа: 8 Автор ответа: .COM ICQ: 212158853 Вопросов: 4 Ответов: 79	Профиль \| \| #8	Добавлено: 30.10.03 12:01
	че-то не пойму я вашей дискуссии...Проблема-то решилась или нет? Или я чего-то не то написал? Ответить

Номер ответа: 9
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #9

Добавлено: 30.10.03 12:09

:-[ ]

Обалдеть!

faksmodem, ты на каком языке пишешь?

Ответить

Номер ответа: 10
Автор ответа:

faksmodem

ICQ: 256952685

Вопросов: 3
Ответов: 8

Профиль | | #10

Добавлено: 30.10.03 12:12

.COM

Да проблемма решилась просто товарищ Ламер не поймет что я хотел выяснить(что у меня не получалось).Я просто наверное код написал не так (даже не проверял поскольку в инете с работы торчу).Быстренько накидал что помнил в блокноте и все, даже не компелировал.У меня нет на работе VB.Спасибо тебе.

Ответить

Номер ответа: 11
Автор ответа:

faksmodem

ICQ: 256952685

Вопросов: 3
Ответов: 8

Профиль | | #11

Добавлено: 30.10.03 12:38

Ламер завтра принесу нормальныйй исходник .Просто я коряво инеграмотно написал поэтому ты не понял что я хочу.

Ответить

Страница: 1 |