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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto