Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL, YURIY  
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Проблема по проверке условия (Проверка условия в нескольких строках)
Проблема по проверке условия
wikslДата: Сб, 12 Сентября 2009, 20:43 | Сообщение # 1
Участник
Возникла проблема. Хотел сделать, чтобы проверялся ввод данных в несколько строк, ниже примерный код, однако чтобы я не вводил, все время получается 0.
Почему так, не помимаю???

If "[TextEntry1]" "=" "1[#13]2"
SetVar "[z]" "1"
Else
SetVar "[z]" "0"
EndIf


Вик
 
СообщениеВозникла проблема. Хотел сделать, чтобы проверялся ввод данных в несколько строк, ниже примерный код, однако чтобы я не вводил, все время получается 0.
Почему так, не помимаю???

If "[TextEntry1]" "=" "1[#13]2"
SetVar "[z]" "1"
Else
SetVar "[z]" "0"
EndIf


Автор - wiksl
Дата добавления - 12 Сентября 2009 в 20:43
СергейДата: Сб, 12 Сентября 2009, 20:55 | Сообщение # 2
Необукер
Quote (wiksl)
[#13]
что вы хотели написать этой строчкой?
[#13] это анси код и означает возрат каретки, удалите ее
Code
If "[TextEntry1]" "=" "12"  
SetVar "[z]" "1"  
Else  
SetVar "[z]" "0"  
EndIf


Сообщение отредактировано
sp3d - Сб, 12 Сентября 2009, 20:56
 
Сообщение
Quote (wiksl)
[#13]
что вы хотели написать этой строчкой?
[#13] это анси код и означает возрат каретки, удалите ее
Code
If "[TextEntry1]" "=" "12"  
SetVar "[z]" "1"  
Else  
SetVar "[z]" "0"  
EndIf

Автор - Сергей
Дата добавления - 12 Сентября 2009 в 20:55
wikslДата: Сб, 12 Сентября 2009, 20:57 | Сообщение # 3
Участник
Quote (sp3d)
что вы хотели написать этой строчкой

Вообще надо, чтобы человек вводил данные в несколько строчек, а программа проверяла правильно введены данные или нет.


Вик
 
Сообщение
Quote (sp3d)
что вы хотели написать этой строчкой

Вообще надо, чтобы человек вводил данные в несколько строчек, а программа проверяла правильно введены данные или нет.

Автор - wiksl
Дата добавления - 12 Сентября 2009 в 20:57
AlienДата: Сб, 12 Сентября 2009, 20:59 | Сообщение # 4
он хочет проверить равно ли значение переменной [TextEntry1]
значению:
Quote
1
2

Скопируй в NB, посмотри то или нет.

Code
{NeoBook 5 Objects}
NeoBookVer=5,54
ObjectType=3
Name=PushButton1
X=135
Y=163
W=62
H=30
Anchor=0
Align=2
ImageStyle=0
ObjAction=StrParse "[TextEntry1]" "[#13]" "[Param]" "[Count]"¶If "[Count]" ">" "1"¶AlertBox "Верно!" "Введено правильно, [Count] вводов."¶Else¶AlertBox "Не верно!" "Введено не правильно."¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontChars et=204
TextColor=0
TabOrder=2
ObjectType=9
Name=TextEntry1
X=15
Y=12
W=293
H=140
Anchor=0
VarName=[TextEntry1]
EditMultiLine=Yes
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle =0
FontCharset=204
TextColor=0
TabOrder=3


Сообщение отредактировано
Alien - Сб, 12 Сентября 2009, 21:08
 
Сообщениеон хочет проверить равно ли значение переменной [TextEntry1]
значению:
Quote
1
2

Скопируй в NB, посмотри то или нет.

Code
{NeoBook 5 Objects}
NeoBookVer=5,54
ObjectType=3
Name=PushButton1
X=135
Y=163
W=62
H=30
Anchor=0
Align=2
ImageStyle=0
ObjAction=StrParse "[TextEntry1]" "[#13]" "[Param]" "[Count]"¶If "[Count]" ">" "1"¶AlertBox "Верно!" "Введено правильно, [Count] вводов."¶Else¶AlertBox "Не верно!" "Введено не правильно."¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontChars et=204
TextColor=0
TabOrder=2
ObjectType=9
Name=TextEntry1
X=15
Y=12
W=293
H=140
Anchor=0
VarName=[TextEntry1]
EditMultiLine=Yes
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle =0
FontCharset=204
TextColor=0
TabOrder=3

Автор - Alien
Дата добавления - 12 Сентября 2009 в 20:59
СергейДата: Сб, 12 Сентября 2009, 21:14 | Сообщение # 5
Необукер
Quote (Alien)
Скопируй в NB, посмотри то или нет.
У меня пишет ошибку
wiksl, попробуй создать еще один объект "TextEntry", с переменной например "[check]" и запиши в нем число как должно быть и код замени
Code
If "[TextEntry1]" "=" "[check]"     
SetVar "[z]" "1"     
Else     
SetVar "[z]" "0"     
EndIf


Сообщение отредактировано
sp3d - Сб, 12 Сентября 2009, 21:24
 
Сообщение
Quote (Alien)
Скопируй в NB, посмотри то или нет.
У меня пишет ошибку
wiksl, попробуй создать еще один объект "TextEntry", с переменной например "[check]" и запиши в нем число как должно быть и код замени
Code
If "[TextEntry1]" "=" "[check]"     
SetVar "[z]" "1"     
Else     
SetVar "[z]" "0"     
EndIf

Автор - Сергей
Дата добавления - 12 Сентября 2009 в 21:14
wikslДата: Сб, 12 Сентября 2009, 21:21 | Сообщение # 6
Участник
Quote (Alien)
Скопируй в NB, посмотри то или нет.

Дает ошибку компиляции на первой строке кода

Добавлено (12 Сентябрь 2009, 21:21)
---------------------------------------------

Quote (sp3d)
wiksl, попробуй создать еще один объект "TextEntry", с переменной например "[check]" и запиши в нем число как должно быть и код замени

Все работает. Большое спасибо за помощь!!!


Вик

Сообщение отредактировано
wiksl - Сб, 12 Сентября 2009, 21:18
 
Сообщение
Quote (Alien)
Скопируй в NB, посмотри то или нет.

Дает ошибку компиляции на первой строке кода

Добавлено (12 Сентябрь 2009, 21:21)
---------------------------------------------

Quote (sp3d)
wiksl, попробуй создать еще один объект "TextEntry", с переменной например "[check]" и запиши в нем число как должно быть и код замени

Все работает. Большое спасибо за помощь!!!

Автор - wiksl
Дата добавления - 12 Сентября 2009 в 21:21
AlienДата: Сб, 12 Сентября 2009, 21:25 | Сообщение # 7
Quote (sp3d)
У меня пишет недействительный проект

похоже такой способ копирования проекта некорректный
Тогда кодом:
Code
StrParse "[TextEntry1]" "[#13]" "[Param]" "[Count]"
If "[Count]" ">" "1"
AlertBox "Верно!" "Введено правильно, [Count] вводов."
Else
AlertBox "Не верно!" "Введено не правильно."
EndIf
 
Сообщение
Quote (sp3d)
У меня пишет недействительный проект

похоже такой способ копирования проекта некорректный
Тогда кодом:
Code
StrParse "[TextEntry1]" "[#13]" "[Param]" "[Count]"
If "[Count]" ">" "1"
AlertBox "Верно!" "Введено правильно, [Count] вводов."
Else
AlertBox "Не верно!" "Введено не правильно."
EndIf

Автор - Alien
Дата добавления - 12 Сентября 2009 в 21:25
СергейДата: Сб, 12 Сентября 2009, 21:25 | Сообщение # 8
Необукер
Quote (wiksl)
Все работает. Большое спасибо за помощь!!!
незачто, на то мы тут и тусуемся dance :D
 
Сообщение
Quote (wiksl)
Все работает. Большое спасибо за помощь!!!
незачто, на то мы тут и тусуемся dance :D

Автор - Сергей
Дата добавления - 12 Сентября 2009 в 21:25
BodiДата: Вс, 13 Сентября 2009, 08:56 | Сообщение # 9
Ветеран форума
Quote (wiksl)
If "[TextEntry1]" "=" "1[#13]2"

Quote (wiksl)
[#13] это анси код и означает возрат каретки, удалите ее

Абсолютно верно, [#13] это возрат каретки, а перенос строки это [#13][#10], так что правильней будет так:
Code
If "[TextEntry1]" "=" "1[#13][#10]2"  
SetVar "[z]" "1"  
Else  
SetVar "[z]" "0"  
EndIf
 
Сообщение
Quote (wiksl)
If "[TextEntry1]" "=" "1[#13]2"

Quote (wiksl)
[#13] это анси код и означает возрат каретки, удалите ее

Абсолютно верно, [#13] это возрат каретки, а перенос строки это [#13][#10], так что правильней будет так:
Code
If "[TextEntry1]" "=" "1[#13][#10]2"  
SetVar "[z]" "1"  
Else  
SetVar "[z]" "0"  
EndIf

Автор - Bodi
Дата добавления - 13 Сентября 2009 в 08:56
СергейДата: Пн, 14 Сентября 2009, 09:45 | Сообщение # 10
Необукер
Quote (Bodi)
так что правильней будет так:
Bodi, Браво! bravo
я тоже отрабатывал этот вариант, но как выяснилось с тупил, в место [#13][#10] использовал [#10][#13] и есно у мну ничего не вышло. Невнимательность - грабли кодера :(
 
Сообщение
Quote (Bodi)
так что правильней будет так:
Bodi, Браво! bravo
я тоже отрабатывал этот вариант, но как выяснилось с тупил, в место [#13][#10] использовал [#10][#13] и есно у мну ничего не вышло. Невнимательность - грабли кодера :(

Автор - Сергей
Дата добавления - 14 Сентября 2009 в 09:45
BodiДата: Пн, 14 Сентября 2009, 14:08 | Сообщение # 11
Ветеран форума
Quote (sp3d)
Bodi, Браво!

Спасибо!
Quote (sp3d)
Невнимательность - грабли кодера

Очень точно сказано! :)
 
Сообщение
Quote (sp3d)
Bodi, Браво!

Спасибо!
Quote (sp3d)
Невнимательность - грабли кодера

Очень точно сказано! :)

Автор - Bodi
Дата добавления - 14 Сентября 2009 в 14:08
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Проблема по проверке условия (Проверка условия в нескольких строках)
  • Страница 1 из 1
  • 1
Поиск: