Andrea Andrea RicciardiRicciardi

Classe 3pClasse 3p

In un ristorante si vuole calcolare il conto dei vari In un ristorante si vuole calcolare il conto dei vari clienti digitando le seguenti informazioni:clienti digitando le seguenti informazioni:Numero del tavolo, poi per ogni cliente bisogna Numero del tavolo, poi per ogni cliente bisogna calcolare il numero dei componenti del tavolo; calcolare il numero dei componenti del tavolo; inoltre occorre digitare la descrizione della portata, inoltre occorre digitare la descrizione della portata, la quantità, il prezzo unitario ed il tipo, che può la quantità, il prezzo unitario ed il tipo, che può essere:essere:A = antipasti, B = primi piatti, C = secondi piatti, D A = antipasti, B = primi piatti, C = secondi piatti, D = frutta e dolci ed E = bevande. Determinare il = frutta e dolci ed E = bevande. Determinare il conto del singolo cliente, ed anche il totale incassato conto del singolo cliente, ed anche il totale incassato dal ristorante per ciascun tipo di portata. In più, dal ristorante per ciascun tipo di portata. In più, sempre per ciascun portata, occorre calcolare il sempre per ciascun portata, occorre calcolare il totale delle unità vendute e l’importo totale relativo. totale delle unità vendute e l’importo totale relativo. Infine dobbiamo determinare la portata che ha reso Infine dobbiamo determinare la portata che ha reso di più per importo; e calcolare la percentuale delle di più per importo; e calcolare la percentuale delle unità distribuite per ciascun tipo di portata.unità distribuite per ciascun tipo di portata.

Innanzitutto dobbiamo riflettere sul testo, e iniziare Innanzitutto dobbiamo riflettere sul testo, e iniziare a costruire con uno schema il programma.a costruire con uno schema il programma.Come prima cosa, dobbiamo determinare la Come prima cosa, dobbiamo determinare la “Preparazione Ambiente” (PA), nella quale “Preparazione Ambiente” (PA), nella quale metteremo tutti i contatori e sommatori con i metteremo tutti i contatori e sommatori con i rispettivi azzeramenti; che serviranno poi per rispettivi azzeramenti; che serviranno poi per effettuare i calcoli.effettuare i calcoli.Dopo aver costruito la PA, dobbiamo inserire un Dopo aver costruito la PA, dobbiamo inserire un elemento di input con accanto la sua valid. Da qui, elemento di input con accanto la sua valid. Da qui, inseriremo un confronto dal quale se è falso il inseriremo un confronto dal quale se è falso il programma entrerà nel ciclo di lavoro (ELAB); programma entrerà nel ciclo di lavoro (ELAB); mentre se vero il programma andrà avanti mentre se vero il programma andrà avanti svolgendo le stampe finali.svolgendo le stampe finali.

All’interno dell’Elab, dobbiamo inserire tutti gli All’interno dell’Elab, dobbiamo inserire tutti gli elementi di input con accanto le loro validelementi di input con accanto le loro valid..

Dopo aver riempito con tutti gli elementi a Dopo aver riempito con tutti gli elementi a disposizione, metteremo un elemento di input disposizione, metteremo un elemento di input seguito da una serie di confronti a cascata. Dalla seguito da una serie di confronti a cascata. Dalla parte vera di ogni confronto, sarà effettuato un parte vera di ogni confronto, sarà effettuato un calcolo con un sommatore o contatore. calcolo con un sommatore o contatore. Finiti i vari conti con i diversi tipi immessi nel Finiti i vari conti con i diversi tipi immessi nel confronto, riuniremo tutti i risultati per poi confronto, riuniremo tutti i risultati per poi effettuare un conto unico, che sarà quello di effettuare un conto unico, che sarà quello di calcolare il totale del ristorante.calcolare il totale del ristorante.

All’interno delle Stampe Finali, come richiede All’interno delle Stampe Finali, come richiede il testo, inseriremo le percentuali da calcolare il testo, inseriremo le percentuali da calcolare su ciascun tipo di portata, scrivendo accanto su ciascun tipo di portata, scrivendo accanto ad ogni percentuale, il calcolo cioè ad ogni percentuale, il calcolo cioè l’operazione da svolgere. l’operazione da svolgere.

Inoltre il testo richiede anche di determinare Inoltre il testo richiede anche di determinare quale è stata la portata che ha reso di più. quale è stata la portata che ha reso di più. Quindi, dopo aver inserito il “max” all’interno Quindi, dopo aver inserito il “max” all’interno della PA ed averlo azzerato, adesso nelle della PA ed averlo azzerato, adesso nelle Stampe Finali dovremo calcolarlo.Stampe Finali dovremo calcolarlo.

Dopo aver determinato le percentuali Dopo aver determinato le percentuali ed aver determinato la portata ed aver determinato la portata massima di ciascun cliente (riferito al massima di ciascun cliente (riferito al suo tavolo), manderemo gli elementi suo tavolo), manderemo gli elementi in stampa, ed infine il programma in stampa, ed infine il programma darà tutti gli elementi di output come darà tutti gli elementi di output come e sommatori e contatori, oltre alle e sommatori e contatori, oltre alle percentuali e la portata massima, percentuali e la portata massima, come richiesto dal testo.come richiesto dal testo.

Nella PA, secondo il testo, inseriamo i contatori e i sommatori rispettivi secondo il tipo ti portata: A, B, C, D, E. Inoltre azzeriamo il contatore e il totale ristorante, come richiesto dal testo, ed infine il max.

Come richiesto dal testo, calcoliamo le percentuali e la portata che ha reso di piu (max).

Public Cont1, Cont2, Cont3, Cont4, Cont5, Som1, Som2, Som3, Som4, Som5, Cont, Totale, Max Public Cont1, Cont2, Cont3, Cont4, Cont5, Som1, Som2, Som3, Som4, Som5, Cont, Totale, Max As DoubleAs Double

ContA = 0ContA = 0

ContB = 0ContB = 0

ContC = 0ContC = 0

ContD = 0ContD = 0

ContE = 0ContE = 0

SomA = 0SomA = 0

SomB = 0SomB = 0

SomC = 0SomC = 0

SomD = 0SomD = 0

Some = 0Some = 0

Cont = 0Cont = 0

Totale = 0Totale = 0

Max = 0Max = 0

Nel modulo, inseriamo gli elementi da utilizzare con i rispettivi azzeramenti

Nell elab Nell elab svolgiamo i svolgiamo i

calcolicalcoli

Private Sub CmdEsegui_Click()Private Sub CmdEsegui_Click() While txtnumerotavolo.Text <> -1While txtnumerotavolo.Text <> -1 elabelab WendWend stampe finalistampe finali End SubEnd Sub

Private Sub elab()Private Sub elab() If txttipo.Text = 1 ThenIf txttipo.Text = 1 Then Cont 1 = Cont1 + txt.quantità.TextCont 1 = Cont1 + txt.quantità.Text tot1 = Cont1 * txtportata.Texttot1 = Cont1 * txtportata.Text ElseElse If txttipo.Text = 2 ThenIf txttipo.Text = 2 Then Cont 2 = Cont2 + txt.quantità.TextCont 2 = Cont2 + txt.quantità.Text tot2 = Cont2 * txtportata.Texttot2 = Cont2 * txtportata.Text ElseElse If txttipo.Text = 3 ThenIf txttipo.Text = 3 Then Cont 3 = Cont3 + txt.quantità.TextCont 3 = Cont3 + txt.quantità.Text tot3 = Cont3 * txtportata.Texttot3 = Cont3 * txtportata.Text ElseElse If txttipo.Text = 4 ThenIf txttipo.Text = 4 Then Cont 4 = Cont4 + txt.quantità.TextCont 4 = Cont4 + txt.quantità.Text tot4 = Cont4 * txtportata.Texttot4 = Cont4 * txtportata.Text ElseElse If txttipo.Text = 5 ThenIf txttipo.Text = 5 Then Cont 5 = Cont5 + txt.quantità.TextCont 5 = Cont5 + txt.quantità.Text tot5 = Cont5 * txtportata.Texttot5 = Cont5 * txtportata.Text ElseElse MsgBox = "errore, portata non valida"MsgBox = "errore, portata non valida" End IfEnd If End IfEnd If End IfEnd If End IfEnd If End IfEnd If

Nelle stampe Nelle stampe finali calcoliamo il finali calcoliamo il Max e mandiamo Max e mandiamo

i dati di outputi dati di output

f Max = Cont1 Thenf Max = Cont1 Then Max = Cont1Max = Cont1 Desc = Max = tipo1Desc = Max = tipo1 ElseElse If Max = Cont2 ThenIf Max = Cont2 Then Max = Cont2Max = Cont2 Desc = Max = tipo2Desc = Max = tipo2 ElseElse If Max = Cont3 ThenIf Max = Cont3 Then Max = Cont3Max = Cont3 Desc = Max = tipo3Desc = Max = tipo3 ElseElse If Max = Cont4 ThenIf Max = Cont4 Then Max = Cont4Max = Cont4 Desc = Max = tipo4Desc = Max = tipo4 ElseElse If Max = Cont5 ThenIf Max = Cont5 Then Max = Cont5Max = Cont5 Desc = Max = tipo5Desc = Max = tipo5 ElseElse End IfEnd If End IfEnd If End IfEnd If End IfEnd If

perc1 = Cont1 * 100 / totperc1 = Cont1 * 100 / tot perc2 = Cont2 * 100 / totperc2 = Cont2 * 100 / tot perc3 = Cont3 * 100 / totperc3 = Cont3 * 100 / tot perc4 = Cont4 * 100 / totperc4 = Cont4 * 100 / tot perc5 = Cont5 * 100 / totperc5 = Cont5 * 100 / tot

End SubEnd Sub