Программирование на Visual Basic

visual basic калькулятор

По просьбе DenJoy"я сегодня мы будем делать калькулятор. Это наверно самое простое, что может быть вBasic"е =), т.к. там используются обычные знаки. Конечно это все легко, но я понимаю DenJoy, когда он не знает, как это делать. Я сам очень недавно был таким. Все хватит ! Приступаем к программированию. Для начала посмотрим вид калькулятора, он должен быть примерно такой:

 В верхнее левое текстовое поле будут писаться цифры. В правое - выбраный знак. Ну и в низу кнопки с цифрами.

Заготовка: 

   1. Два текстовых поля с именамиText1 и Text2. У них свойство Enabled поставьте равным False, чтобы их нельзя было изменять.

 2. Пятнадцать кнопок с их стандартными номерами. Но предупреждаю !!! У меня они

 идут не попорядку, так что лучшескачайте мой калькулятор с исходниками, чтобы посмотреть какой номер у каждой кнопки!

Теперь пишем код:

" Вводим две переменные, для присвоения им значений, которые мы введем на калькуляторе
Dim a As String
Dim b As String

Private Sub Command1_Click()
" При нажа на кнопку с цифрой "1", в текстовом поле появится "1"
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Command11_Click()

" После нажатия на "*", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text

" В маленькое текстовое поле, пишем знак "*"
Text2.Text = "*"

" Отчищаем тексотовое поле №1
Text1.Text = ""
End Sub

 

Private Sub Command12_Click()

" При нажатии на "=", присваиваем переменной "b" второе значение, но тоже из текстового поля №1
b = Text1.Text

" Смотрим, какой знак в текстовом поле №2 и делаем нужное действие
If Text2.Text = "*"Then
Text1.Text = a * b
End If
If Text2.Text = "/" Then
Text1.Text = a / b
End If
If Text2.Text = "-" Then
Text1.Text = a - b
End If
End Sub

 

Private Sub Command13_Click()

" Отчищаем все текстовые поля
Text1.Text = ""
Text2.Text = ""
End Sub

 

Private Sub Command14_Click()
" После нажатия на "-", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text
Text2.Text = "-"
Text1.Text = ""
End Sub

 

Private Sub Command15_Click()
" После нажатия на "/", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text
Text2.Text = "/"
Text1.Text = ""
End Sub

 

" Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1

 

Private Sub Command2_Click()
Text1.Text = Text1.Text & "5"
End Sub

 

Private Sub Command3_Click()
Text1.Text = Text1.Text & "4"
End Sub

 

Private Sub Command4_Click()
Text1.Text = Text1.Text & "3"
End Sub

 

Private Sub Command5_Click()
Text1.Text = Text1.Text & "2"
End Sub

 

Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub

 

Private Sub Command7_Click()
Text1.Text = Text1.Text & "0"
End Sub

 

Private Sub Command8_Click()
Text1.Text = Text1.Text & "9"
End Sub

 

Private Sub Command9_Click()
Text1.Text = Text1.Text & "8"
End Sub

 

Private Sub Command10_Click()
Text1.Text = Text1.Text & "7"
End Sub

 

 

Вот, в принципе, и все. Калькулятор готов к использованию. Я сделал его минут за 5-7. Так что можете поэкспериментировать, даже если у вас очень мало времени =). Еще раз настоятельно рекомендаюскачать мой калькулятор, чтобы знать какая кнопка, что обозначает.

Hosted by uCoz