Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу проверка
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Logico Logico вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.06.2005
По умолчанию проверка - 05.07.2005, 22:31

Помогите написать код на проветку переменной, тоесть если переменной присвоены только цифры то выполняется одно действие, а если присутствует хотябы один другой символ, и вообще на все остальные символы другое действие...
Ответить с цитированием
  (#2 (permalink)) Старый
Фокс Фокс вне форума
Member
 
Сообщений: 54
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.05.2005
По умолчанию 06.07.2005, 02:35

Код:
Public sStr, sKod
Private Sub Command1_Click()
sStr = Text1.Text

If Val(sStr) = sStr Then
'<Код если только цифры>
Else
    For i = 1 To Len(sStr)
   
    sKod = Mid(sStr, i, 1)
   
        Select Case sKod = ""
   
            Case sKod <> "."
                '<Код если есть знак ".">
   
            Case sKod <> ";"
                '<Код если есть знак ";">
      
                '<-//-//-//-//-//-//-//-//-//-//->
                
        End Select
    Next i
End If
End Sub
Ответить с цитированием
  (#3 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 06.07.2005, 17:31

Если Вас не устраивает обычная проверка с использованием макрофункции IsNumeric и Вам нужно "отсечь" в т.ч. и 123.456, "123,456", -123, то Вы также можете использовать любой из двух нижеопубликованных вариантов :

Код:
iData$ = …
Rem присвоение значения переменной iData$ (String)

If IsNumeric(iData$) Then
   If iData$ - Fix(Abs(iData$)) = 0 Then
      MsgBox "Это то, что нужно", , ""
      Exit Sub
   End If
End If

MsgBox "Совсем не то, что нужно", , ""
Код:
iData$ = …
Rem присвоение значения переменной iData$ (String)

If IsNumeric(iData$) Then
   If Fix(Abs(iData$)) = CDbl(iData$) Then
      MsgBox "Это то, что нужно", , ""
      Exit Sub
   End If
End If

MsgBox "Совсем не то, что нужно", , ""
Ответить с цитированием
  (#4 (permalink)) Старый
Logico Logico вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.06.2005
По умолчанию 06.07.2005, 22:04

Спасибо ребята! Очень помогли!
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка Gateway veter48 Сетевые подключения 0 18.02.2012 20:47
Проверка на повторение pavesa Prolog 7 27.11.2010 01:23
Проверка сборки hasat Системный блок 3 13.10.2010 22:25
проверка списка Ferzik Prolog 1 20.05.2010 01:56
Проверка диска Клевер Софт и программы 1 29.04.2008 11:16
Проверка XML XML Schema Grey_leoN XML & WML 0 09.10.2007 18:54
проверка тхт файла Alexej_Fedorov Visual Basic 2 23.07.2007 21:19
Проверка! princesska Prolog 5 11.01.2006 22:10
Проверка ввода Глупыш Prolog 6 22.10.2005 21:21
Проверка себя qwerty Работа 0 12.01.2005 03:50
Проверка IP на существование eduard1987 Офтопик 1 16.01.2004 16:32
Проверка IP TroubleMaker PHP 5 27.06.2003 16:21



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов