| Статистика |
♥♪♫♥™
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
| Благодарности |
| Материал взят с книги Михаила Фленова "Delphi глазами хакера" |
|
| Запретов нет!© |
 |
Вспомним основы!
Для обучения написания программ шпионов, фейков и.т.д. нам необходимо знать основы языка программирования Visual Basic.
Для повторения напишем калькулятор в Viusal Basic.
1. Создадим новый проект в Viusal Basic.
Standart EXE
2. Оформим форму проекта как показана на рисунке.
3. Напишем для каждой кнопки свой код.
В итоге общий код у на должен получиться следующий.
--------------------------------
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Text3.Text = Sqr(Val(Text1.Text))
End Sub
Private Sub Command6_Click()
Text3.Text = sqrt(Val(Text1.Text))
End Sub
Private Sub Command7_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub
--------------------------------
4. Программа готова.
Исходник и компилированную версию можно скачать.
Скачать 'Калькулятор".
|
|