UNO SCRIPT per chi può

Alien. · 29 Aprile 2020

Ciao mi serve uno script per il superenalotto dove mi da solo le colonne vincenti dal n 1 al n 69 con uscite Pari e Dispari
ovviamente con aggiornamento con input 100/300 ecc colonne oppure se possibile per anno in anno,grazie.
Dimenticavo puoi indicare le formule Pari e Dispari 06-15-42-33 ecc uscite in un anno......o in 100/300 concorsi....acc.....credo di essere andato oltre..........

joe · 30 Aprile 2020

Mi spiace, no.

Non conosco regole archivi metodi e quanto chiedi.

Ed è anche totalmente al di fuori di ogni mio interesse.

Alien. · 5 Maggio 2020

Alien. · 7 Maggio 2020

Alien. · 8 Maggio 2020

Non credevo fosse così complicato

Mike58 · 9 Maggio 2020

Non è difficile solo che come dice Joe mancano specifiche precise e manca soprattutto il fine.
comunque prova così.

Ciao

Codice:

Sub Main
   Dim Nu(6),T,V
   ess = InputBox("Quante estrazioni",,156)
   Ini = EstrazioniArchivioSE - ess
   fin = EstrazioniArchivioSE
   Scrivi "Inizio Estrazioni SuperEnalotto.... " & GetInfoEstrazioneSE(Ini),1
   Scrivi "Fine estrazione   SuperEnalotto.... " & GetInfoEstrazioneSE(fin),1
   T = Array(T,"Info Data","Colonna  < 70","Q,tà","Pari","Dispari")
   Call InitTabella(T)
   For es = Ini To fin
      For p = 1 To 6
         a = EstrattoSE(es,p)
         If a < 70 Then
            k = k + 1
            Nu(p) = a
         End If
         If pari(Nu(p)) Then par = par + 1
         If dispari(Nu(p)) Then dis = dis + 1
      Next
      If k = 6 Then
         kk = kk + 1
         If par = 0 Then par0 = par0 + 1
         If par = 1 Then par1 = par1 + 1
         If par = 2 Then par2 = par2 + 1
         If par = 3 Then par3 = par3 + 1
         If par = 4 Then par4 = par4 + 1
         If par = 5 Then par5 = par5 + 1
         If par = 6 Then par6 = par6 + 1
         V = Array(V,GetInfoEstrazioneSE(es),StringaNumeri(Nu),k,par,dis)
         Call AddRigaTabella(V)
      End If
      k = 0
      par = 0
      dis = 0
   Next
   CreaTabellaOrdinabile
   'par1 = 0
   Scrivi "Riepilogo Pari - Dispari - Tot"
   Scrivi String(40,"-")
   Scrivi Space(11) & " 0  -  6 " & Space(4) & " -  " & par0
   Scrivi Space(11) & " 1  -  5 " & Space(4) & " -  " & par1
   Scrivi Space(11) & " 2  -  4 " & Space(4) & " -  " & par2
   Scrivi Space(11) & " 3  -  3 " & Space(4) & " -  " & par3
   Scrivi Space(11) & " 4  -  1 " & Space(4) & " -  " & par4
   Scrivi Space(11) & " 5  -  1 " & Space(4) & " -  " & par5
   Scrivi Space(11) & " 6  -  0 " & Space(4) & " -  " & par6
   Scrivi String(40,"-")
   Scrivi "Trovati.... " & kk,1
End Sub

Alien. · 10 Maggio 2020

Ciao Mike58 lo script è da "OSCAR",grazie, dici mancano specifiche precise,in che senso,?manca il fine? .Puoi aggiungere i numeri + freq in un tot di estrazione ,e se vi sono ambi,terni ecc uguali.Per adesso se non mi invii alla prima porta a destra

Dimenticavo numero minimo e max uscito in ogni estrazione.Input data anno ,restando anche l'attuale di numero estrazioni..........?

Mike58 · 10 Maggio 2020

Alien, alieno carissimo le specifiche di una richiesta più sono dettagliate e meglio sono le indicazioni per lo scripter, poi il fine, beh !! rende più piacevole la ricerca.
Ad ogni modo in questo pianeta c'è ancora chi cerca di capire.
eccoti un aggiunta allo script.
P.s. Oscar magari alla carriera è gradito.

Codice:

Sub Main
   Dim Nu(6),T,V
   ess = InputBox("Quante estrazioni",,156)
   NumMin = CInt(InputBox("Numero Minimo scelto",,1))
   NumMax = CInt(InputBox("Numero Massimo scelto",,69))
   Ini = EstrazioniArchivioSE - ess
   fin = EstrazioniArchivioSE
   Scrivi "Inizio Estrazioni SuperEnalotto.... " & GetInfoEstrazioneSE(Ini),1
   Scrivi "Fine estrazione   SuperEnalotto.... " & GetInfoEstrazioneSE(fin),1
   Scrivi "ToTali EstraZioni Esaminate........ " & Fin - Ini + 1,1
   Scrivi "Numeri tra " & NumMin & " e " & NumMax,1
   Scrivi
   T = Array(T,"Info Data","Colonna tra " & NumMin & " - " & NumMax,"Q,Tà","pari","dispari","MinNum","MaxNum")
   Call InitTabella(T)
   For es = Ini To fin
      For p = 1 To 6
         a = EstrattoSE(es,p)
         If a <= NumMax And a >= NumMin Then
            k = k + 1
            Nu(p) = a
         End If
         If pari(Nu(p)) Then par = par + 1
         If dispari(Nu(p)) Then dis = dis + 1
      Next
      If k = 6 Then
         kk = kk + 1
         If par = 0 Then par0 = par0 + 1
         If par = 1 Then par1 = par1 + 1
         If par = 2 Then par2 = par2 + 1
         If par = 3 Then par3 = par3 + 1
         If par = 4 Then par4 = par4 + 1
         If par = 5 Then par5 = par5 + 1
         If par = 6 Then par6 = par6 + 1
         max = MassimoV(Nu)
         min = MinimoV(Nu,1,- 1)
         V = Array(V,GetInfoEstrazioneSE(es),StringaNumeri(Nu),k,par,dis,min,max)
         Call AddRigaTabella(V)
      End If
      k = 0
      par = 0
      dis = 0
   Next
   CreaTabellaOrdinabile
   Scrivi "Presenza Numeri e Quantità",1
   ' Scrivi
   For x = 0 To 100
      For y = NumMin To NumMax
         If EstrattoFrequenzaSE(y,Ini,fin) = x Then
            'If ef = x Then
            kn = kn + 1
            ReDim Preserve riga(kn)
            riga(kn) = y
         End If
      Next
      If kn > 0 Then
         Scrivi "Pres " & Format2(x) & " Num... " & StringaNumeri(riga)
      End If
      kn = 0
   Next
   Scrivi
   '------------------------------------------------------------------
   Dim F(4005,4)
   Scrivi "Ambi più Frequenti",1
   For xx = NumMin To NumMax - 1
      For yy = xx + NumMin To NumMax
         af = AmboFrequenzaSE(xx,yy,Ini,fin)
         ar = AmboRitardoSE(xx,yy,Ini,fin)
         'If af > 3 Then
         kf = kf + 1
         F(kf,1) = "Ambo Freq... "
         F(kf,2) = Format2(xx) & "." & Format2(yy)
         F(kf,3) = af
         F(kf,4) = ar
         'End If
      Next
   Next
   Call OrdinaMatrice(F,- 1,3)
   For xy = 1 To 10
      Scrivi F(xy,1) & F(xy,2) & " - " & F(xy,3) & " - Ritarda da... " & F(xy,4)
   Next
   'End If
   'Next
   'Next
   Scrivi
   'par1 = 0
   Scrivi "Riepilogo Pari - Dispari - Tot",1
   Scrivi String(40,"-")
   Scrivi Space(11) & " 0  -  6 " & Space(4) & " -  " & par0
   Scrivi Space(11) & " 1  -  5 " & Space(4) & " -  " & par1
   Scrivi Space(11) & " 2  -  4 " & Space(4) & " -  " & par2
   Scrivi Space(11) & " 3  -  3 " & Space(4) & " -  " & par3
   Scrivi Space(11) & " 4  -  1 " & Space(4) & " -  " & par4
   Scrivi Space(11) & " 5  -  1 " & Space(4) & " -  " & par5
   Scrivi Space(11) & " 6  -  0 " & Space(4) & " -  " & par6
   Scrivi String(40,"-")
   Scrivi "Trovati.................... " & kk,1
   Scrivi Space(60) & "Script By Mike58",1,,,2,3
End Sub

Alien. · 10 Maggio 2020

Direi promosso con 110 e lode, ecco dopo la carota il bastone

Ottimo il trasferimento in excel ma mi servirebbe ogni numero nel proprio "campo" o casella per poter fare dei conti.
Si può fare,grazie. Ovviamente se lo script è da" OSCAR" non credo che l'autore sia da meno non credi ?
con gli Alieni ci vuole pazienza vivono in un altro mondo per fortuna ???

Sai come posso fare per evidenziare i numeri di ricerca su excel ?grazie.

Mike58 · 10 Maggio 2020

Alien, SI !! si può fare basta anziché scrivere l'intera stringa (stringaNumeri) che sono 6 scrivere Nu(1) etch.
Poi per evidenziare in Excel dei numeri o campi voluti si potrebbe usare la formattazione condizionale.
Sei un TantiNello BiriCcHiNo ma rimani sempre un alieno SimPaTiCisSiMo.

Codice:

Sub Main
   Dim Nu(6),T,V
   ess = InputBox("Quante estrazioni",,156)
   NumMin = CInt(InputBox("Numero Minimo scelto",,1))
   NumMax = CInt(InputBox("Numero Massimo scelto",,69))
   Ini = EstrazioniArchivioSE - ess
   fin = EstrazioniArchivioSE
   Scrivi "Inizio Estrazioni SuperEnalotto.... " & GetInfoEstrazioneSE(Ini),1
   Scrivi "Fine estrazione   SuperEnalotto.... " & GetInfoEstrazioneSE(fin),1
   Scrivi "ToTali EstraZioni Esaminate........ " & Fin - Ini + 1,1
   Scrivi "Numeri tra " & NumMin & " e " & NumMax,1
   Scrivi
   T = Array(T,"Info Data","N1","N2","N3","N4","N5","N6","Q,Tà","pari","dispari","MinNum","MaxNum")
   Call InitTabella(T)
   For es = Ini To fin
      For p = 1 To 6
         a = EstrattoSE(es,p)
         If a <= NumMax And a >= NumMin Then
            k = k + 1
            Nu(p) = a
         End If
         If pari(Nu(p)) Then par = par + 1
         If dispari(Nu(p)) Then dis = dis + 1
      Next
      If k = 6 Then
         kk = kk + 1
         If par = 0 Then par0 = par0 + 1
         If par = 1 Then par1 = par1 + 1
         If par = 2 Then par2 = par2 + 1
         If par = 3 Then par3 = par3 + 1
         If par = 4 Then par4 = par4 + 1
         If par = 5 Then par5 = par5 + 1
         If par = 6 Then par6 = par6 + 1
         max = MassimoV(Nu)
         min = MinimoV(Nu,1,- 1)
         V = Array(V,GetInfoEstrazioneSE(es),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),Nu(6),k,par,dis,min,max)
         Call AddRigaTabella(V)
      End If
      k = 0
      par = 0
      dis = 0
   Next
   CreaTabellaOrdinabile
   Scrivi "Presenza Numeri e Quantità",1
   ' Scrivi
   For x = 0 To 100
      For y = NumMin To NumMax
         If EstrattoFrequenzaSE(y,Ini,fin) = x Then
            'If ef = x Then
            kn = kn + 1
            ReDim Preserve riga(kn)
            riga(kn) = y
         End If
      Next
      If kn > 0 Then
         Scrivi "Pres " & Format2(x) & " Num... " & StringaNumeri(riga)
      End If
      kn = 0
   Next
   Scrivi
   '------------------------------------------------------------------
   Dim F(4005,4)
   Scrivi "Ambi più Frequenti",1
   For xx = NumMin To NumMax - 1
      For yy = xx + NumMin To NumMax
         af = AmboFrequenzaSE(xx,yy,Ini,fin)
         ar = AmboRitardoSE(xx,yy,Ini,fin)
         'If af > 3 Then
         kf = kf + 1
         F(kf,1) = "Ambo Freq... "
         F(kf,2) = Format2(xx) & "." & Format2(yy)
         F(kf,3) = af
         F(kf,4) = ar
         'End If
      Next
   Next
   Call OrdinaMatrice(F,- 1,3)
   For xy = 1 To 10
      Scrivi F(xy,1) & F(xy,2) & " - " & F(xy,3) & " - Ritarda da... " & F(xy,4)
   Next
   'End If
   'Next
   'Next
   Scrivi
   'par1 = 0
   Scrivi "Riepilogo Pari - Dispari - Tot",1
   Scrivi String(40,"-")
   Scrivi Space(11) & " 0  -  6 " & Space(4) & " -  " & par0
   Scrivi Space(11) & " 1  -  5 " & Space(4) & " -  " & par1
   Scrivi Space(11) & " 2  -  4 " & Space(4) & " -  " & par2
   Scrivi Space(11) & " 3  -  3 " & Space(4) & " -  " & par3
   Scrivi Space(11) & " 4  -  1 " & Space(4) & " -  " & par4
   Scrivi Space(11) & " 5  -  1 " & Space(4) & " -  " & par5
   Scrivi Space(11) & " 6  -  0 " & Space(4) & " -  " & par6
   Scrivi String(40,"-")
   Scrivi "Trovati.................... " & kk,1
   Scrivi Space(60) & "Script By Mike58",1,,,2,3
End Sub

Alien. · 10 Maggio 2020

Allora mi prendo l'Oscar simpatico dell'anno hahahahhahahahaha è non male per un Alieno........
perdonami ma controllando:
forse il 27 è uscito 5 volte compreso le colonne vincenti fino al 90 ?
IN CASO POSITIVO PUOI MODIFICARE ?GRAZIE.

Presenza Numeri e Quantità
Pres 05 Num... 27	in 156 estrazioni il 27 risulta uscito una sola volta
Pres 06 Num... 24
Pres 08 Num... 3.14.34.64
Pres 09 Num... 2.19
Pres 10 Num... 7.30.39.44

Puoi fare la media di uscite delle colonne vincenti dal 1 al 69 ?

A ME RISULTA:

1	5
2	0
3	1
4	0
5	3
6	2
7	4
8	2
9	0
10	2
11	2
12	3
13	4
14	0
15	0
16	3
17	2
18	1
19	2
20	2
21	2
22	2
23	1
24	1
25	3
26	2
27	1
28	6
29	4
30	2
31	4
32	2
33	4
34	1
35	1
36	4
37	5
38	2
39	2
40	2
41	0
42	2
43	0
44	2
45	1
46	2
47	3
48	2
49	1
50	3
51	2
52	3
53	1
54	2
55	2
56	1
57	3
58	2
59	4
60	3
61	1
62	2
63	2
64	1
65	6
66	2
67	3
68	4
69	1
70	0
71	0
72	0
73	0
74	0
75	0
76	0
77	0
78	0
79	0
80	0
81	0
82	0
83	0
84	0
85	0
86	0
87	0
88	0
89	0
90	0

Mike58 · 10 Maggio 2020

Si Alien, forse hai ragione in parte.
Il 27 in 156 concorsi ultimi è uscito 2 volte
1 3005 06.16.21.27.33.66.01.45
2 3006 20.22.27.43.46.72.28.61
3 3030 11.59.63.73.84.89.62.27
4 3102 17.29.30.49.63.65.15.27
come puoi vedere, purtroppo ora che mi sovviene i codici di statistica nel superEnalotto contemplano anche jolly e superStar.
Mi pare che con qualche utente avevano segnalato questo in passato, ma poi Luigi ha abbandonato il tutto.
Certo ci si può ingegnare ad hoc, ma risulta complicato.
Sicuramente come dici avendo fatto più script in uno la statistica allaccia l'archivio intero dei 90 numeri e con l'aggiunta di SuperStar e Jolly.

Dai cerca di utilizzarlo cosi, purtroppo mi manca il tempo per capire e trovare una escamotage.

Ciao

Alien. · 11 Maggio 2020

Si ti ringrazio mi hai reso un gran servizio .
Comunque le estrazioni vincenti dall'1 al 69 sono giuste ?

Cerca

Cerca

UNO SCRIPT per chi può

Alien.

Advanced Premium Member

joe

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi

1	5
2	0
3	1
4	0
5	3
6	2
7	4
8	2
9	0
10	2
11	2
12	3
13	4
14	0
15	0
16	3
17	2
18	1
19	2
20	2
21	2
22	2
23	1
24	1
25	3
26	2
27	1
28	6
29	4
30	2
31	4
32	2
33	4
34	1
35	1
36	4
37	5
38	2
39	2
40	2
41	0
42	2
43	0
44	2
45	1
46	2
47	3
48	2
49	1
50	3
51	2
52	3
53	1
54	2
55	2
56	1
57	3
58	2
59	4
60	3
61	1
62	2
63	2
64	1
65	6
66	2
67	3
68	4
69	1
70	0
71	0
72	0
73	0
74	0
75	0
76	0
77	0
78	0
79	0
80	0
81	0
82	0
83	0
84	0
85	0
86	0
87	0
88	0
89	0
90	0

1	5
2	0
3	1
4	0
5	3
6	2
7	4
8	2
9	0
10	2
11	2
12	3
13	4
14	0
15	0
16	3
17	2
18	1
19	2
20	2
21	2
22	2
23	1
24	1
25	3
26	2
27	1
28	6
29	4
30	2
31	4
32	2
33	4
34	1
35	1
36	4
37	5
38	2
39	2
40	2
41	0
42	2
43	0
44	2
45	1
46	2
47	3
48	2
49	1
50	3
51	2
52	3
53	1
54	2
55	2
56	1
57	3
58	2
59	4
60	3
61	1
62	2
63	2
64	1
65	6
66	2
67	3
68	4
69	1
70	0
71	0
72	0
73	0
74	0
75	0
76	0
77	0
78	0
79	0
80	0
81	0
82	0
83	0
84	0
85	0
86	0
87	0
88	0
89	0
90	0

1	5
2	0
3	1
4	0
5	3
6	2
7	4
8	2
9	0
10	2
11	2
12	3
13	4
14	0
15	0
16	3
17	2
18	1
19	2
20	2
21	2
22	2
23	1
24	1
25	3
26	2
27	1
28	6
29	4
30	2
31	4
32	2
33	4
34	1
35	1
36	4
37	5
38	2
39	2
40	2
41	0
42	2
43	0
44	2
45	1
46	2
47	3
48	2
49	1
50	3
51	2
52	3
53	1
54	2
55	2
56	1
57	3
58	2
59	4
60	3
61	1
62	2
63	2
64	1
65	6
66	2
67	3
68	4
69	1
70	0
71	0
72	0
73	0
74	0
75	0
76	0
77	0
78	0
79	0
80	0
81	0
82	0
83	0
84	0
85	0
86	0
87	0
88	0
89	0
90	0