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
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto