CheatingBastards | Hack e Cheats - Streaming
Ciao Ospite, se leggi questo messaggio significa che non sei registrato. Clicca qui per effettuare la registrazione in pochi semplici passaggi e potrai usufruire di tutte le funzioni del nostro Forum . Ti ricordiamo di passare in Area Benvenuti per presentarti al Forum

Calcolatrice tradizionale..

Andare in basso

Calcolatrice tradizionale..

Messaggio Da SicK il Lun Mar 28, 2011 2:31 pm

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

______________________
afro  Welcome To CheatingBastards!  afro
avatar
SicK
Admin
Admin

Messaggi : 317
Data d'iscrizione : 05.11.10
Età : 22

Visualizza il profilo dell'utente http://cheatingbastards.forumattivo.it

Torna in alto Andare in basso

Torna in alto


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