Salve a tutti.
Sono nuovo nel mondo della programmazione ed ho già creato qualche programmino, qualcosa di banale tanto per prendere dimestichezza.
Il programma che volevo creare serve per calcolare la spesa totale dei diversi diversi prodotti.
Quindi un calcolatore che, appunto, calcola il prezzo dei prodotti ma che tenga conto del prezzo precedente.
Il mio problema è la parte in grassetto. Ovvero non so come "far tenere in mente" al programma la spesa precedente.
Per ora ho creato questo:
Private Sub ToggleButton1_Click()
Dim Prezzo, SpesaTotale As Single
SpesaTotale = 0
Prezzo = InputBox("Prezzo del prodotto")
If Prezzo <> 0 Then
SpesaTotale = SpesaTotale + Prezzo
MsgBox SpesaTotale, vbOKCancel, "Spesa totale"
End If
If Prezzo = 0 Then
MsgBox SpesaTotale
End If
End Sub
Quando metto inserisco 0 il prodotto deve far comparire il prezzo finale.
Sono nuovo nel mondo della programmazione ed ho già creato qualche programmino, qualcosa di banale tanto per prendere dimestichezza.
Il programma che volevo creare serve per calcolare la spesa totale dei diversi diversi prodotti.
Quindi un calcolatore che, appunto, calcola il prezzo dei prodotti ma che tenga conto del prezzo precedente.
Il mio problema è la parte in grassetto. Ovvero non so come "far tenere in mente" al programma la spesa precedente.
Per ora ho creato questo:
Private Sub ToggleButton1_Click()
Dim Prezzo, SpesaTotale As Single
SpesaTotale = 0
Prezzo = InputBox("Prezzo del prodotto")
If Prezzo <> 0 Then
SpesaTotale = SpesaTotale + Prezzo
MsgBox SpesaTotale, vbOKCancel, "Spesa totale"
End If
If Prezzo = 0 Then
MsgBox SpesaTotale
End If
End Sub
Quando metto inserisco 0 il prodotto deve far comparire il prezzo finale.