xabio
Super Member >GOLD<
Salve scriptomani potete dare un ceck a questo piccolo script .
Quando lo lancio mi da 10 volte (9-indice non compreso nell'intervallo)
io do ok sempre e poi in finestra output lo sviluppo sembra corretto.
Saluti Xabio
Quando lo lancio mi da 10 volte (9-indice non compreso nell'intervallo)
io do ok sempre e poi in finestra output lo sviluppo sembra corretto.
Codice:
Option Explicit
Sub Main
Dim fre,r1,est,da,x,c1
Dim posta(2)
Dim ruota(1)
Dim num(13)
For est = EstrazioneFin-30 To EstrazioneFin-10
da = est - 17
For r1 = 1 To 10
For x = 1 To 90
fre = EstrattoFrequenza(r1,x,da,est)
If fre = 2 Then
c1 = c1 + 1
If c1 > 13 Then Exit For
num(c1) = x
End If
Next
ruota(1) = r1
posta(2) = 1
If c1 = 13 Then
ImpostaGiocata 1,num,ruota,posta,7,2
Gioca est
End If
c1 = 0
Next
Next
End Sub
Saluti Xabio
Ultima modifica: