Novità

Richiesta possibile script

Bubblegum

Super Member >GOLD<
Ciao forum , vorrei chiedere ai maestri se possono realizzare uno script che ricerchi in solo due ruote ( se fosse possibile scegliere se unite o meno , diametrali o gemelle ) due ambi isotopi i cui estratti ( se fosse possibile scegliere se uniti o meno) siano costituiti dal più piccolo e dal più grande .
Posizioni estratti uniti : 1-2 ; 2-3 ; 3-4 ; 4-5 ; 5-1
Martedi 20 aprile 2017
BA 80-61-73-67-77 ---- (1°-2°)
FI 16-69-48-38-61---- (1°-2°)
Sono le uniche due ruote in cui le posizioni 1-2 sono occupate dall'estratto più grande e da quello più piccolo (in questo caso uniti)
Ho osservato che tendono a ripetersi in ambo sia nelle stesse ruote che in altre , per il momento basterebbe questo per vedere se si possono trovare altre soluzioni
Comunque due colpi prima era uscito a BA il 61-80 , quindici colpi prima FI 16-80 , teniamo conto che nella stessa estrazione del 20 aprile 2017 era presente a FI anche il 61 che formava l'ambo di BA (80-61)
Esiti :
4° colpo : MI-PA 16-69
5° : GE 16-69
6° : PA 80-61
8° : NA 80-61
10°: BA 16-61
Grazie
 
Ciao Bubblegum, prova cosi

Codice:
Sub Main
   Dim nu(5),nn(5),ru(3),aN(2),po(2),ps(2),uN(2),posta(2)
   posta(2) = 1
   '9306
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  nu(p1) = Estratto(es,r1,p1)
                  nn(p2) = Estratto(es,r2,p2)
                  aN(1) = MassimoV(nu)
                  aN(2) = MinimoV(nu,1,- 1)
                  po(1) = Posizione(es,r1,aN(1))
                  po(2) = Posizione(es,r1,aN(2))
                  uN(1) = MassimoV(nn)
                  uN(2) = MinimoV(nn,1,- 1)
                  ps(1) = Posizione(es,r2,uN(1))
                  ps(2) = Posizione(es,r2,uN(2))
                  ru(1) = r1
                  ru(2) = r2
                  ru(3) = 11
               Next
            Next
            If r2 = r1 + 1 Or r2 = RuotaDiametrale(r1) Or r2 = RuotaGemella(r1) Then
               If po(2) = po(1) + 1 Or Differenza(po(1),po(2)) = 4 Then
                  If po(1) = ps(1) Or po(1) = ps(2) Then
                     If po(2) = ps(1) Or po(2) = ps(2) Then
                     k = k + 1
                     Call Messaggio("Script MinimoE & MassimoE ******* By Mike58 ******** Trovate  " & k)
                     Call AvanzamentoElab(Ini,fin,es)
                       If r2 = r1+1 Then rigo = "Ruote Unite"
                       If r2 = RuotaDiametrale(r1) Then rigo = "Ruote Diametrali"
                       If r2 = RuotaGemella(r1) Then rigo = "Ruote Gemelle"
                        Scrivi String(150,"=") & " Caso n. " & k
                        Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,r1) & vbTab  & StringaNumeri(aN,,1) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(po)
                        Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,r2) & vbTab  & StringaNumeri(uN,,1) & vbTab & SiglaRuota(r2) & vbTab & StringaNumeri(ps)
                        Scrivi String(130,"-") & " " & rigo
                        ImpostaGiocata 1,aN,ru,posta,25
                        ImpostaGiocata 2,uN,ru,posta,25
                        Gioca es,1
                     End If
                  End If
               End If
            End If
            
         Next
      Next
     If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto