Home >Visual basic.net > Programma di cassa da console



' 2004-08-29 Roma
' Realizzazione di un semplice programma di cassa da console
' per illustrare l'applicazione di costrutti fondamentali di programmazione come
' variabili, funzioni condizionali if/then Select/case, cicli, funzioni, oggetti ArrayList
' Funzioni principali e secondarie, metodi

' Importazione namespace necessari
Imports System
Imports System.Collections


Module Module1

' Gestione elaborazione vendite
Class Vendita
' Dichiarazione di due oggetti pubblici ArrayList
Public nomeArticolo As New ArrayList() ' Nome articolo
Public importoArticolo As New ArrayList() ' Importo articolo
Public applSconto As String 'Applicazione sconto S/N
Public percSconto As Decimal = 0.1 ' Percentuale sconto valorizzata al 10%

' Funzione di verifica applicazione sconto e calcolo di questo
Function ElabSconto(ByVal t)
'Dim Sconto As Decimal = 0.1
' Se è stato indicato di appliacare lo sconto (tasto s/S)
' altrimenti non restituisce nessun valore
If applSconto.ToLower.Equals("s") Then
Return "TOTALE SCONTATO EURO " & t - (t * percSconto)
End If
End Function

Function Report()
' Lettura dati dell'oggetto Vendita
Dim s As String
Dim i As Integer = 0
Dim tot As Decimal = 0
' Costrutto For Each per svolgere l'array
Console.WriteLine()
Console.WriteLine("---------------------------------------------")
Console.WriteLine("REPORT VENDITA")
For Each s In nomeArticolo
Console.WriteLine("Articolo: " & s & ".........Euro " & importoArticolo(i))
tot = tot + importoArticolo(i)
i = i + 1
Next
Console.WriteLine("---------------------------------------------")
Console.WriteLine()
Console.WriteLine("TOTALE EURO " & tot)
Console.WriteLine(ElabSconto(tot))
End Function

End Class

'Classe per la gestione delle operazioni
Class GestioneOperazioni
Public numOperazione As Integer

Function getMenu()

Select Case (numOperazione)
' Operazione 1: esecuzione funzione inserimentoDatiVendita
Case (1)
inserimentoDatiVendita()
' Operazione 3: uscita dall'applicazione
Case (3)
Console.Write(".......... CHIUSURA APPLICAZIONE ")
Exit Function
Case Else
Console.Write("Prego: inserire un comando corretto ")
End Select
mainMenu()
End Function

End Class


' Routine menu dei comandi
Sub mainMenu()
' Creazione oggetto dalla classe GestioneOperazioni
Dim op As New GestioneOperazioni()

Console.WriteLine("______________________________________________")
Console.WriteLine("OPERAZIONI: CASSA (1) - ESCI (3) ")
Console.WriteLine()
Console.WriteLine("Scegli operazione(1,3)")
op.numOperazione = Console.ReadLine()
op.getMenu()

End Sub

Sub inserimentoDatiVendita()

Console.Write("ELABARAZIONE DATI VENDITA -------- ")
Console.Write(Date.Now())
Console.WriteLine()

' Oggetto nuovaVendita dalla classe Vendita
Dim nuovaVendita As New Vendita()

' VariabilI per ciclo di inserimento
Dim cont As Boolean = True
Dim contscelta As String

' Variabili temporanea contenitore input utente
Dim nome As String
Dim imp As Decimal
Do While cont
Console.WriteLine("Nome articolo: ")
nome = Console.ReadLine()
Console.WriteLine("Importo: ")

' Controllo dell'importo inputato in formato accettabile
Try
imp = (Console.ReadLine())
' Se non viene sollevata l'eccezione i dati inputati vengono aggiunti
' agli array nomeArticolo, importoArticolo
nuovaVendita.nomeArticolo.Add(nome)
nuovaVendita.importoArticolo.Add(imp)
Catch e As InvalidCastException
Console.WriteLine("Importo non corretto(inserimento articolo annullato!")
End Try

