Schreiben eines Standard- Taschenrechner-Programm in Visual Basic ist eine gute Übung für Anfänger Visual Basic -Programmierer. Eine grundlegende Rechner enthält Ziffern " 0 " bis "9 ", ein Zeichen Taste Dezimalpunkt -Taste , eine klare Taste , eine Taste entspricht und Tasten, um Addition, Subtraktion , Multiplikation und Division durchführen . Die CommandButton-Steuerelemente werden auf einem Formular und minimal -Code wird für jede Schaltfläche Click-Ereignis für das Programm geschrieben gelegt . Die Ergebnisse werden in einem TextBox-Steuerelement am oberen Rand des Formulars angezeigt. Anleitung
1

Öffnen Sie Ihren Rechner Visual Basic-Projekt . Das Projekt sollte CommandButton-Steuerelemente für die Ziffern "0" bis enthalten " 9 ", eine Taste für die Anzahl der Zeichen , eine Nachkommastelle Taste , eine Clear-Taste , ein Gleichheitszeichen Taste und Tasten , um die angegebene mathematische Operation durchzuführen.
2

Deklarieren Sie eine Variable Typ "Double" zu halten, der erste Wert eingegeben und der zweite Wert eingegeben , wenn nicht bereits erklärt. Stellen Sie die Variable " private" in das Formular. Auch sicher sein, es gibt boolean Variablen deklariert zu wissen, welche Art von Operation durchgeführt wird . Ein boolescher Wert ist entweder wahr oder falsch .

Dim Privat DFirst als Double

Dim Privat dSecond als Double

Dim bAdd als Boolean Dim

bSubtract als Boolean
3

Shop die Ziffer geklickt auf in die " DFirst " Variable in das Click-Ereignis des mathematischen Operator . Auch zu erfassen , welche Operation Taste ausgewählt wurde und den boolean Wert entsprechend. Zum Beispiel, wenn die " Zugabe "-Button geklickt wurde , setzen BaDD auf "true ". Wenn die Bedientasten in einem Array definiert wurden , würde der Code wie folgt aussehen:

Select Case -Index

Fall 0

BDivision = True

Fall 1

bMultiply = True

Fall 2

bSubtract = True

Fall 3

bAdd = True End

Wählen
4

Shop den zweiten Wert in " bSecond " eingegeben und dann schreiben "Wenn Statement" , um den Betrieb auf den beiden Ziffern aus und zeigt das Ergebnis in der " Equals "-Button Click-Ereignis Code. Der "Wenn Statement" wird wie folgt geschrieben : "Wenn bAdd Dann txtResult.text = DFirst + dSecond

End If " wo " txtResult " ist das TextBox-Steuerelement an der Spitze des Formulars.