Как да създадете научен калкулатор в 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
