Salve ragazzi!
Non faccio guide da molto tempo ma, come si dice, meglio tardi che mai, no?
E allora eccomi qui con una nuova guida, fresca fresca! Si tratta sempre di Visual Basic, e precisamente vorrei farvi vedere come creare una calcolatrice.
Aprite Visual Studio.
Mettete una textbox in alto e i button sotto, proprio come ho fatto io, poi se non vi piace come l'ho fatta graficamente, potete comunque cambiarla, l'unica restrizione è che deve almeno sembrare una calcolatrice.
Andate nelle proprietà della textbox e cambiate ReadOnly da false a true, così la nella textbox nessuno ci può scrivere.
Adesso scriverò il codice, ma non spaventatevi, provo a spiegarvelo.
Public Class Form1
Dim risultato As Double = 0 //Qua inizializziamo il valore di risultato e mettiamo 0
Dim operazione As String //Inseriamo la variabile operazione come Stringa
Private Sub calcolo()
If operazione = "+" Then //Se l'operazione è uguale a +
risultato = risultato + Val(TextBox1.Text) // Il risultato sarà il risultato (0) + il valore della textbox
ElseIf operazione = "-" Then // Questi sono gli stessi comandi ma con diverso segno
risultato = risultato - Val(TextBox1.Text)
ElseIf operazione = "x" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operazione = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)
End If
TextBox1.Text = ""
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & 6 //Qua diciamo che se schiacciamo su 6, apparirà il 6
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & 1 // Stesso comando di prima ma con l'1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & 2
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & 3
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & 4
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & 5
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & 7
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & 8
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & 9
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & "+"
calcolo() //Facciamo riferimento alla funzione calcolo()
operazione = "+" // Facciamo riferimento all'operazione +
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & "-"
calcolo() //Stesso comando ma con operazione diversa
operazione = "-"
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
TextBox1.Text = TextBox1.Text & "x"
calcolo()
operazione = "x"
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
TextBox1.Text = TextBox1.Text & "/"
calcolo()
operazione = "/"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
calcolo()
TextBox1.Text = risultato //Facciamo riferimento al risultato
operazione = ""
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
calcolo()
TextBox1.Text = ""
risultato = 0
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
TextBox1.Text = TextBox1.Text & 0
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
TextBox1.Text = TextBox1.Text & "."
End Sub
End Class
Ragazzi ho messo qualche commento per farvi capire meglio il tutto. Per i comandi uguali non c'è bisogno che io scriva il commento, vero? Iniziate a inserire il codice, poi se non capite qualcosa scrivetemi o qua nei commenti, o nella pagina Facebook.
Non faccio guide da molto tempo ma, come si dice, meglio tardi che mai, no?
E allora eccomi qui con una nuova guida, fresca fresca! Si tratta sempre di Visual Basic, e precisamente vorrei farvi vedere come creare una calcolatrice.
Aprite Visual Studio.
Mettete una textbox in alto e i button sotto, proprio come ho fatto io, poi se non vi piace come l'ho fatta graficamente, potete comunque cambiarla, l'unica restrizione è che deve almeno sembrare una calcolatrice.
Andate nelle proprietà della textbox e cambiate ReadOnly da false a true, così la nella textbox nessuno ci può scrivere.
Adesso scriverò il codice, ma non spaventatevi, provo a spiegarvelo.
Public Class Form1
Dim risultato As Double = 0 //Qua inizializziamo il valore di risultato e mettiamo 0
Dim operazione As String //Inseriamo la variabile operazione come Stringa
Private Sub calcolo()
If operazione = "+" Then //Se l'operazione è uguale a +
risultato = risultato + Val(TextBox1.Text) // Il risultato sarà il risultato (0) + il valore della textbox
ElseIf operazione = "-" Then // Questi sono gli stessi comandi ma con diverso segno
risultato = risultato - Val(TextBox1.Text)
ElseIf operazione = "x" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operazione = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)
End If
TextBox1.Text = ""
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & 6 //Qua diciamo che se schiacciamo su 6, apparirà il 6
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & 1 // Stesso comando di prima ma con l'1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & 2
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & 3
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & 4
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & 5
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & 7
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & 8
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & 9
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & "+"
calcolo() //Facciamo riferimento alla funzione calcolo()
operazione = "+" // Facciamo riferimento all'operazione +
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & "-"
calcolo() //Stesso comando ma con operazione diversa
operazione = "-"
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
TextBox1.Text = TextBox1.Text & "x"
calcolo()
operazione = "x"
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
TextBox1.Text = TextBox1.Text & "/"
calcolo()
operazione = "/"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
calcolo()
TextBox1.Text = risultato //Facciamo riferimento al risultato
operazione = ""
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
calcolo()
TextBox1.Text = ""
risultato = 0
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
TextBox1.Text = TextBox1.Text & 0
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
TextBox1.Text = TextBox1.Text & "."
End Sub
End Class
Ragazzi ho messo qualche commento per farvi capire meglio il tutto. Per i comandi uguali non c'è bisogno che io scriva il commento, vero? Iniziate a inserire il codice, poi se non capite qualcosa scrivetemi o qua nei commenti, o nella pagina Facebook.