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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Какой код случайного выбора имени? Я хочу сделать такую жеребьёвку... 
:(
    Опции темы
Гость_Alfa
Дата 7.12.2003, 17:57 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Я хочу сделать такую жеребьёвку, чтоб компьютер наугад выбирал имя которое я введу. Кто знает программу случайного выбора? Если знаете, то плз (если есть время и Вы хотите помочь) напишите сюда код. Пожалуйста, мне это очень нужно! exclamation.gif butbut.gif butbut.gif sad.gif exclamation.gif
  Вверх
~FoX~
Дата 8.12.2003, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Конкретезируй вопрос........
1. Где храняться имена (БД, текстовый файл и т.д.)
2. Сколько их
3. Любой случайный выбор делается так
Код

 RANDOMIZE TIMER
     r = (RND*100)+1


Выбор случайного числа от 1 до 100



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Гость_Alfa
Дата 8.12.2003, 21:40 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо, но мне нужно так... Пишу в трёх текстовых окнах три имени. Любых. Затем нажимаю на кнопку и... на два других текстовых поля влетают два из этих имени которые ты написал. А третье - не пишется. Это такая жеребьёвка к турниру, кто с кем играть будет. Вот что мне надо. Я немного подумал над тем кодом который мне Вы дали. Ээээ... спасибо... А как можно сделать так как я хочу?
  Вверх
~FoX~
Дата 9.12.2003, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Ок

Код

DIM R as integer

Randomize timer
 r = (RND*2)+1
 Select Case r
    case 1
       TextBox4.Text =TextBox1.Text
       TextBox5.Text =TextBox2.Text
    case 2
       TextBox4.Text =TextBox2.Text
       TextBox5.Text =TextBox3.Text
    case 3
       TextBox4.Text =TextBox3.Text
       TextBox5.Text =TextBox1.Text
End Select


Это просто пример, можно использовать и его, но я бы не стал !!! wink.gif







--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Гость_Alfa
Дата 10.12.2003, 00:24 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Круть! А не мог бы немного обьяснить что за Case? Я не проходил этого ещё! Интересно... Как прога работает?
  Вверх
~FoX~
Дата 11.12.2003, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

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


DIM R as integer    Описываем переменную в которую будем случайности пихАть

Randomize timer   Случайные числа генерируются от таймера
r = (RND*2)+1     Генерим само число в диапозоне [1;3]
Select Case r       Описываем конструкцию Select Case от R
   case 1               если R = 1 то
      TextBox4.Text =TextBox1.Text
      TextBox5.Text =TextBox2.Text
   case 2               если R = 2 то
      TextBox4.Text =TextBox2.Text
      TextBox5.Text =TextBox3.Text
   case 3              если R = 3 то
      TextBox4.Text =TextBox3.Text
      TextBox5.Text =TextBox1.Text
End Select            закрываем Select Case


Код

Select Case имя переменной
  Case значение переменной - n
      какие то действия если переменная принемает значение n
      ....
      ....

Case значение переменной - k
      какие то действия если переменная принемает значение k
     ....
     ....
....
....
End Select


Можно так
 Case 1, 3, 5 to 10
   ....
   ....

и т.д.

Развлекайся )))


Это сообщение отредактировал(а) ~FoX~ - 11.12.2003, 12:48


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Гость_Alfa
Дата 12.12.2003, 00:20 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ага, ну всё пасиб! smile.gif
  Вверх
~FoX~
Дата 15.12.2003, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Гость_Alfa

Да не за что, если что спрашивй ышо чё нитьconfused.gif )))




--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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