| Autore |
 Discussione  |
|
|
franca46
Amministratore
Italy
24104 invii |
 Spedito - 02 gennaio 2013 : 08:28:21
|
non è mio ma sembra interessante di matematica sommativa
Sub Main() ColoreTesto 1
Scrivi
Scrivi "5 CINQUINE SU' CA-PA ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Steel",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim ruot(1)
Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
poste(2) = .80
poste(3) = .10
poste(4) = .10
'poste(5) = .05
klp = 10
ini = 8790
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 2
ruote(2) = 7
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(80,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,12,1) + 70)
nn1(2) = Fuori90(Estratto(es,10,2) * 3)
nn1(3) = Fuori90(Estratto(es,5,2) + 83)
nn1(4) = Fuori90(Estratto(es,1,2) + 85)
nn1(5) = Fuori90(Estratto(es,9,4) + 61)
ImpostaGiocata 1,nn1,ruote,poste,klp
ruot(1)=11
ImpostaGiocata 2,nn1,ruot,poste,klp
nn2(1) = Fuori90(Estratto(es,12,1) + 82)
nn2(2) = Fuori90(Estratto(es,8,5) * 68)
nn2(3) = Fuori90(Estratto(es,2,1) + 66)
nn2(4) = Fuori90(Estratto(es,2,1) + 46)
nn2(5) = Fuori90(Estratto(es,12,1) + 5)
ImpostaGiocata 3,nn2,ruote,poste,klp
ruot(1)=11
ImpostaGiocata 4,nn2,ruot,poste,klp
nn3(1) = Fuori90(Estratto(es,12,1) + 15)
nn3(2) = Fuori90(Estratto(es,1,3) + 42)
nn3(3) = Fuori90(Estratto(es,7,5) + 90)
nn3(4) = Fuori90(Estratto(es,12,1) * 66)
nn3(5) = Fuori90(Estratto(es,9,1) + 15)
ImpostaGiocata 5,nn3,ruote,poste,klp
ruot(1)=11
ImpostaGiocata 6,nn3,ruot,poste,klp
nn4(1) = Fuori90(Estratto(es,12,1) + 2)
nn4(2) = Fuori90(Estratto(es,12,4) + 5)
nn4(3) = Fuori90(Estratto(es,1,4) + 65)
nn4(4) = Fuori90(Estratto(es,12,1) * 18)
nn4(5) = Fuori90(Estratto(es,12,4) + 88)
ImpostaGiocata 7,nn4,ruote,poste,klp
ruot(1)=11
ImpostaGiocata 8,nn4,ruot,poste,klp
nn5(1) = Fuori90(Estratto(es,12,1) + 37)
nn5(2) = Fuori90(Estratto(es,4,5) + 20)
nn5(3) = Fuori90(Estratto(es,12,1) + 52)
nn5(4) = Fuori90(Estratto(es,6,2) + 28)
nn5(5) = Fuori90(Estratto(es,12,1) + 4)
ImpostaGiocata 9,nn5,ruote,poste,klp
ruot(1)=11
ImpostaGiocata 10,nn5,ruot,poste,klp
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
e questo è il resoconto economico
Resoconto economico
Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
-----------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 4.200,00 778 5.765,33 5.419,41 1.219,41
Terno 525,00 201 4.941,00 4.644,54 4.119,54
Quaterna 525,00 84 110.880,00 104.227,20 103.702,20
Cinquina 0,00 0 0,00 0,00 0,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 5.250,00 121.586,33 116.336,33 109.041,15
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 15 novembre 2013 : 18:25:29
|
Ciao non ho la possibilità di usare L8+ dove posso trovare la descrizione del metodo per crearmelo in excell?
Grazie |
 |
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 16 novembre 2013 : 07:54:12
|
ciao gevin benvenuto sul forum
ti descrivo
sono cinquine da ricavare alla 1° estrazione do ogni mese
If IndiceMensile(es) = 1 Then
questa riga e le altre
nn1(1) = Fuori90(Estratto(es,12,1) + 70)
significano:
1° estratto della Naz+70 naturalmente con il fuori90.
e via dicendo quindi (es,12,1)
il numero rosso è la ruota , il numero verde è l'estratto da considerare
1° cinquina
nn1(1) = Fuori90(Estratto(es,12,1) + 70)
nn1(2) = Fuori90(Estratto(es,10,2) * 3)
nn1(3) = Fuori90(Estratto(es,5,2) + 83)
nn1(4) = Fuori90(Estratto(es,1,2) + 85)
nn1(5) = Fuori90(Estratto(es,9,4) + 61)
2° cinquina
nn2(1) = Fuori90(Estratto(es,12,1) + 82)
nn2(2) = Fuori90(Estratto(es,8,5) * 68)
nn2(3) = Fuori90(Estratto(es,2,1) + 66)
nn2(4) = Fuori90(Estratto(es,2,1) + 46)
nn2(5) = Fuori90(Estratto(es,12,1) + 5)
3° cinquina
nn3(1) = Fuori90(Estratto(es,12,1) + 15)
nn3(2) = Fuori90(Estratto(es,1,3) + 42)
nn3(3) = Fuori90(Estratto(es,7,5) + 90)
nn3(4) = Fuori90(Estratto(es,12,1) * 66)
nn3(5) = Fuori90(Estratto(es,9,1) + 15)
4° cinquina
nn4(1) = Fuori90(Estratto(es,12,1) + 2)
nn4(2) = Fuori90(Estratto(es,12,4) + 5)
nn4(3) = Fuori90(Estratto(es,1,4) + 65)
nn4(4) = Fuori90(Estratto(es,12,1) * 18)
nn4(5) = Fuori90(Estratto(es,12,4) + 88)
5° cinquina
nn5(1) = Fuori90(Estratto(es,12,1) + 37)
nn5(2) = Fuori90(Estratto(es,4,5) + 20)
nn5(3) = Fuori90(Estratto(es,12,1) + 52)
nn5(4) = Fuori90(Estratto(es,6,2) + 28)
nn5(5) = Fuori90(Estratto(es,12,1) + 4)
spero abbia scritto chiaro , al limite sono qui.
buona giornata
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 16 novembre 2013 : 15:47:52
|
Ciao, grazie della spiegazione e del benvenuto ma non credo di essere riuscito a tradurre il metodo in linguaggio non informatico: non ho capito come si creano le 5 cinquine. Si prende solo la prima estrazione della ruota nazionale? Scusa se ti disturbo ma vorrei capire con qualcosa di descrittivo se puoi, tipo:
Alla 1° strazione del mese prendere........ il.................. e sommare col fuori 90 per ottenere il primo, il secondo, il terzo, il quarto ed il quinto numero della cinquina.
In pratica con quello che hai scritto ho capito il procedimento ma non ho capito le ruote da esaminare per creare la cinquina. Non conosco il linguaggio di questo listato, a me basta creare un semplice foglio excell. Buona Giornata e grazie ancora per la gentilezza. |
|
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 17 novembre 2013 : 07:27:01
|
ciao gevin , hai ragione scusa.
1° cinquina
nn1(1) = Fuori90(Estratto(es,12,1) + 70) quindi qui 1° Naz+70
nn1(2) = Fuori90(Estratto(es,10,2) * 3) quindi qui 2° Ve*3
nn1(3) = Fuori90(Estratto(es,5,2) + 83) quindi qui 2°Mi+83
nn1(4) = Fuori90(Estratto(es,1,2) + 85) quindi qui 2°Ba+85
nn1(5) = Fuori90(Estratto(es,9,4) + 61)quindi qui 4°To+61
dunque:
nn1(1)= 1° numero della cinquina
nn1(2)=2° numero della cinquina ecc
la 2° cinquina sarà
nn2(1)
nn2(2) ecc
la terza cinquina sarà
nn3(1)
nn3(2) ecc
poi
Fuori90(Estratto(es,12,1) + 70)
questa riga ed anche x le altre:
sommare il1° della Naz a 70 , naturalmente col fuori90
cioè: i numeri che vedi dopo es indicano la ruota(12) e l'estratto (1)
speriamo che ci sono riuscita
sono sempre qui .
buona domenica |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 17 novembre 2013 : 19:45:38
|
|
Adesso è tutto più chiaro, grazie. Vado a farmi una bella tabella excell senza nn123456677 :-) |
|
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 18 novembre 2013 : 07:14:14
|
ciao gevin
beato Te che sai usare excell,
qualke amico ha tentato più volte ad insegnarmelo ma , nisba , per me è arabo.
buona giornata |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 20 novembre 2013 : 17:34:49
|
|
Ciao, basta conoscere le formule da fargli eseguire. Buona giornata anche a te e grazie ancora! |
|
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 20 novembre 2013 : 18:20:55
|
|
Comunque se vuoi te lo mando volentieri, l'ho appena creato. |
|
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 21 novembre 2013 : 08:13:42
|
ciao gevin grazie , sei molto gentile
a buon rendere |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
gevin
Utente Nuovo
Italy
6 invii |
Spedito - 23 novembre 2013 : 18:18:32
|
|
Ciao, scusa il ritardo: Dimmi come posso inviarti il file. |
|
|
|
Alasque
Utente Nuovo
2 invii |
Spedito - 10 febbraio 2015 : 14:42:33
|
Ciao,
ho provato ad incollare lo script in Spaziometria - Elabora Script ma mi da errore: Variabile non definita klp alla linea 17
mi sai dire qualcosa? |
Alasque |
|
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 10 febbraio 2015 : 17:12:10
|
citazione:
Inviato in origine da Alasque
Ciao,
ho provato ad incollare lo script in Spaziometria - Elabora Script ma mi da errore: Variabile non definita klp alla linea 17
mi sai dire qualcosa?
ciao Alasque
rifai il copia ed incolla su spaziometria
questa è l'ultima previsione
03.02.2015--->1° Estrazione Mensile
Estrazione generatrice del pronostico 08960 [ 15 - 03/02/2015]
G 0001 Numeri in gioco : 55.66.52.63.60 su CA PA per Ambo,Terno,Quaterna
N. [55.66.52.63.60 ] [CA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
N. [55.66.52.63.60 ] [PA] [.. 55 .. .. ..] C. 1 Estratto 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 55.66.52.63.60 su TT per Ambo,Terno,Quaterna
N. [55.66.52.63.60 ] [TT] [BA][.. .. .. .. 63] C. 1 Estratto 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0003 Numeri in gioco : 67.56.01.71.80 su CA PA per Ambo,Terno,Quaterna
N. [67.56.01.71.80 ] [CA] [67 .. .. .. ..] C. 1 Estratto 08961 [ 16 - 05/02/2015]
N. [67.56.01.71.80 ] [PA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0004 Numeri in gioco : 67.56.01.71.80 su TT per Ambo,Terno,Quaterna
N. [67.56.01.71.80 ] [TT] [CA][67 .. .. .. ..] C. 1 Estratto 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0005 Numeri in gioco : 90.81.16.90.62 su CA PA per Ambo,Terno,Quaterna
N. [90.81.16.90.62 ] [CA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
N. [90.81.16.90.62 ] [PA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0006 Numeri in gioco : 90.81.16.90.62 su TT per Ambo,Terno,Quaterna
V N. [90.81.16.90.62 ] [TT] [VE][.. 62 .. 81 ..] C. 1 Ambo 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0007 Numeri in gioco : 77.73.70.90.66 su CA PA per Ambo,Terno,Quaterna
N. [77.73.70.90.66 ] [CA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
N. [77.73.70.90.66 ] [PA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0008 Numeri in gioco : 77.73.70.90.66 su TT per Ambo,Terno,Quaterna
V N. [77.73.70.90.66 ] [TT] [GE][70 .. 66 .. ..] C. 1 Ambo 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0009 Numeri in gioco : 22.67.37.52.79 su CA PA per Ambo,Terno,Quaterna
N. [22.67.37.52.79 ] [CA] [67 .. .. .. ..] C. 1 Estratto 08961 [ 16 - 05/02/2015]
N. [22.67.37.52.79 ] [PA] [.. .. .. .. ..] C. 1 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
G 0010 Numeri in gioco : 22.67.37.52.79 su TT per Ambo,Terno,Quaterna
N. [22.67.37.52.79 ] [TT] [CA][67 .. .. .. ..] C. 1 Estratto 08961 [ 16 - 05/02/2015]
In corso per altre 9 estrazioni
buon pomeriggio |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
Duca
Utente Nuovo
25 invii |
Spedito - 11 settembre 2016 : 21:00:21
|
Buonasera Franca46
Stasera ho provato questo script... ieri ha dato QUATERNA su Napoli!!!
G 10: ATQ 17.88.32.26.74 Tu 4/10
A 26.88.74.32 su Tu (Na) 4° colpo [9211/10.09.2016]
T 26.88.74.32 su Tu (Na) 4° colpo [9211/10.09.2016]
Q 26.88.74.32 su Tu (Na) 4° colpo [9211/10.09.2016]
in corso (4° su 10) |
|
|
|
franca46
Amministratore
Italy
24104 invii |
Spedito - 12 settembre 2016 : 08:00:45
|
ciao Duca
grazie , non lo avevo più guardato .
ogni tanto allora bisogna rispolverarlo.
buona giornata!!!!
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
| |
Discussione |
|
|
|
"5 CINQUINE SU' CA-PA ALLA 1° ESTRAZIONE MENSILE"
