Sommativo x ambo 3°colpi

claudio8 · 7 Marzo 2018

qui c'è un'altro errore
sf = SerieFreqTurbo (es1,es2,Nu,Ru,1) utilizza serie freq su 4 estrazioni successive alla corrente es
devi sostituirlo con
sf = SerieFreqTurbo (es+1,es+clp,Nu,Ru,1) solo così inuzia dalla successiva lalla corrente e finisce alla 3a dopo la corrente, con il tuo costrutto
es1 = es + 1 es2 = es1 + clp Ne considera 4.
Me ne sono accorto leggendo la matrice e notando che gli elementi che azzecca sono 20. Se le estrazioni sono 3 dei colpi, non possono che essere max 15 elementi sommativi considerando l'utilizzo del solo 1° estratto. Nella tua costruzione della matrice, man mano che elabori le estrazioni, vanno a crescere i valori delle freq dei sommativi, non me ne sarei mai accorto se non avessi letto la matrice.

claudio8 · 7 Marzo 2018

Questo è il for .... next di cui ti parlo.
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(16)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
MEN(1) = Fuori90(Nu(1) + NuFr(i,1))
'MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
'MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
'MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
'MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(5) = MEN(1)
V(6) = MEN(2) ' MEN
V(7) = MEN(3)
V(8) = MEN(4)
V(9) = MEN(5)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,3,,esito,colpi,estratti,id)
V(10) = esito
V(11) = estratti
V(12) = colpi
V(13) = sr
Call AddRigaTabella(V)
Next

antonio65 · 7 Marzo 2018

Questo ciclo For i = 1 To smm contengono le colonne....quindi le devo togliere?

antonio65 · 7 Marzo 2018

Ma te ne sei accorto quanti ambi e terni che ci sono ? tantissimi....wowww

claudio8 · 7 Marzo 2018

antonio65;n2104810 ha scritto:
Questo ciclo For i = 1 To smm contengono le colonne....quindi le devo togliere?

non contiene le colonne, contiene i valori sommatrici della matrice dal 1° al 5° che si scrivono in tabella x 4 volte inutilmente e poi la 5a sovrascrive la 4a con tutti gli annessi e connessi calcolati con il rif NuFr(i,1)) ----> sostituisci la i con 5 ed avrai NuFr(5,1)).
Correggi e preleva il migliore tra i freq (anzi dico meglio , il 1° dei migliori ). Se tra i migliori ci sono diversi a valore di freq uguale, non è detto che il 1° sia quello che ridà ancora esito positivo... )

Ciao

antonio65 · 7 Marzo 2018

Claudio, arrivando a questo punto dovreste fare una classifica: ad ogni posizione di estratto con il ciclo For diamo 5 righe...in questa classifica
devi mettere quante volte esce la prima righe di ogni ruota ....cosi a seguire le altre righe....e dopo lo fai per gli ambi e per i terni...che ne pensi?

claudio8 · 7 Marzo 2018

antonio65;n2104812 ha scritto:
Ma te ne sei accorto quanti ambi e terni che ci sono ? tantissimi....wowww

non esaltare che le sorprese negative cominciano ad arrivare.... se fosse così semplice..... non sei tu il primo ad usare i sommativi... ci sono fior di programmi con algoritmi sommativi che funzionano alla grandissima nel passato... ma nel futuro tanti ??????
Notte

antonio65 · 7 Marzo 2018

Tranquillo Claudio intanto grazie...ascolta per favore domani con calma per favore mi posti lo script con le variazioni che mi hai detto cosi evitiamo errori per favore...e dopo se puoi fai una classifica ...io non sono capace....se fossi capace avrei già fatto....mi impegno molto...ma è da poco che ho iniziato...Buonanotte e fai il bravo!!!

antonio65 · 7 Marzo 2018

Ti posto uno script da una mia idea Mike ne ha fatto un capolavoro....Notte!!!

Codice:

Sub Main
Dim Nu(5),aN(5),aNum(1),Ru(1),T,V
Dim dec(10),cad(9)
Ini = EstrazioneFin - 280
fin = EstrazioneFin
Scrivi "*** Metodo Antonio65 **** Script in Tabella By Mike58 *** By Spaziometria ****",1,,,1,3,,1
Scrivi
r = InputBox("Scelta Ruota di Ricerca",,1)
ReDim Rg(0)
rr = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1)
Scrivi "Ruota di Ricerca : " & NomeRuota(r) & Space(45) & " Ruote di Gioco : " & StringaRuote(Rg),1
Ind = CInt(InputBox("Scegli indice Mensile",,1))
T = Array(T,"Casi","infoData","Ruota","Estratti","Numeri Ricavati","Somma Num Ricavati","Esito Somma","clp","cad 1","Esito cad1","Clp","cad 2","Esito cad2","clp")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
Ru(1) = r
'ReDim Rg()
rr = Rg
k = k + 1
For p = 1 To 5
Nu(p) = Estratto(es,r,p)
Next
aN(1) = Decina(Nu(1)) + Cadenza(Nu(1))
aN(2) = Decina(Nu(2)) + Cadenza(Nu(2))
aN(3) = Decina(Nu(3)) + Cadenza(Nu(3))
aN(4) = Decina(Nu(4)) + Cadenza(Nu(4))
aN(5) = Decina(Nu(5)) + Cadenza(Nu(5))
som = aN(1) + aN(2) + aN(3) + aN(4) + aN(5)
aNum(1) = som
For dc = 0 To 8
dec(dc) = Decina(som) +(dc*10)
Next
For cd = 0 To 8
cad(cd) = Cadenza(som) +(cd*10)
Next
Call VerificaEsito(aNum,Rg,es + 1,1,13,,esito,clp,es1,id1)
Call VerificaEsito(dec,Rg,es + 1,2,13,,esitoA,clpA,esA,idA)
Call VerificaEsito(cad,Rg,es + 1,2,13,,esitoB,clpB,esB,IdB)
V = Array(V,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(aN,,1),som,es1,clp,StringaNumeri(dec,,1),esA,clpA,StringaNumeri(cad),esB,clpB)
Call AddRigaTabella(V)
For x = 1 To 13
If Gemello(som) Then Call SetColoreCella((x),2,4)
Next
End If
Next
Call SetTableWidth("100%")
CreaTabella
End Sub

claudio8 · 7 Marzo 2018

antonio65;n2104819 ha scritto:
Tranquillo Claudio intanto grazie...ascolta per favore domani con calma per favore mi posti lo script con le variazioni che mi hai detto cosi evitiamo errori per favore...e dopo se puoi fai una classifica ...io non sono capace....se fossi capace avrei già fatto....mi impegno molto...ma è da poco che ho iniziato...Buonanotte e fai il bravo!!!

Tranquillo...Per favore..per favore,, per favore e fai il bravo....
ti piace vincere facile...

. ...... devi imparare ad usare la canna da pesca.

buona notte.

claudio8 · 7 Marzo 2018

Antonio, non lo leggo neanche. Impara prima a postare con le indentature.

claudio8 · 7 Marzo 2018

Antonio, mi son preso la briga di chiarirti il concetto scrittoti ieri.

claudio8;n2104818 ha scritto:
non esaltare che le sorprese negative cominciano ad arrivare.... se fosse così semplice..... non sei tu il primo ad usare i sommativi... ci sono fior di programmi con algoritmi sommativi che funzionano alla grandissima nel passato... ma nel futuro tanti ??????
Notte

Eccoti i dati di output con archivio esistente, gestendo il fine range con spaziometria ( la funzione frequenti "sf" che erroneamente considera anche i numeri delle 3 estraz. successive al fine range) ed archivio eliminato quindi impossibile che vengano considerati le future 3 estrazioni oltre fine range che coincide con il finearchivio..
Il fine range è preso a caso così come il numero delle estrazioni ( casi )

Codice:

Ruota di rilevamento : Bari - Colpi di Gioco 3 - Righe visual. : 20
[COLOR=#FF0000][B]elaborazione eseguita in presenza di archivio[/B][/COLOR]
 Data estrazione rilevamento estratto base 03.02.2018 data di fine range in spaziometria
1° di BA = 59 del 03.02.2018 + 23 - casi 07/21 N° previsto  82 --> esito negativo
1° di BA = 59 del 03.02.2018 + 45 - casi 07/21 N° previsto  14 --> esito negativo
1° di BA = 59 del 03.02.2018 + 24 - casi 06/21 N° previsto  83 --> esito Estratto al colpo 1
1° di BA = 59 del 03.02.2018 + 19 - casi 06/21 N° previsto  78 --> esito negativo
1° di BA = 59 del 03.02.2018 + 38 - casi 06/21 N° previsto   7 --> esito negativo
1° di BA = 59 del 03.02.2018 + 69 - casi 06/21 N° previsto  38 --> esito negativo
1° di BA = 59 del 03.02.2018 + 70 - casi 06/21 N° previsto  39 --> esito negativo
1° di BA = 59 del 03.02.2018 + 22 - casi 06/21 N° previsto  81 --> esito Estratto al colpo 1
1° di BA = 59 del 03.02.2018 + 02 - casi 06/21 N° previsto  61 --> esito negativo
1° di BA = 59 del 03.02.2018 + 34 - casi 06/21 N° previsto   3 --> esito Estratto al colpo 3
1° di BA = 59 del 03.02.2018 + 88 - casi 06/21 N° previsto  57 --> esito negativo
1° di BA = 59 del 03.02.2018 + 06 - casi 06/21 N° previsto  65 --> esito Estratto al colpo 1
[B][COLOR=#A52A2A]--primi 12 num di cui 2 a valore 7/21----- e  10 valore 6/21  presenzeo freq.[/COLOR][/B]
1° di BA = 59 del 03.02.2018 + 54 - casi 05/21 N° previsto  23 --> esito Estratto al colpo 3
1° di BA = 59 del 03.02.2018 + 60 - casi 05/21 N° previsto  29 --> esito negativo
1° di BA = 59 del 03.02.2018 + 83 - casi 05/21 N° previsto  52 --> esito Estratto al colpo 3
1° di BA = 59 del 03.02.2018 + 12 - casi 05/21 N° previsto  71 --> esito negativo
1° di BA = 59 del 03.02.2018 + 87 - casi 05/21 N° previsto  56 --> esito negativo
1° di BA = 59 del 03.02.2018 + 35 - casi 04/21 N° previsto   4 --> esito negativo
1° di BA = 59 del 03.02.2018 + 36 - casi 04/21 N° previsto   5 --> esito negativo
1° di BA = 59 del 03.02.2018 + 39 - casi 04/21 N° previsto   8 --> esito Estratto al colpo 1
Estraz. dei 3 colpi successivi 83.17.81.65.08 - 60.17.09.63.90 - 08.52.23.40.03 -

Analisi fatta con archivio cancellato, quindi non influenzante i risultati
Ruota di rilevamento : Bari - Colpi di Gioco 3 - Righe visual. : 20
[B][COLOR=#FF0000]elaborazione eseguita con archivio cancellato[/COLOR][/B]
 Data estrazione rilevamento estratto base 03.02.2018 data di fine range in spaziometria
Gli esidyi di questi 12 righe sono stati riportati manualmente
1° di BA = 59 del 03.02.2018 + 23 - casi 07/21 N° previsto  82    --> esito negativo
1° di BA = 59 del 03.02.2018 + 70 - casi 06/21 N° previsto  39    --> esito negativo
1° di BA = 59 del 03.02.2018 + 69 - casi 06/21 N° previsto  38    --> esito negativo
1° di BA = 59 del 03.02.2018 + 45 - casi 06/21 N° previsto  14    --> esito negativo
1° di BA = 59 del 03.02.2018 + 38 - casi 06/21 N° previsto   7    --> esito negativo
1° di BA = 59 del 03.02.2018 + 02 - casi 06/21 N° previsto  61    --> esito negativo
1° di BA = 59 del 03.02.2018 + 19 - casi 05/21 N° previsto  78    --> esito negativo
1° di BA = 59 del 03.02.2018 + 12 - casi 05/21 N° previsto  71    --> esito negativo
1° di BA = 59 del 03.02.2018 + 60 - casi 05/21 N° previsto  29    --> esito negativo
1° di BA = 59 del 03.02.2018 + 88 - casi 05/21 N° previsto  57    --> esito negativo
1° di BA = 59 del 03.02.2018 + 87 - casi 05/21 N° previsto  56    --> esito negativo
1° di BA = 59 del 03.02.2018 + 24 - casi 05/21 N° previsto  83            --> esito al 1° colpo
[B][COLOR=#A52A2A]--primi 12 num di cui 1 a valore 7/21- 5 valore 6/21 e 6 a valore 5/21 presenzeo freq.[/COLOR][/B]
1° di BA = 59 del 03.02.2018 + 06 - casi 05/21 N° previsto  65             --> esito al 1° colpo
1° di BA = 59 del 03.02.2018 + 34 - casi 05/21 N° previsto   3              --> esito al 3° colpo
1° di BA = 59 del 03.02.2018 + 22 - casi 05/21 N° previsto  81             --> esito al 1° colpo
1° di BA = 59 del 03.02.2018 + 46 - casi 04/21 N° previsto  15    --> esito negativo
1° di BA = 59 del 03.02.2018 + 35 - casi 04/21 N° previsto   4    --> esito negativo
1° di BA = 59 del 03.02.2018 + 78 - casi 04/21 N° previsto  47            --> esito al 11° colpo
1° di BA = 59 del 03.02.2018 + 76 - casi 04/21 N° previsto  45    --> esito negativo
1° di BA = 59 del 03.02.2018 + 81 - casi 04/21 N° previsto  50             --> esito al  4° colpo
Estraz. dei 3 colpi successivi  -  -  -   inesistenti in archivio
---------------------------------------------------------
[B][COLOR=#FF0000]1° BA  fisso  freq  N°prev[/COLOR][/B]
    59     79      4     48              
    59     75      4     44              
    59     58      4     27              
    59     54      4     23              
    59     68      4     37              
    59     63      4     32              
    59     13      4     72              
    59     17      4     76              
    59      8      4     67              
    59      7      4     66              
    59     50      3     19              
    59     52      3     21              
    59     83      3     52              
    59     47      3     16              
    59     18      3     77              
    59     49      3     18              
    59     48      3     17              
    59     14      3     73              
    59     62      3     31              
    59      5      3     64              
    59     67      3     36              
    59     57      3     26              
    59     56      3     25              
    59     61      3     30              
    59     15      3     74              
    59     36      3      5              
    59     89      3     58              
    59     21      3     80              
    59     37      3      6              
    59     30      3     89              
    59     31      3     90              
    59     25      3     84              
    59      3      3     62              
    59     39      3      8              
    59     85      3     54              
    59     44      3     13              
    59     20      3     79              
    59     90      2     59              
    59     11      2     70              
    59      9      2     68              
    59     77      2     46              
    59     72      2     41              
    59     28      2     87              
    59     74      2     43              
    59      4      2     63              
    59     86      2     55              
    59     84      2     53              
    59     51      2     20              
    59     43      2     12              
    59     42      2     11              
    59     16      2     75              
    59     32      2      1              
    59     64      2     33              
    59      1      2     60              
    59     80      1     49              
    59     82      1     51              
    59     40      1      9              
    59     41      1     10              
    59     53      1     22              
    59     27      1     86              
    59     33      1      2              
    59     26      1     85              
    59     55      1     24              
    59     10      1     69              
    59     71      1     40              
    59     66      1     35              
    59     59      1     28              
    59     65      1     34              
    59     73            42              
    59     29            88

Cerca di dormirci sopra ....non essere preoccupato e lascia perdere le giocate ed i resoconti che la futura realtà è ben diversa da quello che normalmente viene fuori dagli script....

.

Ciao

fillotto · 8 Marzo 2018

claudio8;n2104805 ha scritto:

Output con primi 5 elementi della matrice NuFr
Buonasera Claudio ho lanciato anche io il tuo script e naturalmente ho ottenuto lo stesso output sottonotato mi domandavo perchè l'output della matrice viene ordinato in questa maniera ovvero perchè il n° 78 si trova in prima posizione il 60 in seconda ecc determinando poi l'uscita al terzo colpo 24 , 6 e 56 e dell'ambo 50 e 51 al 2° colpo? insomma perchè si ordina in questa maniera e a causa di quale riga di codice avviene questo? Seconda domanda qui fai vedere i primi 5 elementi della matrice NuFr ma gl'elementi (con 1 presenza) sono 20(4 righe di 5 numeri= 20) questi sono i sommatori che ha preso la matrice perchè 4 righe? [TABLE="border: 1, cellpadding: 1, width: 500"]
[TR]
[TD] [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 239"]
[TR]
[TD="class: xl64, width: 63, align: right"]13/01/2018[/TD]
[TD="class: xl63, width: 31, align: right"]36[/TD]
[TD="class: xl63, width: 32, align: right"]80[/TD]
[TD="class: xl63, width: 32, align: right"]56[/TD]
[TD="class: xl63, width: 32, align: right"]53[/TD]
[TD="class: xl69, width: 32"]67[/TD]
[TD="class: xl70, width: 23, align: right"] [/TD]
[TD="class: xl70, width: 19, align: right"] [/TD]
[TD="class: xl70, width: 19, align: right"] [/TD]
[TD="class: xl70, width: 19, align: right"] [/TD]
[TD="class: xl70, width: 19, align: right"] [/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]16/01/2018[/TD]
[TD="align: right"]76[/TD]
[TD="align: right"]34[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]75[/TD]
[TD="class: xl67"]71[/TD]
[TD="class: xl68, align: right"]40[/TD]
[TD="class: xl68, align: right"]88[/TD]
[TD="class: xl68, align: right"]24[/TD]
[TD="class: xl68, align: right"]39[/TD]
[TD="class: xl68, align: right"]35[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]18/01/2018[/TD]
[TD="align: right"]51[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]38[/TD]
[TD="class: xl67"]50[/TD]
[TD="class: xl68, align: right"]15[/TD]
[TD="class: xl68, align: right"]55[/TD]
[TD="class: xl68, align: right"]58[/TD]
[TD="class: xl68, align: right"]2[/TD]
[TD="class: xl68, align: right"]14[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]20/01/2018[/TD]
[TD="align: right"]24[/TD]
[TD="align: right"]31[/TD]
[TD="align: right"]53[/TD]
[TD="align: right"]06 [/TD]
[TD="class: xl67"]56[/TD]
[TD="class: xl68, align: right"]78[/TD]
[TD="class: xl68, align: right"]85[/TD]
[TD="class: xl68, align: right"]17[/TD]
[TD="class: xl68, align: right"]60[/TD]
[TD="class: xl68, align: right"]20[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]23/01/2018[/TD]
[TD="align: right"]40[/TD]
[TD="align: right"]35[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]9[/TD]
[TD="class: xl67"]74[/TD]
[TD="class: xl68, align: right"]4[/TD]
[TD="class: xl68, align: right"]89[/TD]
[TD="class: xl68, align: right"]84[/TD]
[TD="class: xl68, align: right"]63[/TD]
[TD="class: xl68, align: right"]38[/TD]
[/TR]
[TR]
[TD="class: xl64, align: right"]25/01/2018[/TD]
[TD="align: right"]38[/TD]
[TD="align: right"]74[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]62[/TD]
[TD="class: xl67"]52[/TD]
[TD="class: xl68, align: right"] [/TD]
[TD="class: xl68, align: right"] [/TD]
[TD="class: xl68, align: right"] [/TD]
[TD="class: xl68, align: right"] [/TD]
[TD="class: xl68, align: right"] [/TD]
[/TR]
[/TABLE]
[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]

Codice:

Ruota di rilevamento : BariColpi di Gioco : 3 Righe visual. : 5
78 1
60 1
20 1
14 1
15 1
17 1

Data estrazione rilevamento estratto base 13.01.2018
1° di BA = 36 del 13.01.2018 + 78 N° previsto 24 esito Estratto al colpo 3 estratti BA 24 .. .. .. ..
1° di BA = 36 del 13.01.2018 + 60 N° previsto 6 esito Estratto al colpo 3 estratti BA .. .. .. 06 ..
1° di BA = 36 del 13.01.2018 + 20 N° previsto 56 esito Estratto al colpo 3 estratti BA .. .. .. .. 56
1° di BA = 36 del 13.01.2018 + 14 N° previsto 50 esito Estratto al colpo 2 estratti BA .. .. .. .. 50
1° di BA = 36 del 13.01.2018 + 15 N° previsto 51 esito Estratto al colpo 2 estratti BA 51 .. .. .. ..
---------------------------------------------------------
16 2
15 2
18 2
20 2
44 1

Data estrazione rilevamento estratto base 16.01.2018
1° di BA = 76 del 16.01.2018 + 16 N° previsto 2 esito negativo
1° di BA = 76 del 16.01.2018 + 15 N° previsto 1 esito Estratto al colpo 1 estratti BA .. 01 .. .. ..
1° di BA = 76 del 16.01.2018 + 18 N° previsto 4 esito Estratto al colpo 1 estratti BA .. .. 04 .. ..
1° di BA = 76 del 16.01.2018 + 20 N° previsto 6 esito Estratto al colpo 2 estratti BA .. .. .. 06 ..
1° di BA = 76 del 16.01.2018 + 44 N° previsto 30 esito Estratto al colpo 3 estratti BA .. .. 30 .. ..
---------------------------------------------------------
2 3
1 3
23 2
11 2
34 2

Data estrazione rilevamento estratto base 18.01.2018
1° di BA = 51 del 18.01.2018 + 02 N° previsto 53 esito Estratto al colpo 1 estratti BA .. .. 53 .. ..
1° di BA = 51 del 18.01.2018 + 01 N° previsto 52 esito Estratto al colpo 3 estratti BA .. .. .. .. 52
1° di BA = 51 del 18.01.2018 + 23 N° previsto 74 esito Estratto al colpo 2 estratti BA .. .. .. .. 74
1° di BA = 51 del 18.01.2018 + 11 N° previsto 62 esito Estratto al colpo 3 estratti BA .. .. .. 62 ..
1° di BA = 51 del 18.01.2018 + 34 N° previsto 85 esito negativo
---------------------------------------------------------
2 4
6 3
1 3
14 2
11 2

Data estrazione rilevamento estratto base 20.01.2018
1° di BA = 24 del 20.01.2018 + 02 N° previsto 26 esito Estratto al colpo 3 estratti BA .. .. .. .. 26
1° di BA = 24 del 20.01.2018 + 06 N° previsto 30 esito Estratto al colpo 1 estratti BA .. .. 30 .. ..
1° di BA = 24 del 20.01.2018 + 01 N° previsto 25 esito negativo
1° di BA = 24 del 20.01.2018 + 14 N° previsto 38 esito Estratto al colpo 2 estratti BA 38 .. .. .. ..
1° di BA = 24 del 20.01.2018 + 11 N° previsto 35 esito Estratto al colpo 1 estratti BA .. 35 .. .. ..
---------------------------------------------------------
1 4
5 3
12 3
15 3
2 3

Data estrazione rilevamento estratto base 23.01.2018
1° di BA = 40 del 23.01.2018 + 01 N° previsto 41 esito negativo
1° di BA = 40 del 23.01.2018 + 05 N° previsto 45 esito negativo
1° di BA = 40 del 23.01.2018 + 12 N° previsto 52 esito Estratto al colpo 1 estratti BA .. .. .. .. 52
1° di BA = 40 del 23.01.2018 + 15 N° previsto 55 esito negativo
1° di BA = 40 del 23.01.2018 + 02 N° previsto 42 esito negativo
---------------------------------------------------------
1 4
7 3
6 3
17 3
21 3

Data estrazione rilevamento estratto base 25.01.2018
1° di BA = 38 del 25.01.2018 + 01 N° previsto 39 esito negativo
1° di BA = 38 del 25.01.2018 + 07 N° previsto 45 esito Estratto al colpo 3 estratti BA .. .. 45 .. ..
1° di BA = 38 del 25.01.2018 + 06 N° previsto 44 esito negativo
1° di BA = 38 del 25.01.2018 + 17 N° previsto 55 esito Estratto al colpo 3 estratti BA .. 55 .. .. ..
1° di BA = 38 del 25.01.2018 + 21 N° previsto 59 esito Estratto al colpo 2 estratti BA .. .. .. .. 59
---------------------------------------------------------
9 4
6 4
1 4
8 3
19 3

Data estrazione rilevamento estratto base 27.01.2018
1° di BA = 11 del 27.01.2018 + 09 N° previsto 20 esito Estratto al colpo 1 estratti BA .. .. .. 20 ..
1° di BA = 11 del 27.01.2018 + 06 N° previsto 17 esito negativo
1° di BA = 11 del 27.01.2018 + 01 N° previsto 12 esito negativo
1° di BA = 11 del 27.01.2018 + 08 N° previsto 19 esito negativo
1° di BA = 11 del 27.01.2018 + 19 N° previsto 30 esito Estratto al colpo 3 estratti BA .. .. .. 30 ..
---------------------------------------------------------
3 4
6 4
1 4
2 4
35 3

Data estrazione rilevamento estratto base 30.01.2018
1° di BA = 24 del 30.01.2018 + 03 N° previsto 27 esito negativo
1° di BA = 24 del 30.01.2018 + 06 N° previsto 30 esito Estratto al colpo 2 estratti BA .. .. .. 30 ..
1° di BA = 24 del 30.01.2018 + 01 N° previsto 25 esito negativo
1° di BA = 24 del 30.01.2018 + 02 N° previsto 26 esito negativo
1° di BA = 24 del 30.01.2018 + 35 N° previsto 59 esito Estratto al colpo 2 estratti BA 59 .. .. .. ..
---------------------------------------------------------
3 5
1 5
9 4
4 4
2 4

Data estrazione rilevamento estratto base 01.02.2018
1° di BA = 62 del 01.02.2018 + 03 N° previsto 65 esito Estratto al colpo 2 estratti BA .. .. .. 65 ..
1° di BA = 62 del 01.02.2018 + 01 N° previsto 63 esito Estratto al colpo 3 estratti BA .. .. .. 63 ..
1° di BA = 62 del 01.02.2018 + 09 N° previsto 71 esito Estratto al colpo 1 estratti BA .. .. .. .. 71
1° di BA = 62 del 01.02.2018 + 04 N° previsto 66 esito negativo
1° di BA = 62 del 01.02.2018 + 02 N° previsto 64 esito negativo
---------------------------------------------------------
1 6
4 5
2 5
17 4
22 4

Data estrazione rilevamento estratto base 03.02.2018
1° di BA = 59 del 03.02.2018 + 01 N° previsto 60 esito Estratto al colpo 2 estratti BA 60 .. .. .. ..
1° di BA = 59 del 03.02.2018 + 04 N° previsto 63 esito Estratto al colpo 2 estratti BA .. .. .. 63 ..
1° di BA = 59 del 03.02.2018 + 02 N° previsto 61 esito negativo
1° di BA = 59 del 03.02.2018 + 17 N° previsto 76 esito negativo
1° di BA = 59 del 03.02.2018 + 22 N° previsto 81 esito Estratto al colpo 1 estratti BA .. .. 81 .. ..
---------------------------------------------------------
1 6
7 5
8 5
9 5
5 5

Data estrazione rilevamento estratto base 06.02.2018
1° di BA = 83 del 06.02.2018 + 01 N° previsto 84 esito negativo
1° di BA = 83 del 06.02.2018 + 07 N° previsto 90 esito Estratto al colpo 1 estratti BA .. .. .. .. 90
1° di BA = 83 del 06.02.2018 + 08 N° previsto 1 esito negativo
1° di BA = 83 del 06.02.2018 + 09 N° previsto 2 esito Estratto al colpo 3 estratti BA .. .. .. 02 ..
1° di BA = 83 del 06.02.2018 + 05 N° previsto 88 esito negativo
---------------------------------------------------------
3 6
1 6
6 5
7 5
16 5

Data estrazione rilevamento estratto base 08.02.2018
1° di BA = 60 del 08.02.2018 + 03 N° previsto 63 esito negativo
1° di BA = 60 del 08.02.2018 + 01 N° previsto 61 esito negativo
1° di BA = 60 del 08.02.2018 + 06 N° previsto 66 esito negativo
1° di BA = 60 del 08.02.2018 + 07 N° previsto 67 esito negativo
1° di BA = 60 del 08.02.2018 + 16 N° previsto 76 esito Estratto al colpo 2 estratti BA .. .. 76 .. ..
---------------------------------------------------------
4 6
2 6
1 6
10 5
16 5

Data estrazione rilevamento estratto base 10.02.2018
1° di BA = 8 del 10.02.2018 + 04 N° previsto 12 esito Estratto al colpo 2 estratti BA .. .. .. 12 ..
1° di BA = 8 del 10.02.2018 + 02 N° previsto 10 esito negativo
1° di BA = 8 del 10.02.2018 + 01 N° previsto 9 esito negativo
1° di BA = 8 del 10.02.2018 + 10 N° previsto 18 esito Estratto al colpo 3 estratti BA .. .. .. .. 18
1° di BA = 8 del 10.02.2018 + 16 N° previsto 24 esito negativo
---------------------------------------------------------
6 6
12 6
10 6
11 6
2 6

Data estrazione rilevamento estratto base 13.02.2018
1° di BA = 43 del 13.02.2018 + 06 N° previsto 49 esito Estratto al colpo 3 estratti BA .. 49 .. .. ..
1° di BA = 43 del 13.02.2018 + 12 N° previsto 55 esito Estratto al colpo 1 estratti BA .. 55 .. .. ..
1° di BA = 43 del 13.02.2018 + 10 N° previsto 53 esito negativo
1° di BA = 43 del 13.02.2018 + 11 N° previsto 54 esito Estratto al colpo 2 estratti BA .. .. .. 54 ..
1° di BA = 43 del 13.02.2018 + 02 N° previsto 45 esito negativo
---------------------------------------------------------
4 7
13 6
6 6
8 6
7 6

Data estrazione rilevamento estratto base 15.02.2018
1° di BA = 1 del 15.02.2018 + 04 N° previsto 5 esito Estratto al colpo 2 estratti BA 05 .. .. .. ..
1° di BA = 1 del 15.02.2018 + 13 N° previsto 14 esito Estratto al colpo 3 estratti BA 14 .. .. .. ..
1° di BA = 1 del 15.02.2018 + 06 N° previsto 7 esito negativo
1° di BA = 1 del 15.02.2018 + 08 N° previsto 9 esito Estratto al colpo 3 estratti BA .. .. .. 09 ..
1° di BA = 1 del 15.02.2018 + 07 N° previsto 8 esito negativo
---------------------------------------------------------
7 7
1 7
8 6
16 6
9 6

Data estrazione rilevamento estratto base 17.02.2018
1° di BA = 63 del 17.02.2018 + 07 N° previsto 70 esito Estratto al colpo 3 estratti BA .. .. 70 .. ..
1° di BA = 63 del 17.02.2018 + 01 N° previsto 64 esito negativo
1° di BA = 63 del 17.02.2018 + 08 N° previsto 71 esito negativo
1° di BA = 63 del 17.02.2018 + 16 N° previsto 79 esito Estratto al colpo 3 estratti BA .. 79 .. .. ..
1° di BA = 63 del 17.02.2018 + 09 N° previsto 72 esito negativo
---------------------------------------------------------
9 7
4 7
1 7
2 7
10 6

Data estrazione rilevamento estratto base 20.02.2018
1° di BA = 5 del 20.02.2018 + 09 N° previsto 14 esito Estratto al colpo 1 estratti BA 14 .. .. .. ..
1° di BA = 5 del 20.02.2018 + 04 N° previsto 9 esito Estratto al colpo 1 estratti BA .. .. .. 09 ..
1° di BA = 5 del 20.02.2018 + 01 N° previsto 6 esito negativo
1° di BA = 5 del 20.02.2018 + 02 N° previsto 7 esito negativo
1° di BA = 5 del 20.02.2018 + 10 N° previsto 15 esito negativo
---------------------------------------------------------
13 7
6 7
11 7
9 7
3 7

Data estrazione rilevamento estratto base 22.02.2018
1° di BA = 14 del 22.02.2018 + 13 N° previsto 27 esito Estratto al colpo 1 estratti BA 27 .. .. .. ..
1° di BA = 14 del 22.02.2018 + 06 N° previsto 20 esito Estratto al colpo 2 estratti BA .. 20 .. .. ..
1° di BA = 14 del 22.02.2018 + 11 N° previsto 25 esito Estratto al colpo 1 estratti BA .. .. .. .. 25
1° di BA = 14 del 22.02.2018 + 09 N° previsto 23 esito Estratto al colpo 2 estratti BA .. .. .. .. 23
1° di BA = 14 del 22.02.2018 + 03 N° previsto 17 esito negativo
---------------------------------------------------------
7 7
6 7
8 7
11 7
10 7
2 7

Data estrazione rilevamento estratto base 24.02.2018
1° di BA = 27 del 24.02.2018 + 07 N° previsto 34 esito negativo
1° di BA = 27 del 24.02.2018 + 06 N° previsto 33 esito negativo
1° di BA = 27 del 24.02.2018 + 08 N° previsto 35 esito negativo
1° di BA = 27 del 24.02.2018 + 11 N° previsto 38 esito Estratto al colpo 3 estratti BA .. 38 .. .. ..
1° di BA = 27 del 24.02.2018 + 10 N° previsto 37 esito Estratto al colpo 2 estratti BA .. .. .. .. 37
---------------------------------------------------------
9 8
8 7
7 7
13 7
16 7

Data estrazione rilevamento estratto base 27.02.2018
1° di BA = 57 del 27.02.2018 + 09 N° previsto 66 esito Estratto al colpo 1 estratti BA .. .. 66 .. ..
1° di BA = 57 del 27.02.2018 + 08 N° previsto 65 esito negativo
1° di BA = 57 del 27.02.2018 + 07 N° previsto 64 esito negativo
1° di BA = 57 del 27.02.2018 + 13 N° previsto 70 esito Estratto al colpo 1 estratti BA 70 .. .. .. ..
1° di BA = 57 del 27.02.2018 + 16 N° previsto 73 esito Estratto al colpo 2 estratti BA .. .. .. .. 73
---------------------------------------------------------
3 8
1 8
9 7
8 7
10 7

Data estrazione rilevamento estratto base 01.03.2018
1° di BA = 70 del 01.03.2018 + 03 N° previsto 73 esito Estratto al colpo 1 estratti BA .. .. .. .. 73
1° di BA = 70 del 01.03.2018 + 01 N° previsto 71 esito negativo
1° di BA = 70 del 01.03.2018 + 09 N° previsto 79 esito negativo
1° di BA = 70 del 01.03.2018 + 08 N° previsto 78 esito negativo
1° di BA = 70 del 01.03.2018 + 10 N° previsto 80 esito negativo
---------------------------------------------------------
2 8
1 8
9 7
8 7
10 7

Data estrazione rilevamento estratto base 03.03.2018
1° di BA = 9 del 03.03.2018 + 02 N° previsto 11 esito negativo
1° di BA = 9 del 03.03.2018 + 01 N° previsto 10 esito negativo
1° di BA = 9 del 03.03.2018 + 09 N° previsto 18 esito negativo
1° di BA = 9 del 03.03.2018 + 08 N° previsto 17 esito negativo
1° di BA = 9 del 03.03.2018 + 10 N° previsto 19 esito negativo
---------------------------------------------------------

ciao

antonio65 · 8 Marzo 2018

Buonasera Fillotto, nemmeno io ho capito bene questa cosa....Claudio ci spiegherà...

fillotto · 8 Marzo 2018

Allora (empiricamente) quando domanda quanti colpi di gioco mettere uno di meno cioè 2 ne conterà 3 le righe far rimanere 3 così:

clp = CInt(InputBox("Quanti Colpi di Gioco",,2))
smm = CInt(InputBox("Quante righe ",,3))
Per quanto riguardo l'ordinamento ci pensa questo codice (guardare la guida)
Call OrdinaMatrice(NuFr,- 1,2)

claudio8 · 8 Marzo 2018

fillotto;n2105011 ha scritto:
Originariamente inviato da claudio8 Visualizza il messaggio

Output con primi 5 elementi della matrice NuFr

Buonasera Claudio ho lanciato anche io il tuo script e naturalmente ho ottenuto lo stesso output sottonotato mi domandavo perchè l'output della matrice viene ordinato in questa maniera ovvero perchè il n° 78 si trova in prima posizione il 60 in seconda ecc determinando poi l'uscita al terzo colpo 24 , 6 e 56 e dell'ambo 50 e 51 al 2° colpo? insomma perchè si ordina in questa maniera e a causa di quale riga di codice avviene questo?
Non esiste alcuna riga di codice che determina questo elenco, è all'interno del VBscript che viene definito l'elenco, ciò avviene sempre a parità di valori della colonna da ordinare e noi non possiamo incidere a meno che non si inserisca un ulteriore colonna-parametro ordinabile ( cosa fattibile con le tabelle ) ... ma quale parametro????
Se noti nell'uso delle tabelleordinabi, facendo ripetuti ordinamenti della stessa colonna, a parità di valori in colonna, i corrispondenti di altre colonne, cambiano di posizione in elenco.
Seconda domanda qui fai vedere i primi 5 (o 6 per far notare ad Antonio che lo script considera sempre il 5° ) elementi della matrice NuFr ma gl'elementi (con 1 presenza) sono 20 (4 righe di 5 numeri = 20) questi sono i sommatori che ha preso la matrice perchè 4 (5) righe? è una scelta per ridurre i numeri da considerare giocabili, si sarebbe potuto anche inserire 20 o addirittura tutte le 90 righe

spero di essere stato chiaro
ciao

antonio65 · 9 Marzo 2018

Hai visto stasera? è uscito il 47 a cagliari ed il 35 a Palermo...

claudio8 · 10 Marzo 2018

X Fillotto ...

fillotto;n2105023 ha scritto:
Allora (empiricamente) quando domanda quanti colpi di gioco mettere uno di meno cioè 2 ne conterà 3 le righe far rimanere 3 così:

clp = CInt(InputBox("Quanti Colpi di Gioco",,2))
smm = CInt(InputBox("Quante righe ",,3))
Per quanto riguardo l'ordinamento ci pensa questo codice (guardare la guida)
Call OrdinaMatrice(NuFr,- 1,2)

No Fillotto, che senso ha mantenere un errore in uno script ed utilizzare escamotage x correggerlo..... facciamo la correzione dell'errore.

x ricapitolare ti ripeto meglio quanto scritto precedentemente:

sf = SerieFreqTurbo (es1,es2,Nu,Ru,1) utilizza serie freq su 4 estrazioni successive alla corrente es
derivante da
---------------------------------
clp = CInt(InputBox("Quanti Colpi di Gioco",,3))
es1 = es + 1
es2 = es1 + clp
---------------------------------
sostituisco gli elementi a sf = SerieFreqTurbo(es + 1,es1 + clp,Nu,Ru,1) ed ottengo sf=SerieFreqTurbo(es + 1,es+1 + 3,Nu,Ru,1)
quindi lo script elabora la SerieFreqTurbo da inizio= es+1 a fine= es+1+3 che vale es + 4 <--- eccoti l'errore.
dall'help: Function SerieEstrazioneStorico(Inizio, Fine, VetNumeri, vetRuote, Sorte, Optional tipogioco = 0, Optional Jolly = False, Optional idArchivio = 0) As Long
---------------------------------
es1 = es + 1 eliminabile perchè calcolata nei parametri della funzione SerieFreqTurbo ( es+1,ecc.
es2 = es1 + clp completamente errata.
---------------------------------
indefinitivai x ovviare all'errore, cancella es1 = es + 1 ed es2 = es1 + clp e sostituisci sf = SerieFreqTurbo (es1,es2,Nu,Ru,1) con

sf = SerieFreqTurbo (es+1,es+clp,Nu,Ru,1) solo così inizia dalla successiva alla corrente es e finisce alla 3a dopo la corrente.

Per quanto riguardo l'ordinamento?...ti ho già spegato prima, il codice opera ma a parità di valori non vi è nulla che lo script possa fare, a meno che non si inserisca ulterire parametro ordinabile.

Spero di essere stato chiaro.
Ciao

claudio8 · 10 Marzo 2018

Bravo Antonio .......aggiorno tue previsioni

antonio65;n2104664 ha scritto:
Anche se ancora non ho lo script posso dare delle previsioni...chi vuole li gioca altrimenti si osserva per vedere cosa succede...

Codice:

Napoli 70-7 3colpi Genova [COLOR=#FF0000]55[/COLOR]-27 3colpi [U]1° colpo[/U] Genova 1-27 3colpi Ca 51-[COLOR=#FF0000][B]47[/B][/COLOR]-7 ambo&terno 3 colpi [U] 2° colpo[/U] Ve 13-28 3colpi Pa [COLOR=#FF0000]35[/COLOR]-36 3colpi [U]2° colpo[/U] Pa 8-[COLOR=#FF0000]35[/COLOR] 3colpi [U]2° colpo con ambetto [/U]

antonio65 · 10 Marzo 2018

Ciao Claudio...io ho fatto come hai detto tu...seguendo quello che hai appena risposto a fillotto...nello stesso tempo grazie per aver aggiornato le previsioni...io allego lo script e chiunque per favore se puo verificare se gli esiti sono veri o Falsi...in poche parole attendili..allego lo script...
N.B forse in fondo alla fine dello script ho sbagliato ad inserire(come posizione) Call OrdinaMatrice(NuFr,1,1)

Codice:

Sub Main
Scrivi "Listato Sommativo post di antonio65 http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3350":Scrivi
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),SFF(3)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estrattcaso
caso = 0
Ini = 9423
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,3))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Data","n1","n2","n3","n4","n5","SFF1","SFF2","SFF3")
Call InitTabella(T,6)
For es = Ini To fin
idd = GetInfoEstrazione(es)
Call AvanzamentoElab(Ini,fin,es)
'If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
'es1 = es + 1
'es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreqTurbo (es+1,es+clp,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To 1
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
MEN(1) = Fuori90(Nu(1) + NuFr(i,1))
'MEN(2) = Fuori90(Abs(NuAdd(1) - DNA(2)))
'MEN(3) = Fuori90(Abs(NuAdd(1) - DNA(3)))
'MEN(4) = Fuori90(Abs(NuAdd(1) - DNA(4)))
'MEN(5) = Fuori90(Abs(NuAdd(1) - DNA(5)))
'---------------------------------------------------
m1(1) = MEN(1) : m1(1) = MEN(1)
m2(1) = MEN(2) : m2(1) = MEN(2)
m3(1) = MEN(3) : m3(1) = MEN(3)
m4(1) = MEN(4) : m4(1) = MEN(4)
m5(1) = MEN(5) : m5(1) = MEN(5)
'-------------------------------------------------
ReDim V(30)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
V(6) = StringaNumeri(DNA)
For x = 1 To 3
SFF(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
Next
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es+1,1,3,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi & "°"
V(15) = sr
If Esito = "Estratto" Or Esito = "Terno" Then
V(16) = DataEstrazione(id)
Else
V(16) = " In corso"
End If
V(17) = m1(1)
V(18) = m2(1)
V(19) = m3(1)
V(20) = m4(1)
V(21) = m5(1)
V(22) = SFF(1)
V(23) = SFF(2)
V(24) = SFF(3)
Call AddRigaTabella(V)
If Posizione(es + colpi,r,MEN(1)) > 0 Then Call SetColoreCella(7,3,1)
If Posizione(es + colpi,r,MEN(2)) > 0 Then Call SetColoreCella(8,3,1)
If Posizione(es + colpi,r,MEN(3)) > 0 Then Call SetColoreCella(9,3,1)
If Posizione(es + colpi,r,MEN(4)) > 0 Then Call SetColoreCella(10,3,1)
If Posizione(es + colpi,r,MEN(5)) > 0 Then Call SetColoreCella(11,3,1)


'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es+1,1,3,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es+1,1,3,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es+1,1,3,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es+1,1,3,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es+1,1,3,,esito5,colpi5,estratti5,id5)
'-------------------------------------------------------------

'-------------------------------------------------------------
If esito1 = "Estratto" Then Call SetColoreCella(17,1,4)
If esito2 = "Estratto" Then Call SetColoreCella(18,1,4)
If esito3 = "Estratto" Then Call SetColoreCella(19,1,4)
If esito4 = "Estratto" Then Call SetColoreCella(20,1,4)
If esito5 = "Estratto" Then Call SetColoreCella(21,1,4)
'------------------------------------------------------------
If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
If V(16) = DataEstrazione(id) Then Call SetColoreCella(16,,1)

'Ru(2) = 1
'Ru(3) = 2
'Ru(4) = 3
'Ru(5) = 4
'Ru(6) = 5
'Ru(7) = 6
'Ru(8) = 7
'Ru(9) = 8
'Ru(10) = 9
'Ru(11) = 10
'Ru(12) = 12
Call OrdinaMatrice(NuFr,1,1)
'----------------------------------------------------------
ImpostaGiocata 1,MEN,Ru,posta,clp

Gioca es

Next
casi = 0
SetTableTitle "         Listato Sommativo di antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")

Call CreaTabella()

ScriviResoconto

End Sub
[COLOR=#FF0000]

[/COLOR]

Sommativo x ambo 3°colpi

Premium Member

Premium Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Premium Member

Super Member >PLATINUM<

Premium Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Super Member >PLATINUM<

Premium Member

Premium Member

Super Member >PLATINUM<