Salve a tutti
tempo fà ho scaricato da questo forum lo script che segue , non ricordo chi lo ha fatto, forse il grande BLACKMORE,
ma non né sono sicuro, è uno script che controlla le uscite delle quartine di somma 91, per le quali non riesco a trovare
da nessuna parte la tabella completa, nella sezione metodi ho fatto un tentativo per farmi aiutare a trovarle , mi ha
risposto 80sete publicandone una, ma non corrisponde a quelle quartine che lo script ha, mi aiutate a trovarle ? e magari
ad inserirle in questa sezione ? GRAZIE.
Giorgio
Sub Main()
Dim n(4),rt(1)
Ini = EstrazioneIni
fin = EstrazioneFin
ReDim atitoli(9)
atitoli(1) = " casi "
atitoli(2) = " Numeri "
atitoli(3) = " Ritardo "
atitoli(4) = " RitMax "
atitoli(5) = " incrMax "
atitoli(6) = " Frequenza "
atitoli(7) = " Esito "
atitoli(8) = " Estratti "
atitoli(9) = " data "
Call InitTabella(atitoli,1,,3,5)
rt(1) = 1
casi = 0
For x = 1 To 44
n(1) = x
n(2) =(91 - x)
For y = x + 1 To 45
n(3) = y
n(4) =(91 - y)
casi = casi + 1
Call StatisticaFormazioneTurbo(n,rt,2,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,2,fin - rit,,esito,colpi,estratti,id)
ReDim avalori(9)
avalori(1) = casi
avalori(2) = StringaNumeri
avalori(3) = rit
avalori(4) = ritmax
avalori(5) = Incr
avalori(6) = fre
avalori(7) = esito
avalori(8) = estratti
avalori(9) = DataEstrazione(id)
'Scrivi casi & " - " & StringaNumeri & " Ritardo ..." & rit
Call AddRigaTabella(avalori,,,3)
Next
Next
Call CreaTabella(3) ' 3 = ordine tabella x ritardo
End Sub
tempo fà ho scaricato da questo forum lo script che segue , non ricordo chi lo ha fatto, forse il grande BLACKMORE,
ma non né sono sicuro, è uno script che controlla le uscite delle quartine di somma 91, per le quali non riesco a trovare
da nessuna parte la tabella completa, nella sezione metodi ho fatto un tentativo per farmi aiutare a trovarle , mi ha
risposto 80sete publicandone una, ma non corrisponde a quelle quartine che lo script ha, mi aiutate a trovarle ? e magari
ad inserirle in questa sezione ? GRAZIE.
Giorgio
Sub Main()
Dim n(4),rt(1)
Ini = EstrazioneIni
fin = EstrazioneFin
ReDim atitoli(9)
atitoli(1) = " casi "
atitoli(2) = " Numeri "
atitoli(3) = " Ritardo "
atitoli(4) = " RitMax "
atitoli(5) = " incrMax "
atitoli(6) = " Frequenza "
atitoli(7) = " Esito "
atitoli(8) = " Estratti "
atitoli(9) = " data "
Call InitTabella(atitoli,1,,3,5)
rt(1) = 1
casi = 0
For x = 1 To 44
n(1) = x
n(2) =(91 - x)
For y = x + 1 To 45
n(3) = y
n(4) =(91 - y)
casi = casi + 1
Call StatisticaFormazioneTurbo(n,rt,2,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,2,fin - rit,,esito,colpi,estratti,id)
ReDim avalori(9)
avalori(1) = casi
avalori(2) = StringaNumeri
avalori(3) = rit
avalori(4) = ritmax
avalori(5) = Incr
avalori(6) = fre
avalori(7) = esito
avalori(8) = estratti
avalori(9) = DataEstrazione(id)
'Scrivi casi & " - " & StringaNumeri
& " Ritardo ..." & ritCall AddRigaTabella(avalori,,,3)
Next
Next
Call CreaTabella(3) ' 3 = ordine tabella x ritardo
End Sub
Fammi sapere.
