Hai del codice ASP che vorresti condividere, vorresti veder pubblicato qualche tuo articolo o tutorial sull'ASP?
Bene! byluciani.com sarà ben lieto di ospitare il tuo lavoro. Manda il tuo materiale a COLLABORA indicando le tue generalità (Nome, Cognome, E-Mail, sito Web, Città, data di nascita e se vuoi una foto).
Il tutto è "no profit", condividi le tue conoscenze per far crescere i giovani programmatori del Web.
Hai trovato utili i contenuti di byluciani.com? Senti il piacere di contraccambiare in qualche maniera?
Puoi farlo facendo una donazione attraverso la wishlist raggiungibile al seguente indirizzo:
ASP e i numeri casuali... Esercitiamoci con il seguente codice
<%@ Language=VBScript%> <%Option Explicit
`######################################### `#Funzione per generare numeri casuali `#compresi tra 1 e iValoreMax `#########################################
Function NumeroCasuale(iValoreMax)
Randomize `inizializzo il generatore di numeri casuali
NumeroCasuale = Int(iValoreMax * Rnd + 1) `la funzione RND restituisce un valore `minore di 1 e maggiore o uguale a 0; `quindi per ottenere interi casuali `compresi in un determinato intervallo è `necessario utilizzare la seguente formula: `Int((limitesup - limiteinf + 1) * Rnd + limiteinf) `nel nostro caso il limiteinf è sempre 1 `quindi si semplifica così: `Int(limitesup * Rnd + 1)
End Function
`######################################### `#Codice per riempire un array di 10 `#elementi (0-9) con numeri casuali `#compresi tra 1 e 100 `#########################################
Dim iContatore, iMax, iElementiArray `dichiaro due variabili di comodo
iElementiArray = 9 `dichiaro il numero di elementi `dell`array
iMax = 100 `imposto il range in cui estrarre `i numeri casuali (1-100)
`utilizziamo un ciclo FOR per `riempire il nostro array (LBound `indica l`indice inferiore dell`array, `UBound l`indice superiore) For iContatore = LBound(arrNumeri) To UBound(arrNumeri) arrNumeri(iContatore) = NumeroCasuale(iMax) Next
`visualizziamo il contenuto `dell`array For iContatore = LBound(arrNumeri) To UBound(arrNumeri) Response.Write "arrNumeri(" & iContatore & ") = " & _ arrNumeri(iContatore) & "<br>" Next %>
