Ciao, dato che stiamo per entrare
nell'Unione monetaria europea, oggi impareremo a costruire un semplice
convertitore di Lire in Euro!! Utile vero?? :-)




Iniziamo subito:

Inanzitutto ci servire un form per inviare il valore da
convertire...

Penso che sapete già come è fatto un form...comunque eccolo qui :

Inserire la valuta in lire:

Una volta strutturato il form passiamo al codice in asp...



Dichiariamo le variacili con dim:

dim valuta, prezzo_per_valuta,
totale


Ora prendiamo il valore che abbiamo inserito nel form con questo
comando:

qta =
Request.Form("valuta")


Ed ora ecco il cuore del calcolatore:

If isNumeric(valuta) then


valuta = cdbl(valuta)

prezzo_per_valuta = 1936.27


totale = valuta / prezzo_per_valuta


totale = FormatNumber (totale, 2)

Praticamente abbiamo dichiarato che se "valuta" è un numero deve
essere formattato in un double (cdbl) cioè un numero reale
con virgola a doppia precisione, poi abbiamo dichiarato che
"prezzo_per_valuta = 1936.27", cioè al valore di cambio tra Lire ed Euro,
quindi arriviamo al calcolo, cioè "totale = valuta /
prezzo_per_valuta" ed infine formattiamo il totale con "totale = FormatNumber (totale,
2)".




Ora visualizziamo il risultato con il comando:

Response.write "

 Totale
Euro " & totale



In fine chiudiamo il tutto con:

end if


Voilà, il gioco è fatto, quindi ricapitolo il tutto:

Inserire la valuta in lire:

dim qta, prezzo_per_qta, totale


qta = Request.Form("qta")


If isNumeric(qta) then


qta = cdbl(qta)

prezzo_per_qta = 1936.27


totale = qta / prezzo_per_qta


totale = FormatNumber (totale, 2)


Response.write "

 Totale Euro "
& totale


End if


Leggi commenti

Numero commenti inviati: 0