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
    giovedì 18 dicembre 2025
    Bari
    72
    48
    90
    14
    52
    Cagliari
    11
    78
    87
    47
    53
    Firenze
    50
    08
    32
    71
    74
    Genova
    20
    18
    09
    76
    07
    Milano
    13
    34
    68
    07
    16
    Napoli
    75
    61
    50
    16
    10
    Palermo
    32
    44
    38
    16
    70
    Roma
    13
    67
    32
    44
    69
    Torino
    45
    64
    49
    37
    63
    Venezia
    81
    19
    30
    79
    36
    Nazionale
    21
    85
    89
    35
    77
    Estrazione Simbolotto
    Venezia
    38
    12
    34
    27
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto