Novità

E' possibile ...

Bubblegum

Super Member >PLATINUM<
Ciao forum , potrebbe un maestro fare uno script che mi ricerchi l'estratto minimo e massimo uniti e che abbiano le cadenze diametrali ?
Esempi veri :
26-08-2008
NZ 63-88-13-65-49
+ piccolo , 13 , ed il + grande , 88 , sono uniti e le loro cadenze sono diametrali : 3 ed 8
---------
19-07-2012
BA 09-87-02-78-29
+ piccolo , 02 , è unito al + grande , 87 , e le loro cadenze sono diametrali 2 e 7
------------
Nell'eventualità potreste mettere la scelta della ruota dove fare la ricerca ?
Grazie
Ciaoo
 
Ciao,
prova questo:

Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,Es,P,Nu(5),Mu(5)
   Dim x,r,i,f
   Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
   x = ScegliRuota
   If x = 11 Then i = 1 : f = 10 Else i = x : f = x
   For Es = Ini To Fin
      For r = i To f
         For P = 1 To 5
            Nu(P) = Estratto(Es,r,P) : Mu(P) = Nu(P)
         Next
         OrdinaMatrice Mu,1
         For P = 1 To 4
            If(Nu(P) = Mu(1) And Nu(P + 1) = Mu(5)) Or Nu(P) = Mu(5) And Nu(P + 1) = Mu(1) Then
               If FuoriX(Cadenza(Nu(P) + 5),5) = Cadenza(Nu(P + 1)) Then
                  Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(r) & Space(1) & StringaEstratti(Es,r) & Space(1),0,0
                  Scrivi Format2(Nu(P)) & "." & Format2(Nu(P + 1))
               End If
            End If
         Next
      Next
   Next
End Sub

:)
 
Ciao Joe, intanto una buona pasqua, complesso il costrutto, ma non mi trovo con alcune risultanze.
ecco le mie a confronto con la tua su ruota in range di 10 estrazioni.


Una buona Pasqua a tutti
script


Codice:
Sub Main
   Dim nu(5),ru(1)
   Ini = EstrazioneFin - 9
   fin = EstrazioneFin
   For es = Ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            nu(p) = Estratto(es,r,p)
            ru(1) = r
         Next
         min = MinimoV(nu,1,5)
         max = MassimoV(nu)
         p1 = Posizione(es,r,min)
         p2 = Posizione(es,r,max)
         If Differenza(p1,p2) = 1 Then
         cd1 = Cadenza(min) : cd2 = Cadenza(max)
         If Differenza(cd1,cd2) = 5 Then
         k = k + 1
            Scrivi GetInfoEstrazione(es)  & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(nu,,1) & vbTab & Format2(min) & "-" & max & vbTab & _
            " cad... " & cd1 & "-" & cd2 & vbTab & " Posiz... " & p1 & "." & p2
         End If
         End If
      Next
     'Scrivi
   Next
   Scrivi "Casi trovati... " & k,1
End Sub
 
Ciao Mike,

Buona Pasqua a Tutte/i.

Hai ragione, ieri sera ho messo assieme quello scritto in una decina di minuti

ed ho solo controllato che rintracciasse i 2 casi in esempio.

La differenza nasceva nella ricerca delle differenza tra le cadenze.

Poi mancava la Nazionale che normalmente non considero uguale alle altre 10 ruote.

Con le correzioni che hai suggerito dovrebbe essersi uniformato nei risultati.

Probabilmente non è possibile correggere lo script poco funzionante dunque lo ripropongo qui di seguito.

Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,Es,P,Nu(5),Mu(5)
   Dim x,r,i,f
   Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
   x = ScegliRuota
   If x = 11 Then i = 1 : f = 12 Else i = x : f = x
   For Es = Ini To Fin
      For r = i To f : If r = 11 Then r = 12 
         For P = 1 To 5
            Nu(P) = Estratto(Es,r,P) : Mu(P) = Nu(P)
         Next
         OrdinaMatrice Mu,1
         For P = 1 To 4
            If(Nu(P) = Mu(1) And Nu(P + 1) = Mu(5)) Or Nu(P) = Mu(5) And Nu(P + 1) = Mu(1) Then
               If Differnza (Cadenza(Nu(P)) , Cadenza(Nu(P+1)))  = 5  Then
                  Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(r) & Space(1) & StringaEstratti(Es,r) & Space(1),0,0
                  Scrivi Format2(Nu(P)) & "." & Format2(Nu(P + 1))
               End If
            End If
         Next
      Next
   Next
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto