Novità

Per ESSE prima funzionava.....

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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]
 
Codice: 
' 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
 
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)
Clicca per espandere...
 
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)
Clicca per espandere...
Clicca per espandere...

Per lo script richiesto leggi il mio messaggio su questo indirizzo:)

http://forum.lottoced.com/topic.asp?TOPIC_ID=126705
 
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
Clicca per espandere...
con
quote:po = 0
For z = 1 To 90
If fr(z) = 2 Then
po = po + 1
n(po) = z
end if
Next
Clicca per espandere...

Ciao e buone feste, Enplein.
Clicca per espandere...


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
 
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?

esse.jpg
 
' 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
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto