Skriva en vanlig miniräknare program i Visual Basic är en bra övning för nybörjare Visual Basic-programmerare . En grundläggande miniräknare innehåller siffrorna " 0 " till "9 ", ett tecken knapp , en decimalpunkt knapp , en tydlig knapp , en lika knapp och knappar för att utföra addition , subtraktion , multiplikation och division . På CommandButton kontrollerna är placerade på en blankett och minimal kod är skriven för varje knapptryckning händelse för programmet . Resultaten visas i en textrutekontroll överst i formuläret. Instruktioner
1
Öppna din miniräknare Visual Basic-projekt . Projektet ska innehålla CommandButton kontroller för siffrorna " 0 " till "9 ", en knapp för antalet s skylt , en decimal knapp , en tydlig knapp , en lika knapp och knappar för att utföra den angivna matematisk operation .
2
Deklarera en variabel typ " Dubbel " att hålla det första värdet anges och det andra värdet anges , om de inte redan deklarerats . Gör variabeln " privat " till formuläret . Också vara säker på att det finns boolska variabler deklarerade att veta vilken typ av operation som utförs . Ett booleskt värde är antingen sant eller falskt .
Dim Privat DFirst som Double
Dim Privat dSecond som Double
Dim BADD som Boolean
Dim bSubtract som Boolean Addera 3
Store siffran klickade på i " DFirst " variabel i klickhändelsen av matematisk operator . Också fånga vilken operation knapp valdes och ange det booleska värdet därefter . Till exempel, om den "tillsats" klickade på knappen , ställ BADD till "true ". Om funktionsknapparna definierades i en array , skulle koden se ut :
Select case index
Case 0
bDivision = Sant
Mål 1
bMultiply = Sant Case
2 Review
bSubtract = Sant
fall 3 bilder
BADD = Sant
End Välj
4
Store det andra värdet ingått " bSecond " och sedan skriva en " if-sats " för att utföra operationen på de två siffrorna och visa resultatet i " jämlikar " knappen klickhändelsen kod . Den " Om Statement " skrivs som " Om BADD Då txtResult.text = DFirst + dSecond
End If " där " txtResult " är textrutekontroll längst upp i formuläret .
