Jak stworzyć kalkulator naukowy w Visual Basic

Skonfiguruj projekt

Krok 1

Utwórz nowy projekt, klikając "Plik" i "Nowy projekt". Na pytanie wpisz nazwę "Kalkulator naukowy".

W kalkulatorze pojawi się pusty formularz interfejsu użytkownika. Dodaj komponenty graficznego interfejsu użytkownika (GUI) z przybornika po lewej stronie. Użyjesz dwóch typów komponentów: pola tekstowego do wyświetlenia wyników i wielu przycisków.

Krok 2

Przeciągnij pole tekstowe na górę kalkulatora z przybornika po lewej stronie. Będzie to miejsce, w którym pojawią się liczby i gdzie użytkownik napisze liczby do późniejszego obliczenia.

Krok 3

Przeciągnij przycisk do formularza z przybornika. W polu właściwości znajdź właściwość "Tekst" i zmień ją na "bez". Znajdź nazwę nieruchomości i zmień ją na "sinButton". Kliknij przycisk "bez" w formularzu i naciśnij "Ctrl-C", aby wykonać kopię przycisku na klawiaturze. Naciśnij "Ctrl-V" 11 razy, aby utworzyć 11 nowych przycisków w formularzu. Dla każdego przycisku zmień tekst na: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y / i nadaj mu nazwę, która go opisuje. Na przykład dla przycisku "/" zmień właściwość name na "divideButton".

Wykonaj programowanie

Krok 1

Kliknij dwukrotnie przycisk "bez". Spowoduje to pobranie kodu źródłowego i utworzenie metody zdarzenia w celu obsługi zdarzeń "bez" i umieszczenia kursora w środku. Wklej następujące elementy:

Private Sub Button19_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub

Krok 2

Kliknij dwukrotnie przycisk "cos". Ponownie przeniesie Cię to do kodu źródłowego i utworzy metodę zdarzenia. Wklej następujące elementy:

Private Sub Button20_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button20.Kliknij TextBox1.Text = Math.Cos (TextBox1.Text) End Sub

Krok 3

Kliknij dwukrotnie przycisk "tan" i wklej następujące elementy, tak jak w poprzednich krokach:

Private Sub Button21_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button21.Click TextBox1.Text = Math.Tan (TextBox1.Text) End Sub

Krok 4

Kliknij dwukrotnie przycisk "pi" i wklej następujące elementy:

Private Sub Button22_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button22.Click TextBox1.Text = Math.PI End Sub

Krok 5

Dwukrotnie kliknij przycisk "C" i wklej:

Private Sub Button23_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button23.Click TextBox1.Text = "" memory = 0 End Sub

Kontynuacja programowania

Krok 1

Wklej następujące elementy na początku edytora kodu źródłowego:

Dim memory Jako Double Dim operation As String

Będzie to zawierało liczby potrzebne do operacji binarnych i operacji, które mają być wykonane, takie jak dzielenie lub mnożenie.

Krok 2

Kliknij dwukrotnie każdy binarny przycisk operacji (+, -, X, / i exp) i wklej następujący kod:

memory = TextBox1.Text operation = "+"

Zmień tekst operacji według operacji. Na przykład dla przycisku "X" zmień "+" na "X".

Krok 3

Kliknij dwukrotnie przycisk "=" i wklej następujące elementy:

Private Sub Button1_Click_1 (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button1.Click Jeśli operation.Equals ("+") Następnie TextBox1.Text = pamięć + TextBox1.Text ElseIf operation.Equals ("-") Następnie TextBox1.Text = pamięć - TextBox1.Text ElseIf operation.Equals ("X") Następnie TextBox1.Text = pamięć * TextBox1.Text ElseIf operation.Equals ("/") Następnie TextBox1.Text = pamięć / TextBox1.Text ElseIf operacji .Equals ("exp") Następnie TextBox1.Text = Math.Pow (pamięć, TextBox1.Text) End If

End Sub

Krok 4

Kliknij dwukrotnie przycisk "log" i wklej:

Private Sub Button24_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button24. Kliknij TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Krok 5

Kliknij dwukrotnie przycisk "sqrt" i wklej:

Private Sub Button18_Click (ByVal sender Jako System.Object, ByVal i As System.EventArgs) Obsługuje Button18.Click TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub