Novità

A volte basta uno script facile per tutti.

Se vuoi Ti passo lo script, puoi cambiare il numero da aggiungere in automatico, ovviamente se lo usi ... Mi è stato passato da Toon, che lo aveva fatto per Better, alias Missione Impossibile.
'Metodo Better per Ambata
'Script by Toon
Sub Main()
Dim poste(5),n(6),Ru(12)
Dim ruota(12),R(12),posta(5)
Dim n1(3),r1,p1,p2
poste(1) = 1
posta(2) = 1
ini = EstrazioneFin - 200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(Es) = 1 Then
'**
For r1 = 1 To 1
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
ok = 0
n1(1) = Fuori90(a + 55)' Qui IL NUMERO CHE PUOI CAMBIARE
ruota(1) = r1
ok = 1
'**
n(1) = n1(1)
n(2) = 90 -(n1(1))
n(3) = 90 -(n(4))
n(4) = Vert(n(1))
'**
R(2) = 1:R(3) = 10
If ok = 1 Then
co = co + 1
ColoreTesto 1
ColoreTesto 1:Scrivi String(87,152) & " Caso n°" & Co,1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r1) & "..." & StringaEstratti(es,r1) & "..." & SiglaRuota(r1) & " + 55 = " & CInt(n(1)),1
ImpostaGiocata 1,n1,R,poste,15',1
Gioca es,1
End If
Next
Next
Next
End If
Next
 
Ultima modifica:
Pandit ha scritto:
Se vuoi Ti passo lo script, puoi cambiare il numero da aggiungere in automatico, ovviamente se lo usi ... Mi è stato passato da Toon, che lo aveva fatto per Better, alias Missione Impossibile.
'Metodo Better per Ambata
'Script by Toon
Sub Main()
Dim poste(5),n(6),Ru(12)
Dim ruota(12),R(12),posta(5)
Dim n1(3),r1,p1,p2
poste(1) = 1
posta(2) = 1
ini = EstrazioneFin - 200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(Es) = 1 Then
'**
For r1 = 1 To 1
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
ok = 0
n1(1) = Fuori90(a + 54)' 54 IL NUMERO CHE PUOI CAMBIARE
ruota(1) = r1
ok = 1
'**
n(1) = n1(1)
n(2) = 90 -(n1(1))
n(3) = 90 -(n(4))
n(4) = Vert(n(1))
'**
R(2) = 1:R(3) = 10
If ok = 1 Then
co = co + 1
ColoreTesto 1
ColoreTesto 1:Scrivi String(87,152) & " Caso n°" & Co,1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r1) & "..." & StringaEstratti(es,r1) & "..." & SiglaRuota(r1) & " + 54 = " & CInt(n(1)),1
ImpostaGiocata 1,n1,R,poste,15',1
Gioca es,1
End If
Next
Next
Next
End If
Next
ScriviResoconto
End Sub
Clicca per espandere...
Grazie Pandit ho provato ma non mi piace,c'e qualcosa di diverso rispetto alla tabella di better.
 
L'ho modificato come in tabella, riscaricalo..
Pero se guardi, se all'1 è associato il 55, vuol dire che 1 + 54 = 55, quindi il calcolo giusto è quello di prima.
Comunque cambiando quella cifra puoi fare diverse prove e sperimentare...
(y)
 
Ultima modifica:
Buongiorno,
Pandit riesci a farmi uno script con i 90 numeri.
Esempio: il numero 1,quante volte e' uscito a Bari in un anno,scelgo il 2 quante volte e' uscito in un anno,cosi per le altre ruote.
Grazie se riesci.
 
Ho uno script di Blackmore ma non è per anno..
Sub Main()
Dim ruote(12)
Dim anum(1)
ReDim atitolix(7)
atitolix(1) = " Ruota "
atitolix(2) = " Ritardatario "
atitolix(3) = " Ritardo "
atitolix(4) = " Rit.Sto.Att. "
atitolix(5) = " Rit.Sto.Pre. "
atitolix(6) = " Frequenza "
atitolix(7) = " Data Ultima Uscita Del Ritardatario "
Call InitTabella(atitolix,RGB(0,117,234),,4,5)
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,EstrazioneFin)
Messaggio " CREAZIONE TABELLA IN CORSO .... "
Scrivi "INIZIO RICERCA: " & DataEstrazione(EstrazioneIni) & " °°° FINE RICERCA: " & DataEstrazione(EstrazioneFin),1,,,,4
Scrivi "TABELLA RITARDI ATTUALI/STORICI E FREQUENZE DEI PRIMI 10 NUMERI RITARDATARI",1,,,,4
Scrivi ""
For r = 1 To 1 ' Bari
ruote(1) = r
For x = 1 To 90
anum(1) = x
Call StatisticaFormazioneTurbo(anum,ruote,1,rit,ritmax,0,freq,Ini,fin)
rsp = SerieStorico(EstrazioneIni,EstrazioneFin - rit,anum,ruote,1)
Call VerificaEsitoTurbo(anum,ruote,EstrazioneFin - rit,1,,,retesito,,retestratti,retes)
ReDim avalorix(7)
avalorix(1) = NomeRuota(ruote(1))
avalorix(2) = anum(1)
avalorix(3) = rit
avalorix(4) = ritmax
avalorix(5) = rsp
avalorix(6) = freq
avalorix(7) = retestratti & " " & DataEstrazione(retes) & " [n° " & retes & "]"
Call AddRigaTabella(avalorix,,,5,,1)
Call SetColoreCella(3,RGB(128,255,0))
Call SetColoreCella(2,,RGB(236,0,0))
Call SetColoreCella(5,RGB(255,145,255))
Call SetColoreCella(1,RGB(251,251,251))
Call SetColoreCella(2,RGB(251,251,251))
Call SetColoreCella(4,RGB(255,255,164))
Call SetColoreCella(5,RGB(255,139,83))
Call SetColoreCella(6,RGB(196,255,255))
Call SetColoreCella(7,RGB(251,251,251))
Next
Next
Call CreaTabella(3,,,91)' cambiare il valore 91 per cercare più numeri
Call Scrivi("~~~~~~~~~~~~~~ Ritardi e Frequenze Dei Primi 10 Ritardatari By Blackmore ~~~~~~~~~~~~~~~",1,1,RGB(0,117,234),5,4)
End Sub
Ho poi questo, di autore sconosciuto, su 208 estrazioni circa un anno..
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,208))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255,0,0)) : Call SetColoreCella(13,RGB(255,0,0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255,0,0)) : Call SetColoreCella(13,RGB(255,0,0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
 
Pandit ha scritto:
Ho uno script di Blackmore ma non è per anno..
Sub Main()
Dim ruote(12)
Dim anum(1)
ReDim atitolix(7)
atitolix(1) = " Ruota "
atitolix(2) = " Ritardatario "
atitolix(3) = " Ritardo "
atitolix(4) = " Rit.Sto.Att. "
atitolix(5) = " Rit.Sto.Pre. "
atitolix(6) = " Frequenza "
atitolix(7) = " Data Ultima Uscita Del Ritardatario "
Call InitTabella(atitolix,RGB(0,117,234),,4,5)
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,EstrazioneFin)
Messaggio " CREAZIONE TABELLA IN CORSO .... "
Scrivi "INIZIO RICERCA: " & DataEstrazione(EstrazioneIni) & " °°° FINE RICERCA: " & DataEstrazione(EstrazioneFin),1,,,,4
Scrivi "TABELLA RITARDI ATTUALI/STORICI E FREQUENZE DEI PRIMI 10 NUMERI RITARDATARI",1,,,,4
Scrivi ""
For r = 1 To 1 ' Bari
ruote(1) = r
For x = 1 To 90
anum(1) = x
Call StatisticaFormazioneTurbo(anum,ruote,1,rit,ritmax,0,freq,Ini,fin)
rsp = SerieStorico(EstrazioneIni,EstrazioneFin - rit,anum,ruote,1)
Call VerificaEsitoTurbo(anum,ruote,EstrazioneFin - rit,1,,,retesito,,retestratti,retes)
ReDim avalorix(7)
avalorix(1) = NomeRuota(ruote(1))
avalorix(2) = anum(1)
avalorix(3) = rit
avalorix(4) = ritmax
avalorix(5) = rsp
avalorix(6) = freq
avalorix(7) = retestratti & " " & DataEstrazione(retes) & " [n° " & retes & "]"
Call AddRigaTabella(avalorix,,,5,,1)
Call SetColoreCella(3,RGB(128,255,0))
Call SetColoreCella(2,,RGB(236,0,0))
Call SetColoreCella(5,RGB(255,145,255))
Call SetColoreCella(1,RGB(251,251,251))
Call SetColoreCella(2,RGB(251,251,251))
Call SetColoreCella(4,RGB(255,255,164))
Call SetColoreCella(5,RGB(255,139,83))
Call SetColoreCella(6,RGB(196,255,255))
Call SetColoreCella(7,RGB(251,251,251))
Next
Next
Call CreaTabella(3,,,91)' cambiare il valore 91 per cercare più numeri
Call Scrivi("~~~~~~~~~~~~~~ Ritardi e Frequenze Dei Primi 10 Ritardatari By Blackmore ~~~~~~~~~~~~~~~",1,1,RGB(0,117,234),5,4)
End Sub
Ho poi questo, di autore sconosciuto, su 208 estrazioni circa un anno..
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,208))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255,0,0)) : Call SetColoreCella(13,RGB(255,0,0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255,0,0)) : Call SetColoreCella(13,RGB(255,0,0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
Clicca per espandere...
Mi piace molto l autore sconosciuta senza offesa all altro.
Grazie ottimo lavoro come sempre.;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto