Maak een nieuw project door te klikken op " File " en " New Project . " Wanneer u wordt gevraagd , geef het de naam ' Scientific calculator . "

Een lege gebruikersinterface vorm zal verschijnen voor je rekenmachine , voeg grafische gebruikersinterface ( GUI ) componenten om deze uit de toolbox aan uw linkerhand . U vindt twee soorten componenten te gebruiken : een tekstvak om resultaten en een stel knoppen weer te kopen van 2

Sleep een tekstvak aan de bovenkant van uw rekenmachine uit de toolbox aan de linkerkant. . Dit zal zijn waar de nummers verschijnen en waar de gebruiker nummers invoeren voor latere berekeningen .
3

Sleep een knop in een formulier uit de Toolbox . In het vak eigenschappen , vind de "text " eigendom en verander het naar " de zonde . " Zoek de eigenschap naam en verander het naar " sinButton . " Klik op de " zonde " knop in het formulier in en druk op " Ctrl - C " om een ​​kopie van de knop te maken in uw toetsenbord . Druk op Ctrl - V -toets 11 keer om de 11 nieuwe knoppen voor uw formulier . Voor elke knop , verandert de tekst op de knop om het volgende : cos , tan , pi , exp, sqrt , logboek , C , + , - , X , = en /en geef het een naam die het beschrijft . Bijvoorbeeld , voor de " /" toets , zijn naam veranderen eigenschap in op " divideButton . "
Doing the Programming
4

Dubbelklik op het " , zonde " knop . Dit zal u naar de broncode en creëren een evenement methode voor de behandeling van de zonde evenementen en plaats de cursor binnen het. Plak de volgende er :

Private Sub Button19_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles Button19.ClickTextBox1.Text = Math.sin ( TextBox1.Text ) End Sub
< br > 5

Dubbelklik op het " cos "-knop . Nogmaals , dit zal u naar de broncode en het creëren van een evenement methode . Plak het volgende erin :

Private Sub Button20_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles Button20.ClickTextBox1.Text = Math.cos ( TextBox1.Text ) End Sub

6

Dubbelklik op de knop " tan " en plak de volgende , net als in de vorige stappen :

Private Sub Button21_Click ( ByVal afzender
zoals System.Object , ByVal e als System.EventArgs ) Handles Button21.ClickTextBox1.Text = Math.Tan ( TextBox1.Text ) End Sub
7

Dubbelklik op het " pi " knop en plak de volgende :

Private Sub
Button22_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button22.ClickTextBox1.Text = Math.PIEnd Sub
8

Dubbelklik op de " C " knop en plakken: < br >

Private Sub Button23_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button23.ClickTextBox1.Text = " " memory = 0End Sub
Programmeren Vervolg < br >
9

Plak volgende aan de top van de broncode-editor :

Dim geheugen
Zoals DoubleDim operatie As String

Dit zal nummers die nodig zijn in binaire houden . activiteiten en de bewerking uit te voeren , zoals het delen of vermenigvuldigen
10

Dubbelklik op elk van de binaire operatie toetsen ( + , - , X , /, en exp ) op zijn beurt en plak de volgende code :

geheugen
= TextBox1.Textoperation = " + "

Vervang de operatie tekst met de operatie . Bijvoorbeeld , voor de knop " X " , vervang " + " met een " X "
11

Dubbelklik op het " = " -knop en plak het volgende : < br >

Private Sub Button1_Click_1 ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button1.ClickIf operation.Equals ( " + " ) ThenTextBox1.Text = geheugen + TextBox1.TextElseIf operation.Equals ( " - " ) ThenTextBox1.Text = geheugen - TextBox1.TextElseIf operation.Equals ( " X " ) ThenTextBox1.Text = geheugen * TextBox1.TextElseIf operation.Equals ( " /" ) ThenTextBox1.Text = geheugen /TextBox1 . TextElseIf operation.Equals ( " exp " ) ThenTextBox1.Text = Math.pow ( geheugen , TextBox1.Text ) End If End Sub

12

Dubbelklik op het " ; log " knop en plakken :

Private Sub Button24_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles Button24.ClickTextBox1.Text = Math.log ( TextBox1.Text ) End Sub < br
13

> Dubbelklik op het " sqrt " knop en plakken :

Private Sub Button18_Click
( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button18.ClickTextBox1.Text = Math.Sqrt ( TextBox1.Text ) End Sub