' gestione uscita dal loop finchè l'utente non digita n/N il programma non
' interrompe il loop
Console.WriteLine("Inserire altro articolo(S/N)?")
contscelta = Console.ReadLine()
If contscelta.ToLower = "n" Then cont = False

Loop

' Se l'utente non inserisce s/S non viene applicato lo sconto
Console.WriteLine("Applicare lo sconto del 10% (S/N)?")
nuovaVendita.applSconto = Console.ReadLine()

' Lancio del metodo Report della classe nuovaVendita
nuovaVendita.Report()
End Sub


Sub Main()
mainMenu() ' Lancio della funzione che costruisce il menu principale del programma
End Sub

End Module

---

---

Tutorial
Costanti  [C#] 
Enum  [C#] 
Array dichiarazione, inizializzazione, stampa [C#] 
Array caricamento e stampa attraverso un ciclo for [C#] 
Array bidimensionali rettangolari inizialiazzazione e stampa [C#] 
Oggetti (Object) valorizzati con ArrayList, Double, string, proprietà GetType [C#] 
ArrayList proprietà count, metodo Add, Remove [C#] 
Jagged array dichiarazione e inizializzazione [C#] 
Proprietà validare il dato attraverso le proprieta [C#] 
Overloading creare metodi con lo stesso nome e diverse implementazioni [C#] 
Programma di cassa da console Tutorial per illustrare l'applicazione di costrutti fondamentali di programmazione come variabili, funzioni condizionali if/then Select/case, cicli, funzioni, oggetti ArrayList Funzioni principali e secondari [Visual basic.net] 
Array stampa attraverso costrutto for/each [C#] 
Web controls and C# Sharp (Part II) Saving data in an Access database using a web form  [Asp.net] 
Datagrid Delevoping a simple and quick datagrid to publish query's results [Asp.net] 
Impostare variabili d’ambiente con .NET Framework 1.1  [C#] 
Script
Controlli e validazione  [Asp.net] 
If Then Costrutti fondamentali [Visual basic.net] 
Importazione dei namespace Regole sintattiche: importazione delle classi [Visual basic.net] 
Costrutto If Then Else Costrutti fondamentali [Visual basic.net] 
Gestione degli errori 1 Iniziare a gestire errori e eccezioni [Visual basic.net] 
Gestione degli errori 2 Dimostrazione  [Visual basic.net] 
Gestione istruzioni condizionali Costrutto Select/case (Esempio Applicazione da Console) [Visual basic.net] 
HelloWorld! Iniziare con Visual Basic .Net [Visual basic.net] 
Intercettare Input da Console Semplice esempio iterazione con l'utente [Visual basic.net] 
Semplice programma da "console" Iniziare con Visual Basic .Net [Visual basic.net] 
Leggere Input da Console Iniziare con Visual Basic .Net [Visual basic.net] 
Lettura di un file di testo Operazioni sul file system: stream di un file e lettura del suo contenuto [Visual basic.net] 
Lettura di un file Xml con l'oggetto XmlTextReader Parsing di file Xml attraverso i metodi dell'oggetto XmlTextReader [Visual basic.net] 
Oggetto Date Stampare la data odierna [Visual basic.net] 
Overloading accesso ad una funzione a secondo del tipo di valore Concetti di base [Visual basic.net] 
Esercizi
Disegna alcuni tra i più utilizzati controlli di una form Costruire e compilare un form con il Designer di Visual Basic [Visual basic.net] 
Cicli e operazioni su filesystem Attraverso un ciclo while creare quattro file .txt denominati 4 e i suoi quadrati (4.txt,16.txt,128.txt,2048.txt) [Visual basic.net] 
File System Data una cartella esegue un copia di tutti i file ivi contenuti [Visual basic.net] 
Comandi
Ricavare nome e percorso di un'applicazione  [C#] 

---

---