Как да създадете научен калкулатор в Visual Basic

Конфигурирайте проекта

Стъпка 1

Създайте нов проект, като кликнете върху "Файл" и "Нов проект". Когато бъдете попитани, поставете името "Научен калкулатор".

За Вашия калкулатор ще се появи празен формуляр за потребителски интерфейс. Добавете компонентите на графичния потребителски интерфейс (GUI) от кутията с инструменти вляво. Ще използвате два типа компоненти: текстово поле за показване на резултатите и много бутони.

Стъпка 2

Преместете текстовото поле в горната част на калкулатора от кутията с инструменти вляво. Това ще бъде мястото, където ще се появят номерата и къде потребителят ще напише номерата за по-късни изчисления.

Стъпка 3

Преместете с мишката бутон до формуляра от кутията с инструменти. В полето за имоти намерете свойството "Текст" и го променете на "без". Намерете името на собствеността и я променете на "sinButton". Кликнете върху бутона "без" във формуляра и натиснете "Ctrl-C", за да направите копие на бутона на клавиатурата. Натиснете "Ctrl-V" 11 пъти, за да създадете 11 нови бутона във формуляра си. За всеки бутон променете текста на следното: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y / и дайте име, което го описва. Например, за бутона "/" променете свойството name на "divideButton".

Направете програмирането

Стъпка 1

Кликнете два пъти върху бутона "без". Това ще ви отведе с изходния код и ще създаде метод за събитие, за да се справите със събитията "без" и поставете курсора вътре. Поставете следното там:

Частен Sub Button19_Click (ByVal изпращач като System.Object, ByVal и As System.EventArgs) Дръжки Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub

Стъпка 2

Кликнете два пъти върху бутона "cos". Отново това ще ви отведе до изходния код и ще създадете метод за събитие. Поставете в нея следното:

Частен Sub Button20_Click (ByVal изпращач като System.Object, ByVal и As System.EventArgs) Дръжки Button20.Click TextBox1.Text = Math.Cos (TextBox1.Text) End Sub

Стъпка 3

Кликнете два пъти върху бутона "tan" и поставете следното, както в предишните стъпки:

Частен Sub Button21_Click (ByVal изпращач като System.Object, ByVal и As System.EventArgs) Дръжки Button21.Кликнете TextBox1.Text = Math.Tan (TextBox1.Text) End Sub

Стъпка 4

Щракнете двукратно върху бутона "pi" и поставете следното:

Частен Sub Button22_Click (ByVal подател като System.Object, ByVal и As System.EventArgs) Дръжки Button22.Click TextBox1.Text = Math.PI End Sub

Стъпка 5

Кликнете два пъти върху бутона "C" и поставете:

Частен Sub Button23_Click (ByVal подател като System.Object, ByVal и As System.EventArgs) Дръжки Button23.Клик TextBox1.Text = "" памет = 0 End Sub

Продължаване на програмирането

Стъпка 1

Поставете следното в началото на редактора на изходния код:

Запаметяване на паметта Като операция с двойна размразяване като струн

Това ще съдържа номерата, необходими за двоичните операции и за операцията, която трябва да бъде изпълнена, като разделяне или умножение.

Стъпка 2

Щракнете двукратно върху всеки бутон за операция (+, -, X, / и exp) и след това поставете следния код:

памет = TextBox1.Text операция = "+"

Променете текста на операцията чрез операцията. Например за бутона "X" променете "+" на "X".

Стъпка 3

Щракнете двукратно върху бутона "=" и поставете следното:

Частен Sub Button1_Click_1 (ByVal подател като System.Object, ByVal и As System.EventArgs) Дръжки Бутон1.Кликнете ако операция.Еквали ("+") Тогава TextBox1.Text = памет + TextBox1.Text ElseIf operation.Equals ("-" След това TextBox1.Text = памет - TextBox1.Text ElseIf operation.Equals ("X") След това TextBox1.Text = памет * TextBox1.Text ElseIf operation.Equals ("/") След това TextBox1.Text = памет / TextBox1.Text ElseIf операция .Equals ("exp") Тогава TextBox1.Text = Math.Pow (памет, TextBox1.Text) Край Ако

End Sub

Стъпка 4

Щракнете двукратно върху бутона "log" и поставете:

Частен Sub Button24_Click (ByVal подател като System.Object, ByVal и As System.EventArgs) Дръжки Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Стъпка 5

Щракнете двукратно върху бутона "sqrt" и поставете:

Частен Sub Button18_Click (ByVal изпращач като System.Object, ByVal и As System.EventArgs) Handles Button18.Click TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub