Ciao genios, ti invio uno script di Mike...vedi se fa al caso tuo..devi soltanto cambiare i numeri ciao...
Sub Main
Dim a(10)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITEa
Dim Ru(1)
Dim k
Dim nu
ReDim aruote(12)
Scrivi "( antonio ) Ruota di... ",1,0,4
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,3
End If
Next
End If
'rt = CInt(InputBox("Quale ruota analizzare ",Ruota,4))
'Ru(1) = rt
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneIni
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
ReDim atitoli(33)
atitoli(1) = "TOT."
'atitoli(2) = " esito "
atitoli(3) = "Combinazioni"
'atitoli(4) = " esito "
'atitoli(5) = " estratti "
atitoli(6) = "RCA1"
atitoli(7) = "RCA2"
atitoli(8) = "RCA3"
atitoli(9) = "RCA4"
atitoli(10) = "RCA5"
atitoli(13) = "RS1"
atitoli(14) = "RS2"
atitoli(15) = "RS3"
atitoli(16) = "RS4"
atitoli(17) = "RS5"
atitoli(20) = "FRE1"
atitoli(21) = "FRE2"
atitoli(22) = "FRE3"
atitoli(23) = "FRE4"
atitoli(24) = "FRE5"
atitoli(27) = "RD1"
atitoli(28) = "RD2"
atitoli(29) = "RD3"
atitoli(30) = "RD4"
atitoli(31) = "RD5"
Call InitTabella(atitoli,1,,2,5)
'-------------inserimento combinazioni --------------------------
a(01) = "01-02"
a(02) = "01-03"
a(03) = "01-04"
a(04) = "01-05"
a(05) = "02-03"
a(06) = "02-04"
a(07) = "02-05"
a(08) = "03-04"
a(09) = "03-05"
a(10) = "04-05"
'----------------- fine combinazioni ------------------------------
For N = 1 To UBound(a)
nu = Split("0-" &(a
),"-")
sr1 = SerieRitardo(Ini,fin,nu,aruote,1)', 1 scrive il ritardo dell'estratto
sr2 = SerieRitardo(Ini,fin,nu,aruote,2)
sr3 = SerieRitardo(Ini,fin,nu,aruote,3)
sr4 = SerieRitardo(Ini,fin,nu,aruote,4)
sr5 = SerieRitardo(Ini,fin,nu,aruote,5)
st1 = SerieStorico(Ini,fin,nu,aruote,1)
st2 = SerieStorico(Ini,fin,nu,aruote,2)
st3 = SerieStorico(Ini,fin,nu,aruote,3)
st4 = SerieStorico(Ini,fin,nu,aruote,4)
st5 = SerieStorico(Ini,fin,nu,aruote,5)
sf1 = SerieFreq(Ini,Fin,nu,aruote,1)
sf2 = SerieFreq(Ini,Fin,nu,aruote,2)
sf3 = SerieFreq(Ini,Fin,nu,aruote,3)
sf4 = SerieFreq(Ini,Fin,nu,aruote,4)
sf5 = SerieFreq(Ini,fin,nu,aruote,5)
Call VerificaEsito(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(33)
avalori(1) = n
'avalori(2) = " esito "
avalori(3) = StringaNumeri(nu)
avalori(6) = sr1
avalori(7) = sr2
avalori(8) = sr3
avalori(9) = sr4
avalori(10) = sr5
avalori(13) = st1
avalori(14) = st2
avalori(15) = st3
avalori(16) = st4
avalori(17) = st5
avalori(20) = sf1
avalori(21) = sf2
avalori(22) = sf3
avalori(23) = sf4
avalori(24) = sf5
avalori(28) = RitDiPos(nu,2,aruote)
avalori(29) = RitDiPos(nu,3,aruote)
avalori(30) = RitDiPos(nu,4,aruote)
avalori(31) = RitDiPos(nu,5,aruote)
Call AddRigaTabella(avalori)
ImpostaGiocata n,nu,aruote,posta,18
'---------colora colonne---------------------
' 1 esempio ------
Call SetColoreCella(1,,vbBlue)
Call SetColoreCella(3,,vbRed)' colora la colonna 2 sfondo ciano scritta gialla
Call SetColoreCella(2,3,4)
Call SetColoreCella(4,3,4)
Call SetColoreCella(5,3,4)
Call SetColoreCella(11,3,4)
Call SetColoreCella(12,3,4)
Call SetColoreCella(18,3,4)
Call SetColoreCella(19,3,4)
Call SetColoreCella(25,3,4)
Call SetColoreCella(26,3,4)
Call SetColoreCella(32,3,4)
Call SetColoreCella(33,3,4)
Call SetColoreCella(27,RGB(254,249,180),vbBlue)
Call SetColoreCella(28,RGB(254,249,180),vbBlue)
Call SetColoreCella(29,RGB(254,249,180),vbBlue)
Call SetColoreCella(30,RGB(254,249,180),vbBlue)
Call SetColoreCella(31,RGB(254,249,180),vbBlue)
'2 esempio ----------------------------------
' colora la colonna 1 sfondo default bianco scritta verde
Call SetColoreCella(6,4,0)
Call SetColoreCella(7,0,4)
Call SetColoreCella(8,4,0)
Call SetColoreCella(9,0,4)
Call SetColoreCella(10,4,0)
Next
Scrivi
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Scrivi
Call CreaTabella()
Scrivi"------------------------------------------------ Dettaglio ultime 18 giocate ---------------------------------------------"
Gioca(fin - 18),,,1
ScriviResoconto(True)
'PicClear
Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
Function RitDiPos(nu,pos,aruote)
ReDim apos(5)
apos(pos) = True
RitDiPos = RitardoCombinazione(aruote,nu,1,0,apos)
End Function
