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.
Sub Main
Dim ru(1),nu(2)
n = CInt(InputBox("QUALE CAPOGIOCO",,90))
ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1))
Ini = 8946
Inix = 1'8000
finx = EstrazioneFin
fin = EstrazioneFin - ritroso
r = 11
Scrivi "script By Mike58",1
Scrivi
Scrivi "Ambi non sfaldati da : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
Scrivi "Ruota di : " & NomeRuota(r),1,,,1
Scrivi
'Scrivi "Ambo Freq Rit",1
ReDim Tt(8)
Tt(1) = " Ambo "
Tt(2) = " Freq "
Tt(3) = " Rit "
Tt(4) = " Sto "
Tt(5) = " Estratti "
Tt(6) = " Data Esito "
Tt(7) = " Esito Fin "
Tt(8) = " Colpo "
Call InitTabella(Tt,2,,3,5,"arial black")
For x = 1 To 90
nu(1) = x
nu(2) = n
ru(1) = r
sf = SerieFreq(Ini,fin,nu,ru,2)
'sr = SerieRitardo(Inix,fin,nu,ru,2)
sr = AmboRitardoTurbo(r,x,n,Inix,fin)
st = AmboStoricoTurbo(r,x,n,Inix,fin)
If sf = 0 Then
If nu(1) <> nu(2) Then
k = k + 1
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Next
Call VerificaEsitoTurbo(nu,rt,fin - sr,2,,,,,estratti,id)
Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),,esitoF,clpF,estrattiF,idF)
ReDim Vv(8)
Vv(1) = StringaNumeri(nu,,1)
Vv(2) = sf
Vv(3) = sr
Vv(4) = st
Vv(5) = estratti
Vv(6) = DataEstrazione(id)
Vv(7) = estrattiF
Vv(8) = clpF
If esitoF = "Ambo" Then kk = kk + 1
Call AddRigaTabella(Vv,,,3,,"arial")
'Scrivi StringaNumeri(nu,,1),1,0,,1
'Scrivi " " & vbTab & sf & " " & vbTab & sr & vbTab & estratti & vbTab & DataEstrazione(id)
End If
End If
Next
CreaTabellaOrdinabile(3)
Scrivi
Scrivi "Trovati..." & k,1
Scrivi "Esiti Ultimi... " & kk,1
End Sub
Un grazie di cuore a tutti, sono veramente commosso per il pensiero e partecipazione.
E' anche giusto poi andare avanti.... e per quel che si può, occuparci della nostra passione comune, il LOTTO.
Ciao a tutti e a presto.
un piccolo omaggio scriptico. gli ambi a tutte con capogioco a scelta non sfaldati nell'anno 2015.
Codice:Sub Main Dim ru(1),nu(2) n = CInt(InputBox("QUALE CAPOGIOCO",,90)) ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1)) Ini = 8946 Inix = 1'8000 finx = EstrazioneFin fin = EstrazioneFin - ritroso r = 11 Scrivi "script By Mike58",1 Scrivi Scrivi "Ambi non sfaldati da : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1 Scrivi "Ruota di : " & NomeRuota(r),1,,,1 Scrivi 'Scrivi "Ambo Freq Rit",1 ReDim Tt(8) Tt(1) = " Ambo " Tt(2) = " Freq " Tt(3) = " Rit " Tt(4) = " Sto " Tt(5) = " Estratti " Tt(6) = " Data Esito " Tt(7) = " Esito Fin " Tt(8) = " Colpo " Call InitTabella(Tt,2,,3,5,"arial black") For x = 1 To 90 nu(1) = x nu(2) = n ru(1) = r sf = SerieFreq(Ini,fin,nu,ru,2) 'sr = SerieRitardo(Inix,fin,nu,ru,2) sr = AmboRitardoTurbo(r,x,n,Inix,fin) st = AmboStoricoTurbo(r,x,n,Inix,fin) If sf = 0 Then If nu(1) <> nu(2) Then k = k + 1 ReDim rt(10) For rr = 1 To 10 rt(rr) = rr Next Call VerificaEsitoTurbo(nu,rt,fin - sr,2,,,,,estratti,id) Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),,esitoF,clpF,estrattiF,idF) ReDim Vv(8) Vv(1) = StringaNumeri(nu,,1) Vv(2) = sf Vv(3) = sr Vv(4) = st Vv(5) = estratti Vv(6) = DataEstrazione(id) Vv(7) = estrattiF Vv(8) = clpF If esitoF = "Ambo" Then kk = kk + 1 Call AddRigaTabella(Vv,,,3,,"arial") 'Scrivi StringaNumeri(nu,,1),1,0,,1 'Scrivi " " & vbTab & sf & " " & vbTab & sr & vbTab & estratti & vbTab & DataEstrazione(id) End If End If Next CreaTabellaOrdinabile(3) Scrivi Scrivi "Trovati..." & k,1 Scrivi "Esiti Ultimi... " & kk,1 End Sub
Sub Main
Dim ru(12),nu(2)
n = CInt(InputBox("QUALE CAPOGIOCO",,90))
ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1))
Ini = 8946
Inix = 1'8000
finx = EstrazioneFin
fin = EstrazioneFin - ritroso
ReDim ruota(12)
RuoteSelezionate = ScegliRuote(ruota)
For kk = 1 To RuoteSelezionate
Scrivi "Ruote selezionate : ",1,0
Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3
Scrivi
Next
Scrivi "script By Mike58",1
Scrivi
Scrivi "Ambi non sfaldati da : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
'Scrivi "Ruota di : " & NomeRuota(kk),1,,,1
Scrivi
'Scrivi "Ambo Freq Rit",1
ReDim Tt(8)
Tt(1) = " Ambo "
Tt(2) = " Freq "
Tt(3) = " Rit "
Tt(4) = " Sto "
Tt(5) = " Estratti "
Tt(6) = " Data Esito "
Tt(7) = " Esito Fin > Tutte "
Tt(8) = " Colpo "
Call InitTabella(Tt,2,,3,5,"arial black")
For x = 1 To 90
nu(1) = x
nu(2) = n
sf = SerieFreq(Ini,fin,nu,ruota,2)
sr = SerieRitardo(Inix,fin,nu,ruota,2)
st = SerieStoricoTurbo(Inix,fin,nu,ruota,2)
If sf = 0 Then
If nu(1) <> nu(2) Then
k = k + 1
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Next
Call VerificaEsitoTurbo(nu,ruota,fin - sr,2,,,,,estratti,id)
Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),Nothing,esitoF,clpF,estrattiF,idF)
ReDim Vv(8)
Vv(1) = StringaNumeri(nu,,1)
Vv(2) = sf
Vv(3) = sr
Vv(4) = st
Vv(5) = estratti
Vv(6) = DataEstrazione(id)
Vv(7) = estrattiF
Vv(8) = clpF
Call AddRigaTabella(Vv,,,3,,"arial")
If esitoF <> "" Then kkk = kkk + 1
End If
End If
Next
CreaTabellaOrdinabile(3)
Scrivi
Scrivi "Trovati..." & k,1
Scrivi "Esiti Ultimi... " & kkk,1
End Sub
Sub Main
Dim ru(1),nu(2)
'n = CInt(InputBox("QUALE CAPOGIOCO",,90))
ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1))
Ini = 8946
Inix = 1'8000
finx = EstrazioneFin
fin = EstrazioneFin - ritroso
r = 11
Scrivi "script By Mike58",1
Scrivi
Scrivi "Ambi con ultimi Incrementi Massimo storico : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
Scrivi "Ruota di : " & NomeRuota(r),1,,,1
Scrivi
'Scrivi "Ambo Freq Rit",1
ReDim Tt(9)
Tt(1) = " Ambo "
Tt(2) = " Freq "
Tt(3) = " Rit "
Tt(4) = " Sto "
Tt(5) = " InCr "
Tt(6) = " Estratti "
Tt(7) = " Data Esito "
Tt(8) = " Esito Fin "
Tt(9) = " Colpo "
Call InitTabella(Tt,2,,3,5,"arial black")
For x = 1 To 89
For n = x + 1 To 90
nu(1) = x
nu(2) = n
ru(1) = r
'sf = SerieFreqTurbo(Ini,fin,nu,ru,2)
Call StatisticaFormazioneTurbo(nu,ru,2,srr,stt,Incr,sff,Inix,fin)
'sr = SerieRitardo(Inix,fin,nu,ru,2)
'sr = AmboRitardoTurbo(r,x,n,Inix,fin)
'st = AmboStoricoTurbo(r,x,n,Inix,fin)
If Incr > 0 Then
If nu(1) <> nu(2) Then
k = k + 1
Call Messaggio("A T T E N D E R E . . . . . . " & " Trovati.... " & k & " Script By Mike58 ")
For es = Inix To finx
Call AvanzamentoElab(Inix,finx,es)
Next
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Next
Call VerificaEsitoTurbo(nu,rt,fin - srr,2,,,,,estratti,id)
Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),,esitoF,clpF,estrattiF,idF)
ReDim Vv(9)
Vv(1) = StringaNumeri(nu,,1)
Vv(2) = sff
Vv(3) = srr
Vv(4) = stt '& " > " & Incr
Vv(5) = Incr
Vv(6) = estratti
Vv(7) = DataEstrazione(id)
Vv(8) = estrattiF
Vv(9) = clpF
If esitoF = "Ambo" Then kk = kk + 1
Call AddRigaTabella(Vv,,,3,,"arial")
'Scrivi StringaNumeri(nu,,1),1,0,,1
'Scrivi " " & vbTab & sf & " " & vbTab & sr & vbTab & estratti & vbTab & DataEstrazione(id)
End If
End If
Next
Next
CreaTabellaOrdinabile(5)
Scrivi
Scrivi "Trovati..." & k,1
Scrivi "Esiti Ultimi... " & kk,1
End Sub
Paolo, penso potrebbe essere cosi vedi se vuoi esito fin a tutte o ruote selezionate.
Nel caso di 2° ipotesi basta cambiare il vettore ruote da Rt a Ruota in questa riga.
Call VerificaEsitoTurbo(nu,ruota,fin - sr,2,,,,,estratti,id) ' questa verifica l'esito ultimo sulle ruote selezionate
Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),Nothing,esitoF,clpF,estrattiF,idF) ' questa verifica l'esito ultimo a tutte, come vedi il vettore ruote è rt(tutte).
Codice:Sub Main Dim ru(12),nu(2) n = CInt(InputBox("QUALE CAPOGIOCO",,90)) ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1)) Ini = 8946 Inix = 1'8000 finx = EstrazioneFin fin = EstrazioneFin - ritroso ReDim ruota(12) RuoteSelezionate = ScegliRuote(ruota) For kk = 1 To RuoteSelezionate Scrivi "Ruote selezionate : ",1,0 Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3 Scrivi Next Scrivi "script By Mike58",1 Scrivi Scrivi "Ambi non sfaldati da : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1 'Scrivi "Ruota di : " & NomeRuota(kk),1,,,1 Scrivi 'Scrivi "Ambo Freq Rit",1 ReDim Tt(8) Tt(1) = " Ambo " Tt(2) = " Freq " Tt(3) = " Rit " Tt(4) = " Sto " Tt(5) = " Estratti " Tt(6) = " Data Esito " Tt(7) = " Esito Fin > Tutte " Tt(8) = " Colpo " Call InitTabella(Tt,2,,3,5,"arial black") For x = 1 To 90 nu(1) = x nu(2) = n sf = SerieFreq(Ini,fin,nu,ruota,2) sr = SerieRitardo(Inix,fin,nu,ruota,2) st = SerieStoricoTurbo(Inix,fin,nu,ruota,2) If sf = 0 Then If nu(1) <> nu(2) Then k = k + 1 ReDim rt(10) For rr = 1 To 10 rt(rr) = rr Next Call VerificaEsitoTurbo(nu,ruota,fin - sr,2,,,,,estratti,id) Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),Nothing,esitoF,clpF,estrattiF,idF) ReDim Vv(8) Vv(1) = StringaNumeri(nu,,1) Vv(2) = sf Vv(3) = sr Vv(4) = st Vv(5) = estratti Vv(6) = DataEstrazione(id) Vv(7) = estrattiF Vv(8) = clpF Call AddRigaTabella(Vv,,,3,,"arial") If esitoF <> "" Then kkk = kkk + 1 End If End If Next CreaTabellaOrdinabile(3) Scrivi Scrivi "Trovati..." & k,1 Scrivi "Esiti Ultimi... " & kkk,1 End Sub
un saluto a Claudio8
Sub Main
Dim ru(12),nu(2)
n = CInt(InputBox("QUALE CAPOGIOCO",,90))
ritroso = CInt(InputBox("QUANTE ESTRAZIONI A RITROSO",,1))
Ini = 8946
Inix = 1'8000
finx = EstrazioneFin
fin = EstrazioneFin - ritroso
ReDim ruota(12)
RuoteSelezionate = ScegliRuote(ruota)
For kk = 1 To RuoteSelezionate
Scrivi "Ruote selezionate : ",1,0
Scrivi NomeRuota(ruota(kk)) & " ",1,0,,2,3
Scrivi
Next
Scrivi "script By Mike58",1
Scrivi
Scrivi "Ambi non sfaldati da : " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
'Scrivi "Ruota di : " & NomeRuota(kk),1,,,1
Scrivi
'Scrivi "Ambo Freq Rit",1
ReDim Tt(8)
Tt(1) = " Ambo "
Tt(2) = " Freq "
Tt(3) = " Rit "
Tt(4) = " Sto "
Tt(5) = " Estratti "
Tt(6) = " Data Esito "
Tt(7) = " Esito Fin > Tutte "
Tt(8) = " Colpo "
Call InitTabella(Tt,2,,3,5,"arial black")
For x = 1 To 90
nu(1) = x
nu(2) = n
sf = SerieFreq(Inix,fin,nu,ruota,2)
sr = SerieRitardo(Inix,fin,nu,ruota,2)
st = SerieStoricoTurbo(Inix,fin,nu,ruota,2)
If sf > 0 Then
If nu(1) <> nu(2) Then
k = k + 1
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Next
Call VerificaEsitoTurbo(nu,ruota,fin - sr,2,,,,,estratti,id)
Call VerificaEsitoTurbo(nu,rt,fin + 1,2,(finx - fin),Nothing,esitoF,clpF,estrattiF,idF)
ReDim Vv(8)
Vv(1) = StringaNumeri(nu,,1)
Vv(2) = sf
Vv(3) = sr
Vv(4) = st
Vv(5) = estratti
Vv(6) = DataEstrazione(id)
Vv(7) = estrattiF
Vv(8) = clpF
Call AddRigaTabella(Vv,,,3,,"arial")
If esitoF <> "" Then kkk = kkk + 1
End If
End If
Next
CreaTabellaOrdinabile(3)
Scrivi
Scrivi "Trovati..." & k,1
Scrivi "Esiti Ultimi... " & kkk,1
End Sub