Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
End Sub
Sub Main
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(3),kk(3)
Dim ruote(2)
Dim posta(5)
posta(1) = 1
posta(2) = 1
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",9))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio(es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r2,p1)
If n1 = n2 Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'--------- Calcolo Numeri ma mettere in gioco-------------
a1 = Decina(n1)' decina n1
a2 = Cadenza(n1)' cadenza n1
a3 = Fuori90(a1 + a2)' somma unità e dicina
a4 = Vert(a3)' vertibile somma
k(1) = Fuori90(a3+a4)
k(2) = Fuori90(k(1)*7)' numero basso
k(3) = Fuori90(k(1)*13)' numero alto
'----------- 2 giocata ----------------------------------
b1 = Fuori90(n1*7)
b2 = Fuori90(n1*13)
kk(1) = Fuori90(n1+b1)
kk(2) = Fuori90(n1+b2)
kk(3) = Fuori90(kk(1)+kk(2))
'---------------------------------------------------------
Scrivi String(100,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
Scrivi String(100,"-") & " Caso n° " & co
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,2
ImpostaGiocata 2,kk,ruote,posta,clp,2
Gioca es,,,1
End If
Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub
Ecco queste sono le conclusioni!!!!
Assurdo non sapere ancora che il numerello in basso a sx è dato dal centrale moltiplicato per 7 !!!!
Vi avrò fatto l'esempio diecimila volte di come è costruita la tavola.... ma preferite i profeti .... non aggiungo altro .... altrimenti vado fuori dal seminato ....studiate ... studiate!!!
Ciao
Ciao Daniel, Visto che ho partecipato a questa discussione e usi il plurale, non tutti sanno i segreti se di segreti si può parlare di come è costruita questa tavola anche se io ci ho messo poco a rilevare il 2° numero, però non mi pare giusto quello che affermi anche se lo hai detto altre volte,che tutti devono avere chissa quali conoscenze e chi le ha o sà sarebbe opportuno che mettesse a disposizione ed intervenisse con collaborazioni positive.
Tutti abbiamo da imparare visto che in un forum si scambiano idee e sarebbe giusto intervenire sempre con moderazione e collaborazione.
Poi se la direzione è sempre criticare chi perde tempo a scambiare idee e chi partecipa mettendoci tempo ed energie Be!! allora finiamola pure qua!!!
Io non sono d'accordo con queste forme e solo sinonimo di proprie frustazioni.
Ciao Mike
il gioco lotto e di tutti e lo si deve lasciare x cosi comè
nn e una lobbi
e non una liderschip
e di
TUTTI
e se vanno condivisi le metologgie e un bene comune x sconffiggere la bestia della lottomatica
SIGN Schirò con questi metodi
non si sconfigge la lottomatica
3 numeri in due ruote ?
e quanti ambi a ruota in tot estrazioni
e quando devo aspettare x un ambo a ruota ?
qui ci sono dei bravi previsionisti
da quale prendere esempi di previsione
dobbiamo cambiare modo di giocare
io ho travato il 20 % di questa strada
spero di arrivare al 50%
significa che su 10 giocate 5 li vincerò di sicuro
ti do un indizio
non faccio previsioni con i veri numeri estratti
salve
Ciao Daniel, Visto che ho partecipato a questa discussione e usi il plurale, non tutti sanno i segreti se di segreti si può parlare di come è costruita questa tavola anche se io ci ho messo poco a rilevare il 2° numero, però non mi pare giusto quello che affermi anche se lo hai detto altre volte,che tutti devono avere chissa quali conoscenze e chi le ha o sà sarebbe opportuno che mettesse a disposizione ed intervenisse con collaborazioni positive.
Tutti abbiamo da imparare visto che in un forum si scambiano idee e sarebbe giusto intervenire sempre con moderazione e collaborazione.
Poi se la direzione è sempre criticare chi perde tempo a scambiare idee e chi partecipa mettendoci tempo ed energie Be!! allora finiamola pure qua!!!
Io non sono d'accordo con queste forme e solo sinonimo di proprie frustazioni.
Ciao Mike
Hai ragione mike, non si può far di tutta l'erba un fascio, ovvio che non era riferito a te, ma non c'è nessun segreto da scoprire.
Mi meraviglia il fatto che si propongono previsioni sulla tavola, sulle chiavi ecc., quando poi non si è a conoscenza neanche di come si forma un quadratino, sottoponendo a chi si presta di fare un listato calcoli astronomici e perdita di tempo appunto con quel If e End iF come da tabella di riferimento postata da gioacchino,quando poi basta fare una semplice operazione.
Penso che gioacchino, con la sua risposta, non sia a conoscenza di questa semplice operazione, sottoponendo ad altri del lavoro inutile, e come detto sopra perdita di tempo.
La collaborazione purtroppo da parte di taluni è sempre presa come una forma di attacco, ricordo vecchi listati fatti dal sottoscritto appunto dietro richiesta di gioacchino, e talvolta senza ricevere nemmeno un grazie, solo per aver espresso delle considerazioni personali sulla bontà o meno del metodo.
Ma a parte questo vorrei dire a gioacchino di studiarsi prima come da qualsiasi numero si riesce a formare il quadrato interessato, e vedrai che dopo non serve neanche la carta e penna, basta fare mentalmente due semplici operazioni.
Ciao
Ciao Gio' e ciao Antonio, la correzione sullo script della giocata a tutte è fattibile e pure lo script ex-novo della ricerca della somma comune.
Solo che secondo me è initile cercare una somma specifica in quanto i casi sarebbero veramente pochi, però se lo vuoi è fattibile anche quello.
Un altra cosa i calcoli li manteniamo simili agli altri ossia *13 *7 se è cosi procedo tempo permettendo .
ciao
Mike
Ciao amico schiro' ,ti seguo da un po' , vedo che sei in gamba e' mi piace molto il tuo modo di far capire che non perdi del tempo , ma studi con amore il lotto per cui la cosa che mi piace d+ di te e' che ci credi. Vedi questo e' molto importante perche' anchio quando mi ci metto ,devo crederci se no e' tutto inutile. Detto questo amico , puoi darmi una lucidazione su questo tuo metodo che lo ritengo molto interessante?? se hai tempo io sto in linea e' scusa x il disturbo visto ke e' tardi grazie antonio.
Sub Main
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(3),kk(3)
Dim ruote(2),rtt(1)
Dim posta(5),ptt(3)
posta(1) = 1
posta(2) = 1
ptt(2) = 1.5
ptt(3) = 0.5
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",9))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio(es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r2,p1)
If n1 = n2 Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
'--------- Calcolo Numeri ma mettere in gioco-------------
a1 = Decina(n1)' decina n1
a2 = Cadenza(n1)' cadenza n1
a3 = Fuori90(a1 + a2)' somma unità e dicina
a4 = Vert(a3)' vertibile somma
k(1) = Fuori90(a3 + a4)
k(2) = Fuori90(k(1)*7)' numero basso
k(3) = Fuori90(k(1)*13)' numero alto
'----------- 2 giocata ----------------------------------
b1 = Fuori90(n1*7)
b2 = Fuori90(n1*13)
kk(1) = Fuori90(n1 + b1)
kk(2) = Fuori90(n1 + b2)
kk(3) = Fuori90(kk(1) + kk(2))
'---------------------------------------------------------
Scrivi String(100,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
Scrivi String(100,"-") & " Caso n° " & co
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,2
ImpostaGiocata 2,kk,ruote,posta,clp,2
ImpostaGiocata 3,kk,rtt,ptt,clp,2
ImpostaGiocata 4,k,rtt,ptt,clp,2
Gioca es,,,1
End If
Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub
Sub Main
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(3),kk(3)
Dim ruote(2),rtt(1)
Dim posta(5),ptt(3)
posta(1) = 1
posta(2) = 1
ptt(2) = 1.5
ptt(3) = 0.5
sceltaSomma = CInt(InputBox("Quale SOMMA UGUALE vuoi visualizzare ",,82))' spuntare Apice x ricerca su tutte le somme
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",9))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio(es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
n1 = Fuori90(SommaEstratti(es,r1))
n2 = Fuori90(SommaEstratti(es,r2))
If n1 = n2 Then
If n1 = sceltaSomma Then ' Mettere APICE se non si vuolu inputbox
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
'--------- Calcolo Numeri ma mettere in gioco-------------
a1 = Decina(n1)' decina n1
a2 = Cadenza(n1)' cadenza n1
a3 = Fuori90(a1 + a2)' somma unità e dicina
a4 = Vert(a3)' vertibile somma
k(1) = Fuori90(a3 + a4)
k(2) = Fuori90(k(1)*7)' numero basso
k(3) = Fuori90(k(1)*13)' numero alto
'----------- 2 giocata ----------------------------------
b1 = Fuori90(n1*7)
b2 = Fuori90(n1*13)
kk(1) = Fuori90(n1 + b1)
kk(2) = Fuori90(n1 + b2)
kk(3) = Fuori90(kk(1) + kk(2))
'---------------------------------------------------------
Scrivi String(100,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> Somma Estratti " & n1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> Somma Estratti " & n2,1
Scrivi String(100,"-") & " Caso n° " & co
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,2
ImpostaGiocata 2,kk,ruote,posta,clp,2
ImpostaGiocata 3,kk,rtt,ptt,clp,2
ImpostaGiocata 4,k,rtt,ptt,clp,2
Gioca es,,,1
End If
End If ' togliere o mettere APICE se non si vuole l'inputBox
'Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub