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
    martedì 29 luglio 2025
    Bari
    83
    52
    44
    45
    01
    Cagliari
    28
    75
    63
    09
    44
    Firenze
    73
    36
    45
    35
    87
    Genova
    43
    72
    13
    34
    85
    Milano
    36
    52
    50
    41
    10
    Napoli
    73
    16
    23
    27
    48
    Palermo
    70
    53
    74
    58
    48
    Roma
    57
    40
    45
    47
    32
    Torino
    70
    13
    85
    75
    69
    Venezia
    56
    35
    72
    66
    20
    Nazionale
    81
    25
    45
    54
    32
    Estrazione Simbolotto
    Nazionale
    03
    35
    36
    16
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto