[guida] Calcolatrice Con Visual Basic 6

[InfernoHacker]

Iniziamo a creare :

2 label ( 1 x il segno ( + - : x ) e 1 x l'= )
3 text box ( x il 1° valore,il 2° e il risultato )
4 command button ( segni )

rinominiamo :

text1 -> txt1
text2 -> txt2
text3 -> txtuguale
label1 -> lblsegno
label2 -> lasciamolo così
command 1 -> cmd1
command 2 -> cmd2
command 3 -> cmd3
command 4 -> cmd4

cmd1 Caption -> X
cmd2 Caption -> :
cmd3 Caption -> +
cmd4 Caption -> -
txt1 Text -> "" (vuol dire vuoto )
txt2 Text -> ""
txt3 Text -> ""
lblsegno Caption -> ""
label2 Caption -> =

Adesso che abbiamo impostato i controlli andremo a scrivere il codice

Private Sub cmd1_Click()
lblsegno.Caption = "X"
A = Val(txt1.Text)
B = Val(txt2.Text)
txtuguale.Text = A * B
End Sub

Private Sub cmd2_Click()
lblsegno.Caption = ":"
A = Val(txt1.Text)
B = Val(txt2.Text)
txtuguale.Text = A / B
End Sub

Private Sub cmd3_Click()
lblsegno.Caption = "+"
A = Val(txt1.Text)
B = Val(txt2.Text)
txtuguale.Text = A + B
End Sub

Private Sub cmd4_Click()
lblsegno.Caption = "-"
A = Val(txt1.Text)
B = Val(txt2.Text)
txtuguale.Text = A - B
End Sub

--------------------------------------------------------------------------------

Spiegazione :

Prendiamo per esempio cmd4 , benissimo.

lblsegno.Caption = "-" sarà il Caption ( in questo caso - ) del lblsegno

A = Val(txt1.Text) è il valore che sarà attribuito al txt1 ( numero che deve essere sottratto,diviso,moltiplicato,addizionato )
B = Val(txt2.Text) è il valore che sarà attribuito al txt2 ( numero che sottrae,divide,moltiplica,addiziona )

txtuguale.Text = A - B txtuguale è dove verrà mostrato il risultato,qui si sottrae il valore A con il valore B e si ottiene txtuguale.Text ( teoricamente sarebbe stato possibile assegnare una stringa ( es. C ) a txtuguale.Text e il codice sarebbe stato così )

Private Sub cmd4_Click()
lblsegno.Caption = "-"
A = Val (txt1.Text)
B = Val (txt2.Text)
C = Val (txtuguale.Text)
txtuguale.Text = A - B
( al posto di txtuguale.Text = A - B avremmo potuto scrivere )
C = A - B
End Sub

------------------------------------------------------------------------------------

FONTE : IO :-)

Spero di esservi stato d'aiuto,anche se nn è molto difficile xPPPP