CheatingBastards | Hack e Cheats - Streaming
Ciao Ospite, se leggi questo messaggio significa che non sei registrato. Clicca qui per effettuare la registrazione in pochi semplici passaggi e potrai usufruire di tutte le funzioni del nostro Forum . Ti ricordiamo di passare in Area Benvenuti per presentarti al Forum

Come creare un convertitore lire euro

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

Come creare un convertitore lire euro

Messaggio Da SicK il Lun Mar 28, 2011 2:35 pm

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 2011, 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:



Gli unici elementi a cui ? necessario assegnare un nome sono i seguenti:
|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.


Con un doppio click sul pulsante di conferma si acceda al codice della Sub a cui VB assegner? la coppia di valori nome_evento quali converti_Click().

Segue il codice completo dell'utility di conversione:


Codice:
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.

Fonte: Web
                  

______________________
afro  Welcome To CheatingBastards!  afro

SicK
Admin
Admin

Messaggi : 317
Data d'iscrizione : 05.11.10
Età : 21

Vedere il profilo dell'utente http://cheatingbastards.forumattivo.it

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permesso di questo forum:
Non puoi rispondere agli argomenti in questo forum