Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
x mike58
- Creatore Discussione giorgio1960
- Data di inizio
ppaaoolloo
Super Member >PLATINUM<
ciao
vorrei provare ancora uno script
il ritardo per terno su ruote "tutte" di una lunghetta di 15 numeri
ringrazio anticipatamente chiunque vorrà farlo
buona domenica
ciao
vorrei provare ancora uno script
il ritardo per terno su ruote "tutte" di una lunghetta di 15 numeri
ringrazio anticipatamente chiunque vorrà farlo
buona domenica
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo, di script cosi ne ho già postato a iosa.
tuttavia ti posto questo script che fa quello che vuoi vedere e tanto altro con lo sviluppo per combinazioni con capogiochi.
Mentre se la 15^ la deve cercare lo script questo diventa per i tempi di elaborazione quasi impossibile.
tuttavia ti posto questo script che fa quello che vuoi vedere e tanto altro con lo sviluppo per combinazioni con capogiochi.
Mentre se la 15^ la deve cercare lo script questo diventa per i tempi di elaborazione quasi impossibile.
Codice:
Sub Main
Dim n2,anum(2),comb(90),anum2(90),acol,Classe,i
Dim ruote(1),ruoteselezionate
qt = InputBox("QUANTE ESTRAZIONI ANALIZZO",,600)
sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,2))
aaa = InputBox(" 1° CapoGioco ",,90)
bbb = InputBox(" 2° Capogioco ",,89)
cl = CInt(InputBox("Quale Classe di sviluppo Combinazioni",,sorte))
ReDim atitoli(10)
atitoli(1) = " I.C. "
atitoli(2) = " CapoG "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qt
fin = EstrazioneFin
df = fin - Ini
ReDim aRuote(12)
ruoteselezionate = ScegliRuote(aRuote)
Call Scrivi("Ruote di " & " ",True,False,0,5,3)
For kk = 1 To ruoteselezionate
Call Scrivi(SiglaRuota(aRuote(kk)) & " ",True,False,4,2,3)' & " - " & SiglaRuota(aRuoteSel(k)))
Next
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
Scrivi
'Messaggio "elaboro... ruota di " & NomeRuota(aRuote)
Call AvanzamentoElab(1,10,100)
Call ScegliNumeri(n2)
For k = 1 To UBound(n2)
anum(1) = n2(k)
comb(k) = n2(k)
Call StatisticaFormazione(anum,aRuote,1,rit,ritmax,Incrmax,freq,Ini,fin)
Call VerificaEsito(anum,aRuote,fin - rit,1,,,retesito,,retestratti,retidestr)
Call StatisticaFormazione(comb,aRuote,sorte,rit2,max2,Incr2,freq2,Ini,fin)
Call VerificaEsito(comb,aRuote,fin - rit2,sorte,,,esito2,colpi2,estratti2,id2)
ReDim avalori(10)
avalori(1) = Round(freq/df*rit,2)
If anum(1) = CInt(aaa) Then avalori(2) = aaa
If anum(1) = CInt(bbb) Then avalori(2) = bbb
avalori(3) = StringaNumeri(anum)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
avalori(10) = DataEstrazione(retidestr)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,3,1)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
Next
Call SetTableWidth("100%")
Call CreaTabella(7,,,90)
Scrivi "Combinazione Globale analizzata per " & NomeSorte(sorte),1
ReDim aTT(8)
aTT(1) = " Combinazione "
aTT(2) = " Ritardo "
aTT(3) = " Storico "
aTT(4) = " incr "
aTT(5) = " Freq "
aTT(6) = " I.C."
aTT(7) = " Esito ultimo "
aTT(8) = " Data "
Call InitTabella(aTT,2,,3,5)
ReDim aVV(8)
aVV(1) = StringaNumeri(comb)
aVV(2) = rit2
aVV(3) = max2
aVV(4) = Incr2
aVV(5) = freq2
aVV(6) = Round(freq2/df*rit2,2)
aVV(7) = estratti2
aVV(8) = DataEstrazione(id2)
Call AddRigaTabella(aVV,,,3)
CreaTabella()
ReDim T3(9)
For kkk = 1 To ruoteselezionate
Call Scrivi(SiglaRuota(aRuote(kkk)) & " ",True,False,4,2,3)
ab = UBound(aRuote)
Next
Call Scrivi(" Combinazione " & StringaNumeri(comb),True,False,3,1,3)
Scrivi
Scrivi "Dettaglio esiti Combinazione",1
T3(1) = " Caso "
T3(2) = " Data "
'T3(3) = " Estrazione "
T3(4) = " Esito "
T3(5) = " Estratti "
T3(6) = " data estratti "
T3(7) = " guadagno "
T3(8) = " 1° CapoG. "
T3(9) = " 2° CapoG. "
Call InitTabella(T3,1,,2,5)
For es = fin To Ini Step - 1
Call VerificaEsitoConGuadagno(comb,aRuote,es,sorte,1,,esito3,colpi3,estratti3,id3,,guad)
If esito3 <> "" Then
co = co + 1
ReDim V3(9)
V3(1) = co
V3(2) = DataEstrazione(id3)
'V3(3) = StringaEstratti(es,aRuote)
V3(4) = esito3
V3(5) = estratti3
V3(6) = DataEstrazione(id3)
V3(7) = Round(guad,2)
For kr = 1 To ruoteselezionate
If EstrattoFrequenza(aRuote(kr),aaa,id3,id3) > 0 Then V3(8) = aaa
If EstrattoFrequenza(aRuote(kr),aaa,id3,id3) > 0 Then k1 = k1 + 1
If EstrattoFrequenza(aRuote(kr),bbb,id3,id3) > 0 Then V3(9) = bbb
If EstrattoFrequenza(aRuote(kr),bbb,id3,id3) > 0 Then k2 = k2 + 1
Next
Call AddRigaTabella(V3,,,2)
gg = guad* co
End If
Next
Call CreaTabella()
Scrivi "Esiti con CapoGioco 1 : " & k1,1
Scrivi "Esiti con CapoGioco 2 : " & k2,1
'For es = Ini To fin
Scrivi
Scrivi String(100,"=")
Scrivi "Sviluppo Combinazioni con CapoGioco " & aaa,1
For x = 1 To UBound(n2)
n2(0) = aaa
n2(x) = n2(x)
Next
Classe = CInt(cl)
ReDim atitoli(10)
atitoli(1) = " Contatore "
atitoli(2) = " Sviluppo comb. "
atitoli(3) = " Ritardo "
atitoli(4) = " Ritardo Max "
atitoli(5) = " Frequenza "
atitoli(6) = " Incrmax "
atitoli(7) = " acol(1) "
atitoli(8) = " data "
atitoli(9) = " esito ultimo "
'atitoli(10) = " Iso sto "
Call InitTabella(atitoli,1,,3,5)
If InitSviluppoIntegrale(n2,Classe) > 0 Then
Do While GetCombSviluppo(acol) = True
i = i + 1
Call StatisticaFormazioneTurbo(acol,aRuote,sorte,sr,st,Incr,sf,Ini,Fin)
Call VerificaEsito(acol,aRuote,fin - sr,sorte,,,,,estratti,id)
'Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
'isofre = SerieFreq(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
'isosto = SerieStorico(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
ReDim avalori(10)
avalori(1) = i
avalori(2) = StringaNumeri(acol,,1)
avalori(3) = sr
avalori(4) = st
avalori(5) = sf
avalori(6) = Incr
avalori(7) = acol(1)
avalori(8) = DataEstrazione(fin - sr)
avalori(9) = estratti
'avalori(10) = Isosto
If avalori(7) = CInt(aaa) Then
Call AddRigaTabella(avalori,4,,3)
'If avalori(7) = CInt(bbb) Then
'Call AddRigaTabella(avalori,3,,3)
'Else
'Call AddRigaTabella(avalori,,,3)
End If
'End If
Loop
End If
'Next
Scrivi
CreaTabella()
Scrivi
Scrivi String(100,"=")
Scrivi "Sviluppo combinazioni con CapoGioco " & bbb,1
For xx = 1 To UBound(n2)
n2(0) = bbb
n2(xx) = n2(xx)
Next
Classe = CInt(cl)
ReDim atitoli(10)
atitoli(1) = " Contatore "
atitoli(2) = " Sviluppo comb. "
atitoli(3) = " Ritardo "
atitoli(4) = " Ritardo Max "
atitoli(5) = " Frequenza "
atitoli(6) = " Incrmax "
atitoli(7) = " acol(1) "
atitoli(8) = " data "
atitoli(9) = " esito ultimo "
'atitoli(10) = " Iso sto "
Call InitTabella(atitoli,1,,3,5)
If InitSviluppoIntegrale(n2,Classe) > 0 Then
Do While GetCombSviluppo(acol) = True
ii = ii + 1
Call StatisticaFormazioneTurbo(acol,aRuote,sorte,sr,st,Incr,sf,Ini,Fin)
Call VerificaEsito(acol,aRuote,fin - sr,sorte,,,,,estratti,id)
ReDim avalori(10)
avalori(1) = ii
avalori(2) = StringaNumeri(acol,,1)
avalori(3) = sr
avalori(4) = st
avalori(5) = sf
avalori(6) = Incr
avalori(7) = acol(1)
avalori(8) = DataEstrazione(fin - sr)
avalori(9) = estratti
'avalori(10) = Isosto
If avalori(7) = CInt(bbb) Then
Call AddRigaTabella(avalori,4,,3)
'If avalori(7) = CInt(bbb) Then
'Call AddRigaTabella(avalori,3,,3)
'Else
'Call AddRigaTabella(avalori,,,3)
End If
'End If
Loop
End If
'Next
Scrivi
CreaTabella()
Scrivi" Tabella by Mike58 ***** & **** Forum LottoCed ****** ",1,1,3,1,3
End SubMike58
Advanced Member >PLATINUM PLUS<
Mentre questo da uno script di Joe91 analizza le 15^ consecutive
prova anche questo
prova anche questo
Codice:
Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
Sf = SerieFreq(fin-1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1)& " Fre = " & FormatSpace(Sf,3,1),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1)& " Fre = " & FormatSpace(Sf,3,1),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
End If
Next
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi
Next
End Subppaaoolloo
Super Member >PLATINUM<
ciao
questo mi sembra vada abbastanza bene,
ma si potrebbe averlo aggiungendo il massimo storico
grazie
ciao
questo mi sembra vada abbastanza bene,
ma si potrebbe averlo aggiungendo il massimo storico
grazie
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Si vedi cosi.
Codice:
Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
End If
'Next
Next
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi
Next
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
ti chiedo ancora una variante a questo scritpt
adesso alla fine di ogni ruota c'è il risultato minimo
è possibile invece avere il massimo?
ti ringrazio anticipatamente
ciao
ti chiedo ancora una variante a questo scritpt
adesso alla fine di ogni ruota c'è il risultato minimo
è possibile invece avere il massimo?
ti ringrazio anticipatamente
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo è possibile.
Codice:
Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4),0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
End If
'Next
Next
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(R) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
End Subppaaoolloo
Super Member >PLATINUM<
ottimo Mike
ancora una ultimissima aggiunta
invece della frequenza mi sarebbe utile sapere quanti
numeri della lunghetta erano usciti nell'estrazione precedente
ancora una ultimissima aggiunta
invece della frequenza mi sarebbe utile sapere quanti
numeri della lunghetta erano usciti nell'estrazione precedente
Mike58
Advanced Member >PLATINUM PLUS<
Sono di fretta e non so se è quello che vuoi vedere
prova cosi o magari vuoi vedere anche gli estratti usciti penultima estrazione ?
se cosi verso sera vedo cosa posso fare.
prova cosi o magari vuoi vedere anche gli estratti usciti penultima estrazione ?
se cosi verso sera vedo cosa posso fare.
Codice:
Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin-1,fin,nu,Ru,sorte)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4) & vbTab & " Fre_es-1 : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi vbTab & "Sto = " & FormatSpace(st,3) & vbTab & " - Freq = " & FormatSpace(sf,4) & vbTab & " Fre_es-1 : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id)
End If
'Next
Next
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(R) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
End Subppaaoolloo
Super Member >PLATINUM<
non riesco a capire quale funzione abbia,
oppure i numeri risultati non sono esatti
infatti ad esempio con l'ultima estarzione
a napoli la seconda quindicina quella che va da 11 a 25
da come Fre_es-1 : 7
mi sembra che i numeri non sono esatti
ad esempio:
a napoli l'ultima estrazione è uscito
48 - 20 - 71 - 25 - 76
quindi il risultato dovrebbe essere
1 quindicina risultato 01.02.03.04.05.06.07.08.09.10.11.12.13.14.15 = 0
2 quindicina risultato 11.12.13.14.15.16.17.18.19.20.21.22.23.24.25 = 2 (20-25)
3 quindicina risultato 21.22.23.24.25.26.27.28.29.30.31.32.33.34.35 = 1 (25)
4 quindicina risultato 31.32.33.34.35.36.37.38.39.40.41.42.43.44.45 = 0
5 quindicina risultato 41.42.43.44.45.46.47.48.49.50.51.52.53.54.55 = 1 (48)
6 quindicina risultato 51.52.53.54.55.56.57.58.59.60.61.62.63.64.65 = 0
7 quindicina risultato 61.62.63.64.65.66.67.68.69.70.71.72.73.74.75 = 1 (71)
8 quindicina risultato 71.72.73.74.75.76.77.78.79.80.81.82.83.84.85 = 2 (71-76)
9 quindicina risultato 81.82.83.84.85.86.87.88.89.90.01.02.03.04.05 = 0
ecco questo è quello che vorrei
grazie ancora per tutto quello che fai
ciao
oppure i numeri risultati non sono esatti
infatti ad esempio con l'ultima estarzione
a napoli la seconda quindicina quella che va da 11 a 25
da come Fre_es-1 : 7
mi sembra che i numeri non sono esatti
ad esempio:
a napoli l'ultima estrazione è uscito
48 - 20 - 71 - 25 - 76
quindi il risultato dovrebbe essere
1 quindicina risultato 01.02.03.04.05.06.07.08.09.10.11.12.13.14.15 = 0
2 quindicina risultato 11.12.13.14.15.16.17.18.19.20.21.22.23.24.25 = 2 (20-25)
3 quindicina risultato 21.22.23.24.25.26.27.28.29.30.31.32.33.34.35 = 1 (25)
4 quindicina risultato 31.32.33.34.35.36.37.38.39.40.41.42.43.44.45 = 0
5 quindicina risultato 41.42.43.44.45.46.47.48.49.50.51.52.53.54.55 = 1 (48)
6 quindicina risultato 51.52.53.54.55.56.57.58.59.60.61.62.63.64.65 = 0
7 quindicina risultato 61.62.63.64.65.66.67.68.69.70.71.72.73.74.75 = 1 (71)
8 quindicina risultato 71.72.73.74.75.76.77.78.79.80.81.82.83.84.85 = 2 (71-76)
9 quindicina risultato 81.82.83.84.85.86.87.88.89.90.01.02.03.04.05 = 0
ecco questo è quello che vorrei
grazie ancora per tutto quello che fai
ciao
Mike58
Advanced Member >PLATINUM PLUS<
paolo prova cosi.
il codice contava da penultima ad ultima, adesso conta solo l'ultima con gli estratti.
il codice contava da penultima ad ultima, adesso conta solo l'ultima con gli estratti.
Codice:
Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
End If
'Next
Next
ColoreTesto 0
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(R) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
End Subppaaoolloo
Super Member >PLATINUM<
ora va benissimo
grazie
ciao
grazie
ciao
ppaaoolloo
Super Member >PLATINUM<
ciao
vorrei poter modificare questo script,
attualmente quando lo si fa si ottiene
il risultato delle quindicine divise ruota per ruota,
quello che invece praticamente vorrei è
la possibilità di potrelo fare su un numero di ruote scelte da me
ed anche quali ruote poter scegliere io
provo a fare un esempio:
vorrei utilizzare le quindicine per 3 ruote
quelle di BA MI TO
ma con un risultato unico
cioè non con i 3 risultati ruota per ruota
ma come se le 3 ruote siano 1 sola ruota
altre volte invece potrei voler fare una ricerca per le quindicine
di 4 ruote CA FI TO VE
anche qui con un risultato come se fosse 1 ruota unica
spero di essere stato chiaro, altrimenti proverò con qualche altro esempio
ringrazio anticipatamente per la disponibilità e la pazienza
ciao
vorrei poter modificare questo script,
attualmente quando lo si fa si ottiene
il risultato delle quindicine divise ruota per ruota,
quello che invece praticamente vorrei è
la possibilità di potrelo fare su un numero di ruote scelte da me
ed anche quali ruote poter scegliere io
provo a fare un esempio:
vorrei utilizzare le quindicine per 3 ruote
quelle di BA MI TO
ma con un risultato unico
cioè non con i 3 risultati ruota per ruota
ma come se le 3 ruote siano 1 sola ruota
altre volte invece potrei voler fare una ricerca per le quindicine
di 4 ruote CA FI TO VE
anche qui con un risultato come se fosse 1 ruota unica
spero di essere stato chiaro, altrimenti proverò con qualche altro esempio
ringrazio anticipatamente per la disponibilità e la pazienza
ciao
Ultima modifica:
Mike58
Advanced Member >PLATINUM PLUS<
Credo che stato chiaro.
Prova anche cosi con la scelta ruota lasciando anche i dati per singola ruota e con riepilogo finale a ruote unite.
Prova anche cosi con la scelta ruota lasciando anche i dati per singola ruota e con riepilogo finale a ruote unite.
Codice:
Sub Main()
Dim Ru(1),nu(20)
ReDim aRuote(11)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For R = 1 To 12 : Ru(1) = r
min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
End If
'End If
Next
End If
ColoreTesto 0
Scrivi SiglaRuota(k) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(k) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
Scrivi "Ruote Unite.......................Per sorte di : " & NomeSorte(sorte),1
ReDim T(9)
T(1) = " Ruote "
T(2) = " Combinazione "
T(3) = " Rc "
T(4) = " RS "
T(5) = " Freq "
T(6) = " Fre_es "
T(7) = " Esito a Rc "
T(8) = " Data a Rc "
T(9) = " Esito Fin "
Call InitTabella(T,2,,3,5)
For d = 0 To 8
For u = 1 To 15
nu(u) = Fuori90(10*d + u)
Next
Sr = SerieRitardo(fin - 1000,fin,nu,aRuote,sorte)
srup = SerieFreq(fin,fin,nu,aRuote,1)
sf = SerieFreq(fin - 1000,fin,nu,aRuote,sorte)
st = SerieStorico(fin - 1000,fin,nu,aRuote,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,aRuote,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,aRuote,fin,1,1,,esitoU,,estrattiU,idU)
'If id = fin Then
ReDim V(9)
V(1) = StringaRuote(aRuote)
V(2) = StringaNumeri(nu,,1)
V(3) = sr
V(4) = st
V(5) = sf
V(6) = srup
V(7) = estratti
V(8) = GetInfoEstrazione(id)
V(9) = estrattiU
Call AddRigaTabella(V,,,3)
Next
Call SetTableWidth("100%")
CreaTabella
End If
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
va molto bene così
ti chiedo ancora solo una piccola aggiunta
dopo fre_es (ultima estrazione)
se si può aggiungere fre_es (penultima estrazione)
grazie ancora per tutto quello che fai
ciao
va molto bene così
ti chiedo ancora solo una piccola aggiunta
dopo fre_es (ultima estrazione)
se si può aggiungere fre_es (penultima estrazione)
grazie ancora per tutto quello che fai
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Si si può fare di tutto ma poi le tabelle possono risultare non leggibili.
Comunque eccolo e prova così.
Comunque eccolo e prova così.
Codice:
Sub Main()
Dim Ru(1),nu(20)
ReDim aRuote(11)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For R = 1 To 12 : Ru(1) = r
min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
End If
'End If
Next
End If
ColoreTesto 0
Scrivi SiglaRuota(k) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(k) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
Scrivi "Ruote Unite.......................Per sorte di : " & NomeSorte(sorte),1
ReDim T(10)
T(1) = " Ruote "
T(2) = " Combinazione "
T(3) = " Rc "
T(4) = " RS "
T(5) = " Freq "
T(6) = " Fre_es & Fre_es-1 "
T(7) = " Esito a Rc "
T(8) = " Data a Rc "
T(9) = " Esito Fin "
T(10) = " Esito fin-1 "
Call InitTabella(T,2,,2,5)
For d = 0 To 8
For u = 1 To 15
nu(u) = Fuori90(10*d + u)
Next
Sr = SerieRitardo(fin - 1000,fin,nu,aRuote,sorte)
srup = SerieFreq(fin,fin,nu,aRuote,1)
srp = SerieFreq(fin-1,fin-1,nu,aRuote,1)
sf = SerieFreq(fin - 1000,fin,nu,aRuote,sorte)
st = SerieStorico(fin - 1000,fin,nu,aRuote,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,aRuote,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,aRuote,fin,1,1,,esitoU,,estrattiU,idU)
Call VerificaEsito(nu,aRuote,fin-1,1,1,,esitoP,,estrattiP,idP)
'If id = fin Then
ReDim V(10)
V(1) = StringaRuote(aRuote)
V(2) = StringaNumeri(nu,,1)
V(3) = sr
V(4) = st
V(5) = sf
V(6) = srup & " - " & srp
V(7) = estratti
V(8) = GetInfoEstrazione(id)
V(9) = estrattiU
V(10) = estrattiP
Call AddRigaTabella(V,,,2)
Next
Call SetTableWidth("100%")
CreaTabella
End If
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
lo script per le quindicine va benissimo
l'ultimo che hai fatto,
non voglio affaticarti troppo e abusare della tua disponibilità e
della tua gentilezza ma ti chiedo se
sarebbe possibile avere la possibilità di scegliere le ruote
come in questo script per quindicine
anche per questo tuo script che metto di seguito
che riguardava la ricerca delle 2 decine
ti ringrazio davvero di cuore
fammi sapere
ciao
lo script per le quindicine va benissimo
l'ultimo che hai fatto,non voglio affaticarti troppo e abusare della tua disponibilità e
della tua gentilezza ma ti chiedo se
sarebbe possibile avere la possibilità di scegliere le ruote
come in questo script per quindicine
anche per questo tuo script che metto di seguito
che riguardava la ricerca delle 2 decine
ti ringrazio davvero di cuore
fammi sapere
ciao
Ultima modifica:
Mike58
Advanced Member >PLATINUM PLUS<
Paolo, non preoccuparti, si fa quel che si può, ma ti confesso che alcune volte è + difficile correggere un listato che farlo ex-novo.
Ho riunito le ruote e spero che i dati siano leggibili e che tutto sia corretto, controlla !!!
Ciao
Ho riunito le ruote e spero che i dati siano leggibili e che tutto sia corretto, controlla !!!
Ciao
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
ReDim aRuote(11)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(10)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
atitoli(10) = " Conta Estratti "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
'End If
ReDim avalori(10)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = esitof & " : " & estrF
avalori(10) = aaa
Call AddRigaTabella(avalori,,,2)
For x = 1 To 10
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
Call CreaTabella(3)
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End SubUltima estrazione Lotto
-
Estrazione del lotto
giovedì 23 gennaio 2025Bari8650833878Cagliari1136523174Firenze5659862784Genova0361531138Milano1314798747Napoli2190485537Palermo5646590253Roma7413073877Torino2754623681Venezia0914692862Nazionale3273271151Estrazione Simbolotto
Bari
3627190824
