Веб программирование

Если не с кем поговорить сделай с кем можно!

 
 

Здравствуйте и это опять я , 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

Я эту фигню делал быстро и не задумываясь. Можете дописать имен , можете написать к нему еще вопросы все на ваше усмотрение. 

 


Есть вопросы? Спроси на нашем форуме!!
Кулхацкер [03.11.2012 21:17]

Будет висеть на модерации некоторое время... электорат будет решать, что с сим творением делать.

Если Лайс хочет, может поработать диктатором и сослать в сарай, тут не препятствую :) .

От себя:
"If t1.Text = "Откуда ты взялся?" Then
MsgBox "Я родился под руками программиста- идиота", 32
End If"
С утверждением в MsgBox полностью согласен.

EverybodyLies [04.11.2012 13:13]

Сослано мною по причине той же, что и все подобные статьи.

123 [04.11.2012 19:40]

Эта статья говно.

KrIvEdKA [14.11.2012 20:17]

Чувак завязывай уже с программированием.

makc999 [12.12.2012 17:41]

case!

makc999 [12.12.2012 17:43]

... и словарь русского языка!

zhozhek30 [05.10.2013 23:11]

смешно)

Stertor370 [06.10.2013 01:47]

http://govnokod.ru/13899

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

werylazy20 [16.12.2013 01:01]

Stertor Бугага!!! :-)

werylazy20 [16.12.2013 01:06]

а скачать сие чудо где можно?
а на WP8 есть?
а на iOS?
android?
Какие системные требования?

Edward300 [16.12.2013 15:43]

werylazy:
MS DOS,1 километр памяти, видяха Nvidia Titan на 4 гегов,
Проц intel core какой нибудь ivy bridge с частотой 5 ghz.
Осторожно,при запуске программы, может произойти BSOD!

DIGIUS470 [26.12.2013 00:45]

Мсье знает толк в извращениях!

prgm64 [07.01.2016 20:32]

Слишком тупо! С именами не продумано, ведь их тысячи! Извращение в ответах! Робот почти ничего не умеет, кроме "привет, пока, щекотно, как дела, сколько тебе лет" И ДРУГОЕ! Такие роботы должны быть продуманы и код должен быть на 100-200 строк минимум! И польза от них должна быть!

Release130 [11.01.2016 15:58]

prgm64, это создано ради примера. Придумайте AI, все в ваших руках!



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.