| Online | Дата: Четверг, 19.07.2012, 20:53 | Сообщение # 1 |
Логин: Online
Имя: Дмитрий Толмачев
Сообщений: 533
Награды: 0
Репутация: 22
Замечания:
Offline
|
Сегодня 27.12.02 и у меня радости полные штаны! Я по химии ПОЛУЧИЛ 4. Я сам не знаю как я это сделал, нифига я ей не ответил, но за что - то она мне поставила. И от радости я написал статью "Самоуничтожитель компа", если ты хочешь над кем - нибуть прикольнуться, то в ближайшем будущем мы будем делать всякие приколы (Начиная со 2 - ой части), а если тебе не в терпеж, и ты толком не зная языка, хочешь над кем - нибуть прикольнуться, то можешь прочитать урок "Урок 25 - Делаем самоуничтожитель компа" , в ней даже не нужен редактор VB(тебе нужен блокнот (текстовой документ), или любой другой текстовой редактор, а это к счастью дается с виндом. Если у тебя по какой - то причине не открывается, то в самом начале 3 части эта статья есть. Что - то я заболтался (это от радости), ну что ты готов сделать свою первую серьезную программу? да. Не слышу. Да! Децл погромче. ДА Я ХОЧУ СДЕЛАТЬ КАЛЬКУЛЯТОР!!! Фу бля, не ори на ухо, ты меня оглушил...
Ну, если ты готов, тогда приступим. Как всегда входим в VB, кликаем на Standart EXE. Помещаем на форму 3 текстовых поля, со свойством Text равным: у первых двух без текста, а у 3-его равным 0(это можно сделать в окне свойство объекта, или написать код Text1.Text="",Text2.Text="",Text3.Text="0",я рекомендую все свойства писать только кодом, так ты быстрее освоишь язык), и 5 кнопок со свойством Caption равным:
У 1-ой CE
У 2-ой X
У 3-ей /
У 4-ой +
У 5-ой --
Как это делать ты должен знать (в окне свойство объекта, или кодом Command1.Caption="CE"...,естественно в поле Form onLoad(кликни два раза по форме))
У тебя должна получиться такая штука:
Теперь код:
Code Private Sub Command1_Click()
Text1.Text = "" 'при нажатии на кнопку CE, у двух текстовых полей свойство Caption будет равным " ", а 3-его будет равным 0
Text2.Text = ""
Text3.Text = "0"
End Sub
Private Sub Command2_Click() 'при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему
Text3.Text = Text1.Text * Text2.Text
End Sub
Private Sub Command3_Click() 'при нажатии на кнопку /, 1 текстовое поле будет разделенно на второе, и это будет равно 3-ему
Text3.Text = Text1.Text / Text2.Text
End Sub
Private Sub Command4_Click() 'при нажатии на кнопку +, 1 текстовое поле будет прибавлено ко второму, и это будет равно 3-ему
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command5_Click() 'при нажатии на кнопку --, 1-ое текстовое поле будет отнято от второго, и это будет равно 3-ему
Text3.Text = Text1.Text - Text2.Text
End Sub
Private Sub Form_Load()
Form1.Caption = "Калькулятор 2003" 'при загрузке формы, ее заголовок будет "Калькулятор 2003"
End Sub |
| |
| |
