Программирование
Система
Веб программирование
|
Если не с кем поговорить сделай с кем можно!Автор: Megustan E-mail: megustan@yandex.ru Сайт: vk.com/megustan ICQ: skype akrobatortop
[просмотров 4019] Здравствуйте и это опять я , Megustan. Сейчас я расскажу вам как сделать подобного "робота".Добавляем на форму 1 кнопку (назови ее как хочешь) и 2 текстбокса. во втором текст боксе пишем Enabled= False . вот что должно получиться.: Текстовое поле1 я назвал t1. Далее в кнопку пишем: Private Sub CommandButton1_Click() If t1.Text = "Привет" Then MsgBox "Добро пожаловать в меня", 32 End If If t1.Text = "Как дела?" Then MsgBox "Все норм пока", 32 End If If t1.Text = "Как тебя зовут?" Then MsgBox "Дрюн меня зовут и ненадо ржать!", 32 End If If t1.Text = "Какого ты пола?" Then MsgBox "Я компьютерная программа, следовательно у меня не может быть никакого пола.Но я могу быть тем или той кого ты захочешь))", 32 End If If t1.Text = "" Then MsgBox "Моя очередь задавать вопросы.Ты согласен?", 32 End If If t1.Text = "Нет" Then MsgBox "Ну что так грубо?Я думал мыы друзья.В общем пиши -ДА и продолжим разговор", 32 End If If t1.Text = "Да" Then MsgBox "А как тебя зовут.Введи пожалуйста полное имя.", 32 End If If t1.Text = "Петр" Then MsgBox "Ага...Все таки парень.", 32 End If If t1.Text = "Борис" Then MsgBox "Ага... все таки парень. ", 32 End If If t1.Text = "Илья" Then MsgBox "Ага... все таки парень.", 32 End If If t1.Text = "Полина" Then MsgBox "Сюда вошла деваха)Как приятно", 32 End If If t1.Text = "Маша" Then MsgBox "Сюда вошла деваха)Как приятно", 32 End If If t1.Text = "Алексей" Then MsgBox "Приятно познакомиться", 32 End If If t1.Text = "Татьяна" Then MsgBox "Приятно познакомиться", 32 End If If t1.Text = "Софья" Then MsgBox "Сюда вошла деваха)Как приятно", 32 End If If t1.Text = "Александр" Then MsgBox "Самое популярное имя. Ну что ж, привет", 32 End If If t1.Text = "Александра" Then MsgBox "Сюда вошла деваха)Как приятно", 32 End If If t1.Text = "Никита" Then MsgBox "Здравствуй!Компьютерный странник", 32 End If If t1.Text = "Пока" Then MsgBox "Ну куда же ты? Постой мне так нехватает общения!", 32 End If If t1.Text = "щекотать" Then MsgBox "Ахахаха. Мерзкая сволочь!Ахах..подло как а?Обоссусь же!", 32 End If If t1.Text = "Откуда ты взялся?" Then MsgBox "Я родился под руками программиста- идиота", 32 End If If t1.Text = "Сколько тебе лет?" Then MsgBox "Я родился 4 ноября 2012 года.Вот и считай", 32 End If If t1.Text = "Чем ты питаешься?" Then MsgBox "Электричеством", 32 End If If t1.Text = "Какая музыка тебе нравится?" Then MsgBox "Мне нравится та музыка,которая нравится тебе", 32 End If End Sub Я эту фигню делал быстро и не задумываясь. Можете дописать имен , можете написать к нему еще вопросы все на ваше усмотрение.
Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях. |
Будет висеть на модерации некоторое время... электорат будет решать, что с сим творением делать.
Если Лайс хочет, может поработать диктатором и сослать в сарай, тут не препятствую :) .
От себя:
"If t1.Text = "Откуда ты взялся?" Then
MsgBox "Я родился под руками программиста- идиота", 32
End If"
С утверждением в MsgBox полностью согласен.
Сослано мною по причине той же, что и все подобные статьи.
Эта статья говно.
Чувак завязывай уже с программированием.
case!
... и словарь русского языка!
смешно)
http://govnokod.ru/13899
Пока вы тут решаете, что делать с этой статьей, я уже решил. Думаю, что со мной многие будут согласны.
Stertor Бугага!!! :-)
а скачать сие чудо где можно?
а на WP8 есть?
а на iOS?
android?
Какие системные требования?
werylazy:
MS DOS,1 километр памяти, видяха Nvidia Titan на 4 гегов,
Проц intel core какой нибудь ivy bridge с частотой 5 ghz.
Осторожно,при запуске программы, может произойти BSOD!
Мсье знает толк в извращениях!
Слишком тупо! С именами не продумано, ведь их тысячи! Извращение в ответах! Робот почти ничего не умеет, кроме "привет, пока, щекотно, как дела, сколько тебе лет" И ДРУГОЕ! Такие роботы должны быть продуманы и код должен быть на 100-200 строк минимум! И польза от них должна быть!
prgm64, это создано ради примера. Придумайте AI, все в ваших руках!
Оставлять комментарии можно только зарегистрированным