Novità

Script per ambo a tutte

se hai voglia di fare un po' di ricerca prova questo listato trovato in giro per il web anni fa.
Potrai sbizzarrirti tra infinite possibilità modificandolo come credi.

decici da che estrazione iniziare la ricerca

decidi da quale estrazione iniziare
( decici da quale estrazione del mese vuoi iniziare, in questo caso dalla 1^ )

decidi gli ambi da visualizzare
selezioni la ruota a tua scelta

scegli la posizione dell'estratto
( scegli a quale dei 5 estratti si farà somma che non decidi tu, ma verranno inserite le migliori )

scegli la ruota dove mettere a previsione
decidi i colpi di gioco

questo è parte del resoconto :

Miglior AMBO su Tutte nei 9 colpi successivi

Statistica dal 07.05.2015 al 27.01.2022

Combinazioni analizzate = 4005

*********************** ricavata alla 1°estrazione del mese *************************
------------------------------------------------------------
Al 3 di Bari sommare 01 02 - su Tutte usciti 21 Ambi su 79 casi analizzati
------------------------------------------------------------
Al 3 di Bari sommare 01 15 - su Tutte usciti 19 Ambi su 79 casi analizzati
------------------------------------------------------------
Al 3 di Bari sommare 01 16 - su Tutte usciti 19 Ambi su 79 casi analizzati
------------------------------------------------------------
Al 3 di Bari sommare 01 24 - su Tutte usciti 19 Ambi su 79 casi analizzati
------------------------------------------------------------
Al 3 di Bari sommare 01 25 - su Tutte usciti 21 Ambi su 79 casi analizzati
------------------------------------------------------------
Al 3 di Bari sommare 01 27 - su Tutte usciti 20 Ambi su 79 casi analizzati
------------------------------------------------------------

questo il listato

Sub Main()
Dim num(1200000,8)
Dim cin(10),ruote(10)
ini = InputBox("Da quale estrazione inizio?",,9000)
im = InputBox("Scegli Indice Mensile",,1)
X = CInt(InputBox("Quanti Esiti Minimi di Ambi usciti richiesti per la Visualizzazione",,19))
r = ScegliRuota
pos = InputBox("Scegli Posizione Estratto",,3)
r1 = InputBox("Scegli RUOTA DI GIOCO",,11)
colpi = InputBox("Colpi di gioco",,9)
'r = 1
'pos = 1
ruote(1) = r1
casi = 0
For es = ini To EstrazioneFin
If(((eval(im) = 0)And(es = EstrazioneFin))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0))))Then
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi - 1
If es2 > EstrazioneFin Then es2 = EstrazioneFin End If
e = Estratto(es,r,pos)
For s1 = 1 To 89
For s2 = s1 + 1 To 90
ea = 0
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
ea = SerieFreq(es1,es2,cin,ruote,2)
'et = SerieFreq(es1,es2,cin,ruote,3)
num(co,1) = s1
num(co,2) = s2
'num(co,3) = s3
'num(co,4) = s4
'num(co,5) = num(co,5)
'num(co,6) = num(co,6)
If ea > 0 Then
num(co,5) = num(co,5) + 1
End If
Next
Next
End If
Next
Scrivi " Miglior AMBO su " & NomeRuota(r1) & " nei " & eval(colpi) & " colpi successivi"
Scrivi s & Chr(10) & "Statistica dal " & DataEstrazione(ini) & _
" al " & DataEstrazione(EstrazioneFin)
Scrivi
Scrivi "Combinazioni analizzate = " & co
ColoreTesto 9 :Scrivi " *********************** ricavata alla " &(im) & "°estrazione del mese ************************* ",1
For i = 1 To co
If(num(i,5)) => X Then
Scrivi "------------------------------------------------------------"
s = "Al " & eval(pos) & " di " & NomeRuota(r) & " sommare " & Format2(CStr(num(i,1))) & " " & Format2(CStr(num(i,2))) & " - su "
's = s & Format2(CStr(num(i,3))) & " " & Format2(CStr(num(i,4))) & " - "
s = s & NomeRuota(r1) & " usciti " & FormatSpace(CStr(num(i,5)),3) & " Ambi su " & eval(casi) & " casi analizzati"
Scrivi s
'If(num(i,6)) > 10 Then
ColoreTesto 0
'End If
End If
Next
End Sub
 
Sperando di fare cosa gradita......questa è la mia proposta
1 ambo a TT alla 1° del mese x 10 colpi

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "1 AMBO SU TUTTE  ALLA 1° DEL MESE "
   Scrivi "CON VINCOLO CADENZIALE DEL 1° ESTRATTO DI BARI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(11)
   Dim n1(2)
   poste(2) = 1
   clp = 10
   ini = EstrazioneFin - 1000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,1,1)
      If IndiceMensile(es) = 1 Then
         If Cadenza(a) = 1 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,10,3)) - Estratto(es,5,3) + 42)
            ruota(1) = 11
         End If
         If Cadenza(a) = 2 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,1) + 1)
            n1(2) = Fuori90(Estratto(es,3,5) + Estratto(es,6,3) + 21)
            ruota(1) = 11
         End If
         If Cadenza(a) = 3 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(Estratto(es,8,5) + Estratto(es,12,4) + 32)
            ruota(1) = 11
         End If
         If Cadenza(a) = 4 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,9,5)) - Estratto(es,4,5) + 33)
            ruota(1) = 11
         End If
         If Cadenza(a) = 5 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,8,2)) - Estratto(es,7,1) + 41)
            ruota(1) = 11
         End If
         If Cadenza(a) = 6 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(Estratto(es,1,3) + Estratto(es,6,2) + 89)
            ruota(1) = 11
         End If
         If Cadenza(a) = 7 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 64)
            ruota(1) = 11
         End If
         If Cadenza(a) = 8 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(Estratto(es,8,3) * Estratto(es,9,1) + 5)
            ruota(1) = 11
         End If
         If Cadenza(a) = 9 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,4,2) + 89)
            ruota(1) = 11
         End If
         If Cadenza(a) = 0 Then
            n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,10,5) + 10)
            ruota(1) = 11
         End If
         '
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & "    " & a & "  -  cadenza" & - Cadenza(a) & c,1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         ImpostaGiocata 1,n1,ruota,poste,clp,2
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto