*Sym98* |
|
| Ciao a tutti, rileggendo questo vecchio post e non avendo niente di meglio da fare, ho deciso di creare la funzione richiesta al suo interno e di postarla sotto forma di UDF. In breve, nel Contest sopra elencato bisognava implentare un funzione Random partendo da 0. Source: CODICE Func _Random($Min,$Max)
If $Max < $Min Then $Flag = 0
If $Max = $Min Then $Flag = 0
If $Flag <> 0 Then
$X = @MSEC + @MSEC * @MSEC * @SEC - @MIN
$Xarr = StringSplit($X, ".")
$X = $Xarr[1]
For $i = 1 to 10
If $X > $Max Then $X = StringTrimRight($X, 1)
Next
If $X < $Min Then
Return $Max
$Flag = 2
EndIf
EndIf
If $Flag = 0 Then
Return @error ;oppure "Errore!"
Else
If $Flag <> 2 Then
Return $X
EndIf
EndIf
EndFunc
Global $Flag = 1
MsgBox(0,"Funzione Random - Created By Sym98",_Random(1,100)) So che non ha alcuna utilitą visto che esiste gią la funzione Random() di Autoit, ma ho voluto postarla lo stesso. Fatemi sapere come vi sembra/come migliorarla.  |
| | |
)
