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
 
joe

joe

Advanced Member >PLATINUM PLUS<
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

:)
 
R

Red*one

Banned
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
 
joe

joe

Advanced Member >PLATINUM PLUS<
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.

:)
 
joe

joe

Advanced Member >PLATINUM PLUS<
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

:)
 
R

Red*one

Banned
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ì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto