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
|
|
| |