Aiuto per script .

antopun · 15 Agosto 2015

Ciao e buongiorno a voi tutti , innanzitutto vorrei augurarvi un buon e felice ferragosto, che sia di buon auspicio x un imminente vincita in modo da far rientrare un po' di quei soldini che in questo periodo vanno via causa vacanze o al max per una bella giornata trascorsa al mare con i familiari,fidanzat i/e o con gli amici. Detto questo chiedo gentilmente a voi amici del forum se e' possibile aiutarmi a trovare o a fare uno script che analizzi solo i mesi .Faccio un esempio: vorrei analizzare il mese di agosto dal 01/08/2001 al 01/08/2014 quali numeri su di una ruota (esempio Napoli) sono usciti piu' frequentemente sia x ambo o per terno. Faccio presente a tutti , considerando che siamo a ferragosto, di scusarmi x il fastidio dato, e ringrazio anticipatamente tutti del forum sia x l'attenzione sia per un aiuto a riguardo di questo script da me richiesto. In fede Antonio.

avatar · 15 Agosto 2015

ciao antopun buon ferragosto

antopun · 18 Agosto 2015

Ciao a tutti,ringrazio il fratello avatar e vi chiedo

ossibile che nessuno sa dirmi o aiutarmi nel trovare questo script??
Ringrazio chiunque mi da un aiuto anticipatamente ,Antonio.

avatar · 18 Agosto 2015

ciao antopun ....io con gli script so poco
cmq. ho modificato ,questo che elaborava
i numeri spia.

spiego le modifiche

per scegliere il mese
ms = InputBox("MESE da ricercare ",,8):ms = CInt(ms)
per sceglire la ruota
r = InputBox("su ruota ",,1):r = CInt(r):ru(1) = r

ho mdificato

If Posizione(es,r,n(1)) > 0 Then : a = n(1) : ok = 1

che ricercava i numeri spia,sostituito con

If IndiceMensile(es) = 1 And Mese(es) = ms Then
che ricerca il mese

per visualizzare il mese ho tolto
StringaNumeri

sostituito con MeseNome(ms)

queste le modifiche lo script
ricerca le ambate e gli ambi piu frequenti
e piu presenti.
i non sono riuscito a inserire i terni ma puoi
accorpare gli ambi in terni

manca per selezionare il range di ricerca
per modificarlo sostituire 1000 con q.t
estrazioni che servono
ini = fin - 1000 '<<<<<<<-------- numero di estrazioni

Sub Main()
Dim n(2),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(5)
Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(5),nu4(90,3),nx(9 0),aa

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,8):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin
ini = fin - 1000 '<<<<<<<-------- numero di estrazioni
For es = ini To fin
Messaggio " mese " & MeseNome(ms) & " Data " & DataEstrazione(es)

ok = 0
'For r = 6 To 6
'For r1 = 2 To 2

ru(1) = r
ru(2) = r1

For b = 1 To 1

aa1 = Estratto(es,r,1)
aa2 = Estratto(es,r,2)
aa3 = Estratto(es,r,3)
aa4 = Estratto(es,r,4)
aa5 = Estratto(es,r,5)

If IndiceMensile(es) = 1 And Mese(es) = ms Then

casi = casi + 1
ww = 12 ' <<<<<<---CAMBIO NUMERO ESTRAZIONI DA CONTROLLARE IN SEGUITO ALL'USCITA DEI 2 NUMERI DI RICERCA
ess = es + ww
If ess > fin Then ess = fin End If
Scrivi " "

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1)
Scrivi DataEstrazione(es + 2) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 2,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 2,r1)
Scrivi DataEstrazione(es + 3) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 3,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 3,r1)
Scrivi DataEstrazione(es + 4) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 4,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 4,r1)
Scrivi DataEstrazione(es + 5) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 5,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 5,r1)
Scrivi DataEstrazione(es + 6) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 6,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 6,r1)
Scrivi DataEstrazione(es + 7) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 7,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 7,r1)
Scrivi DataEstrazione(es + 8) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 8,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 8,r1)
Scrivi DataEstrazione(es + 9) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 9,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 9,r1)
Scrivi DataEstrazione(es + 10) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 10,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 10,r1)
Scrivi DataEstrazione(es + 11) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 11,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 11,r1)
Scrivi DataEstrazione(es + 12) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 12,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 12,r1)

