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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13

Ultimi Messaggi

Indietro
Alto