Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic .NET - Разное

Все примеры / Разное

Генератор случайного текста

Автор: Алексей Немиро | добавлено: 23.02.2011, 12:16 | просмотров: 3383 (1+) | комментариев: 0 | рейтинг: *x10
Незаменимая вещь настоящего депутата, в данном случае коммунистической партии. :-)
В примере показана работа с массивами и генератором случайных чисел.

Инструкции

Разместите на форме текстовое поле, кнопку и вставьте этот код.

Код

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'куски текста
    Dim part1() As String = {"Товарищи!", "С другой стороны", "Раным образом", "Не следует, однако, забывать что", "Таким образом", "Повседневная практика показывает, что"}
    Dim part2() As String = {"реализация намеченных плановых заданий", "рамки и место обучение кадров", "постоянный количественный рост и сфера нашей активности", "сложившаяся структура организации", "новая модель организационной деятельности", "дальнейшее развитие различных форм деятельности"}
    Dim part3() As String = {"играет важную роль в формировании", "требуют от нас анализа", "требуют определения и уточнения", "способствует подготовке и реализации", "обеспечивает широкому кругу (специалистов) участие в формировании", "позволяет выполнять важные задания по разработке"}
    Dim part4() As String = {"существенных финансовых и административных условий", "дальнейших направлений развития", "системы массового участия", "позиций, занимаемых участниками в отношении поставленных задач", "новых предложений", "направлений прогрессивного развития"}
    'включаем генератор случайных чисел
    Randomize()
    'формируем случайную речь депутата коммунистической партии :)
    TextBox1.Text = ""
    TextBox1.Text = part1(Int(Rnd() * (part1.Length - 1)))
    TextBox1.Text &= " "
    TextBox1.Text &= part2(Int(Rnd() * (part2.Length - 1)))
    TextBox1.Text &= " "
    TextBox1.Text &= part3(Int(Rnd() * (part3.Length - 1)))
    TextBox1.Text &= " "
    TextBox1.Text &= part4(Int(Rnd() * (part4.Length - 1)))
  End Sub
Файлы RandomTextGenerator.zip (137,12 Кб)
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики