1. Diagramma a blocchi ed esercizio svolto su Visual Basic Simone Sagulo, 3P AL RISTORANTE...
2. Questo 竪 il ciclo principale: ho inserito una preparazione ambiente per tutte le dichiarazioni e le letture * ELAB NTavolo F START P.A. NTavolo S.F. END V = numero tavolo <> -1 *
3. Questa 竪 la preparazione ambiente: ci sono tutti azzeramenti P.A. contA=0 , contB=0, contC=0, contD=0, contE=0, totA=0, totB=0, totC=0, totD=0, totE=0, Max=0, TipMax=0, Totcont=0, totinc=0, percA=0, percB=0, percC=0, percD=0, percE=0, totquant=0 EXIT
4. Queste sono le stampe finali, dove viene anche calcolata la percentuale di tutti i vari tipi di portata. percA= contA * 100/ tot STAMPE FINALI percB= contB *100/ tot percA= contA * 100/ tot percC= contC*100/ tot percD= contD*100/ tot percE= contE*100/ tot contA=0 , contB=0, contC=0, contD=0, contE=0, totA=0,totB=0, totC=0, totD=0, totE=0, Max=0, totinc=0, totcont=0, percA=0, percB=0, percC=0, percD=0, percE=0, totquant=0 EXIT
5. Ecco la prima parte dellelab, dove avvengono le letture e i calcoli del conto, del totale incassato dal ristorante e del totale della quantit portata. Il connettore 1 ci porta. ELAB componenti Descrizione portata Quantit portata Prezzo Tipo portata Valid = A, B, C, D or E Totcont= (componenti * coperto) + (Quantit Portata * prezzo) totinc= totinc + totcont 1 totquant= totquant + quantit portata
6. alla seconda parte dellelab., dove vengono calcolati, tipo per tipo, gli importi e viene aggiornato il contatore dei cibi. Il connettore 2 ci porta ContE = contE+ Q TotE = contE* prezzo 1 Tipo = A contA = contA + Q totA = contA * prezzo Tipo = B contB = contB + Q totB = contB * prezzo Tipo = C contC = contC + Q totC = contC* prezzo Tipo = D contD = contD + Q totD = contD* prezzo 2
7. alla terza parte dellelab, dove si va a calcolare il tipo di portata che 竪 stato servito in quantit maggiori. 2 Max < A Max = A TipMax = A V Max < B Max = B TipMax = tipo B V Max < C Max = C TipMax = tipo C V Max < D Max = D TipMax r= D V Max < E 8 3 4 5 6 7 V F F F F F
8. ecco infine lultima parte dellelab. 8 7 6 5 4 3 Max = E TipMax = E EXIT
9. Nelle diapositive che seguono 竪 presente il codice con cui il diagramma a blocchi visto in precedenza viene tradotto in linguaggio Visual Basic.
10. Il ciclo principale Private Sub cmdfine_Click() End End Sub Private Sub cmdvaiallacassa_Click() Tav = txtntavolo.Text While Tav <> -1 elab Tav = InputBox (DIGITA NUMERO DEL TAVOLO) Comp = InputBox (DIGITA NUMERO COMPONENTI DEL TAVOLO) Quant = InputBox (DIGITA QUANTITA DELLE PORTATE) Prp = InputBox (DIGITA PREZZO DELLA PORTATA) Tpr = InputBox(DIGITA TIPO DELLA PORTATA") Wend stampefinali End Sub Private Sub Form_Load() PA End Sub
11. Lelab (parte prima) Private Sub elab() Comp = txtncomponenti.Text Quant = txtquantita.Text Prp = txtprportata.Text Trp = txttipo.Text Totcont = (Comp * coperto) + (Quant * Prp) Totinc = totinc + totcont Totquant = totquant + Quant If Tipo = "a" Then contA = contA + Quant totA = contA * Prp Else If Tipo = "b" Then contB = contB + Quant totB = contB * Prp Else If Tipo = "c" Then contC = contC + Quant totC = contC * Prp Else If Tipo = "d" Then contD = contD + Quant totD = contD * Prp Else
12. Lelab (parte seconda) If Tipo = "e" Then contE = contE + Quant totE = contE * Prp Else MsgBox Errore: tipo non valido" End If End If End If End If End If If max < A Then max = A Tipmax = "A" Else If max < B Then max = B TipMax = "B"
13. Lelab (parte terza) Else If max < C Then max = C TipMax = "C" Else If max < cD Then max = D TipMax = "D" Else If max < E Then max = E TipMax = "E" End If End If End If End If End If End Sub
14. Le stampe finali Private Sub stampefinali() percA = contA * 100 / tot percB = contB * 100 / tot percC = contC * 100 / tot percD = contD * 100 / tot percE = contE * 100 / tot MsgBox "Totale portate vendute = " & totquant MsgBox "Totale delle portate di tipo A = " & contA MsgBox "Totale delle portate di tipo B = " & contB MsgBox "Totale delle portate di tipo C = " & contC MsgBox "Totale delle portate di tipo D = " & contD MsgBox "Totale delle portate di tipo E = " & contE MsgBox "Totale dell'importo portate di tipo A = " & totA MsgBox "Totale dell'importo portate di tipo B = " & totB MsgBox "Totale dell'importo portate di tipo C = " & totC MsgBox "Totale dell'importo portate di tipo D = " & totD MsgBox "Totale dell'importo portate di tipo E = " & totE MsgBox "Totale del tipo di portata venduto in quantit maggiore = " & max MsgBox Tipo di portata venduta in quantit maggiore = " & TipMax MsgBox "Percentuale della portata di tipo A= " & percA MsgBox "Percentuale della portata di tipo B= " & percB MsgBox "Percentuale della portata di tipo C= " & percC MsgBox "Percentuale della portata di tipo D= " & percD MsgBox "Percentuale della portata di tipo E= " & percE MsgBox "Conto del tavolo= " & Totcont MsgBox "Totale incassato dal ristorante = " & TotInc End Sub
15. Infine il modulo! Public cont As Double Public contA As Double Public cont B As Double Public contC As Double Public contD As Double Public contE As Double Public max As Double Public Totcont As Double Public TotInc As Double Public Totquant As Double Public totA As Double Public totB As Double Public totC As Double Public totD As Double Public totE As Double Public percA As Double Public percB As Double Public percC As Double Public percD As Double Public percE As Double Public coperto As Double Public TipMax As String
