Рандомное фио – Генератор случайных имен фамилий и отчеств онлайн

Генератор ФИО

ФИО генератор онлайн (полностью звучит, как генератор фамилий, имен и отчеств) - это тот сервис, который самостоятельно генерирует фамилии, имена и отчества. Если у вас возникла проблема по поводу того, что нужно придумать десяток придуманных фамилий и имен - то эта программа именно для вас. Ведь если нужно пару сотен личностей, а фантазия и желание что-то писать отсутствует - то на помощь приходит ФИО генератор. Этот сервис максимально быстро решит эту проблему. Благодаря этой программе можно очень легко и оперативно заполнить любую базу данных и электронную таблицу, можно легко придумать себе красивый псевдоним или ник, а можно и многократно увеличить свои знания о различных именах славянского происхождения. Дополнительным плюсом является то, что генератор может представить вам такие имена как Игорь, Борис и Галина, так и предоставить более экзотичные и возможно неизвестные для вас имена - Бронислав, Аристарх, Амелия и другие. Если не верите - то попробуйте прямо сейчас. Ведь все-таки этот сервис, на первый взгляд очень сомнительная вещь, но если придется заполнять какие-то базы данных - то вы поймете, что это крайне необходимая вещь. Ведь не придется ломать голову и набирать разные данные.

Для чего вообще генератор ФИО может пригодиться? Во-первых, он будет незаменим тем, кто постоянно создает фейковые аккаунты в социальных сетях. Во-вторых, с помощью него легко делать фейковые сайты с различными объявлениями, загонять в индекс и потом продавать всем желающим ссылки. В-третьих, сервис понадобится тем, кто занимается базами данных с непроверяемыми личностями.

Конечно, используя этот генератор не стоит забывать о ваших вкусах и пристрастиях. Ведь генератор не знает и не догадывается, что именно вы ищете: симпатичное, прикольное, обычное, некрасивое сочетание ФИО. Поэтому выбирайте результаты тщательно, используйте для этого доступные опции.

Как работать с генератором ФИО

  • - ставите галочку напротив фамилии, имени, отчества (если вам нужна только фамилия - только там ставите галочку, если только имя и фамилия - ставите две галочки, если требуется только отчество - ставите галочку напротив отчества)
  • - определитесь с полом (не важно, женский или мужской)
  • - выставьте при помощи ползунка количество требуемых ФИО
  • - нажмите на кнопку "Сгенерировать"

Преимущества сервиса:

  • - симпатичный и удобный интерфейс в отличной цветовой гамме
  • - количество выбранных результатов поиска ФИО равняется 100
  • - большой архив интересных ФИО

freegenerator.ru

Генератор случайных личностей

Очень часто нам бывает нужно зарегистрироваться на каком-либо сайте, но не всегда хочется вводить свои настоящие данные. Чтобы не придумывать "фейковые" имена, можно воспользоваться нашим сервисом.
Структура генерации данных настолько различна, что вероятность выпадения двух одинаковых пользователей почти равна нулю.

В базе имеется более 600 имен, более 150 фамилий, 56 отчеств, более 3000 городов и 3800 улиц, 44951 почтовый индекс, которые соединяются между собой в случайном порядке. Кроме этого, к этому всему ещё добавляются случайно сгенерированные номер дома, квартира, номер телефона (который генерируется тоже по частям 8-xxx-yyy-ww-qq), пароль и дата рождения (все числа с 1 по 28, все месяца и года с 1963 по 1995).

Логин создаётся из имени, фамилии и случайного числа от 15 до 398. Всё это позволяет создать по-настоящему уникального случайного пользователя!

На данный момент сгенерировано 5144 личностей

API
Наш сервис позволяет Вам использовать сгенерированные данные в своих проектах. Для этого можно воспользоваться нашим API. Запроc делается командой:
https://randus.org/api.php
В ответ Вы получите:
{"lname":"Абрамова","fname":"Алёна","patronymic":"Викторовна ","date":"8 февраля 1987","city":"Киржач","street":"Байдукова","house":66,"apartment":293,"phone":"8-943-834-13-55","login":"AbramovaAlena96","password":"aLLasmIp3bSM","color":"Оранжевый", "userpic":"https://randus.org/avatars/w/myAvatar2.png"}

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

Любые совпадения с реальностью являются случайными!
Мы не несём ответственности за использование Вами полученных данных.

По техническим вопросам и сотрудничеству пишите нам на Email: [email protected]

Для лиц старше 18 лет



Поддержка проекта
RANDUS.ORG - молодой сервис, который быстрыми темпами развивается, с каждым днем он становится все умнее и умнее, но это требует денежных затрат, если Вам понравился наш проект, то мы были бы рады получить от Вас материальную поддержку в любом размере:

randus.org

Английские имена, генератор английских имен и фамилий

Так многое рассказывается о культуре или традициях Англии, однако довольно редко можно узнать про английские имена. А тема, между прочим, весьма занятная. Ведь система имен в Великобритании глобально отличается от привычной нам.

Если у нас идет имя и фамилия, то в Англии несколько иначе. У них есть первое имя, второе имя и фамилия. Кроме того, в Англии нормальным считается давать уменьшительные формы имени. Например, даже в официальных переговорах человека могут называть Тони, хотя его полное имя звучит как Энтони. При желании, ребенка можно сразу записать с уменьшительным именем и государство не будет возражать. Более того, в качестве имени можно взять практически любое слово или название – например, имя Бруклин. А вот если бы у нас попробовали назвать сына, к примеру, Новосибирск, вряд ли на это дали разрешение.

Система английских имен и фамилий

Каждый из нас уже привык к тому, что он является носителем фамилии, имени и отчества. Но для англичан такая схема не подходит, их система имен абсолютно непривычна и потому любопытна. Главное различие между нашими системами – это отсутствие отчества у англичан. Вместо него у них имеется фамилия, первое имя и второе имя. Более того – в качестве любого из этих двух имен англичанин может носить фамилии каких-нибудь звезд или даже своих предков. Хотя строгого требования к тому, чтобы у человека были только три этих пункта, нет. Любой англичанин может дать ребенку имя из нескольких имен или фамилий. Например, если захочется назвать его в честь целой футбольной команды сразу.

Такая традиция – давать человеку фамилию в качестве имени, дошла до наших дней от дворянских семей. Хотя история системы английских имен развивалась достаточно активно, заимствования делались от различных стран, а также имена смешивались от англов, кельтских племен, франко-норманнов. Поскольку у англосаксов изначально было только одно имя, ему старались придавать особое значение. Поэтому в составе древних имен можно было встретить такие слова, как богатство или здоровье. Женские древнеанглийские имена чаще всего составлялись с использованием прилагательных, самая распространенная вариация – Leof (дорогой, любимый). А после вторжения норманнов в Англию к имени постепенно добавилась фамилия, составив уже близкую к существующей сегодня системе имен. Старые англосаксонские имена постепенно начали исчезать и из-за воздействия христианской религии, открывшиеся повсеместно христианские школы активно стимулировали регистрацию новорожденных, получивших имя при крещении, поэтому имена немного изменялись: из Марии в Мэри, из Жанна – в Иоанну.


Генератор английских имен и фамилий


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

Англия

Мужские

  1. Harry – Гарри (уменьшительное от имени Henry – богатый, могущественный)
  2. Oliver – Оливер (с древнегерманского – войско)
  3. Jack – Джек (уменьшительное от John, с древнееврейского – Яхве милостив)
  4. Charlie – Чарли (с древнегерманского – мужчина, муж)
  5. Thomas – Томас (с древнегреческого – близнец)
  6. Jacob – Джейкоб (упрощенный вариант имени James)
  7. Alfie – Элфи (с древнеанглийского – совет)
  8. Riley – Райли (с ирландского – мужественный)
  9. William – Вильям (с древнегерманского – желание, воля)
  10. James – Джеймс (с древнееврейского – «держащийся за пятку»)

Женские

  1. Amelia – Амелия (с древнегерманского – труд, работа)
  2. Olivia – Оливия ( с латинского – оливковое дерево)
  3. Jessica – Джессика (точно значение неизвестно, возможно, имя произошло от библейского имени Jescha)
  4. Emily – Эмили (женская форма мужского имени Emil – соперник)
  5. Lily – Лили (от английского названия цветка лилии)
  6. Ava – Ава (вариант средневекового английского имени Эвелин)
  7. Heather – Хезер (с английского – вереск)
  8. Sophie – Софи (с древнегреческого – мудрость)
  9. Mia – Миа
  10. Isabella – Изабелла (провансальский вариант имени Елизавета)

Северная Ирландия

Мужские

  1. Jack – Джек
  2. James – Джеймс
  3. Daniel – Дэниел
  4. Harry – Гарри
  5. Charlie – Чарли
  6. Ethan – Этан
  7. Matthew – Мэттью (с древнееврейского – дар Яхве)
  8. Ryen – Райан
  9. Riley – Райли
  10. Noah – Ноа

Женские

  1. Sophie – Софи
  2. Emily – Эмили
  3. Grace – Грэйс (с английского – грация, изящество)
  4. Amelia – Амелия
  5. Jessica – Джессика
  6. Lucy – Люси (от мужского римского имени Lucius – свет)
  7. Sophia – София (вариант имени Sophie)
  8. Katie – Кэйти (с греческого – чистый, чистокровный)
  9. Eva – Ева (с древнееврейского – дышать, жить)
  10. Aoife – Ифа (с ирландского – красота)

Уэльс

Мужские

  1. Jacob – Джейкоб
  2. Oliver – Оливер
  3. Riley – Райли
  4. Jack – Джек
  5. Alfie – Элфи
  6. Harry – Гарри
  7. Charlie – Чарли
  8. Dylan – Дилан (согласно валлийской мифологии, так звали Бога моря)
  9. William – Вильям
  10. Mason – Мэйсон (от аналогичной фамилии, означающей “резьба по камню” )

Женские

  1. Amelia – Амелия
  2. Ava – Ава
  3. Mia – Миа
  4. Lily – Лили
  5. Olivia – Оливия
  6. Ruby – Руби (с английского – рубин)
  7. Seren – Серен (с латинского – ясный)
  8. Evie – Эви (от английской фамилии Эвелин)
  9. Ella – Элла (с древнегерманского – весь, всё)
  10. Emily – Эмили

Шотландия

Мужские

  1. Jack – Джек
  2. Lewis – Льюис (с древнегерманского – славный, громкий)
  3. Riley – Райли
  4. James – Джеймс
  5. Logan – Логан (с гаэльского – худенький)
  6. Daniel – Дэниел
  7. Ethan – Этан
  8. Harry – Гарри
  9. Alexander – Александр (с древнегреческого – защитник)
  10. Oliver – Оливер

Женские

  1. Sophie – Софи
  2. Emily – Эмили
  3. Olivia – Оливия
  4. Ava – Ава
  5. Lucy – Люси
  6. Isla – Исла (с гуннского – остров)
  7. Lily – Лили
  8. Jessica – Джессика
  9. Amelia – Амелия
  10. Mia – Миа
Современные английские имена

В английских именах очень часто встречаются ласкательные и уменьшительные формы в качестве официального имени. У нас же такая форма допускается только при личном, близком общении. К примеру, взять хотя бы знакомые каждому персоны – Билл Клинтон или Тони Блэр. Их называют такими именами даже на мировых переговорах, и это абсолютно приемлемо. Хотя на самом деле полное имя Билла – это Уильям, а Тони – это Энтони. Англичанам разрешается зарегистрировать новорожденного ребенка, дав ему уменьшительное имя в качестве первого или второго. Хотя особых запретов на выбор имени в англоязычных странах как такового нет, можно дать ребенку имя в честь города или района. Так, например, поступила звездная чета Бэкхем, Виктория и Дэвид дали своему сыну имя Бруклин – именно в этом районе Нью-Йорка он родился.

Постепенно мода начала меняться и имена в англоязычных странах стали часто заимствоваться из разных языков. С 19 века появилось множество таких женских имен, как Руби, Дейзи, Берил, Эмбер и другие. Охотно использовались имена родом из Испании или Франции – Мишель, Анджелина, Жаклин. А вот склонность некоторых людей давать своим детям необычные имена никуда не пропала. Бил Симсер, вице-президент Microsoft, дал своей дочери имя Виста Авалон. Первая часть имени – в честь Windows Vista, а вторая часть – в честь кодового названия системы Avalon. А вот режиссер Кэвин Смит и вовсе решил назвать свою дочь Харли Квинн – так звали девушку из комиксов про Бэтмена.

