Visual Basic калькулятор
Ну, если ты готов, тогда приступим. Как всегда входим в 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(кликни два раза по форме))
У тебя должна получиться такая штука:

Теперь код:
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = "0"
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Tex)
End Sub
Private Sub Command3_Click()
If Val(Text2.Text) <> 0 then Text3.Text = Val(Text1.Text) / Val(Text2.Tex) Else Text3.text="Ошибка: На нуль делить нельзя"
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Form_Load()
Form1.Caption = "Калькулятор"
End Sub
Теперь я хотел бы пояснить что такое Val(при прибавлении см. выше в коде), это функция, она нужна для того, чтобы комп преобразовывал символ из строки, в число, т.е., допустим если ты напишешь без нее, то при прибавлении 4+4, у тебя будет не 8, а 44. Ну вроде объяснил. Исходник программы можешь скачать отсюда
|