Calcolatrice tradizionale..

questa guida vi insegnerà a fare un calcolatrice con visula basic

andate su file-> nuovo progetto-> applicazione windows form e chiamatela come volete

prepariamo la schermata della calcolatrice mettendoci: 17 botton e una text box
Ala fine deve risualtare più o meno cos?:



bene ora inseriamo i codici:
All'inizio della pagina dei codici (subito dopo "PublicClass Form1") inserite questo codice:

Codice:


   Dim a, b As Double
Dim op As String


Così vi creerà delle variabili per memorizzare i numeri con qui fare le operazioni.
Per il primo bottone con il numero "1" si scrivera così:

Codice:

textbox1.text=textbox1.text+ "1"

In questo modo scriver? il numero "1" nella text box quando pigeremo quel bottone.
Poi fate cos? anche per gli altri bottoni numerici(naturalmente cambiando i numero tra le virgolette).
Ora inseriamo il codice per il bottone "+":



Codice:

Codice:

a = CDbl(TextBox1.Text)
op = "+"
TextBox1.Text = ""


Per il bottone "-":



Codice:

Codice:

a = CDbl(TextBox1.Text)
op = "-"
TextBox1.Text = ""

Per il bottone "x":



Codice:

Codice:

a = CDbl(TextBox1.Text)
op = "*"
TextBox1.Text = ""


Per il bottone "/":



Codice:

Codice:

a = CDbl(TextBox1.Text)
op = "/"
TextBox1.Text = ""

Ora per i bottone "=":



Codice:

Codice:

b = CDbl(TextBox1.Text)
Select Case op
Case "/"
TextBox1.Text = a / b
Case "*"
TextBox1.Text = a * b
Case "+"
TextBox1.Text = a + b
Case "-"
TextBox1.Text = a - b
End Select

Per il bottone"c":



Codice:

Codice:

textbox1.text=""

E in fine per il bottone "Exit":



Codice:

Codice:


   [color=red]Close[/color]

Abbiamo finito.
Spero che vi sia stata utile e che io sia stato chiaro.
FONTE:WEB