Программирование
Веб программирование

Калькулятор на Visual Basic.Net

 
 

На форме размести 3 текст. поля, 4 кнопки, измени у кнопок свойства:

У Button1 - измени свойство Text на +
У Button2 - измени свойство Text на -
У Button3 - измени свойство Text на /
У Button4 - измени свойство Text на x

Вот что у тебя должно получиться:

Теперь код:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' При нажатии на кнопку Button3(т.е. делить): 
TextBox1.Text = CInt(TextBox3.Text) / CInt(TextBox2.Text) ' При помощи функции CInt преобразовываем текст находящийся в текст. поле в число. Это делается затем, что текст в текст. поле всегда имеет тип 'String', вот поэтому его надо преобразовывать. Потом делим первое число на второе. 
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = CInt(TextBox3.Text) * CInt(TextBox2.Text) ' Умножаем 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = CInt(TextBox3.Text) + CInt(TextBox2.Text) ' Прибовляем 
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = CInt(TextBox3.Text) - CInt(TextBox2.Text) ' Отнимаем
End Sub

Исходник


Есть вопросы? Спроси на нашем форуме!!
начинающий [06.06.2010 15:51]

ну а если надо сделать кнопку нажав на которую появется точка или запятая???????

Боян Бояныч [10.09.2010 23:13]

А что, уважаемый, у вас на клавиатуре нету точки или запятой?

Дмитрий Евгеньевич [22.12.2010 10:22]

я такой дурачок, нихрена не понимаю)

Лоскутов ВОВОЧКА [22.12.2010 10:23]

я ТОЖе вместе с женьком в ауте

Турик Придурик [12.02.2011 21:42]

Не пашет, у мя VB6.5
Про Handles пишет всякию х..ю?
Что делать?

Миша [14.05.2011 19:29]

Сделал все по инструкции выдает ошибку когда открываю прогу в папке bin Чего делать?

макс [05.06.2011 11:39]

а он у меня наоборот почему то решает )!))

Гость [13.09.2011 10:00]

зпохоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)похоже на кудахтание курицы)

.DLL [06.10.2011 19:04]

Можно также вместо функции CInt() использовать Val()

seavulf [12.11.2011 23:26]

У меня все действия производятся, а вот вычитает из десятичной дроби почему то неправильно! Кто знает, почему так?

seavulf [12.11.2011 23:27]

Например: 5 - 2,5 у него = 3, почему?

алексей [13.11.2011 12:00]

поробуй не запятую а точку ставить

Максим [13.11.2011 12:03]

да с точкой работает нормально

аноним [25.11.2011 20:47]

Лучше использовать инструкцию Val() вместо CInt(), у меня синт в десятичных ошибку выдает - типо нельзя...

аноним [25.11.2011 20:48]

А урок хороший, базиба

Abujon [27.04.2012 08:19]

Урок просто класс посибо Автору для чайников этот урок просто продвижение

Арсен [19.05.2012 07:41]

Вот какой код у калькулятора с одним экраном



' Программа калькулятор с кнопками цифр, управление калькулятором
' возможно только мышью. Данный калькулятор выполняет только
' арифметические операции.
Public Class Form1

Dim Znak As String ' - знак арифметической операции
Dim НачалоВвода As Boolean = True
Dim value1, value2 As Double

Private Sub Form1
Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Text = "1" : Button2.Text = "2" : Button3.Text = "3"
Button4.Text = "4" : Button5.Text = "5" : Button6.Text = "6"
Button7.Text = "7" : Button8.Text = "8" : Button9.Text = "9"
Button10.Text = "0" : Button11.Text = "=" : Button12.Text = "+"
Button13.Text = "-" : Button14.Text = "" : Button15.Text = "/"
Button16.Text = "Очистить" : Me.Text = "Калькулятор"
TextBox1.Text = "0"
TextBox1.TextAlign = HorizontalAlignment.Right

End Sub

Private Sub DigitClick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button10.Click,
Button1.Click, Button2.Click, Button3.Click,
Button4.Click, Button5.Click, Button6.Click,
Button7.Click, Button8.Click, Button9.Click

' Обработка события нажатия клавиши-цифры:
Dim Digit As String = CType(sender, Button).Text
' или Dim Digit As String = sender.ToString.Substring(35)

If Начало
Ввода = True Then TextBox1.Text = Digit
: Начало
Ввода = False : Exit Sub

If НачалоВвода = False Then TextBox1.Text =
TextBox1.Text & Digit
End Sub

Private Sub Операция
Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button12.Click,
Button13.Click, Button14.Click, Button15.Click

' Обработка события нажатия клавиши арифметической операции:
value1 = Double.Parse(TextBox1.Text)
' или value1 = CDbl(TextBox1.Text)
Znak = CType(sender, Button).Text
' или Znak = sender.ToString.Substring(35)

НачалоВвода = True

End Sub

Private Sub Равно
Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button11.Click

' Обработка события нажатия клавиши равно:
Dim result As Double
value2 = Double.Parse(TextBox1.Text)
' или value2 = CDbl(TextBox1.Text)

If Znak = "+" Then result = value1 + value2
If Znak = "-" Then result = value1 - value2
If Znak = "
" Then result = value1 * value2
If Znak = "/" Then result = value1 / value2

TextBox1.Text = result.ToString ' или = CStr(result)
value1 = result : НачалоВвода = True

End Sub

Private Sub Очистить
Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button16.Click

' Обработка события нажатия клавиши Очистить:
TextBox1.Text = "0" : Znak = "" : Начало_Ввода = True

End Sub
End Class

Можно использовать и VAL [09.01.2013 15:58]

TextBox1.Text = CInt(TextBox3.Text) / CInt(TextBox2.Text)
Также можно использовать в данном приложениии
TextBox1.Text = val(TextBox3.Text) / val(TextBox2.Text)
если вы конечно не хотит дробные находить...

Bic02610 [25.08.2013 15:46]

омг... что это
' При помощи функции CInt преобразовываем текст находящийся в текст. поле в число. Это делается затем, что текст в текст.


а так уроки хорошие))

Bic02610 [25.08.2013 15:47]

ааа... догнал

Progers300 [25.08.2013 21:22]

Просьба всем, кто любит печатать код в комменты.
Перенести всё на pastebin.com

Phoenix222210 [28.04.2014 21:13]

Спасибо отличный урок! У меня получилось



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.