Novità

Un semplice script numeri isotopi

R

Red*one

Banned
Cortesemente chiedo se è possibile avere uno script tipo tabellone analitico ,che vada a verificare l'uscita di numeri uguali ed isotopi nel quadro estrazionale , e verifichi anche se ci sono numeri uguali ma non necessariamente isotopi. grazie
 
Ciao,

non è semplicissimo stabilire il valore di "tipo" ed anche "uscita" potrebbe far pensare

ad un qualcosa di più futuro che attuale.

In sintesi potrebbe essere tutt'altra cosa diversa da quanto richiesto.

Il tempo di realizzazione nell'ordine di qualche minuto, ed una certa utilità,

ne giustificano l'esistenza.

:)

Codice: 
Option Explicit
Sub Main
'Polivalenti ed Isotopi By Joe V.1.0 del 28/07/2021
  Dim Ini,Fin,Es,R,S,P,E
  Dim Nu(1),Ru(1)
  Ini = EstrazioneFin - 17 : Fin = EstrazioneFin : Ru(1) = TT_
  Titoli
  For Es = Ini To Fin
    Scrivi DataEstrazione(Es) & " | ",0,0
    For R = 1 To 10
      For P = 1 To 5
        Nu(1) = Estratto(Es,R,P)
        ColoreTesto 5
        If SerieFreq(Es,Es,Nu,Ru,1) > 1 Then ColoreTesto 1
        For S = 1 To 10
          If R <> S And Posizione(Es,S,Nu(1)) = P Then ColoreTesto 2
        Next
        Scrivi Format2(Nu(1)) & Space(1),True,False
      Next
      ColoreTesto 0 : Scrivi "| ",0,0
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli 'By Joe
  Dim R,A,B
  Scrivi String(2,"-") & Space(1) & "DATA" & Space(1) & String(2,"-"),0,0
  For R = 1 To 10
    Scrivi " | ",0,0
    A = 6 -(Len(NomeRuota(R))\2) : B = 13 -(A + 1 + Len(NomeRuota(R)))
    Scrivi String(A,"-") & Space(1) & NomeRuota(R) & Space(1) & String(B,"-"),0,0
  Next
  Scrivi " | "
End Sub

:)
 
joe ha scritto:
Ciao,

non è semplicissimo stabilire il valore di "tipo" ed anche "uscita" potrebbe far pensare

ad un qualcosa di più futuro che attuale.

In sintesi potrebbe essere tutt'altra cosa diversa da quanto richiesto.

Il tempo di realizzazione nell'ordine di qualche minuto, ed una certa utilità,

ne giustificano l'esistenza.

:)

Codice: 
Option Explicit
Sub Main
'Polivalenti ed Isotopi By Joe V.1.0 del 28/07/2021
  Dim Ini,Fin,Es,R,S,P,E
  Dim Nu(1),Ru(1)
  Ini = EstrazioneFin - 17 : Fin = EstrazioneFin : Ru(1) = TT_
  Titoli
  For Es = Ini To Fin
    Scrivi DataEstrazione(Es) & " | ",0,0
    For R = 1 To 10
      For P = 1 To 5
        Nu(1) = Estratto(Es,R,P)
        ColoreTesto 5
        If SerieFreq(Es,Es,Nu,Ru,1) > 1 Then ColoreTesto 1
        For S = 1 To 10
          If R <> S And Posizione(Es,S,Nu(1)) = P Then ColoreTesto 2
        Next
        Scrivi Format2(Nu(1)) & Space(1),True,False
      Next
      ColoreTesto 0 : Scrivi "| ",0,0
    Next
    Scrivi
  Next
  Titoli
End Sub
Sub Titoli 'By Joe
  Dim R,A,B
  Scrivi String(2,"-") & Space(1) & "DATA" & Space(1) & String(2,"-"),0,0
  For R = 1 To 10
    Scrivi " | ",0,0
    A = 6 -(Len(NomeRuota(R))\2) : B = 13 -(A + 1 + Len(NomeRuota(R)))
    Scrivi String(A,"-") & Space(1) & NomeRuota(R) & Space(1) & String(B,"-"),0,0
  Next
  Scrivi " | "
End Sub

:)
Clicca per espandere...
ti ringrazio joe per la tempestività ,probabilmente non ho descritto bene quello che cerco , ti allego uno screen per esser piu' chiaro, come vedi a me interessa avere e controllare almeno per un centinaio di estrazioni a ritroso in ogni quadro estrazionale quanto segue: es. ripetizione isotopi nella data di estrazione TO VE 59 e ripetizione anche se non isotopo sullo stesso quadro estraz.
Grazie Joe

Screenshot_8.png
 
Si ma, non è così semplice, dividere i casi trovabili.

Nel tuo esempio vedi che anche Roma e Firenze hanno il 58 Isotopo in 4' Posizione e di casi simili ce ne sono molti.

Praticamente in tutte le estrazioni ci sono le condizioni imposte ed esse si accavallano l'un l'altra.

:)
 
Ciao avendo rivoltato lo script come un calzino non è un gran esempio di efficienza.

Ma la soluzione adottata sembra funzionare.

Dunque è da considerare ... per quello che è.

Codice: 
Option Explicit
Sub Main
  'Polivalenti ed Isotopi By Joe V.2.0 del 28/07/2021
  Dim Ini,Fin,Es,N,R,S,P,E,T,Q,K
  Dim Nu(1),Ru(1),GR,A,B
  ColoreTesto 0 : Scrivi String(18,"="),True
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin : Ru(1) = TT_
  For Es = Ini To Fin
    For N = 1 To 90 : Nu(1) = N : GR = False
      If SerieFreq(Es,Es,Nu,Ru,1) > 2 Then
        For P = 1 To 5
          For R = 1 To 9
            For S = R + 1 To 10
              If Posizione(Es,R,N) = P And Posizione(Es,S,N) = P Then 
              GR = True 
              K = K + 1 
              End If 
            Next
          Next
        Next
        If GR = True Then
          Scrivi Space(5) & DataEstrazione(Es,,,"/"),True
          For T = 1 To 10
            ColoreTesto 0 : Scrivi Space(1) & SiglaRuota(T) & Space(1),True,False
            For Q = 1 To 5
              E = Estratto(Es,T,Q)
              If E = N Then
                ColoreTesto 0 : Scrivi Format2(N) & Space(1),1,0
              Else
                ColoreTesto 5 : Scrivi Format2(E) & Space(1),0,0
              End If
            Next
            Scrivi
          Next
          ColoreTesto 0 : Scrivi String(18,"=") &FormatSpace(K,4,True),True
        End If
      End If
    Next
  Next
End Sub

:)
 
joe ha scritto:
Ciao avendo rivoltato lo script come un calzino non è un gran esempio di efficienza.

Ma la soluzione adottata sembra funzionare.

Dunque è da considerare ... per quello che è.

Codice: 
Option Explicit
Sub Main
  'Polivalenti ed Isotopi By Joe V.2.0 del 28/07/2021
  Dim Ini,Fin,Es,N,R,S,P,E,T,Q,K
  Dim Nu(1),Ru(1),GR,A,B
  ColoreTesto 0 : Scrivi String(18,"="),True
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin : Ru(1) = TT_
  For Es = Ini To Fin
    For N = 1 To 90 : Nu(1) = N : GR = False
      If SerieFreq(Es,Es,Nu,Ru,1) > 2 Then
        For P = 1 To 5
          For R = 1 To 9
            For S = R + 1 To 10
              If Posizione(Es,R,N) = P And Posizione(Es,S,N) = P Then
              GR = True
              K = K + 1
              End If
            Next
          Next
        Next
        If GR = True Then
          Scrivi Space(5) & DataEstrazione(Es,,,"/"),True
          For T = 1 To 10
            ColoreTesto 0 : Scrivi Space(1) & SiglaRuota(T) & Space(1),True,False
            For Q = 1 To 5
              E = Estratto(Es,T,Q)
              If E = N Then
                ColoreTesto 0 : Scrivi Format2(N) & Space(1),1,0
              Else
                ColoreTesto 5 : Scrivi Format2(E) & Space(1),0,0
              End If
            Next
            Scrivi
          Next
          ColoreTesto 0 : Scrivi String(18,"=") &FormatSpace(K,4,True),True
        End If
      End If
    Next
  Next
End Sub

:)
Clicca per espandere...
è perfetto ottimo lavoro , non ho parole per la tua disponibilità
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 giugno 2026
    Bari
    53
    23
    77
    51
    86
    Cagliari
    56
    76
    85
    17
    83
    Firenze
    64
    03
    85
    23
    69
    Genova
    56
    81
    32
    38
    28
    Milano
    42
    87
    40
    53
    50
    Napoli
    10
    59
    86
    90
    33
    Palermo
    76
    59
    28
    24
    06
    Roma
    76
    55
    69
    15
    74
    Torino
    24
    79
    44
    62
    64
    Venezia
    89
    03
    23
    37
    10
    Nazionale
    34
    32
    46
    22
    69
    Estrazione Simbolotto
    Napoli
    43
    01
    21
    29
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto