fishScript.com d
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








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.



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

Stampa  Stampa


' 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] 

signal Marco Magnani marcomagnani@fishscript.com



Cerca





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.


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: Variabile bind


Shell scripting... Script: Debug shell program



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

Last modified: 2017-11-30 amministratore@fishscript.comNico and Marco Magnani Software Production
Home|About this Site © 2003-2008 www.fishScript.com ®