PROGRAMMAZIONE VISUAL BASIC#2 COME CREARE UNA CALCOLATRICE

In questa guida andremo a vedere come realizzare una calcolatrice con Visual Basic 2010 Express.

La difficoltà nel realizzare questo progetto non è ne molto alta e ne bassa, ma se seguirete questa guida passo passo sarà più semplice di bere un bicchiere d’acqua.

Iniziamo avviando Visual Basic, iniziamo un nuovo progetto e inseriamo i seguenti oggetti:

  • 16 Button
  • 2 TextBox
  • 1 Label

Posizioniamo i componenti appena aggiunti nel form nel modo che segue:

Adesso bisogna rinominare e ridimensionare alcune cose. Il Button1 lo rinomineremo “1”, il Button2 “2” e così via fino ad arrivare al Button9;

Il Button10 va rinominato “0”, il Button11 “+”, il Button12 “-“, il Button13 “x”, il Button14 “/”, il Button15 “=” e il Button16 “C”

La label1 la rinominiamo “Foglio di calcolo” e la TextBox2 la allarghiamo cliccando sulla freccetta in alto a destra di quest’ultima e spuntando la voce Multi Line.

Adesso dobbiamo andare ad impostare il valore ReadOnly della TextBox1 su True così che in quella TextBox si può solo leggere e scrivere i numeri e le operazione tramite i Button. Adesso bisogna fare doppio click sul form e inserire il codice che segue nel foglio che si apre:

Public Class Form1
 Dim risultato As Integer = 0
 Dim operazione As String

 Private Sub calcolo()

 If operazione = "+" Then
 risultato = risultato + Val(TextBox1.Text)

 ElseIf operazione = "-" Then
 risultato = risultato - Val(TextBox1.Text)

 ElseIf operazione = "*" Then
 risultato = risultato * Val(TextBox1.Text)

 ElseIf operazione = "/" Then
 risultato = risultato / Val(TextBox1.Text)

 Else
 risultato = Val(TextBox1.Text)
 End If

 TextBox1.Text = ""

 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 TextBox1.Text = TextBox1.Text & "1"
 End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 TextBox1.Text = TextBox1.Text & "2"
 End Sub

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 TextBox1.Text = TextBox1.Text & "3"
 End Sub

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 TextBox1.Text = TextBox1.Text & "4"
 End Sub

 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 TextBox1.Text = TextBox1.Text & "5"
 End Sub

 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
 TextBox1.Text = TextBox1.Text & "6"
 End Sub

 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
 TextBox1.Text = TextBox1.Text & "7"
 End Sub

 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
 TextBox1.Text = TextBox1.Text & "8"
 End Sub

 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
 TextBox1.Text = TextBox1.Text & "9"
 End Sub

 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
 TextBox1.Text = TextBox1.Text & "0"
 End Sub

 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
 calcolo()
 operazione = "+"
 End Sub

 Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
 calcolo()
 operazione = "-"
 End Sub

 Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
 calcolo()
 operazione = "*"
 End Sub

 Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
 calcolo()
 operazione = "/"
 End Sub

 Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
 calcolo()
 TextBox1.Text = risultato
 operazione = ""
 End Sub

 Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
 TextBox1.Text = ""
 End Sub
End Class

A questo punto basta cliccare sul tatso di Debug e vedremo la nostra calcolatrice perfetta e funzionante.

Ci vediamo alla prossima, ciao.