Home| Progetto| Web| Faq| Acronimi | ||||
Argomenti Documenti pubblicabili:1120
Scripts:1282 Documenti non pubblicabili:162 Categorie tematiche:68 .Net |_C# |_Visual basic.net |_Asp.net Active Server Pages C++ Cascade Style Sheet JavaScript Mysql Php Xml Java |_Java 2 Micro Edition |_Java server pages |_Java Servlet Oracle |_PLSQL PostgreSQL Unix
Oracle...
Script:
Conditional update
Unix...
Tip:
Eseguire più comandi in una sola linea
PLSQL...
Script:
for i in 1.. strutture di controllo
Shell scripting...
Script:
Pulire i file provenienti da ambieti dos/ windoes da caratteri sporchi
Un servizio Web XML è un'unità logica di applicazioni che fornisce dati e servizi ad altre applicazioni.
Le applicazioni accedono ai servizi Web XML tramite protocolli Web universali e formati di dati quali HTTP, XML e SOAP.
Php Funzione mail()
La J2EE (Java 2 Enterprise Edition) è dedicata a tutti coloro che desiderano aggiungere il supporto della versione Enterprise di Java (ad esempio a Tomcat) e quindi le funzionalità avanzate come Enterprise JavaBeans etc.
Un servizio Web XML è un'unità logica di applicazioni che fornisce dati e servizi ad altre applicazioni.
Le applicazioni accedono ai servizi Web XML tramite protocolli Web universali e formati di dati quali HTTP, XML e SOAP.
|
Visual basic.net
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 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Script ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Esercizi ![]() ![]() ![]() Comandi ![]() ![]() ![]() |
CercaWell-formedness is a new concept introduced by [XML]. Essentially this means that all elements must either have closing tags or be written in a special form (as described below), and that all the elements must nest properly.
Well-formedness is a new concept introduced by [XML]. Essentially this means that all elements must either have closing tags or be written in a special form (as described below), and that all the elements must nest properly.
Oracle...
Definizioni:
Scalar Subquery
Shell scripting...
Script:
Array in do while construct
fishScript.Com is accessible by Mobile access technology
as mobile phones, Palm and Pocket PC .
Nicoleta e Marco Magnani tutorial, examples, courses, esempi, corsi, esercizi, appunti vari Dottoressa Nicoleta Dragu Formatrice Docente Insegnante Mediatrice Culturale Dott. Marco Magnani Universita La Sapienza Roma Master Computer Science Hunter College New York , Data Base Administrator DBA oracle System architect |