Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Un semplice script numeri isotopi
- Creatore Discussione Red*one
- Data di inizio
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.
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 Subti 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.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
Grazie 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.
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
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 è.
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è perfetto ottimo lavoro , non ho parole per la tua disponibilità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
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 10 ottobre 2026Bari1638532155Cagliari2166305562Firenze3075231068Genova6831166463Milano2005111764Napoli3074827877Palermo1715508044Roma0532593966Torino3159562920Venezia1166076188Nazionale1852012813Estrazione Simbolotto
3433052214
