The World Of Download
creare una calcolatrice Benvenuti
benvenuti nel mio forum vi divertirete un casino!!.
registratevi x entrare nel piu entusiasmante forum e x accedere a un sacco di belle categorie.!!
qua troverete tt cio ke cercate"!!!!!!!!!!!!!!!!

Unisciti al forum, è facile e veloce

The World Of Download
creare una calcolatrice Benvenuti
benvenuti nel mio forum vi divertirete un casino!!.
registratevi x entrare nel piu entusiasmante forum e x accedere a un sacco di belle categorie.!!
qua troverete tt cio ke cercate"!!!!!!!!!!!!!!!!
The World Of Download
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.

creare una calcolatrice

Andare in basso

creare una calcolatrice Empty creare una calcolatrice

Messaggio Da *ZeUs* Ven Mag 07, 2010 10:21 am

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
*ZeUs*
*ZeUs*
Amministratore
Amministratore

Messaggi : 687
Reputazione Utente : 21
Data d'iscrizione : 05.05.10

https://thebesthack.forumattivo.it

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.