| R E V I S I O N E D E L L A D I S C U S S I O N E |
| pesciolina |
Posted - 11 agosto 2013 : 17:45:37
Ciao, se qualcuno mi può fare uno script per testare un mio modo di vedere la FIGURA PENTAGONA.
Faccio un esempio:
estrazione del 13/7/13 ruota Cagliari- estratti 63-28-44-34-45
Numeri estrapolati 27-36-63--18-90-54
Estrazione del 10/08 TERNO A CA 63-90-54.
Ora capisco che sono 6 numeri....capisco che il terno può essere un caso ma ho notato che esce spesso l'ambo.
Siccome vorrei restringere il campo... se qualcuno sa fare i listati me lo dice che posto il metodo così vediamo se vale la pena o no.
Grazie. Ciao a tutti. |
| 20 U L T I M E R E P L I C H E (Newest First) |
| foxmolder |
Posted - 30 agosto 2013 : 15:03:20
Ciao, sono un nuovo utente che si affaccia alla programmazione orientata al gioco del lotto. Sto realizzando per puro divertimento una utility online, dove inseriti i numeri e la ruota da giocare, elimina ambi terni e quaterne già estratte (ambi ultime 10 estrazioni, terni ultime 400 e cosi via) esegue una riduzione n-1 e n-2. Se vuoi potrei implementare il tuo script nel mio programma. http://www.matrix.altervista.it |
| franca46 |
Posted - 27 agosto 2013 : 15:31:52
citazione:
Inviato in origine da Gianni
Anche ricopiandolo mi da sempre errore sulla variabile ini "ini=EstrazioneFin -100"
mi dice Error script 500- variabile non definita "ini".
Non è che EstrazioneFin è una funzione che va prima alimentata?
ciao gianni prova a ricopiarlo
ini=EstrazioneFin -100
For es=ini To EstrazioneFin
ad altri amici funziona cosi' come lo vedi
non si sa mai .
buon pomeriggio |
| n/a |
Posted - 27 agosto 2013 : 12:48:16
Anche ricopiandolo mi da sempre errore sulla variabile ini "ini=EstrazioneFin -100"
mi dice Error script 500- variabile non definita "ini".
Non è che EstrazioneFin è una funzione che va prima alimentata? |
| franca46 |
Posted - 21 agosto 2013 : 18:40:43
ok , ciao |
| jackaudi |
Posted - 21 agosto 2013 : 10:11:08
ciao franca ho copiato e adesso funziona grazie |
| franca46 |
Posted - 19 agosto 2013 : 14:56:03
citazione:
Inviato in origine da pesciolina
Grazie Franca ora in spaziometria mi funziona.
ottimo finalmente , ciao pesciolina
citazione:
Inviato in origine da jackaudi
ciao scusa che versione di spaziometria usi? a me non funziona l'ho anche aggiornato alla versione 1.4.44, mi da errore "ini=EstrazioneFin -100"
ciao jack prova a ricopiarlo , da me funziona
ciao jack |
| pesciolina |
Posted - 19 agosto 2013 : 14:17:08
Ciao, io ho 1.4.44 e adesso mi funziona. |
| jackaudi |
Posted - 19 agosto 2013 : 10:27:12
ciao scusa che versione di spaziometria usi? a me non funziona l'ho anche aggiornato alla versione 1.4.44, mi da errore "ini=EstrazioneFin -100" |
| pesciolina |
Posted - 19 agosto 2013 : 10:06:57
Grazie Franca ora in spaziometria mi funziona.
|
| franca46 |
Posted - 19 agosto 2013 : 09:29:46
citazione:
Inviato in origine da franca46
ciao pesciolina
adesso me lo faccio controllare .
non si sa mai abbia fatto io un errore ,strano però che io lo leggo.
ci risentiamo
rieccomi prova adesso
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim nu(6)
Dim poste(3)
Dim post(5)
poste(2)=1
poste(3)=1
post(2)=1
post(3)=1
ini=EstrazioneFin -100
For es=ini To EstrazioneFin
R=2
a=Estratto(es,R,4)
b=Estratto(es,R,5)
c=Estratto(es,R,2)
d=Estratto(es,R,3)
e=Estratto(es,R,1)
s1=Fuori90(a+b)
s2=Fuori90(c+d)
s3=Abs(a-b)
s4=Abs(c-d)
s5=Fuori90(s1+s3)
s6=Fuori90(s2+s4)
s7=Fuori90(s1*e)
s8=Fuori90(s2*e)
s9=Fuori90(s3*e)
s10=Fuori90(s4*e)
s11=Fuori90(s5*e)
s12=Fuori90(s6*e)
ruote(1)=2
nu(1)=s7
nu(2)=s8
nu(3)=s9
nu(4)=s10
nu(5)=s11
nu(6)=s12
ImpostaGiocata 1,nu,ruote,poste,12,0
ruot(1)=11
nu(1)=s7
nu(2)=s8
nu(3)=s9
nu(4)=s10
nu(5)=s11
nu(6)=s12
ImpostaGiocata 2,nu,ruot,post,12,0
ColoreTesto 2
SCRIVI
Scrivi DataEstrazione (es)&" "& FormatSpace (NomeRuota (R),15)&_
Format2(A)&" "& Format2(B)&" "& Format2(C)&" "& Format2(D)&" "& Format2(E),1
Gioca es
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub
 |
| franca46 |
Posted - 19 agosto 2013 : 07:55:29
ciao pesciolina
adesso me lo faccio controllare .
non si sa mai abbia fatto io un errore ,strano però che io lo leggo.
ci risentiamo
|
| pesciolina |
Posted - 18 agosto 2013 : 20:03:17
no franca....mi da errore anche in spaziometri
Quando faccio il copia incolla mi viene tutto su due righe e non su molte come dovrebbe essere....boh non capisco.
cmq non importa faccio le prove a mano grazie lo stesso Franca sei stata gentilissima. |
| franca46 |
Posted - 18 agosto 2013 : 07:28:35
ciao pesciolina
sei riuscita a leggere il listato?
buona domenica |
| franca46 |
Posted - 15 agosto 2013 : 07:47:09
ciao pesciolina
io ho L8.61.20.
hai per caso scaricato il programma spaziometria?
li i listati di L8 girano
buon ferragosto |
| pesciolina |
Posted - 14 agosto 2013 : 16:17:20
citazione:
Inviato in origine da franca46
ciao pesciolina , l'ho fatto con L8.
ma tu che versione di L8 hai ?
LA 6.0 |
| franca46 |
Posted - 14 agosto 2013 : 15:23:25
ciao pesciolina , l'ho fatto con L8.
ma tu che versione di L8 hai ? |
| pesciolina |
Posted - 14 agosto 2013 : 10:37:52
Franca grazie ma non riesco a farlo elaborare mi da errore.
Tu lo hai provato sul L8 ? |
| franca46 |
Posted - 14 agosto 2013 : 08:46:58
ciao pesciolina
cosi ?
non so fargli scrivere la data e gli estratti .
'calcolato su ogni estrazione e quindi Gioca la successiva.
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim nu(6)
Dim poste(3)
Dim post(5)
poste(2)=1 : poste(3)=1
post(2)=1 : post(3)=1
ini=EstrazioneFin -100
For es=ini To EstrazioneFin
a=Estratto(es,2,4)
b=Estratto(es,2,5)
c=Estratto(es,2,2)
d=Estratto(es,2,3)
e=Estratto(es,2,1)
s1=Fuori90(a+b)
s2=Fuori90(c+d)
s3=Abs(a-b)
s4=Abs(c-d)
s5=Fuori90(s1+s3)
s6=Fuori90(s2+s4)
s7=Fuori90(s1*e)
s8=Fuori90(s2*e)
s9=Fuori90(s3*e)
s10=Fuori90(s4*e)
s11=Fuori90(s5*e)
s12=Fuori90(s6*e)
ruote(1)=2
nu(1)=s7
nu(2)=s8
nu(3)=s9
nu(4)=s10
nu(5)=s11
nu(6)=s12
ImpostaGiocata 1,nu,ruote,poste,12,0
ruot(1)=11
nu(1)=s7
nu(2)=s8
nu(3)=s9
nu(4)=s10
nu(5)=s11
nu(6)=s12
ImpostaGiocata 2,nu,ruot,post,12,0
Gioca es
Next
ScriviResoconto
End Sub
a rileggerti |
| franca46 |
Posted - 13 agosto 2013 : 17:54:20
si si lo so intendevo il programma spaziometria perchè vedo la figura che si compone
il tutto perchè hai visto un terno in figura 9 ? o perchè 63 - 1° estratto è in figura 9 ?
vediamo che faccio , provare non costa nulla.
by |
| pesciolina |
Posted - 13 agosto 2013 : 17:41:16
No Franca con la spaziometria non ha niente a che vedere, questa è la figura pentagona.
Ho postato Cagliari perché c'era il terno ma ho fatto prove anche su Bari e altre ruote, cmq questo è un gioco solo a ruota perché su tutte anche con solo 4 numeri gli ambi ci sono sempre ma 4 numeri su TT non so se vale la pena.
Le lettere le puoi cambiare in pratica A-B sta per 4° e 5° estratto
C-D sta per 2° e 3° estratto e moltiplico per 63 che è il 1° estratto.
Naturalmente scegliendo un altra ruota i numeri cambiano perché si prendono i 5 numeri dell'estrazione.
Grazie ciao. |
