CASSA AL SUPERMERCATO
Simula la cassa di un supermercato, dove possiamo calcolare il guadagno ottenuto da ciascuna vendita e
contare il numero degli scontrini emmessi
INTERFACCIA GRAFICA
PROGRAMMAZIONE
MODULO
Option Explicit
Public vendite(20) As prodotto
Public nvendite As Integer
Public i As Integer
Public n As Integer
Public p As Integer
Public max As Integer
Public somma As Currency
Public Type prodotto
nome As String * 20
prezzoacquisto As Currency
prezzovendita As Currency
quantita As Integer
scontrino As Integer
End Type
Public Function mediapvendite() As Currency
somma = 0
For i = 0 To (nvendite - 1)
somma = somma + vendite(i).prezzovendita
Next i
somma = somma / nvendite
mediapvendite = somma
End Function
Public Function maxprodotti() As Currency
Dim i As Integer
max = vendite(i).quantita
For i = 0 To nvendite - 1
If max < vendite(i).quantita Then
max = vendite(i).quantita
End If
Next i
maxprodotti = max
End Function
Public Function guadagnototale() As Currency
somma = 0
For i = 0 To nvendite - 1
somma = somma + ((vendite(i).prezzovendita - vendite(i).prezzoacquisto) * vendite(i).quantita)
Next i
guadagnototale = somma
End Function
FORM CASSA
Option Explicit
Dim guadagno As Double
Dim totale As Currency
Dim nscontrini As Integer
Private Sub CmdCarica_Click()
Dim articolo As prodotto
Dim quantita As Integer
TxtGuadagno.Text = ""
articolo.nome = TxtNome.Text
articolo.prezzoacquisto = Val(TxtPrezzoacquisto.Text)
articolo.prezzovendita = Val(TxtPrezzovendita.Text)
articolo.quantita = Val(TxtQuantita.Text)
vendite(nvendite) = articolo
nvendite = nvendite + 1
guadagno = guadagno + (articolo.prezzovendita - articolo.prezzoacquisto) * articolo.quantita
TxtGuadagno.Text = CStr(guadagno)
Lstscontrino.AddItem (articolo.nome + CStr(articolo.quantita) + " " + "x" + " " +
CStr(articolo.prezzovendita) + " " + "=" + " " + CStr(articolo.prezzovendita * articolo.quantita))
totale = totale + articolo.prezzovendita * articolo.quantita
TxtTotale.Text = CStr(totale)
TxtPrezzovendita.Text = ""
TxtPrezzoacquisto.Text = ""
TxtQuantita.Text = ""
TxtNome.Text = ""
End Sub
Private Sub CmdFinescontrino_Click()
Lstscontrino.Clear
totale = 0
TxtTotale = ""
nscontrini = nscontrini + 1
TxtScontrini = CStr(nscontrini)
End Sub
Private Sub CmdStatistiche_Click()
FrmStatistiche.Show
End Sub
FORM STATISTICHE
Option Explicit
Private Sub CmdEsci_Click()
End
End Sub
Private Sub CmdIndietro_Click()
Unload Me
End Sub
Private Sub Form_Load()
TxtMediavendite.Text = CStr(mediapvendite)
TxtMaxProdotto.Text = CStr(maxprodotti) + CStr(vendite(i).nome)
TxtGuadagnototale.Text = CStr(guadagnototale)
End Sub