vorrei creare uno script per superenalotto

[aquilaverdone]

salve a tutti come da titolo vorrei creare uno script per superenalotto , ma non so da dove incominciare , qualcuno potrebbe darmi una mano , anche per capire come impostare l'archivio e la ricerca degli estratti .

 

[Cinzia27]

Ciao, Aquilaverdone.
Potresti iniziare con questo script semplice.
Cerca le sestine più ritardatarie per terno.

Sub Main()

Dim n(6)' vettore che conterrà i 6 numeri
w = 3 ' sorte terno

For i = 71 To 85 ' inizia da 71 ma puoi iniziare da 1
n(1) = i
For j = i + 1 To 86
n(2) = j
For k = j + 1 To 87
n(3) = k
For h = k + 1 To 88
n(4) = h
For x = h + 1 To 89
If ScriptInterrotto Then Exit For
n(5) = x
For x1 = x + 1 To 90
n(6) = x1

at = SerieRitardoSE(1,EstrazioneFin,n,w)'ritardo
If at >1000 Then ' se il ritardo supera 1000

c = c + 1
Messaggio FormatSpace(c,4,1) & "  " & StringaNumeri(n) & "  at " & FormatSpace(at,4,1) 'Messaggio

Scrivi FormatSpace(c,4,1) & ") " & StringaNumeri(n) & "  at  " & FormatSpace(at,4,1)
End If

Next:Next:Next:Next:Next:Next

End Sub

 

[Cinzia27]

Ciao, Alien. Per ora solo con la frequenza. Il mese non lo posso mettere perché sto facendo girare un altro listato.

Sub Main()

Dim n(6)' vettore che conterrà i 6 numeri
w = 3 ' sorte terno

For i = 71 To 85 ' inizia da 71 ma puoi iniziare da 1
n(1) = i
For j = i + 1 To 86
n(2) = j
For k = j + 1 To 87
n(3) = k
For h = k + 1 To 88
n(4) = h
For x = h + 1 To 89
If ScriptInterrotto Then Exit For
n(5) = x
For x1 = x + 1 To 90
n(6) = x1

fr= SerieFreqSE(1,EstrazioneFin,n,w)' frequenza

If fr >100 Then ' se la frequenza supera 100

c = c + 1
Messaggio FormatSpace(c,4,1) & "  " & StringaNumeri(n) & "  fr " & FormatSpace(fr,4,1) 'Messaggio

Scrivi FormatSpace(c,4,1) & ") " & StringaNumeri(n) & " fr  " & FormatSpace(fr,4,1)
End If

Next:Next:Next:Next:Next:Next

End Sub

 

[Cinzia27]

Ciao, Alien, gli script vanno adattati poi alle proprie esigenze.

Se non ti dà da una a 69 è perché devi cambiare in questo modo

For i = 1 To 64
n(1) = i
For j = i + 1 To 65
n(2) = j
For k = j + 1 To 66
n(3) = k
For h = k + 1 To 67
n(4) = h
For x = h + 1 To 68
If ScriptInterrotto Then Exit For
n(5) = x
For x1 = x + 1 To 69
n(6) = x1

E forse ti dà la pagina bianca perché non ci sono sestine che hanno dato almeno 100 sortite
Allora prova a mettere 50 e se non basta di meno
If fr >50 Then ' se la frequenza supera 50