Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Текстовые переменные, Не знаю как отобразить суть. 
:(
    Опции темы
DarkAngel
Дата 10.4.2005, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 19.3.2005

Репутация: нет
Всего: 1
Вообщем есть одн проблемма..сейчас черкану примерный код
Код

x=text1.Text
y=text2.Text

Еще есть кнопочка с таким кодом.
Код

text3=z 
if x=Йогурт and y=Сладкий Then
z=25
end if 
if x=Йогурт and y=Горький Then
z=80
end if
'и так далее
'теперь вот что
IF z>30 and z<50 then
text4.Text="Не вкусно"


Ну это вообшем на соряк накидал..параметрвы нек. не указал...вообще ожно заставить такую прогу работать и как а то у меня че т не пашет...то есть пашет но не так как задумывалось
PM MAIL   Вверх
Gannibal
Дата 10.4.2005, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
вот так вот чтоли хочеш или как... напиши поподробнее... вот я черканул код чтобы ты понял полутще ....

Код

Private Sub Command1_Click()

 Dim strX As String
 Dim strY As String
 Dim intZ As Integer
 
 strX = Text1.Text
 strY = Text2.Text

If strX = "shurik" And strY = "horoshi" Then
intZ = 35
End If
If strX = "plohoi" And strY = "shurik" Then
intZ = 80
End If


If intZ > 30 And intZ < 50 Then
    Text3.Text = "Попал"
Else
    Text3.Text = "Непопал"
End If
End Sub


Это сообщение отредактировал(а) M.E.G.U.S - 10.4.2005, 19:19


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Exception
Дата 11.4.2005, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Наверное дело в том, что ты не асставил кавычки в строках.
Код

if x=Йогурт and y=Горький Then

а надо
Код

if x="Йогурт" and y="Горький" Then

Вывод: всегда в начале кода (в разделе Declarations) ставь Option Explicit. Просто VB думает, что Йогурт и Горький - имена неявно объявленных переменных типа Variant. А Option Explicit запрещает неявное объявление переменных.
PM   Вверх
Вадян!
Дата 14.4.2005, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.3.2005

Репутация: нет
Всего: нет
DarkAngel
Я конечно в програмировании первый день но думаю надо икс и игрик записать вот так:::
Код

x=val(text1.text)
y=val(text2.text)


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

Это сообщение отредактировал(а) Вадян! - 14.4.2005, 22:26
PM MAIL   Вверх
Gannibal
Дата 14.4.2005, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
Цитата

Я конечно в програмировании первый день но думаю надо икс и игрик записать вот так:::
Выделить всёКод Visual Basic
1:
2:

x=val(text1.text)
y=val(text2.text)


а здесь разницы нету если с Вал писать или без Вал ... я вообщето Вал использую когда хочу из двух текстбоксов сплюсовать два числа.. а то когда стринг они к себе слипнут.. ну например 5+6=11 а если без вал то 5+6=56 вот так вот а когда употрябишь вал то ответ будет 11


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
cardinal
Дата 15.4.2005, 01:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(M @ 14.4.2005, 20:52)
ну например 5+6=11 а если без вал то 5+6=56 вот так вот а когда употрябишь вал то ответ будет 11

Поэтому надо пользоваться плюсом когда имеешь в виду плюс, а & когда слепление строк smile


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Gannibal
Дата 15.4.2005, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
Цитата
Поэтому надо пользоваться плюсом когда имеешь в виду плюс, а & когда слепление строк


полностью согласен с тобой


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0465 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.