Per ESSE prima funzionava.....

[Roby]

Stavo vedendo un tuo script questo:
' TROVARE 6 NUMERI
' CHE ABBIANO FREQUENZA 2
'Metodi: Legge del Terzo ed Equilibrio Numerico

Sub Main()
Dim ruote(1)
Dim fr(90)
Dim n(90)
Dim po
Dim rt(3),pt(5),ptt(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),na4(6),na5(6),na6(6),na7(6)
pt(1) = 1
ptt(2) = 1

clp = 13
co = 0
ini = EstrazioneFin - 200
fin = EstrazioneFin
rs = InputBox("Quale ruota vuoi analizzare?(Bari=1,Cagliari=2 ...)","Scelta Ruota",1)
If rs = False Then Exit Sub
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
Erase fr

For J = 1 To 9
For r = rs To rs
rt(1) = r
For k = 1 To 90
For p = 1 To 5
a = Estratto(es - j,r,p)
If a = k Then fr(k) = fr(k) + 1
Next
Next
Next
Next

po = 0
For z = 1 To 90
If fr(z) = 2 Then po = po + 1
n(po) = z
Next

If po = 6 Then

co = co + 1
ColoreTesto 2
Scrivi "Previsione Nr " & co & "................................................",1
ColoreTesto 0
Scrivi "I sei numeri che hanno avuto frequenza 2 sono",1
Scrivi n(1) & " _ " & n(2) & " _ " & n(3) & " _ " & n(4) & " _ " & n(5) & " _ " & n(6),1


nu(1) = n(3)' ambate sono i centrali
nu(2) = n(4)
ImpostaGiocata 1,nu,rt,pt,clp,1 'ambata
na(1) = n(3)
na(2) = n(1)
ImpostaGiocata 2,na,rt,ptt,clp,2 'ambo
na1(1) = n(3)
na1(2) = n(2)
ImpostaGiocata 3,na1,rt,ptt,clp,2 'ambo
na2(1) = n(3)
na2(2) = n(5)
ImpostaGiocata 4,na2,rt,ptt,clp,2 'ambo
na3(1) = n(3)
na3(2) = n(6)
ImpostaGiocata 5,na3,rt,ptt,clp,2 'ambo
na4(1) = n(4)
na4(2) = n(1)
ImpostaGiocata 6,na4,rt,ptt,clp,2 'ambo
na5(1) = n(4)
na5(2) = n(2)
ImpostaGiocata 7,na5,rt,ptt,clp,2 'ambo
na6(1) = n(4)
na6(2) = n(5)
ImpostaGiocata 8,na6,rt,ptt,clp,2 'ambo
na7(1) = n(4)
na7(2) = n(6)
ImpostaGiocata 9,na7,rt,ptt,clp,2 'ambo

Gioca es

End If ' If po = 6 Then...
Next

ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub

pensavo di aver capito nel senso che davo per scontato che lo script dovesse trovare 6numeri che nell'intervallo di 9 estr avevano la freq. = a 2
6 numeri che nelle 9 estraz che precedevano e comprendevano l'estrazione generatrice , però controllando la ruota di ba questo è parte di l'outpup il 12 non compare e gli altri num sono a casaccio ho toccato qualcosa? invece per quanto riguarda l'esito è giusto ...

I sei numeri che hanno avuto frequenza 2 sono
12 _ 52 _ 65 _ 76 _ 85 _ 90
Estrazione generatrice del pronostico 08286 [122 - 12/10/2010]
G 0001
Numeri in gioco : 65.76 su BA per Estratto
N. [65.76 ] [BA] [.. .. .. .. ..] C. 1 08287 [123 - 14/10/2010]
N. [65.76 ] [BA] [.. .. .. .. ..] C. 2 08288 [124 - 16/10/2010]
V N. [65.76 ] [BA] [76 .. .. .. ..] C. 3 Estratto 08289 [125 - 19/10/2010]

 

[esselotto]

' TROVARE 6 NUMERI
' CHE ABBIANO FREQUENZA 2
'Metodi: Legge del Terzo ed Equilibrio Numerico

Sub Main()
Dim ruote(1)
Dim fr(90)
Dim n(90)
Dim po
Dim rt(3),pt(5),ptt(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),na4(6),na5(6),na6(6),na7(6)
pt(1) = 1
ptt(2) = 1

clp = 13
co = 0
ini = EstrazioneFin - 200
fin = EstrazioneFin
rs = InputBox("Quale ruota vuoi analizzare?(Bari=1,Cagliari=2 ...)","Scelta Ruota",1)
If rs = False Then Exit Sub
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
Erase fr

For J = 1 To 9
For r = rs To rs
rt(1) = r
For k = 1 To 90
For p = 1 To 5
a = Estratto(es - j,r,p)
If a = k Then fr(k) = fr(k) + 1
Next
Next
Next
Next

po = 0
For z = 1 To 90
If fr(z) = 2 Then po = po + 1
n(po) = z

end if  
Next

If po = 6 Then

co = co + 1
ColoreTesto 2
Scrivi "Previsione Nr " & co & "................................................",1
ColoreTesto 0
Scrivi "I sei numeri che hanno avuto frequenza 2 sono",1
Scrivi n(1) & " _ " & n(2) & " _ " & n(3) & " _ " & n(4) & " _ " & n(5) & " _ " & n(6),1


nu(1) = n(3)' ambate sono i centrali
nu(2) = n(4)
ImpostaGiocata 1,nu,rt,pt,clp,1 'ambata
na(1) = n(3)
na(2) = n(1)
ImpostaGiocata 2,na,rt,ptt,clp,2 'ambo
na1(1) = n(3)
na1(2) = n(2)
ImpostaGiocata 3,na1,rt,ptt,clp,2 'ambo
na2(1) = n(3)
na2(2) = n(5)
ImpostaGiocata 4,na2,rt,ptt,clp,2 'ambo
na3(1) = n(3)
na3(2) = n(6)
ImpostaGiocata 5,na3,rt,ptt,clp,2 'ambo
na4(1) = n(4)
na4(2) = n(1)
ImpostaGiocata 6,na4,rt,ptt,clp,2 'ambo
na5(1) = n(4)
na5(2) = n(2)
ImpostaGiocata 7,na5,rt,ptt,clp,2 'ambo
na6(1) = n(4)
na6(2) = n(5)
ImpostaGiocata 8,na6,rt,ptt,clp,2 'ambo
na7(1) = n(4)
na7(2) = n(6)
ImpostaGiocata 9,na7,rt,ptt,clp,2 'ambo

Gioca es

End If ' If po = 6 Then...
Next

ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub

 

[esselotto]

controlla adesso
anche sull'originale postato qualche mese fà mancava end if
vado a correggerlo

 

[esselotto]

mi è venuta un'idea riposto lo script + metodo
avevo spedito sull'area metodi di LottoCed
anche li porta lo Sbaglio.

 

[fillotto]

quote:Originally posted by esselotto

controlla adesso
anche sull'originale postato qualche mese fà mancava end if
vado a correggerlo
Visto solo adesso e provato.
Allora , con quel end if mi da errore : "1024 Previta istruzione linea 42" se la isolo con l'apice ritorna a girare ma mi da numeri casuali nella sestina!
Però ESSE io ho rimesso la versione vecchia cioè quella priva della possibilità di scegliere la ruota e questa funziona perfettamente, evidentemente nel passaggio da questa versione e quella in esame deve essere successo qualche errore che io non sono in grado di dire quale sia.
Esse , volevo chiedere un altro piacere se ti va .
Stavo facendo delle considerazioni sulla frequenza e mi chiedevo è meglio la frequenza o la regolarità ?
Su excel ho fatto un file che ha queste caratteristiche:
Regolar 4 (così l'ho chiamato) consta di 4 intervalli di estrazioni
ogni intervallo ha 9 estrazioni .
Con delle formule riesco a controllare quali numeri sono sempre presenti nei 4 cicli o intervalli che dir si voglia.
La speranza è quella di giocare questi numeri sperando non perdano sia la frequenza(sono in fequenza perchè in 9 estrazioni ne dovrebbe uscire solo mezzo) sia la regolarità (sono regolari perchè non escono 4 in un unico ciclo).
Se si potesse fare uno script però con delle modifiche cioè sempre 4 cicli di 9 ma il 1° ciclo dovrebbe essere solo di controllo non dovrebbe cioè contenere il numero che invece sarà presente negli altri 3 intervalli (questo ,nelle intezioni, per intercettare la fase nascente della regolarità e frequenza)

 

[esselotto]

quote:Originally posted by fillotto

quote:Originally posted by esselotto

controlla adesso
anche sull'originale postato qualche mese fà mancava end if
vado a correggerlo
Visto solo adesso e provato.
Allora , con quel end if mi da errore : "1024 Previta istruzione linea 42" se la isolo con l'apice ritorna a girare ma mi da numeri casuali nella sestina!
Però ESSE io ho rimesso la versione vecchia cioè quella priva della possibilità di scegliere la ruota e questa funziona perfettamente, evidentemente nel passaggio da questa versione e quella in esame deve essere successo qualche errore che io non sono in grado di dire quale sia.
Esse , volevo chiedere un altro piacere se ti va .
Stavo facendo delle considerazioni sulla frequenza e mi chiedevo è meglio la frequenza o la regolarità ?
Su excel ho fatto un file che ha queste caratteristiche:
Regolar 4 (così l'ho chiamato) consta di 4 intervalli di estrazioni
ogni intervallo ha 9 estrazioni .
Con delle formule riesco a controllare quali numeri sono sempre presenti nei 4 cicli o intervalli che dir si voglia.
La speranza è quella di giocare questi numeri sperando non perdano sia la frequenza(sono in fequenza perchè in 9 estrazioni ne dovrebbe uscire solo mezzo) sia la regolarità (sono regolari perchè non escono 4 in un unico ciclo).
Se si potesse fare uno script però con delle modifiche cioè sempre 4 cicli di 9 ma il 1° ciclo dovrebbe essere solo di controllo non dovrebbe cioè contenere il numero che invece sarà presente negli altri 3 intervalli (questo ,nelle intezioni, per intercettare la fase nascente della regolarità e frequenza)

Per lo script richiesto leggi il mio messaggio su questo indirizzo

http://forum.lottoced.com/topic.asp?TOPIC_ID=126705

 

[Enplein]

...con il permesso di esselotto...

quote:
po = 0
For z = 1 To 90
If fr(z) = 2 Then po = po + 1
n(po) = z

end if
Next

con

quoteo = 0
For z = 1 To 90
If fr(z) = 2 Then
po = po + 1
n(po) = z
end if
Next

Ciao e buone feste, Enplein.

 

[esselotto]

quote:Originally posted by Enplein

...con il permesso di esselotto...

quote:
po = 0
For z = 1 To 90
If fr(z) = 2 Then po = po + 1
n(po) = z

end if
Next

con

quoteo = 0
For z = 1 To 90
If fr(z) = 2 Then
po = po + 1
n(po) = z
end if
Next

Ciao e buone feste, Enplein.

grazie Enplein.
managgia la fretta....

il blocco if giustamente end if non vale, se dopo il then viene aggiunto qualcosa.

auguro anche a te e filotto un Buon Natale

 

[fillotto]

Grazie ad ESSE ed ad Enplein
adesso funziona tuttavia c'è ancora qualcosa da limare così come sta l'ho fatto girare escegliendo kla ruota di bari l'ultimo caso segnalato risulta
Previsione Nr 40................................................
I sei numeri che hanno avuto frequenza 2 sono
8 _ 24 _ 39 _ 56 _ 76 _ 84
Estrazione generatrice del pronostico 08310 [146 - 07/12/2010]
G 0001
Numeri in gioco : 39.56 su BA per Estratto
N. [39.56 ] [BA] [.. .. .. .. ..] C. 1 08311 [147 - 09/12/2010]
...Ora come si può notare dall'immagine sotto la prima estrazione giocabile dovrebbe essere proprio la 146 e non la 147 perchè se cosi non fosse i num 84 e 39 non avrebbero frequenza 2
giusto?

 

[esselotto]

capito

bisogna rifare ex novo
do un'occhiata meglio e controllo anche i risultati

 

[esselotto]

' TROVARE 6 NUMERI
' CHE ABBIANO FREQUENZA 2
'Metodi: Legge del Terzo ed Equilibrio Numerico

Sub Main()
Dim ruote(1)
Dim fr(90)
Dim n(90)
Dim po
Dim rt(3),pt(5),ptt(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),na4(6),na5(6),na6(6),na7(6)
pt(1) = 1
ptt(2) = 1

clp = 13
co = 0
ini = EstrazioneFin - 200
fin = EstrazioneFin
rs = InputBox("Quale ruota vuoi analizzare?(Bari=1,Cagliari=2 ...)","Scelta Ruota",1)
If rs = False Then Exit Sub
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
Erase fr

For J = 0 To 8
For r = rs To rs
rt(1) = r
For k = 1 To 90
For p = 1 To 5
a = Estratto(es - j,r,p)
If a = k Then fr(k) = fr(k) + 1
Next
Next
Next
Next

po = 0
For z = 1 To 90
If fr(z) = 2 Then
po = po + 1
n(po) = z
end if
Next

If po = 6 Then

co = co + 1
ColoreTesto 2
Scrivi "Previsione Nr " & co & "................................................",1
ColoreTesto 0
Scrivi "I sei numeri che hanno avuto frequenza 2 sono",1
Scrivi n(1) & " _ " & n(2) & " _ " & n(3) & " _ " & n(4) & " _ " & n(5) & " _ " & n(6),1


nu(1) = n(3)' ambate sono i centrali
nu(2) = n(4)
ImpostaGiocata 1,nu,rt,pt,clp,1 'ambata
na(1) = n(3)
na(2) = n(1)
ImpostaGiocata 2,na,rt,ptt,clp,2 'ambo
na1(1) = n(3)
na1(2) = n(2)
ImpostaGiocata 3,na1,rt,ptt,clp,2 'ambo
na2(1) = n(3)
na2(2) = n(5)
ImpostaGiocata 4,na2,rt,ptt,clp,2 'ambo
na3(1) = n(3)
na3(2) = n(6)
ImpostaGiocata 5,na3,rt,ptt,clp,2 'ambo
na4(1) = n(4)
na4(2) = n(1)
ImpostaGiocata 6,na4,rt,ptt,clp,2 'ambo
na5(1) = n(4)
na5(2) = n(2)
ImpostaGiocata 7,na5,rt,ptt,clp,2 'ambo
na6(1) = n(4)
na6(2) = n(5)
ImpostaGiocata 8,na6,rt,ptt,clp,2 'ambo
na7(1) = n(4)
na7(2) = n(6)
ImpostaGiocata 9,na7,rt,ptt,clp,2 'ambo

Gioca es

End If ' If po = 6 Then...
Next

ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub

 

[esselotto]

altra piccola correzione
prova adesso

AUGURI DI BUON NATALE

 

[esselotto]