co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
bb = Fuori90(x1 + y1)
co = co + 1
nu1(co,1) = co:nu1(co,2) = x1:nu1(co,3) = y1
nn(1) = x1:nn(2) = y1:nn(3) = bb:ru(1) = r
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co:nu2(co,2) = x1:nu2(co,3) = y1
nn1(1) = x1:nn1(2) = y1:nn1(3) = bb:ru(1) = r
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
Next
Next

co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co:nu3(co,2) = xx
nn2(1) = xx:ru(1) = r:
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co:nu4(co,2) = xx
nn2(1) = xx:ru(1) = r
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next

End If
Next : Next

OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3

ColoreTesto 2
Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
" estrazioni sucessive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti" & _
"+frequenti nei c. / Estratti+presenti "
Scrivi
ColoreTesto 2
Scrivi Space(10) & "Ambi+P. Tot. Ambo+FxC Tot. Est.+FxC Tot. Est.+Pr Tot."
ColoreTesto 0
For wx = 1 To 10
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & Space(3) & Format2(nu1(wx,4)) & Space(3) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & Space(4) & Format2(nu2(wx,4)) & Space(6) & _
Format2(nu3(wx,2)) & Space(4) & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & Space(3) & _
Format2(nu4(wx,3))
Scrivi Space(10) & riga,1
riga = ""
Next
Scrivi String(90,"*")
End Sub

Function informa(es,r,r1,a,b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(a) & " " & Left(NomeRuota(r1),2) & " " & Format2(b),1
End Function

ciao antopun

avatar

antopun · 20 Agosto 2015

No Title

Ciao e grazie frate', ho copiato quello che hai fatto ma purtroppo mi da errore script, come da foto. Io purtroppo non ne capisco niente, quindi non se puoi aggiustarlo tu l'errore ,se poi anche tu non ci riesci, devo solo sperare in qualche buon amico del forum che provveda ad aggiustarlo. Ringrazio chiunque si presti ad aiutarmi. In Fede Antonio.

antopun · 20 Agosto 2015

No Title

Mike58 · 20 Agosto 2015

Ciao Antonio lo script postato da avatar da errore perché cosi postato stacca alcuni caratteri e quindi vizia degli errori.

Lo script comunque è abbastanza valido, lo riformatto e te lo posto in modo da poterlo leggere.

Codice:

Sub Main()

Dim n(2),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(5)

Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(5),nu4(90,3),nx(90),aa

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,8):ms = CInt(ms)

r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin

ini = fin - 1000 '<<<<<<<-------- numero di estrazioni

For es = ini To fin

Messaggio " mese " & MeseNome(ms) & " Data " & DataEstrazione(es)

ok = 0

'For r = 6 To 6

'For r1 = 2 To 2

ru(1) = r

ru(2) = r1

For b = 1 To 1

aa1 = Estratto(es,r,1)

aa2 = Estratto(es,r,2)

aa3 = Estratto(es,r,3)

aa4 = Estratto(es,r,4)

aa5 = Estratto(es,r,5)

If IndiceMensile(es) = 1 And Mese(es) = ms Then

casi = casi + 1

ww = 12 ' <<<<<<---CAMBIO NUMERO ESTRAZIONI DA CONTROLLARE IN SEGUITO ALL'USCITA DEI 2 NUMERI DI RICERCA

ess = es + ww

If ess > fin Then ess = fin End If

Scrivi " "

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)

Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1)

Scrivi DataEstrazione(es + 2) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 2,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 2,r1)

Scrivi DataEstrazione(es + 3) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 3,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 3,r1)

Scrivi DataEstrazione(es + 4) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 4,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 4,r1)

Scrivi DataEstrazione(es + 5) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 5,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 5,r1)

