Script per ambo a tutte

[alexvisco]

Salve, c'è qualche buon script per ambo su tutte?

 

[*blacklotto*]

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

 

[Alien.]

Ottimo ma su ruota non funziona ?,grazie.

 

[Marco-elle]

Sperando di fare cosa gradita......questa è la mia proposta
1 ambo a TT alla 1° del mese x 10 colpi

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

 

[claudio8]

Sperando di fare cosa gradita......questa è la mia proposta
1 ambo a TT alla 1° del mese x 10 colpi

Sub Main()
.............
End Sub

vedo che hai acquisito la rivisitazione

 

[Marco-elle]

vedo che hai acquisito la rivisitazione

Yessss,
Ogni consiglio e’ utile