Mange har lyst til å lære å lage programmer på en enkel og rask måte. I denne serien lærer vi deg enkel programmering med Visual Basic .NET 2008. I del 6 fortsetter vi med kunnskapen vår og lager en kalkulator.
Vi starter med å lage et nytt Windows Forms-prosjekt.
Vi endrer teksten på Form1 til Kalkulator.
Åpne Toolbox og velg textbox. Så plasserer du tre textboxer ut i form1. Deretter legger du ut to labels.
Teksten i Label1 bytter du ut til =, og i label2 fjerner du teksten.
Vi setter inn en button i form1 og skriver Regn ut i teksten til button1.
Deretter justerer vi formen ettersom vi vil ha den. Siden vi ikke vil at brukerene av kalkulatoren skal kunne justere kalkulatoren som de vil, så vi trykker på form1 og setter FormBorderStyle til FixedSingle.
Problemet nå er at brukeren kan trykke på maksimer-knappen og formen vokser. For å hindre dette så setter du også MaximizeBox til False.
Det eneste som gjennstår er å skrive koden.
Dobbeltklikk på Button1 og skriv:
Dim Nr1 As Integer = TextBox1.Text
Dim Op As String = TextBox2.Text
Dim Nr2 As Integer = TextBox3.Text
Her forteller du programmet at det som skrives i textbox1 og textbox3 er en tallkombinasjon, og teksten i textbox2 er tekst eller tegn.
Grunnen til at jeg bruker Nr1, Op og Nr2 er for å ha mer kontroll i kodene.
Nr1 betyr at det er det første tallet, mens Nr2 er det siste. Op setter jeg fordi textbox2.text er Operatør, altså som velger hva kalkulatoren skal gjøre.
Siden dette er en enkel kalkulator så skal vi foreløpig bare bruke +, -, * og / (Pluss, minus, gange og dele).
For å få kalkulatoren til å regne ut svaret, så må vi vite hva Op er. Derfor skriver vi
If Op = "+" Then
Label2.Text = Nr1 + Nr2
ElseIf Op = "-" Then
Label2.Text = Nr1 - Nr2
ElseIf Op = "*" Then
Label2.Text = Nr1 * Nr2
ElseIf Op = "/" Then
Label2.Text = Nr1 / Nr2
End If
Her får programmet beskjed om eksempelvis å legge sammen Nr1 og Nr2 hvis Op = + og vise svaret i label2.
Men hva vil skje hvis Op ikke inneholder +, -, * og /? Da vil det komme opp en error, og programmet avsluttes.
For å forhindre dette så kan vi si ifra via en meldingsboks (MsgBox) og dermed skrive følgene før du ber programmet regne ut svaret.
If Not Op = "+" And Op = "-" And Op = "*" And Op = "/" Then
MsgBox("Du kan bare bruke tegnene +, -, *, /.")
Exit Sub
End If
Hvis de nå skriver noe annet i Op så vil beskjeden Du kan bare bruke tegnene +, -, *, /. komme opp og de må prøve igjen.
Nå har du skrevet ferdig kodene, men siden vi brukte Integer på Nr1 og Nr2, så vil vi ikke kunne regne ut alt for store regnestykker uten at det blir error.
Så for å begrense tallstørrelsen så markerer vi textbox1 og textbox3, og endrer MaxLength til 6. Vi setter også MaxLength på textbox2 til 1 siden vi bare skal kunne bruke én regnemetode av gangen.
Oppsummering
Dette er bare grunnlaget for hvordan du lager en kalkulator. Du har mange muligheter til forbedringer av dette programmet. Det er bare å bruke fantasien.
Lykke til!
