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

---

---

Warning: include(ads/text468x15.html): failed to open stream: No such file or directory in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

Warning: include(): Failed opening 'ads/text468x15.html' for inclusion (include_path='.;C:\php\pear') in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

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#] 
Postgres database uptime Last time database has been started (or restarted)  [.Net] 

---

---