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
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto