Проблемы с делением 2

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Sacred
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 10.05.2006 (Ср) 19:51

Проблемы с делением 2

Сообщение Sacred » 15.05.2006 (Пн) 6:01

Ок. У меня три вопроса. Сразу говорю – справки по VB нет, так как диск не совсем лицензионный.
Первый вопрос: Что нужно сделать, чтобы в элементе Label, поочередно менялись значения. На пример: по нажатию кнопки «Проверить» и в случае правильного ответа появляется «Да», а если неправильно «нет». При этом исходное Label пустое. Так же есть вариант, в котором присутствует три варианта ответа.
Второй вопрос: что нужно прописать в редакторе кода, чтобы в программе не появлялись примеры с 0. Т.к. программа ориентированна на начальную школу, то примеры типа 0*3, 8/0, и т.д. просто не уместны. Для деления и умножения используются разные формы. Для вывода чисел используются операторы
Третий вопрос: как сделать так, чтобы в приложении не появлялись примеры типа 8/7,5/9,6/7 и т.д. Для чисел используются те же операторы Int и Rnd.
Все эти вопросы относятся к одному приложению.

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 15.05.2006 (Пн) 6:44

1) Label.Caption = "То, что надо"
2) :scratch: не создавать?
3) так же, как и второе :)
4) а с делением на 2 то какие проблемы?? :lol:

P.S.: про 2) и 3) напиши подробнее, что тебе нужно :)
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 15.05.2006 (Пн) 6:46

Код: Выделить всё

Dim Num1 As Integer
Dim Num2 As Integer

Num2 = Rand(1,5)
Num1 = Num2 * Rand(1,3)

If Rnd > 0.5 Then
    'Будет пример с делением
    Label1.Caption = CStr(Num1)+" : "+CStr(Num2)
Else
    'Будет пример с умножением
    Label1.Caption = CStr(Num1)+" x "+CStr(Num2)
End IF


'---------------------------

Function Rand(ByVal rMin as Integer, ByVal rMax As Integer)
   Rand = Min+Int(Rnd*CSgn(rMax-rMin)*CSgn(1.1))
End Function


Все проблемы при этом решены...
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 15.05.2006 (Пн) 6:55

Хакер писал(а):Все проблемы при этом решены...
Не, не все. Проблему с делением на 2 так и не решили :lol:
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 15.05.2006 (Пн) 13:11

Как это не решены. Просто у него видать была проблема что может появиться пример "5/2" а первокласник не знает дробных чисел и =>зависнет...

А вот как я сделал код, так такой пример никогда не сгенерируется...

______________________

ЗЫ. Модераторы, есть вопрос.... (точнее просьба)
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Sacred
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 10.05.2006 (Ср) 19:51

Сообщение Sacred » 15.05.2006 (Пн) 21:25

Сделение на два проблем в принципе нет. Пока что:roll:. По поводу второго вопроса: мня надо,чтобы генерируеные примеры не содержали 0, в деление и умножение,
а по поводу третьего: желательно что бы примеры генирировались по принципу "А кратно Б".
Спасибо за Помощь! :) :D

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 15.05.2006 (Пн) 21:30

Sacred, проверяйте правописание.

Изложите еще раз всю проблему. Что дано и что требуется сотворить. Доходчиво. Иначе потру топик, ничего не понятно.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 15.05.2006 (Пн) 21:35

Scared, я же решил проблему, нулей нет, и а всегда кратно б.

Amed, можно тебя кое-о-чём попросить?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 27

    TopList