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
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto