For i = 1 To 1
j = i + 3
quote:Originally posted by Lady Oscar
Ma se vi chiedo un'altra cosa..... mi ammazzate?[:X]
Intanto GRAZIE per avermi aiutato. Siete stati gentilissimi.
L'ultima richiesta è questa.[:0]
COn spaziometria i numeri che escono vengono evidenziati indipendentemente dalla posizione di uscita.
E possibile mettere una condizione, per cui lo script evidenza il numero sortito solo se è uscito in quella determinata posizione.
Genlotto tu usi Lottodesk, giusto? io vorrei che il listato riconoscesse la posizione di gioco, per come è stabilito nella schermata dei valori isotopi.
Ti allego la schermata
Forse se ti faccio un esempio pratico, riesco a farmi capire.....
Allora, estrazione de l3/06
il listato ci indica un valore di somma isotopica 1 (vedi foto sopra)
Sommiamo all'1 il 17 fisso, giusto?
Ottieniamo 18 che sarà la ns 1° ambata
giochiamo il suo vertibile, 2° ambata.
Se questi numeri volessimo giocarli il posizione, dovremmo prendere come riferimento la foto di sopra e quindi dovremmo giocarli entrambi in 3° e 5° posizione (vedi foto sotto).
Praticamente nelle posizioni che generano la somma iniziale.
Mi sono spiegata (mamma quanta confusione faccio da sola)
===========================================================================
mar 31.05.2011 Genova (28 + 31) = 59 | Napoli (15 + 44) = 59 [pos. 3/5]
Alla Somma Comune Isotopa 59 addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 35
mar 31.05.2011 [8384]
G 1: M 76.67 Ge Na 1/9
M 76 su Ge 1° colpo [8385/03.06.2011]
I1
G 2: D3D5 76.67 Ge Na 2/9
in corso (2° su 9)
===========================================================================
ven 03.06.2011 Bari (88 + 03) = 01 | Cagliari (46 + 45) = 01 [pos. 3/5]
Alla Somma Comune Isotopa 01 addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 36
ven 03.06.2011 [8385]
G 1: M 18.81 Ba Ca 1/9
in corso (1° su 9)
G 2: D3D5 18.81 Ba Ca 1/9
in corso (1° su 9)
===========================================================================
gio 26.05.2011 Genova (19 + 89) = 18 | Torino (29 + 79) = 18 [pos. 2/3]
Alla Somma Comune Isotopa (18) addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 110
gio 26.05.2011 [8382]
G 1: M 35.53 Ge To 4/9
in corso (4° su 9)
G 2: D2D3 35.53 Ge To 4/9
in corso (4° su 9)
G 3: A 35.53 Ge To 4/9
in corso (4° su 9)
G 4: ATQC 35.53.12.13.14 Ge To 4/9
in corso (4° su 9)
===========================================================================
gio 26.05.2011 Palermo (24 + 20) = 44 | Venezia (23 + 21) = 44 [pos. 3/4]
Alla Somma Comune Isotopa (44) addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 111
gio 26.05.2011 [8382]
G 1: M 61.16 Pa Ve 2/9
M 61 su Pa 2° colpo [8384/31.05.2011]
I2
G 2: D3D4 61.16 Pa Ve 4/9
in corso (4° su 9)
G 3: A 61.16 Pa Ve 4/9
in corso (4° su 9)
G 4: ATQC 61.16.12.13.14 Pa Ve 4/9
in corso (4° su 9)
===========================================================================
gio 26.05.2011 Palermo (43 + 55) = 08 | Nazionale (25 + 73) = 08 [pos. 1/2]
Alla Somma Comune Isotopa (08) addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 112
gio 26.05.2011 [8382]
G 1: M 25.52 Pa Nz 4/9
in corso (4° su 9)
G 2: D1D2 25.52 Pa Nz 4/9
in corso (4° su 9)
G 3: A 25.52 Pa Nz 4/9
in corso (4° su 9)
G 4: ATQC 25.52.12.13.14 Pa Nz 4/9
in corso (4° su 9)
===========================================================================
sab 28.05.2011 Bari (10 + 20) = 30 | Torino (16 + 14) = 30 [pos. 2/3]
Alla Somma Comune Isotopa (30) addizioniamo il fisso 17 per ottenere il Primo
Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
---------------------------------------------------------------- caso n° 113
sab 28.05.2011 [8383]
G 1: M 47.74 Ba To 1/9
M 47 su To 1° colpo [8384/31.05.2011]
I1
G 2: D2D3 47.74 Ba To 3/9
D2 47 su To 1° colpo [8384/31.05.2011]
in corso (3° su 9)
G 3: A 47.74 Ba To 3/9
in corso (3° su 9)
G 4: ATQC 47.74.[b]12.13.14[/b] Ba To 3/9
in corso (3° su 9)'x Lady Oscar forum LottoCed
'Genlotto 06/06/2011
Sub Main()
Dim ruota(2),poste(1),posta(10),pst(2),pstt(5)
Dim nu(5),nu1(2),nu2(5)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi = 0
fin = EstrazioneFin
ini = fin - ee
'--------------------------------
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Genlotto ]"
For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p1 = 1 To 4 '<<<<< eventuale modifica x pos det
p2 = p1 + 1 '<<<<< eventuale modifica x pos det
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
If Fuori90(a + b) = Fuori90(c + d) Then
sc = Fuori90(a + b)
casi = casi + 1
Scrivi String(75,"="),1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r1) & " (" & Format2(a) & " + " & Format2(b) & ") = " & Format2(sc) & " | "_
& NomeRuota(r2) & " (" & Format2(c) & " + " & Format2(d) & ") = " & Format2(sc) & " [pos. " & p1 & "/" & p2 & "]",1
ColoreTesto 0
Scrivi "Alla Somma Comune Isotopa (" & Format2(sc) & ") addizioniamo il fisso 17 per ottenere il Primo "
Scrivi "Numero Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"
Scrivi String(64,"-") & " caso n° " &(casi)
'------------------------------------
ruota(1) = r1
ruota(2) = r2
poste(1) = 1
pst(2) = 1
pstt(2) = 1
pstt(3) = 1
pstt(4) = 1
pstt(5) = 1
posta(p1 + 5) = 1
posta(p2 + 5) = 1
nu(1) = Fuori90(sc + 17)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,ruota,poste,k,1
nu(1) = Fuori90(sc + 17)
nu(2) = Vert(nu(1))
ImpostaGiocata 2,nu,ruota,posta,k
nu1(1) = Fuori90(sc + 17)
nu1(2) = Vert(nu(1))
ImpostaGiocata 3,nu1,ruota,pst,k
nu2(1) = Fuori90(sc + 17)
nu2(2) = Vert(nu(1))
nu2(3) = 12 '<<<<<<<<<< qui metti i numeri che vuoi
nu2(4) = 13 '<<<<<<<<<< qui metti i numeri che vuoi
nu2(5) = 14 '<<<<<<<<<< qui metti i numeri che vuoi
ImpostaGiocata 4,nu2,ruota,pstt,k
Gioca es
Erase posta
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