К слову, такие необычные имена нравятся далеко не каждому их обладателю. Многие дети стесняются этого и с нетерпением ждут совершеннолетия, чтобы официально сменить свое имя. Литтл Пикси Гелдоф, которая является дочерью музыканта Боба Гелдофа, очень стеснялась приставку «маленькая» в начале своего имени и во взрослой жизни предпочла называть себя просто Пикси. А вот что будет делать со своим именем житель Новой Зеландии, имя которого – Автобус №16, даже сложно представить. Фантазии его родителей остается только позавидовать.

london-life.ru

Креативные генераторы для всего | RandomAll

Генераторы

Добавить свои варианты в генераторы
  • Генераторы персонажа
  • Генератор фэнтезийного имени
  • Генерирует довольно вариативные фэнтезийные имена для персонажа.

  • Генератор внешности персонажа
  • Генерирует текстовое описание внешности персонажа мужского и женского пола.

  • Генератор второстепенного персонажа
  • Генерирует второстепенных персонажей, давая им краткое описание.

  • Генератор характера
  • Генерирует случайные черты характера персонажа.

  • Генератор мотивации
  • Генерирует побуждение к действию для перснонажа.

  • Генератор способностей
  • В чём хорош и плох персонаж.

  • Особенности персонажа
  • Генерирует особенности и манеру поведения персонажа.

  • Генератор случайной профессии
  • Генератор случайной профессии. На данный момент в списке находятся только реальные профессии.

  • Случайная раса
  • Генерирует название случайной фэнтезийной расы, уже придуманной людьми.

  • Генератор суперспособностей
  • Данный сервис генерирует случайную суперспособность и даёт её описание.

  • Генераторы мира
  • Генератор идей для сюжета
  • Генерирует готовую идею для сюжета.

  • Генератор ключевых слов для сюжета
  • Альтернативный генератор сюжета.

  • Неловкий момент
  • Генерирует курьез, произошедший с героем.

  • Неожиданный поворот
  • Резкий сюжетный поворот.

  • Генератор названий книг
  • Генерирует название книг, рассказов, историй и т.д.

  • Генератор названия континента
  • Генерирует название континента

  • Генератор названия вымышленной страны
  • Генерирует название континента

  • Генератор названия вымышленного города
  • Генерирует название вымышленного города.

  • Генератор описания страны
  • Генерирует описание вымышленной фэнтезийной страны.

  • Общие
  • Генератор случайных чисел
  • Настраиваемый генератор случайных чисел.

  • Генератор имён
  • Генерирует случайное имя. Имена в основном русские, но может попасться и что-то особенное.

  • Генератор фамилий
  • Генерирует случайную фамилию. Фамилии в основном русские.

  • Случайная дата
  • Генерирует случайную дату в интервале.

  • Случайное время
  • Генерирует случайное время в интервале.

  • Генератор стран
  • Генерирует название случайной страны.

  • Генератор русских городов
  • Генерирует название случайного русского города.

  • Игральные карты
  • Вытянуть одну или несколько карт из польностью настраиваемой колоды.

  • Бросить кубики
  • Бросить игральные кубики.

  • Монетка
  • Бросить монетку.

randomall.ru

