Skrivning af en standard lommeregner program i Visual Basic er en god øvelse for begyndere Visual Basic programmører. En grundlæggende lommeregner indeholder cifre "0" til "9 ", et tegn knap et komma knap, en klar knap et lighedstegn knappen og knapper til at udføre addition, subtraktion, multiplikation og division. De CommandButton kontrollerne er placeret på en form og minimal kode er skrevet for hver knap klik begivenheden for programmet. Resultatet vises i et tekstfelt kontrol på toppen af formularen . Instruktioner
1
Åbn din lommeregner Visual Basic projekt. Projektet skal indeholde CommandButton kontroller for tegn " 0 " til "9 ", en knap for antallet s fortegn, en decimal knap en klar knap et lighedstegn knappen og knapperne til at udføre den angivne matematisk operation .
2
Erklær en variabel type " Double" for at holde det første indtastede værdi og den anden værdi, der indtastes , hvis ikke allerede erklæret . Gør variablen " private" til formularen . Også være sikker på der er boolean variabler erklæret at vide, hvilken type operation udføres. En boolesk værdi er enten sande eller falske.
Dim Private dFirst som Double
Dim Private dSecond som Double
Dim BADD som Boolean
Dim bSubtract som boolean
3
Store tallet klikkes på i " dFirst " variable i klik tilfælde af matematiske operatør. Også fange hvilken betjeningsknap blev udvalgt og indstil den booleske værdi i overensstemmelse hermed. For eksempel, hvis de " tilsætning " knappen blev klikket indstillet BADD til "true ". Hvis betjeningsknapperne blev defineret i et array, vil koden se ud : Hej
Select tilfælde index
Case 0
bDivision = Sand
Case 1
bMultiply = Sand
Case 2
bSubtract = Sand
Case 3 fotos
BADD = Sand
End Vælg
4
Store den anden værdi indgik " bSecond " og derefter skrive et "hvis Statement " for at udføre handlingen på de to cifre , og vise resultatet i " Lig " knappen klik begivenheden kode. Den " Hvis Statement " er skrevet som " Hvis BADD Så txtResult.text = dFirst + dSecond
End If " hvor " txtResult " er den TextBox kontrol i toppen af formularen.
< br >