Scrivi DataEstrazione(es + 6) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 6,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 6,r1)

Scrivi DataEstrazione(es + 7) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 7,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 7,r1)

Scrivi DataEstrazione(es + 8) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 8,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 8,r1)

Scrivi DataEstrazione(es + 9) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 9,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 9,r1)

Scrivi DataEstrazione(es + 10) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 10,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 10,r1)

Scrivi DataEstrazione(es + 11) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 11,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 11,r1)

Scrivi DataEstrazione(es + 12) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 12,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 12,r1)

co = 0

For x1 = 1 To 89

For y1 = x1 + 1 To 90

bb = Fuori90(x1 + y1)

co = co + 1

nu1(co,1) = co:nu1(co,2) = x1:nu1(co,3) = y1

nn(1) = x1:nn(2) = y1:nn(3) = bb:ru(1) = r

k1 = SerieFreq(es + 1,ess,nn,ru,2)

nu1(co,4) = nu1(co,4) + k1

nu2(co,1) = co:nu2(co,2) = x1:nu2(co,3) = y1

nn1(1) = x1:nn1(2) = y1:nn1(3) = bb:ru(1) = r

k2 = SerieFreq(es + 1,ess,nn1,ru,2)

If k2 > 1 Then k2 = 1

nu2(co,4) = nu2(co,4) + k2

Next

Next

co = 0

For xx = 1 To 90

co = co + 1

nu3(co,1) = co:nu3(co,2) = xx

nn2(1) = xx:ru(1) = r:

k3 = SerieFreq(es + 1,ess,nn2,ru,1)

If k3 > 1 Then k3 = 1

nu3(co,3) = nu3(co,3) + k3

nu4(co,1) = co:nu4(co,2) = xx

nn2(1) = xx:ru(1) = r

k4 = SerieFreq(es + 1,ess,nn2,ru,1)

nu4(co,3) = nu4(co,3) + k4

Next

End If

Next : Next

OrdinaMatrice nu1,- 1,4

OrdinaMatrice nu2,- 1,4

OrdinaMatrice nu3,- 1,3

OrdinaMatrice nu4,- 1,3

ColoreTesto 2

Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _

DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""

ColoreTesto 1

Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _

" estrazioni sucessive "

ColoreTesto 2

Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "

ColoreTesto 1

Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti" & _

"+frequenti nei c. / Estratti+presenti "

Scrivi

ColoreTesto 2

Scrivi Space(10) & "Ambi+P. Tot. Ambo+FxC Tot. Est.+FxC Tot. Est.+Pr Tot."

ColoreTesto 0

For wx = 1 To 10

riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & Space(3) & Format2(nu1(wx,4)) & Space(3) & _

Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & Space(4) & Format2(nu2(wx,4)) & Space(6) & _

Format2(nu3(wx,2)) & Space(4) & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & Space(3) & _

Format2(nu4(wx,3))

Scrivi Space(10) & riga,1

riga = ""

Next

Scrivi String(90,"*")

End Sub

Function informa(es,r,r1,a,b)

Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _

Format2(a) & " " & Left(NomeRuota(r1),2) & " " & Format2(b),1

End Function

antopun · 20 Agosto 2015

Buongiorno e grazie fratello Mike58 come sempre mi sei venuto in aiuto come fai con tutti, sei stato molto gentile non so come ricambiare ,spero un giorno di poterlo fare, come del resto con tutti gli altri fratelli. Colgo l'occasione di ringraziare anche il fratello avatar che subito si e messo all'opera nel fare lo script anche se mi ha detto di controllare dato che di script non ne mastica tanto, cmq quello che conta e che siete unici qui, da non credere ne sono onorato di fare parte di questo magnifico forum . In Fede Antonio.

Alien. · 21 Agosto 2015

avatar;n1909138 ha scritto:
ciao antopun ....io con gli script so poco
cmq. ho modificato ,questo che elaborava
i numeri spia.

spiego le modifiche

per scegliere il mese
ms = InputBox("MESE da ricercare ",,8):ms = CInt(ms)
per sceglire la ruota
r = InputBox("su ruota ",,1):r = CInt(r):ru(1) = r

ho mdificato

If Posizione(es,r,n(1)) > 0 Then : a = n(1) : ok = 1

che ricercava i numeri spia,sostituito con

If IndiceMensile(es) = 1 And Mese(es) = ms Then
che ricerca il mese

per visualizzare il mese ho tolto
StringaNumeri
sostituito con MeseNome(ms)

queste le modifiche lo script
ricerca le ambate e gli ambi piu frequenti
e piu presenti.
i non sono riuscito a inserire i terni ma puoi
accorpare gli ambi in terni

manca per selezionare il range di ricerca
per modificarlo sostituire 1000 con q.t
estrazioni che servono
ini = fin - 1000 '<<<<<<<-------- numero di estrazioni

Sub Main()
Dim n(2),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(5)
Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(5),nu4(90,3),nx(9 0),aa

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,8):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin
ini = fin - 1000 '<<<<<<<-------- numero di estrazioni
For es = ini To fin
Messaggio " mese " & MeseNome(ms) & " Data " & DataEstrazione(es)

ok = 0
'For r = 6 To 6
'For r1 = 2 To 2

ru(1) = r
ru(2) = r1

For b = 1 To 1

aa1 = Estratto(es,r,1)
aa2 = Estratto(es,r,2)
aa3 = Estratto(es,r,3)
aa4 = Estratto(es,r,4)
aa5 = Estratto(es,r,5)

If IndiceMensile(es) = 1 And Mese(es) = ms Then

casi = casi + 1
ww = 12 ' <<<<<<---CAMBIO NUMERO ESTRAZIONI DA CONTROLLARE IN SEGUITO ALL'USCITA DEI 2 NUMERI DI RICERCA
ess = es + ww
If ess > fin Then ess = fin End If
Scrivi " "

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1)
Scrivi DataEstrazione(es + 2) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 2,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 2,r1)
Scrivi DataEstrazione(es + 3) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 3,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 3,r1)
Scrivi DataEstrazione(es + 4) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 4,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 4,r1)
Scrivi DataEstrazione(es + 5) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 5,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 5,r1)
Scrivi DataEstrazione(es + 6) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 6,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 6,r1)
Scrivi DataEstrazione(es + 7) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 7,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 7,r1)
Scrivi DataEstrazione(es + 8) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 8,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 8,r1)
Scrivi DataEstrazione(es + 9) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 9,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 9,r1)
Scrivi DataEstrazione(es + 10) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 10,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 10,r1)
Scrivi DataEstrazione(es + 11) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 11,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 11,r1)
Scrivi DataEstrazione(es + 12) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 12,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 12,r1)

co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
bb = Fuori90(x1 + y1)
co = co + 1
nu1(co,1) = co:nu1(co,2) = x1:nu1(co,3) = y1
nn(1) = x1:nn(2) = y1:nn(3) = bb:ru(1) = r
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co:nu2(co,2) = x1:nu2(co,3) = y1
nn1(1) = x1:nn1(2) = y1:nn1(3) = bb:ru(1) = r
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
Next
Next

co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co:nu3(co,2) = xx
nn2(1) = xx:ru(1) = r:
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co:nu4(co,2) = xx
nn2(1) = xx:ru(1) = r
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next

End If
Next : Next

OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3

ColoreTesto 2
Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
" estrazioni sucessive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti" & _
"+frequenti nei c. / Estratti+presenti "
Scrivi
ColoreTesto 2
Scrivi Space(10) & "Ambi+P. Tot. Ambo+FxC Tot. Est.+FxC Tot. Est.+Pr Tot."
ColoreTesto 0
For wx = 1 To 10
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & Space(3) & Format2(nu1(wx,4)) & Space(3) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & Space(4) & Format2(nu2(wx,4)) & Space(6) & _
Format2(nu3(wx,2)) & Space(4) & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & Space(3) & _
Format2(nu4(wx,3))
Scrivi Space(10) & riga,1
riga = ""
Next
Scrivi String(90,"*")
End Sub

Function informa(es,r,r1,a,b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(a) & " " & Left(NomeRuota(r1),2) & " " & Format2(b),1
End Function

ciao antopun

avatar

Scusami ma mi da erroreim nu2(4005,4),nn1(6),nu3(90,3),nn2(5),nu4(90,3),nx(9 0),aa

Alien. · 21 Agosto 2015

Mike58;n1909661 ha scritto:

Ciao Antonio lo script postato da avatar da errore perché cosi postato stacca alcuni caratteri e quindi vizia degli errori.

Lo script comunque è abbastanza valido, lo riformatto e te lo posto in modo da poterlo leggere.

Codice:

Sub Main()

Dim n(2),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(5)

Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(5),nu4(90,3),nx(90),aa

ms = InputBox("INSERIRE IL NUMERO DEL MESE",,8):ms = CInt(ms)

r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r

fin = EstrazioneFin

ini = fin - 1000 '<<<<<<<-------- numero di estrazioni

For es = ini To fin

Messaggio " mese " & MeseNome(ms) & " Data " & DataEstrazione(es)

ok = 0

'For r = 6 To 6

'For r1 = 2 To 2

ru(1) = r

ru(2) = r1

For b = 1 To 1

aa1 = Estratto(es,r,1)

aa2 = Estratto(es,r,2)

aa3 = Estratto(es,r,3)

aa4 = Estratto(es,r,4)

aa5 = Estratto(es,r,5)

If IndiceMensile(es) = 1 And Mese(es) = ms Then

casi = casi + 1

ww = 12 ' <<<<<<---CAMBIO NUMERO ESTRAZIONI DA CONTROLLARE IN SEGUITO ALL'USCITA DEI 2 NUMERI DI RICERCA

ess = es + ww

If ess > fin Then ess = fin End If

Scrivi " "

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)

Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1)

Scrivi DataEstrazione(es + 2) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 2,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 2,r1)

Scrivi DataEstrazione(es + 3) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 3,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 3,r1)

Scrivi DataEstrazione(es + 4) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 4,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 4,r1)

Scrivi DataEstrazione(es + 5) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 5,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 5,r1)

Scrivi DataEstrazione(es + 6) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 6,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 6,r1)

Scrivi DataEstrazione(es + 7) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 7,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 7,r1)

Scrivi DataEstrazione(es + 8) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 8,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 8,r1)

Scrivi DataEstrazione(es + 9) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 9,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 9,r1)

Scrivi DataEstrazione(es + 10) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 10,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 10,r1)

Scrivi DataEstrazione(es + 11) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 11,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 11,r1)

Scrivi DataEstrazione(es + 12) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 12,r) & " *** " & SiglaRuota(r1) & " " & StringaEstratti(es + 12,r1)

co = 0

For x1 = 1 To 89

For y1 = x1 + 1 To 90

bb = Fuori90(x1 + y1)

co = co + 1

nu1(co,1) = co:nu1(co,2) = x1:nu1(co,3) = y1

nn(1) = x1:nn(2) = y1:nn(3) = bb:ru(1) = r

k1 = SerieFreq(es + 1,ess,nn,ru,2)

nu1(co,4) = nu1(co,4) + k1

nu2(co,1) = co:nu2(co,2) = x1:nu2(co,3) = y1

nn1(1) = x1:nn1(2) = y1:nn1(3) = bb:ru(1) = r

k2 = SerieFreq(es + 1,ess,nn1,ru,2)

If k2 > 1 Then k2 = 1

nu2(co,4) = nu2(co,4) + k2

Next

Next

co = 0

For xx = 1 To 90

co = co + 1

nu3(co,1) = co:nu3(co,2) = xx

nn2(1) = xx:ru(1) = r:

k3 = SerieFreq(es + 1,ess,nn2,ru,1)

If k3 > 1 Then k3 = 1

nu3(co,3) = nu3(co,3) + k3

nu4(co,1) = co:nu4(co,2) = xx

nn2(1) = xx:ru(1) = r

k4 = SerieFreq(es + 1,ess,nn2,ru,1)

nu4(co,3) = nu4(co,3) + k4

Next

End If

Next : Next

OrdinaMatrice nu1,- 1,4

OrdinaMatrice nu2,- 1,4

OrdinaMatrice nu3,- 1,3

OrdinaMatrice nu4,- 1,3

ColoreTesto 2

Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _

DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""

ColoreTesto 1

Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _

" estrazioni sucessive "

ColoreTesto 2

Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "

ColoreTesto 1

Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti" & _

"+frequenti nei c. / Estratti+presenti "

Scrivi

ColoreTesto 2

Scrivi Space(10) & "Ambi+P. Tot. Ambo+FxC Tot. Est.+FxC Tot. Est.+Pr Tot."

ColoreTesto 0

For wx = 1 To 10

riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & Space(3) & Format2(nu1(wx,4)) & Space(3) & _

Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & Space(4) & Format2(nu2(wx,4)) & Space(6) & _

Format2(nu3(wx,2)) & Space(4) & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & Space(3) & _

Format2(nu4(wx,3))

Scrivi Space(10) & riga,1

riga = ""

Next

Scrivi String(90,"*")

End Sub

Function informa(es,r,r1,a,b)

Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _

Format2(a) & " " & Left(NomeRuota(r1),2) & " " & Format2(b),1

End Function

errore:Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _

Joe91 · 21 Agosto 2015

errore:Scrivi "mese Spiato " & MeseNome(ms) & " dal " & _

Sarebbe meglio non utilizzarlo ... perchè spesso sui forum e nel "copia incolla" crea questi problemi.

Devi cancellare eventuali spazi e/o altri caratteri

Dopo il trattino-basso " .... & _" non ci deve essere assolutamente niente.

Neppure un qualcosa di invisibile come "lo spazio" che li è probabilmente presente ....

Si deve andare SUBITO "a capo"

iniziando SUBITO sulla nuova riga ... "il resto" di cosa si vuole scrivere.

i legend · 25 Agosto 2015

ciao a tutti provate a lanciare lo script ,l'ho provato per curiosità, ma non sono sicuro che i risultati restituiti siano corretti Ciao a tutti

avatar · 2 Settembre 2015

ciao antopun,,mi ero dimenticato di segnalarti
che lo script elabora i terni,in questo modo
e il calcolo va bene.
gli ambi sommali tra loro e il risultato e il terzo
numero,da metere in gioco

in qusto modo la somma degli ambi
bb = Fuori90(x1 + y1)
Casi riscontrati 7
mese Spiato Agosto dal
04.04.2009 al 25.08.2015

Ambi+P. Tot.
41-57 06
41+57=08-90= terzo numero 08

41 57 08
il terno per ambo e uscito 6 volte su 7

se aggiungiamo +8
bb = Fuori90(x1 + y1)+8

Casi riscontrati 7
Tot. Ambo+FxC Tot.
57-76 07

57 + 76=133-90=43+8=terzo numero 51

57 76 51
il terno per ambo e uscito 7 volte su 7

06.08.2009 BA 86.38.52.76.57 ***
12.08.2010 BA 76.84.03.51.68 ***
23.08.2011 BA 58.51.57.27.08 ***
07.08.2012 BA 32.76.55.57.41 ***
06.08.2013 BA 52.57.69.76.53 ***
28.08.2014 BA 26.59.76.51.19 ***
18.08.2015 BA 65.51.76.27.05 ***

somma degli ambi in gioco + sommativa
sulla somma,ottima fusione per vincere qualcosa

ringrazio mike58 per averlo riformattato
e leggend per averlo segnalato

questo e il mio primo script

saluti avatar

Cerca

Cerca

Aiuto per script .

antopun

Senior Member

avatar

Advanced Member

antopun

Senior Member

avatar

Advanced Member

antopun

Senior Member

Allegati

antopun

Senior Member

Allegati

Mike58

Advanced Member >PLATINUM PLUS<

antopun

Senior Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Joe91

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

avatar

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi