Open Visual Basic 6 1 , en selecteer " Standard EXE " uit het nieuwe project menu . U ziet een lege vorm op het scherm verschijnen . Kopen van 2

Hernoem uw ​​project en uw formulier door te klikken op " Project1 " aan de rechterkant van het scherm , in het project lijst , en het invoeren van een nieuwe naam in het " naam " lijn van het vak Eigenschappen , die moet verschijnen onder de projectlijst standaard . Druk op "Enter " om de nieuwe naam te gebruiken . Doe hetzelfde voor uw formulier ( een voorgestelde naam vorm is " CalculatorUI " ) , en zorg ervoor dat een soortgelijke naam in te voeren in het " Caption " eigenschap ook, die de tekst zal veranderen in de bovenste balk van het formulier . Sla het project in een nieuwe map op de computer .

Knoppen 3 toevoegen en een tekstvak aan het formulier . Voeg eerst een tekstvak die waar de getallen ingevoerd in de rekenmachine weergegeven , alsmede de resultaten van de berekeningen . Doe dit door het selecteren van de TextBox knop in de werkbalk aan de linkerkant van het scherm , en vervolgens te slepen met je muis de grootte en de locatie die u wenst voor de TextBox . Zodra u het tekstvak kunt u de grootte en de locatie wijzigen door op een andere locatie van het formulier te slepen of door de handvatten ( de kleine vierkantjes ) ​​te slepen langs de grens van de TextBox hebt geplaatst . Zorg ervoor dat u de volgende regels te veranderen in het venster Eigenschappen , met de TextBox geselecteerd: " (naam ) " = tbResult , " Alignment " = 1 - Rechts uitlijnen , "Data Format " = ( klik op de " ... " knop om selecteren ) nummer , " Locked " = True , en " tekst " = 0 .
4

Selecteer het pictogram CommandButton op de werkbalk en maak de eerste knop op dezelfde manier waarop je de TextBox om knoppen toe te voegen aangemaakt . Ter referentie , gebruikt u de Windows rekenmachine in standaard view ( Programma's > Bureau-accessoires > Rekenmachine ) als basis voor je rekenmachine lay-out, het weglaten van de " MC " , "MR " , " MS " , en " M + " -knoppen . Op elke knop , verandert de volgende eigenschappen ( met behulp van de knop " + " als een voorbeeld ) : " (naam ) " = btnPlus , " Caption " = + . Doe hetzelfde voor de rest van de rekenmachine knoppen , en sla uw werk . Uw formulier moet nu lijken op de hier getoonde voorbeeld .
5

Voeg de code . Merk op dat als je knoppen en textbox niet hetzelfde als het hier verwacht vermelde code worden genoemd , moet u de namen te veranderen om uw knoppen en tekstvak typen, of verander je knoppen en tekstvak om deze code aan te passen. Eerst moeten we een paar variabelen voor de verwerking rekenmachine ingang te creëren :

Dim sLeft
als Koord , sRight als Koord , sOperator Als StringDim iLeft zoals Dubbel , IRIGHT zoals Dubbel , iResult Als DoubleDim bLeft zoals Van Boole

Elke berekening bestaat uit vier delen : een nummer aan de linkerkant van de operator ( sLeft , iLeft ) , een operator ( sOperator ) , een getal rechts van de operator ( sRight , IRIGHT ) , en een resultaat ( iResult ) . Om bij te houden of de gebruiker is het invoeren van de linker of rechter getal , moeten we een boolean variabele , bLeft creëren . Als bLeft waar is , wordt de linkerkant van de berekening worden ingevoerd , als bLeft onwaar is , wordt de rechterzijde worden ingevoerd
6

Initialiseer de bLeft variabele . . Dat doen we door het creëren van een Form_Load subroutine , die je ofwel kunt typen als hier of automatisch maken door te dubbelklikken op een deel van het formulier niet door een knop of tekstvak vermeld . Binnen de functie , moeten we bLeft op True , want het eerste nummer dat is ingevoerd zal het linkerdeel zijn :

Private Sub Form_Load
( ) bLeft = TrueEnd Sub
7

Maak een subroutine dat het klikken van een van de cijfertoetsen zal behandelen . We maken dit als een subroutine , omdat we gebruik maken van dezelfde code voor elke knop , en met behulp van een subroutine betekent niet dat u steeds dezelfde code tien keer herhalen . Voer de volgende onder de Form_Load subroutine 's End Sub lijn :

Private Sub AddNumber
( sNumber As String ) Als bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub

Zoals je kunt zien , deze functie neemt een string parameter , sNumber , die het nummer van de gebruiker op heeft geklikt zal bevatten . Als bLeft waar is , is dit nummer toegevoegd aan de string die het nummer wordt ingevoerd , sLeft vertegenwoordigt , en het tekstvak , tbResult , is bijgewerkt naar het nieuwe nummer weer te geven . Als bLeft is vals , wordt dezelfde bewerking uitgevoerd met behulp sRight plaats .

Tenslotte maakt u een gebeurtenis Click -functie voor elk nummer dat onze AddNumber subroutine oproepen . U kunt dit eenvoudig doen door te dubbelklikken op de toetsen , die de subroutine structuur voor u zal creëren . Voeg vervolgens de oproep om AddNumber , het vervangen van de nummer tussen aanhalingstekens met het nummer geassocieerd met de knop . Voor de toets nul , zal je code er als volgt uit :

Private Sub btn0_Click
( ) AddNumber ( " 0 " ) End Sub

Evenzo voor de ene knop , zal je code er als volgt uit :

Private Sub btn1_Click ( ) AddNumber
( " 1 " ) End Sub
8

Behandel de operatoren : plus, min , maal en delen . We zullen dit doen als laatste stap , het creëren van een subroutine die wordt genoemd in de Click evenementen voor de bedieningstoetsen . De subroutine zal er als volgt uitzien :

Private Sub AddOperator
( sNewOperator As String ) Als bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = " " bLeft = FalseEnd IfEnd Sub

Als bLeft waar is , wat betekent dat de gebruiker heeft alleen het linker deel van de berekening opgenomen , deze subroutine wordt de sOperator variabele die we gemaakt in stap 5 aan de exploitant ingevoerde , die wordt doorgegeven aan AddOperator als de string sNewOperator gelijk . De tweede stap is om bLeft ingesteld op Onwaar , omdat de komst van een operator betekent dat de gebruiker gebeurt het invoeren van de linker kant van de vergelijking . Om data te behandelen die string meerdere operators samen , zoals de 9 * 3 * 2 * 6 , moeten we ook controleren of bLeft is onwaar , wat betekent dat de gebruiker een operator waar we verwachtten een gelijk is aangegaan . Eerste noemen we de gebeurtenis Click van de knop gelijk ( in de volgende stap wordt beschreven ) , die de berekening doet en stelt tbResult om het resultaat van wat al is ingevoerd . Dan duidelijk dat we sRight zodat de gebruiker kan het volgende nummer in te voeren , en stel bLeft op False zodat het programma weet dat we zijn het invoeren van de rechterkant van de berekening volgende .

Slot een AddOperator oproep toe aan de gebeurtenis Click van elke bedieningsknop , volgens dezelfde methode als we in stap 7 om de gebeurtenissen Instructies voor het cijfertoetsen maken . Uw code voor de plus -knop zal er als volgt uitzien :

Private Sub btnPlus_Click ( ) op AddOperator ( " + " ) End Sub

Evenzo zal de code voor de min knop er als volgt uit : < br >

Private Sub btnMinus_Click ( ) AddOperator ( " - " ) End Sub
9

Maak de gebeurtenis Click voor de gelijk -knop , dat is de meest complexe code in dit programma . Maak de subroutine structuur zoals je deed voor de andere toetsen , door te dubbelklikken op het gelijk knop op uw formulier . Uw subroutine zal uitzien als je de code hebt ingevoerd :

Private Sub btnEquals_Click ( ) op Twitter Als sLeft < > " " En sRight = " " En sOperator < > " " ThensRight = sLeftEnd Als

Als sLeft < > " " En sRight < > " " En sOperator < > " " TheniLeft = sLeftiRight = sRight

Select Case sOperatorCase
" + " iResult = iLeft + iRightCase " - " iResult = iLeft - iRightCase " /" iResult = iLeft /iRightCase " * " iResult = iLeft * iRightEnd Select

tbResult.Text
= iResult

sLeft
= iResultsRight = " " bLeft = IfEnd TrueEnd Sub

de eerste drie regels code controleren of beide zijden van de berekening zijn samen opgenomen met een operator . Als alleen de linker kant en een operator worden ingevoerd , wordt de waarde van de linkerzijde gekopieerd naar rechts , dus kunnen we de standaard calculator gedrag na te bootsen voor het hanteren van een regel als 9 * = , die zich vermenigvuldigt 9 op zichzelf om een ​​resultaat te krijgen 81 . De rest van de code wordt alleen uitgevoerd als links, rechts , en de exploitant worden ingevoerd , en begint met het kopiëren van de snaren van de getallen in onze iLeft en IRIGHT Dubbel - getypeerde variabelen , die de eigenlijke berekeningen kan doen . De Select Case statement laat ons toe om andere code te draaien , afhankelijk van welke exploitant werd ingevoerd , en voert de feitelijke berekening , het plaatsen van het resultaat in iResult . Tot slot , het tekstvak updaten we met het resultaat , kopieert het resultaat in sLeft , reset sRight , en stel bLeft = True . Deze laatste regels kunnen we het resultaat van de berekening te nemen en gebruik deze om een andere berekening uit te voeren
10

Behandel de laatste drie bedieningsknoppen : . Sqrt , % , en 1 /x . Voor de gebeurtenis Click van de vierkantswortel knop , zal je code er als volgt uit :

Private Sub btnSqrt_Click ( ) op Twitter Als sLeft < > " " TheniLeft = sLeftElseiLeft = 0End Als

Als sRight < > " " TheniRight = sRightElseiRight = 0End Als

Als bLeft TheniLeft = Math.Sqr ( iLeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( iLeft ) tbResult.Text = iRightEnd Als

Als iLeft < > 0 ThensLeft = iLeftElsesLeft = " " End If

Als IRIGHT < > 0 ThensRight = iRightElsesRight = " End Sub IfEnd

De eerste 11 lijnen " van code ervoor zorgen dat als we niet een waarde opgegeven voor een van beide kant van de vergelijking hebben we vervangen door nul in plaats van te proberen om een lege string in iLeft of IRIGHT , die een foutmelding zal genereren kopiëren. De middelste lijnen voeren de vierkantswortel functie op de huidige deel van de berekening , hetzij links of rechts . Tot slot , we keren de controles die we in het begin , zodat een nul wordt gekopieerd als een lege string terug in sLeft en sRight

Voor de procent -toets , de code is vergelijkbaar , met een uitzondering : . Het percentage operatie kan alleen worden uitgevoerd als zowel links en rechts worden ingevoerd.

Private Sub btnPercent_Click ( ) op Twitter If Not bLeft thenif sRight < > " " TheniRight = sRightElseiRight = 0End Als

IRIGHT = IRIGHT
* ( iLeft /100 ) tbResult.Text = IRIGHT

Als IRIGHT < > 0 ThensRight = iRightElsesRight = " " End IfEnd IfEnd Sub

slot , de 1 /x , of fractie , klik evenement, dat is zeer vergelijkbaar met de bovenstaande code :

Private Sub btnFraction_Click ( ) op Twitter Als sLeft < > " " TheniLeft = sLeftElseiLeft = 0End Als

Als sRight < > " " TheniRight = sRightElseiRight = 0End Als

Als bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Als

Als iLeft < > 0 ThensLeft = iLeftElsesLeft = " " End If

Als IRIGHT < > 0 ThensRight = iRightElsesRight = " " End Sub IfEnd
11

Voeg code te hanteren de C en CE knoppen . C wist alle invoer naar de rekenmachine , terwijl CE wist alleen het nummer momenteel wordt ingevoerd.

Private Sub btnC_Click
( ) sLeft = " " sRight = " " sOperator = " " tbResult.Text = " 0 " bLeft = TrueEnd Sub

Private Sub btnCE_Click ( ) Als bLeft ThensLeft = " " ElsesRight = " " End IftbResult.Text = " 0 " End Sub

Run 12 uw rekenmachine -programma en voer een berekening die u wenst . Deze calculator kan eenvoudig worden uitgebreid om meer activiteiten , meer complexe berekeningen of zelfs een wetenschappelijke rekenmachine met een beetje extra werk te verwerken .