Argomenti simili
creare una calcolatrice
Pagina 1 di 1
creare una calcolatrice
In 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:
a = CDbl(TextBox1.Text)
op = "+"
TextBox1.Text = ""
Per il bottone "-":
Codice:
a = CDbl(TextBox1.Text)
op = "-"
TextBox1.Text = ""
Per il bottone "x":
Codice:
a = CDbl(TextBox1.Text)
op = "*"
TextBox1.Text = ""
Per il bottone "/":
Codice:
a = CDbl(TextBox1.Text)
op = "/"
TextBox1.Text = ""
Ora per i bottone "=":
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:
textbox1.text=""
E in fine per il bottone "Exit":
Codice:
Close
Abbiamo finito.
Spero che vi sia stata utile e che io sia stato chiaro.
created by gab 69 xD
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:
a = CDbl(TextBox1.Text)
op = "+"
TextBox1.Text = ""
Per il bottone "-":
Codice:
a = CDbl(TextBox1.Text)
op = "-"
TextBox1.Text = ""
Per il bottone "x":
Codice:
a = CDbl(TextBox1.Text)
op = "*"
TextBox1.Text = ""
Per il bottone "/":
Codice:
a = CDbl(TextBox1.Text)
op = "/"
TextBox1.Text = ""
Ora per i bottone "=":
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:
textbox1.text=""
E in fine per il bottone "Exit":
Codice:
Close
Abbiamo finito.
Spero che vi sia stata utile e che io sia stato chiaro.
created by gab 69 xD
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.