scomposizione in cifre

Mike58 · 13 Gennaio 2019

Provate se così è funzionante secondo le vostre specifiche.

Codice:

Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Laiaut 0",0))
   Ini = EstrazioneFin - 17 - scarto
   fin = EstrazioneFin - scarto
   Tot = fin - Ini + 1
   r = CInt(InputBox("mettere il numero dellaRuota","RUOTA",1))
   ' r=2
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Pres_Progress","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
      Next
      For xx = 1 To 90
         If Decina(xx) = cifre Or Cadenza(xx) = cifre Then
            kk = kk + 1
            If Gemello(xx) Then
               kg = kg + 1
            End If
            If EstrattoFrequenza(r,xx,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = xx
            End If
         End If
      Next
      presTeo = kk + kg 'presTeo = kk
      Att2 = Round((Dividi(k,k + presTeo)),3)
      kprog = kprog + presTeo
      V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),presTeo,kprog,Att2,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
      kg = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

fillotto · 13 Gennaio 2019

Grazie Mike e grazie Joe a tutti e due devo il fatto che adesso finalmente so qualcosa di + delle tabelle e dei cicli for e autonomamente al suggerimento di joe e all'utimo script di Mike è bastato aggiungere nel primo ciclo for "If Gemello

Then k = k + 1" ed è andato apposto almeno come io lo avevo pensato adesso lo script si presenta così:

Codice:

Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Laiaut 0",0))
   Ini = EstrazioneFin - 17 - scarto
   fin = EstrazioneFin - scarto
   Tot = fin - Ini + 1
   r = CInt(InputBox("mettere il numero dellaRuota","RUOTA",1))
   ' r=2
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Pres_Progress","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
             If Gemello(n) Then k = k + 1              '''''                              AGGIUNTO

               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
      Next
      For xx = 1 To 90
         If Decina(xx) = cifre Or Cadenza(xx) = cifre Then
            kk = kk + 1
            If Gemello(xx) Then
               kg = kg + 1
            End If
            If EstrattoFrequenza(r,xx,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = xx
            End If
         End If
      Next
      presTeo = kk + kg 'presTeo = kk
      Att2 = Round((Dividi(k,k + presTeo)),3)
      kprog = kprog + presTeo
      V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),presTeo,kprog,Att2,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
      kg = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

joe · 15 Gennaio 2019

Buon Giorno a tutte/i.

questo è lo script di Mike presente al messaggio #4

con la modifica che avevo suggerito e che in esso ho evidenziato:

Codice:

Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   Ini = EstrazioneFin - 17
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   r = 1
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
         If Decina(x) = cifre Or Cadenza(x) = cifre Then
            kk = kk + 1
            If Gemello(x) Then kk = kk + 1 '<<< Solo questa modifica 
            If EstrattoFrequenza(r,x,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = x
            End If
         End If
      Next
      presTeo = kk
      Att2 = Round((Dividi(k,k + presTeo)),3)
      V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),kk,Att2,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

I risultati mi risultano identici a quelli dell'ultimo script presentato da Filotto.

(al netto della colonna aggiunta "Pres_progressive")

Cordiali saluti.

fillotto · 15 Gennaio 2019

Grazie Joe il suggerimento l'ho usato anche nel ciclo for per indicare la quantità ,inoltre ho aggiunto anche un'altra colonna che che mi indica se la cifra è sotto o sopra la % teorica per cui adesso si presenta così

Codice:

 Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Laiaut 0",0))
   Ini = EstrazioneFin - 17 - scarto
   fin = EstrazioneFin - scarto
   Tot = fin - Ini + 1
   r = CInt(InputBox("mettere il numero dellaRuota","SCEGLI LA RUOTA",1))
 ' r=2
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Diff % ","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
            If Gemello(n) Then k = k + 1 'ANCHE QUI tutto in una riga

               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
         If Decina(x) = cifre Or Cadenza(x) = cifre Then
            kk = kk + 1
             If Gemello(x) Then kk = kk + 1 '                                          JOE
            If EstrattoFrequenza(r,x,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = x
            End If
         End If
      Next
      presTeo = kk 'presTeo = kk
      Att2 = Round(k/1.8 - presTeo/1.8,3)' 'HO AGGIUNTO UNA COLONNA  che mi indica se sotto o sopra la % teorica

      Att3 = Round((Dividi(k,k + presTeo)),3)   
           V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),kk,Att2,Att3,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

joe · 15 Gennaio 2019

ma ... se cancelli questa riga ti cambiano i risultati ?

If Gemello

Then k = k + 1 'ANCHE QUI tutto in una riga

fillotto · 15 Gennaio 2019

joe;n2149193 ha scritto:
ma ... se cancelli questa riga ti cambiano i risultati ?

If Gemello Then k = k + 1 'ANCHE QUI tutto in una riga

Certo che cambiano, nella colonna "Qtà" (per Qtà intendo quantità di cifre non di numeri usciti) qualora ci fossero dei gemelli, senza l'istruzione suddetta, me la conterebbe con una cifra in meno perchè sto confrontando cifre reali con cifre teoriche .In definitiva è tutta una questione "visiva". Quando vedo un estrazione così:" 5-50-55-59-56" (es.) cosa salta all'occhio ? tutti quei "5" perchè non ci sono le cifre 1-2-3-4-7-8 ? in 18 estrazioni ,almeno in teoria, dovrebbero uscire una volta, ecco nel mio piccolo penso che non ci sia bisogno di ricorrere a ispezioni lontane nel tempo con questo script voglio semplicemente vedere il rapporto tra cifre teoriche e cifre reali vedere gli scostamenti e puntare sulle cifre con frequenza + oppure puntare sulle cifre che sono in frequenza - ecco perchè ho messo anche la colonna "Diff % ".Quando l'ho fatto in excel mi sono inbattuto, per primo esperimento,in un intervallo che qualora avessi potuto giocare (ma purtroppo era una prova a ritroso

) tutte le teorie esposte hanno trovato convalida!!!! ma fatte le altre prove........non dico che non avevo riscontri ma la musica era cambiata!!!!
Perciò a questo punto sono contento che Mike mi abbia fatto lo script e soprattutto mi abbia messo i mancanti e ripetuti ( su excel non li rilevavo con facilità) e Lei che mi ha messo quella riga per me illuminante. Buona serata

fillotto · 15 Gennaio 2019

Urca ma so arrivato a 1000 e 2 !!!!!

joe · 15 Gennaio 2019

Ok ... hai ragione tu.

Ho contato manualmente 28 cadute della cifra 1

a Bari nelle ultime 18 estrazioni (9560-9577)

27 singole + 1 come gemello.

fillotto · 15 Gennaio 2019

fillotto;n2148547 ha scritto:
[TR
Questa è la situazione al 10/1/19 di Bari in sottofrequenza il 7 e 8 quindi ragionando come in precedenza 78 e 87 due x uno quartine radicali del 7 e dell' 8 in super freq. la cifra 1 quindi quart rad. 1 10 11 19

Questo . in particolare . si auspicava alla luce dell'estraz. 10/1/19 dopo 2 estraz.
77 - 66 - 67 - 10 - 78
se poi ai 2 si fosse aggiuna la quartina rad dell 1 o del 7 o della quart 37-47-57- 67 suggerita piu in basso........

fillotto · 17 Gennaio 2019

Per favore, per favore sono 3 giorni che non riesco a venirne a capo

Ho fatto uno script sulla falsariga dell' ultimo di cui al num 23 solo che invece di 18 estrazioni x 5 posiz.= 90 numeri adesso lo faccio sempre su 90 num ma una sola posiz.
Riscontro due errori se al primo imput box (scarto) rispondo con 0 cioè mi sta bene che nella rilevazione non si esclude nessuna estrazione allora mi da subito errore 13 tipo non corrispondente " mancanti"
Qualora inveceal primo imput box (scarto) rispondo con + di 0 cioè che voglio escludere almeno una estrazione allora va bene MA...... mi esclude i mancanti .Posso pensare che nel primo script si lavora su una matrice e in questo nuovo su un vettore ma non ci riesco a trovare gli errori MI DATE UNA MANO

ecco lo script e l'output ipotizzate ruota bari 90 estr del primo estratto con esclusione delle ultime 10

Codice:

 Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Laiaut 0",0))
   Ini = EstrazioneFin - 89 - scarto
   fin = EstrazioneFin - scarto
   Tot = fin - Ini + 1
   r = CInt(InputBox("mettere il numero dellaRuota","SCEGLI LA RUOTA",1))
    posi = CInt(InputBox("SCELI LA POSIZIONE (1/5)","POSIZIONE ",1))
 ' r=2
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi "Ho sescluso le ultime..... " & scarto & " estrazioni dalla rilevaz"
   Scrivi "Vettore/posizione analizzata..... " & posi

   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Diff % ","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
        For p = posi To posi
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
            If Gemello(n) Then k = k + 1 'ANCHE QUI tutto in una riga

               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
        Next
      Next
      For x = 1 To 90
         If Decina(x) = cifre Or Cadenza(x) = cifre Then
            kk = kk + 1
             If Gemello(x) Then kk = kk + 1 '
            If EstrattoFrequenza(r,x,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = x
            End If
         End If
      Next
      presTeo = kk 'presTeo = kk
      Att2 = Round(k/1.8 - presTeo/1.8,3)' 'HO AGGIUNTO UNA COLONNA  che mi indica se sotto o sopra la % teorica

      Att3 = Round((Dividi(k,k + presTeo)),3)
           V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),kk,Att2,Att3,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

Codice:

 [FONT=Courier New][SIZE=2][COLOR=#000000]Range Inizio......... [09479] [ 64] 29.05.2018[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Range Fine........... [09568] [153] 22.12.2018[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Totali estrazioni.... 90[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Ruota analizzata..... Bari[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Ho sescluso le ultime..... 10 estrazioni dalla rilevaz[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Vettore/posizione analizzata..... 1[/COLOR][/SIZE][/FONT]     [TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Cifra [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Numeri Estratti in Cifra [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Qtà [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Num Ripetuti [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Qtà Rip [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Presenza Teorica [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Diff % [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Attendibilità [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Numeri mancanti [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]30.7.20.5.30.10.50.60.20.50.40.9.10.90.40.2.20.70.6.7.70.7.9.3.4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]25 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]7.9.10.20.30.40.50.70 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3.2.2.3.2.2.2.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]18 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3,889 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,581 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]1 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]17.31.10.14.10.18.15.19.19.21.51 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]11 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]10.19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]-4,444 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,367 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]82.28.20.22.32.20.2.20.24.21.62.28.24.32.72 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]16 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]20.24.28.32 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3.2.2.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]-1,667 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,457 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]30.31.30.32.63.83.34.39.53.73.63.37.34.63.83.33.33.37.38.32.3.34.33 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]26 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]30.32.33.34.37.63.83 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.2.3.3.2.3.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3,889 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,578 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]48.54.84.14.40.44.34.54.40.45.54.24.54.74.34.47.24.4.34 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]20 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]24.34.40.54 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.3.2.4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,556 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,513 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]5 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]5.54.50.50.54.45.57.54.85.15.54.75.59.53.85.59.58.51 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]18 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]50.54.59.85 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.4.2.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]-0,556 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,486 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]6 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]68.67.60.63.69.69.76.6.63.63.62.66 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]13 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]63.69 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]-3,333 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,406 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]7 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]67.17.7.78.76.57.70.75.7.77.74.73.37.70.47.7.37.78.72 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]20 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]7.37.70.78 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3.2.2.2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,556 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,513 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]89.48.68.82.28.78.84.83.89.18.85.89.85.83.28.78.38.58 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]18 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]28.78.83.85.89 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.2.2.2.3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]-0,556 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,486 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]89.69.9.69.90.89.89.59.39.19.19.59.9 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]13 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9.19.59.69.89 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2.2.2.2.3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]10 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]1,667 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0,565 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[/TABLE]

[FONT=Courier New][SIZE=3][COLOR=#0000ff][B]Numeri Estratti In Cifra[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]Progetto By Fillotto[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]Script By Mike58[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]Work In Progress[/COLOR][/SIZE][/FONT]

joe · 19 Gennaio 2019

Ciao Filotto,

Ascolta me, organizza le tue idee e scrivi tu.

Seguendo lo stesso algoritmo=soluzione=ordine, che seguiresti,

per sviluppare la tua idea ... con carta e penna.

Partendo dall'elenco delle estrazioni ed un foglio

per spuntare, o annotare, ciò che vuoi.

E' molto più semplice trovare una una buona soluzione in questo modo,

piuttosto che incasinarsi in uno script concepito da altri,

dunque fatto con altra logica che, esistente e sottesa,

prima deve essere capita, poi modificata rispettando

i vincoli anche'essi esistenti (di forma e sintassi)

ed avere una completa supervisione della struttura presente,

delle variabili utilizzate, delle soluzioni adottate.

Spesso la struttura deve essere anche modificata profondamente.

Spesso "rovesciata" perché potrebbe avere "profili di incompatibilità"

perché è evidentemente orientata a produrre risultati diversi da quelli voluti.

Nelle peggiori ipotesi potrebbe, non esserci neppure la struttura idonea,

ad essere modificata, o peggio, una che modificata si rende totalmente incompatibile,

al risultato auspicato. O semplicemente produce risultati sbagliati.

Risultati che, per essere allineati al vero, impegnano in ulteriori controlli e nuove modifiche.

fillotto · 19 Gennaio 2019

Salve Joe sicuramente è come dici tu ma il problema e che se non capisco perchè nel primo script i mancanti appaiano e nel secondo no non riesco ad anndare avanti, l'unica cosa che mi viene da pensare è che cambia :nel primo abbiamo una matrice 18x5 nel secondo un vettore di 90 num appartenenti alla stessa posizione .
Mi sembra di aver capito tutte le istruzioni (Mi smbra...) ciò nonostante il risultato è diverso da quello che mi attendessi ....,poi posso anche cimentarmi sulla falsariga del file fatto con excel ( in questo caso mi è bastato contare i 90 numeri presenti nell'intervallo e vedere in una tabella le presenze poi con la formattazione condizionale ho evidenziato quelli usciti 0 volte. In un'altra tabella (quindi 2 tab)
rilevo la differenza percentuale dell'uscita delle cifre in + o in - delle teoriche. l'unica cosa che mi ritardava era che dovevo prendere i 90 e metterli da un foglio ad un altro che ho risolto con questa piccola macro:

Codice:

Sub Prendi90()
'
'

    Sheets("Archi").Select
    ActiveCell.Offset(-90, 0).Range("A1:A90").Select
    Selection.Copy
    Sheets("RicercaPosiz").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
End Sub

joe · 19 Gennaio 2019

Di percentuale ... non voglio neppure sentire parlare!!!

Il fatto è che quello script interessava a Mike scriverlo in quel modo.

Per soddisfare una sua ambizione e/o curiosità.

O forse anche solo per cortesia, considerando che lo avevi richiesto.

... quello che chiedi adesso ...

E' molto difficile da spiegare:

Mike, controlla cifra per cifra

e di conseguenza (ma necessariamente) compone la tabella riga per riga

I numeri non appartengono a questo gruppo/riga.

Dunque non possono essere rilevati con uno solo dei parametri.

Cioè con il titolo della riga

"Meno ancora" SOLO in funzione esclusiva della loro cadenza o decina.

Poi c'è un errore di sintassi in una delle istruzioni principali e cardine

che hai usato per la ricerca in posizione che si inviluppa in uno

di logica che si è creato nello script.

Sono molti anni che non programmi nel VBA di excel.

Ma come ti accennavo il quel contesto "parti" da un elenco di estrazioni,

(limitato nel periodo di 90), e con le formule da esso selezioni i numeri.

Non c'è differenza di algoritmo da quello che ti ho proposto e che sei capace di fare.

Ti rilascio una copia dello script con alcune modifiche cui ho acccennato.

Non è detto che funzionino ... ma qualcosa paiono risolvere.

Codice:

Option Explicit
Sub Main
Dim Ini,Fin,Scarto,Es,R,Tot,Posi,Rip
Dim Cifre ,P,N,X,K,KK,KKK
Dim PresTeo,Att2,Att3
  Dim Nu(1),Ru(1),Pos(5),T,V,VetN,VetQ

  Scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Layout ",0))

  Ini = EstrazioneFin - 89 - Scarto
  Fin = EstrazioneFin - Scarto
  Tot = Fin - Ini + 1
  R = CInt(InputBox("mettere il numero dellaRuota","SCEGLI LA RUOTA",1))
  Posi = CInt(InputBox("SCELI LA POSIZIONE (1/5)","POSIZIONE ",1))
  Pos(Posi)= True 
  ' r=2
  Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
  Scrivi "Range Fine........... " & GetInfoEstrazione(Fin)
  Scrivi "Totale Etrazioni..... " & Tot
  Scrivi "Ruota analizzata..... " & NomeRuota(R)
  Scrivi "Escluse le ultime.... " & Scarto & " estrazioni."
  Scrivi "Posizione analizzata. " & Posi
  Scrivi
  T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Diff % ","Attendibilità","Numeri mancanti")
  InitTabella(T)
  For Cifre = 0 To 9
    For Es = Ini To Fin
      For P = Posi To Posi
        N = Estratto(Es,R,P)
        Nu(1) = N
        Ru(1) = R
        If Decina(N) = Cifre Or Cadenza(N) = Cifre Then
          K = K + 1
          If Gemello(N) Then K = K + 1 'ANCHE QUI tutto in una riga
          ReDim Preserve cifra(K)
          cifra(K) = N
          Rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
        End If
      Next
    Next
    ReDim mancanti(90)
    For X = 1 To 90
      If Decina(X) = Cifre Or Cadenza(X) = Cifre Then
        KK = KK + 1
        If Gemello(X) Then KK = KK + 1 '
        If EstrattoFrequenza ( R,X,Ini,Fin,,,Pos ) = 0 Then
          KKK = KKK + 1
          mancanti(KKK) = X
        End If
      End If
    Next
    PresTeo = KK 'presTeo = kk
    Att2 = Round(K/1.8 - PresTeo/1.8,3)' 'HO AGGIUNTO UNA COLONNA  che mi indica se sotto o sopra la % teorica
    Att3 = Round((Dividi(K,K + PresTeo)),3)
    V = Array(V,Cifre,StringaNumeri(cifra),K,StringaNumeri(VetN),StringaNumeri(VetQ),KK,Att2,Att3,StringaNumeri(mancanti))
    Call AddRigaTabella(V)
    K = 0
    KK = 0
    KKK = 0
  Next
  CreaTabella
  Scrivi "Numeri Estratti In Cifra",1,,,1,3
  Scrivi "Progetto By Fillotto",1,,,1,2
  Scrivi "Script By Mike58",1,,,1,2
  Scrivi "Work In Progress",,,,2
End Sub

fillotto · 19 Gennaio 2019

grazie Joe , mi ci vorrà un po di tempo per capire ma sto in pensione eheheh

Cerca

Cerca

scomposizione in cifre

Mike58

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

fillotto

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

fillotto

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

fillotto

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi