-
Tiger89.
User deleted
Adesso vi spiegherò come creare una semplice calcolatrice in Visual Basic.
Prima di tutto creare un nuovo form e dargli il nome di calcolatrice.
Adesso create una TextBox in alto e 17 bottoni: 11 per i numeri (incluso 0 e 00),1 per il punto decimale, 4 per le operazioni e 1 per l' uguale.
Adesso cliccate una sola volta sulla textbox e chiamarla Text.
Poi chiamare il numero 1 Button1, il numero 2 Button2, il numero 00 Button00 e così via...
Adesso chiamare il tasto col punto "PuntoDecimale"; addizione, sottrazione, moltiplicazione e divisione con i loro stessi nomi (ma con le lettere iniziali maiuscole) e il tasto uguale lo chiamate "Uguale".
Adesso passiamo ai codici...
Fate doppi click sui bottoni con i numeri ed inserire il codice qui di seguito:CODICEText1.Text = Text1.Text & "1"
Fate così con tutti gli altri numeri, cambiando, ovviamente, l' ultimo numero del codice tra virgolette. E fate così anche con il punto decimale (scrivendo la virgola tra le virgolette)e il pulsante 00.
Adesso dobbiamo dichiarare le seguenti variabili:CODICEDim a, b As Double
Dim op As String
e scrivetele in alto...precisamente così:CODICEPublic Class Form1
Dim a, b As Double
Dim op As String
Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
Text1.Text = Text1.Text & "0"
End Sub
Tra Public Class e il Private Sub che indica lo 0.
Adesso andiamo alle operazioni.
Fate doppio click sul bottone dell' addizione e inserite il seguente codice:CODICEa = CDbl(Text1.Text)
op = "+"
Text1.Text = ""
poi per la sottrazione:CODICEa = CDbl(Text1.Text)
op = "-"
Text1.Text = ""
per la moltiplicazione:CODICEa = CDbl(Text1.Text)
op = "*"
Text1.Text = ""
e per la divisione:CODICEa = CDbl(Text1.Text)
op = "/"
Text1.Text = ""
Se avete dato tutti i nomi esatti a come vi ho detto io non avrete sicuramente avuto nessun problema.
Adesso andiamo all' uguale.
Fateci doppio click e inserite il seguente codice:CODICEb = CDbl(Text1.Text)
Select Case op
Case "/"
Text1.Text = a / b
Case "*"
Text1.Text = a * b
Case "+"
Text1.Text = a + b
Case "-"
Text1.Text = a - b
End Select
Qui abbiamo finito...iniziate pure il Debug per provarlo.
Se avete problemi nel capirci qualcosa scrivete pure.
. -
†Gothic93†.
User deleted
dovo lo trovo visual basic??? . -
Tiger89.
User deleted
CITAZIONE (†Gothic93† @ 7/4/2009, 11:32)dovo lo trovo visual basic???
Scaricatelo da questo sito. Questo è Visual Basic 2008 express edition.. -
§ KriKKio §.
User deleted
Bene grazie!! Non ho capito molto bene... ma bella guida cmq! . -
[Dice-Lord].
User deleted
studiati il VB, ci sono in giro i manuali molto ben fatti, impari in fretta, è facile.. . -
Giuseppe1996.
User deleted
ciao...xkè a me il vb mi da l' errore eppure ho seguito tutte le tue istruzioni? . -
robertagambini.
User deleted
xk so tonta? . -
Ortis‚.
User deleted
è una bella guida ma si scrive textbox1.text nn text1.text . -
[Dice-Lord].
User deleted
dipende da quale versione di visual basic usi! tra visual basic 6 e vb.net cè una differenza notevole nei comandi!
Edited by [Dice-Lord] - 25/1/2012, 15:31. -
MLRA.
User deleted
Per sommare più numeri?
Grazie per le risposte!.