Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ПРоцентное появление окна. 
V
    Опции темы
Natapro
Дата 18.12.2009, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
У меня вопрос мне нужно что б у меня к примеру при нажатии на кнопку происходило действие к примеру выписало там текст . НО
нужно сделать так что б к примеру были разные варианты что может появится разный текст что б было к примеру 10% что появится текст "блаблабла" 50% что повится текст "мумуму" и 90% что появится тест "тутуту" как такое сделатЬ ?


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 01:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Natapro, привет. я снова буду первый пытаться понять что именно тебе нужно!
Цитата

происходило действие к примеру выписало там текст


где там?

про проценты совсем не понял. но если хоть что то попало в мою голову из твоего поста, то может как то сделать через рандом и выставления значиния диапазонов, при попадании в которое будет выводиться то что нужно.
например. 
рандом ставим от 0 до 100.
если выпадает от 0 до  10 то "бла бла"
если выпадает от 10 до  40 то "му му"
если выпадает от 40 до  100 то "ляля"
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
всмысле выпадает, 

Цитата(Экскалупатор @  18.12.2009,  01:08 Найти цитируемый пост)
где там?

ну к примеру я нажымаю на кнопку, и надо что б было 15% что выбет окошко с тестом тататат 35% что выбет окошко с текстом тутуту и 90% что выбет окошко с текстом титити


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Цитата(Natapro @  18.12.2009,  00:24 Найти цитируемый пост)
всмысле выпадает, 


читаем про класс Random

он отвечает за генерацию всяких случайных чисел. дальнейшее его применение я тебе описал выше.

Добавлено через 2 минуты и 57 секунд
рандом он как игральные кубики работает(если грубо сравнивать). только в кубиках выпадают числа от 1 до 6, а в рандоме можно поставить любое значение. ну и определяешь диапазоны, и при попадании в них выводить определенные слова.
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 01:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
 smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 02:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
с примерами от меня будут проблемы. я понимаешьли не шарю в бейсике... могу на шарпе, но тебе вряд ли поможет. но я не думаю что это сложно. неужели сама не можешь сделать?

попробую.
Код

Dim rnd As New Random()
Dim buf As Integer = rnd.Next(0, 100)
If ((0 <= buf)&&(buf<=10)) Then //куда то пишем текст бла бла
else If ((10 < buf)&&(buf<=40)) Then //куда то пишем текст ля ля
else If ((40 < buf)&&(buf<=100)) Then //куда то пишем текст бу бу


за правильность кода не ручаюсь но думаю идея ясна?
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 02:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Код

Dim rnd As New Random()
        Dim buf As Integer = rnd.Next(0, 100)
        If ((0 <= buf) & (buf <= 10)) Then MsgBox("10%")

        If ((10 < buf) & (buf <= 40)) Then MsgBox("40%")

        If ((40 < buf) & (buf <= 90)) Then MsgBox("90")

какая ошыбка в коде ?


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 02:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
я ж сказал что не сильно шарю в бейсике. а что именно не работает? опиши "симптомы"
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

Приведение строки "TrueFalse" к типу 'Boolean' является недопустимым.



--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 02:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
ммм, а где ты приводишь "TrueFalse" к типу 'Boolean'? в какой конкретно строке?

на шарпе это выглядит так, и работает.
Код

Random rnd = new Random();
            int buf = rnd.Next(0, 100);
                if ((0 <= buf) && (buf <= 10))
                {
                    MessageBox.Show(buf.ToString() + " первая часть");
                }
                else if ((10 < buf) && (buf <= 40))
                {
                    MessageBox.Show(buf.ToString() + " вторая часть ");
                }
                else if ((40 < buf) && (buf <= 100))
                {
                    MessageBox.Show(buf.ToString() + " третья часть ");
                }
PM MAIL ICQ   Вверх
Natapro
  Дата 18.12.2009, 02:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

((40 < buf) & (buf <= 90))

наверное вот это ) или ненаю :(


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
когда выдает ошибку то всегда пишет в какой строке. включи дебаг (F5) и просмотри, где и что у тебя происходит в программе. 
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

 If ((0 <= buf) & (buf <= 10)) Then

ну да правельно тут )


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 18.12.2009, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
кстати, а почему ты решила что именно в третьем ифе а не впервом или втором? они же по сути одинаковы.
PM MAIL ICQ   Вверх
Natapro
Дата 18.12.2009, 02:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Код

        If (10 < buf) & (buf <= 10) Then
            MsgBox("40%")

        End If


Это сообщение отредактировал(а) Natapro - 18.12.2009, 02:38


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

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

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


 




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


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

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