Генератор случайных ФИО - Visual Basic .NET | NubClub

  • Imports System.IO     'подключаем библиотеку Ввода-Вывода

  •  

  • Public Class Form1

  •  

  •     '0 Загоняем текст (Base....txt) построчно в массив - создаем массивы ФИО для М и Ж

  •  

  •     Dim menName() = IO.File.ReadAllLines("baseMenName.txt", System.Text.Encoding.Default)

  •  

  •     Dim menFam() = IO.File.ReadAllLines("baseMenFam.txt", System.Text.Encoding.Default)

  •  

  •     Dim menOtec() = IO.File.ReadAllLines("baseMenOtec.txt", System.Text.Encoding.Default)

  •  

  •  

  •     Dim womenName() = IO.File.ReadAllLines("baseWomenName.txt", System.Text.Encoding.Default)

  •  

  •     Dim womenFam() = IO.File.ReadAllLines("baseWomenFam.txt", System.Text.Encoding.Default)

  •  

  •     Dim womenOtec() = IO.File.ReadAllLines("baseWomenOtec.txt", System.Text.Encoding.Default)

  •  

  •  

  •     '0-1 задаем количество строк в массивах

  •  

  •     Dim razmMN = menName.Length       'колво Муж Имен

  •  

  •     Dim razmMF = menFam.Length       'колво Муж Фамилий

  •  

  •     Dim razmMO = menOtec.Length       'колво Муж Отчеств

  •  

  •  

  •     Dim razmWN = womenName.Length       'колво Жен Имен

  •  

  •     Dim razmWF = womenFam.Length       'колво Жен Фамилий

  •  

  •     Dim razmWO = womenOtec.Length       'колво Жен Отчеств

  •  

  •  

  •     '0-2 случайные переменные для выбора случайного имя из каждого массива

  •  

  •     Dim r As New Random    'переменная как новое случайное число

  •  

  •     Dim nMName As Integer ' случайный номер

  •  

  •     Dim nMFam As Integer ' случайный номер

  •  

  •     Dim nMOtec As Integer ' случайный номер

  •  

  •  

  •     Dim nWName As Integer ' случайный номер

  •  

  •     Dim nWFam As Integer ' случайный номер

  •  

  •     Dim nWOtec As Integer ' случайный номер

  •  

  •  

  •     '0-3 текстовая переменная для ФИО

  •  

  •     Dim pers As String

  •  

  •  

  •     '0-4 переенные для выбора даты рождения

  •  

  •     Dim day_ As String

  •  

  •     Dim dk As Byte

  •  

  •     Dim mes_ As Byte

  •  

  •     Dim god_ As String

  •  

  •     Dim data_ As String

  •  

  •  

  •     '0-5 счетчик для списка

  •  

  •     Dim namb_ = 0

  •  

  •     Dim s4et As Byte

  •  

  •  

  •     '0-6 переменная для выбора М или Ж имен

  •  

  •     Dim xz As Byte

  •  

  •  

  •     '---0-end

  •  

  •  

  •     '1-1 КНОПКА на форме получаем 1 имя, с выбранными параметрами

  •  

  •     Private Sub cmdName1_Click(sender As Object, e As EventArgs) Handles cmdName1.Click

  •  

  •         rndText()

  •  

  •     End Sub

  •  

  •  

  •     '1-2 КНОПКА в Меню - получаем 1 имя, с выбранными параметрами

  •  

  •     Private Sub СоздатьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СоздатьToolStripMenuItem.Click

  •  

  •         rndText()

  •  

  •     End Sub

  •  

  •  

  •     '2 подпрограмма для получения случайного имени

  •  

  •     Sub rndText()

  •  

  •         Randomize()         'функция генерации случайных чисел

  •  

  •         '2-1 При выборе ( в меню стрип) записывается только новое имя (иначе создается список)

  •  

  •         If ОчисткаРезультатовToolStripMenuItem.Checked = True Then

  •  

  •             namb_ = 1

  •  

  •             txtRez.Text = ""

  •  

  •         Else

  •  

  •             namb_ += 1

  •  

  •         End If

  •  

  •  

  •         '2-2 генерация даты рождения - независимо от того понадобится она нам или нет

  •  

  •         mes_ = r.Next(1, 13) 'месяца от 1 до 12

  •  

  •         'выбор макс количества дней, в зависимости от месяца

  •  

  •         Select Case mes_

  •  

  •             Case 1, 3, 5, 7, 8, 10, 12

  •  

  •                 dk = 32

  •  

  •             Case 2

  •  

  •                 dk = 29

  •  

  •             Case 4, 6, 9, 11

  •  

  •                 dk = 31

  •  

  •         End Select

  •  

  •          'выбор случайного дня рождения из заданного интервала

  •  

  •         day_ = Str(r.Next(1, dk))
  •  

  •         'выбор года - от 15 до 70 вполне удовл(если это не так, то можно создать дополн выбор года)

  •  

  •         god_ = Str(r.Next(1945, 2000))
  •  

  •  

  •         '2-3 генерация номера случайного слова для каждого массива

  •  

  •         'генерация случайного числа от 1 до номера последней строки без 1

  •  

  •         '(колво строк начинаем с 1, а массив с 0)

  •  

  •         nMName = Str(r.Next(0, (razmMN - 1)))
  •  

  •         nMFam = Str(r.Next(0, (razmMF - 1)))
  •  

  •         nMOtec = Str(r.Next(0, (razmMO - 1)))
  •  

  •  

  •         nWName = Str(r.Next(0, (razmWN - 1)))
  •  

  •         nWFam = Str(r.Next(0, (razmWF - 1)))
  •  

  •         nWOtec = Str(r.Next(0, (razmWO - 1)))
  •  

  •  

  • 'переменная xz - определяет пол - 0 М, 1 Ж таким образом, если мы выбираем в меню М - она равна 0

  •  

  •    

  •  

  • '2-4 получения муж ФИО

  •  

  •         If МужскоеToolStripMenuItem.Checked = True Then

  •  

  •             xz = 0

  •  

  •         End If

  •  

  •         '2-5 получения жен ФИО

  •  

  •         If ЖенскоеToolStripMenuItem.Checked = True Then

  •  

  •             xz = 1

  •  

  •         End If

  •  

  • 'случайный порядок - создает случ значение ( не всегда это 50 на 50, разброс доходит до 80 на 20)

  •  

  •         '2-6 получения муж или жен ФИО

  •  

  •         If СлучайныйПорядокToolStripMenuItem.Checked = True Then

  •  

  •             xz = r.Next(0, 2)

  •  

  •         End If

  •  

  •         '2-6-1 вывод имени в зависимости от выбранного пола

  •  

  •         If xz = 0 Then

  •  

  •             pers = " (М) " + vbTab + menFam(nMFam) + "  " + menName(nMName) + "  " + menOtec(nMOtec) + " "

  •  

  •         Else

  •  

  •             pers = " (Ж) " + vbTab + womenFam(nWFam) + "  " + womenName(nWName) + "  " + womenOtec(nWOtec) + " "

  •  

  •         End If

  •  

  •         '2-7 если необходима дата рождения, выбираем ДАТА РОЖДЕНИЯ

  •  

  •         If ДатаРожденияToolStripMenuItem.Checked = True Then

  •  

  •             data_ = " " + vbTab + day_ + "." + Str(mes_) + god_ + "  "
  •  

  •         Else

  •  

  •             data_ = ""

  •  

  •         End If

  •  

  •  

  •         '2-8 вывод результата - порядковый номер - дата - фио - перевод на нов строку

  •  

  •         txtRez.Text += Str(namb_) + ") " + data_ + pers + vbCrLf
  •  

  •     End Sub

  •  

  •  

  •    Для создания списка нам понадобится записать подпрограмму в цикл, но так как случайное число зависит от времени, а такой цикл пройдет очень быстро, мы добавим небольшую задержку, и для этого используем таймер

  •  

  •  

  •     '3 ТАЙМЕР получение нового имени через интервал (для создания списка)

  •  

  •     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

  •  

  •         rndText() '1 имя будет выведено по любому

  •  

  •         s4et = Val(txtLoop.Text) 'количество имен берем из тект поля
  •  

  •  

  •         If s4et > 1 Then            'если число больше 1

  •  

  •             txtLoop.Text = s4et - 1 'уменьшаем на 1 и продолжаем цикл

  •  

  •         Else

  •  

  •             TimOff() 'иначе отключ цикла

  •  

  •         End If

  •  

  •     End Sub

  •  

  •  

  •     '4 подпрограмма для остановки таймера

  •  

  •     Sub TimOff()

  •  

  •         Timer1.Enabled = False

  •  

  •         cmdStop.Enabled = False

  •  

  •         cmdNameLoop.Enabled = True

  •  

  •         txtLoop.Enabled = True

  •  

  •     End Sub

  •  

  •  

  •     '5-1 Кнопка на форме получаем список имен

  •  

  •     Private Sub cmdNameLoop_Click(sender As Object, e As EventArgs) Handles cmdNameLoop.Click

  •  

  •         ОчисткаРезультатовToolStripMenuItem.Checked = False

  •  

  •  

  •         Timer1.Enabled = True

  •  

  •         cmdStop.Enabled = True

  •  

  •         cmdNameLoop.Enabled = False

  •  

  •         txtLoop.Enabled = False

  •  

  •  

  •         namb_ = 0

  •  

  •         txtRez.Text = ""

  •  

  •     End Sub

  •  

  •  

  • 'кнопка в меню дублирует кнопку на форме, но для того что бы код был наглядней и содержал меньше ошибок мы не будем копировать код целиком, а програмно нажмем на кнопку ( таким образом если нам необходимо изменить код - меняем его только в 1 месте)

  •  

  •  

  •     '5-2 кнопка в Меню получаем список имен (программно нажимаем кнопку на форме)

  •  

  •     Private Sub СоздатьСписокToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СоздатьСписокToolStripMenuItem.Click

  •  

  •         cmdNameLoop_Click(sender, e) 'програмное нажатие на кнопку

  •  

  •     End Sub

  •  

  •  

  • 'для отключения цикла необходимо использовать подпрограмму TimOff()

  •  

  • ее мы и записываем в обе кнопки

  •  

  •     '6-1 кнопка на форме отключения цикла получения списка имен

  •  

  •     Private Sub cmdStop_Click(sender As Object, e As EventArgs) Handles cmdStop.Click

  •  

  •         TimOff()

  •  

  •     End Sub

  •  

  •  

  •     '6-2 кнопка в Меню отключения цикла получения списка имен

  •  

  •     Private Sub ОстановитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОстановитьToolStripMenuItem.Click

  •  

  •         TimOff()

  •  

  •     End Sub

  •  

  •  

  •  

  • 'Дополнительные настройки элементов

  •  

  •  

  •     '7 ввод в текст поле только цифр (можно использовать нумератор NumericUpDown)

  •  

  •     Private Sub txtLoop_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtLoop.KeyPress

  •  

  •         'только цифры и удаление

  •  

  •         If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 Then e.Handled = True
  •  

  •     End Sub

  •  

  •  

  •     '8 разметка галочек в меню

  •  

  •     '8-1 мужские имена (вариант radioButton1)

  •  

  •     Private Sub МужскоеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles МужскоеToolStripMenuItem.Click

  •  

  •         МужскоеToolStripMenuItem.Checked = True

  •  

  •         ЖенскоеToolStripMenuItem.Checked = False

  •  

  •         СлучайныйПорядокToolStripMenuItem.Checked = False

  •  

  •     End Sub

  •  

  •  

  •     '8-2 женские имена (вариант radioButton2)

  •  

  •     Private Sub ЖенскоеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ЖенскоеToolStripMenuItem.Click

  •  

  •         МужскоеToolStripMenuItem.Checked = False

  •  

  •         ЖенскоеToolStripMenuItem.Checked = True

  •  

  •         СлучайныйПорядокToolStripMenuItem.Checked = False

  •  

  •     End Sub

  •  

  •  

  •     '8-3 случайное имя (вариант radioButton3)

  •  

  •     Private Sub СлучайныйПорядокToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СлучайныйПорядокToolStripMenuItem.Click

  •  

  •         МужскоеToolStripMenuItem.Checked = False

  •  

  •         ЖенскоеToolStripMenuItem.Checked = False

  •  

  •         СлучайныйПорядокToolStripMenuItem.Checked = True

  •  

  •     End Sub

  •  

  •  

  •     '8-4 - очистка результатов (вариант checkBox1)

  •  

  •     Private Sub ОчисткаРезультатовToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОчисткаРезультатовToolStripMenuItem.Click

  •  

  •         If ОчисткаРезультатовToolStripMenuItem.Checked = True Then

  •  

  •             ОчисткаРезультатовToolStripMenuItem.Checked = False

  •  

  •         Else

  •  

  •             ОчисткаРезультатовToolStripMenuItem.Checked = True

  •  

  •         End If

  •  

  •     End Sub

  •  

  •  

  •     '8-5 дата рождения (вариант checkBox2)

  •  

  •     Private Sub ДатаРожденияToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ДатаРожденияToolStripMenuItem.Click

  •  

  •         If ДатаРожденияToolStripMenuItem.Checked = True Then

  •  

  •             ДатаРожденияToolStripMenuItem.Checked = False

  •  

  •         Else

  •  

  •             ДатаРожденияToolStripMenuItem.Checked = True

  •  

  •         End If

  •  

  •     End Sub

  •  

  •  

  •     '9 Меню О ПРОГЕ - открывает окно о ПРОГЕ

  •  

  •     Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click

  •  

  •         AboutBox1.Show()

  •  

  •     End Sub

  •  

  •  

  •     '10 Меню ВЫХОД - закрывает программу

  •  

  •     Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click

  •  

  •  

  •     End Sub

  •  

  •  

  • End Class

  • nub-club.com

    Отправить ответ

    avatar
      Подписаться  
    Уведомление о