Visual Basic är ett kraftfullt programmeringsspråk skapat till Microsoft för att göra det enklare för användare utan datorprogrammering utbildning för att utveckla programvara för Windows-datorer . Skapa en vetenskaplig kalkylator ger en översikt över hur man utvecklar programvara för Visual Basic . Saker du behöver Review, Visual Basic 2008 Express eller senare
Visa fler instruktioner
Konfigurera Project
1
Skapa ett nytt projekt genom att klicka på " File " och " Nytt projekt . " När du uppmanas ge den namnet " Scientific Calculator . "
Ett tomt formulär användargränssnitt kommer att visas för din miniräknare , lägga grafiskt användargränssnitt ( GUI ) komponenter till den från verktygslådan på vänster sida . Du kommer att använda två typer av komponenter : en textruta för att visa resultat och ett gäng knappar
2
Dra en textruta till toppen av din räknare från verktygslådan till vänster . . Detta kommer att vara där siffrorna visas och där användaren skriver siffror för senare beräkningar .
3
Dra en knapp i formuläret från Toolbox . I inforutan , hitta den " text " egendom och ändra det till " synd". Hitta egenskapen name och ändra det till " sinButton . " Klicka på " synden " -knappen i formuläret och tryck på " Ctrl - C " för att göra en kopia av knappen på tangentbordet . Tryck Ctrl - V för 11 gånger för att skapa de 11 nya knappar för formuläret . För varje knapp , ändra knappen texten till följande : cos , tan , pi , exp , sqrt , logga, C , + , - , X , = och /, och ge den ett namn som beskriver det . Till exempel , för " /" -knappen , ändra dess namn egenskapen till " divideButton . " Addera Göra Programmering
4
Dubbelklicka på " , synd " -knappen . Detta kommer att flytta dig till källkoden och skapa en händelse metod för hantering synd händelser och placera markören inuti den . Klistra in följande finns :
Private Sub Button19_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button19.ClickTextBox1.Text = Math.sin ( TextBox1.Text ) End Sub
5
Dubbelklicka på " cos " -knappen . Återigen kommer detta att flytta dig till källkoden och skapa en händelse metod . Klistra in följande i den :
Private Sub Button20_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar Button20.ClickTextBox1.Text = Math.cos ( TextBox1.Text ) End Sub
6
Dubbelklicka på " Tan " -knappen och klistra in följande , som i de tidigare stegen :
Private Sub Button21_Click ( ByVal avsändaren som System.Object , ByVal e som System.EventArgs ) Handtag Button21.ClickTextBox1.Text = Math.tan ( TextBox1.Text ) End Sub
7
Dubbelklicka på " pi " -knappen och klistra in följande :
Private Sub Button22_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar Button22.ClickTextBox1.Text = Math.PIEnd Sub
8
Dubbelklicka på " C " knappen och klistra in:
Private Sub Button23_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar Button23.ClickTextBox1.Text = " " minnet = 0End Sub
Programmering Fortsättning
9
Klistra in följande högst upp i källkoden redaktör :
Dim minne som DoubleDim drift As String
Detta kommer att hålla tal som behövs i binär . verksamhet och den verksamhet som ska utföras , till exempel division eller multiplikation
10
Dubbelklicka på varje binär operation knapparna ( + , - , X , /och exp ) i tur och klistra följande kod:
minne = TextBox1.Textoperation = " + "
Ersätt operationen text med operationen . Till exempel , för " X " -knappen , byt ut " + " med " X"
11
Dubbelklicka på " = " -knappen och klistra in följande :
Private Sub Button1_Click_1 ( ByVal avsändare Som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.ClickIf operation.Equals ( "+") ThenTextBox1.Text = minne + TextBox1.TextElseIf operation.Equals ( " - " ) ThenTextBox1.Text = minne - TextBox1.TextElseIf operation.Equals ( " X " ) ThenTextBox1.Text = minne * TextBox1.TextElseIf operation.Equals ( " /" ) ThenTextBox1.Text = minne /TextBox1 . TextElseIf operation.Equals ( " EXP " ) ThenTextBox1.Text = Math.pow ( minne , TextBox1.Text ) End If
End Sub
12
Dubbelklicka på " , log " -knappen och klistra :
Private Sub Button24_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar Button24.ClickTextBox1.Text = Math.log ( TextBox1.Text ) End Sub
13
Dubbelklicka på " sqrt " knappen och klistra in:
Private Sub Button18_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar Button18.ClickTextBox1.Text = Math.sqrt ( TextBox1.Text ) End Sub
