Un convertitore lire euro in Visual Basic
Nell'anno 2002 in Europa è subentrato l'euro alle lire italiane e moltissimi programmatori, nei linguaggi che conoscono, hanno scritto utility per convertite valori monetari da lire in euro e viceversa.
Adesso (alle soglie del 2007, con giusto un pochino di ritardo) eccoci qui per vedere come creare un convertitore lire euro in Visual Basic (meglio tardi che mai).
Si apra la propria copia di Visual Basic e si crei un nuovo EXE, dandogli l'aspetto (quantomeno funzionale) della seguente form:
- valore - casella di testo in cui inserire il valore da convertire;
- lire_euro - opzione perla conversione da lire ad euro;
- euro_lire - opzione perla conversione da euro a lire;
- converti - pulsante per la conferma dell'operazione.
Segue il codice completo dell'utility di conversione:
Private Sub converti_Click()
If IsNumeric(valore.Text) = False Then
MsgBox "Inserire un valore numerico", vbCritical, "Errore"
valore.Text = ""
valore.SetFocus
Else
Dim risultato
If lire_euro Then
risultato = valore.Text / 1936.27 & " euro"
Else
risultato = (valore.Text * 1936.27) / 100 & " lire"
End If
MsgBox risultato, vbOKOnly, "Risultato"
End If
End Sub
In primo luogo verifichiamo che il valore inserito nella casella di testo sia numerico; in caso contrario lanciamo un messaggio di errore, mentre nel caso in cui la condizione viene soddisfatta eseguiamo gli algoritmi di conversione.
Verifichiamo innanzitutto che sia stata fatta una richiesta di conversione da lire ad euro o viceversa.
Nel primo caso ci limitiamo a dividere il valore richiesto per il valore fisso 1936.27, mentre nel secondo effettuiamo la moltiplicazione del valore richiesto per il valore fisso, dividendo per 100 il risultato.
Si può adesso personalizzare l'utility utilizzando le funzioni Round e FormatNumber rispettivamente per arrotondare il risultato e per separare le cifre decimali.
