Enkelt.... Här kommer en slumptalskurs.Sv: Random värde
Vill du ha ett slumptal mellan 0 och 1 så....
dim a as single
a=rnd
Vill du ha ett slumptal mellan 0 och 99 så...
dim a as integer
a=int(100*rnd)
Vill du ha ett sluptal mellan 1 och 100 så...
dim a as integer
a=int(100*rnd)+1
Vill du ha ett slumptal mellan 10 och 49 så...
dim a as integer
a=int(40*rnd) +10
Du kan använda denna funktion om du vill ha det generellt.
Sample Code ====================================
Public Function slumpTal(undre As Integer, ovre As Integer) As Integer
slumpTal = Int((ovre + 1 - undre) * Rnd) + undre
End Function
=============================================
Du kanske vill sätta denna rad i din kod nånstans på lämpligt ställe
Randomize timer
Detta initierar slumptalsgeneratorn. Om du inte gör detta kommer du
få samma slumptal varje gång du startar ditt program.
/peterh