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