Sommatorio per FIRENZE

[PasiMax]

PERCHè A ME NON FUNZIONA E LA PRIMA VOLTA CHE MI SUCCEDE AGLI ALTRI FUNZIONA ?

prova l'ultimo script

 

[Alien.]

Perfetto, grazie.

 

[fillotto]

Sempre FIRENZE ma partiamo dalla indice 3 con inizio di gioco dalla quarta estrazione x 8
questo è lo script modificato l'ultima cinquina proposta x ambo a partire dalla 4 del mese è la seguente 78.84.4.5.58 occhio perchè questo è l'ordine originale questi sono gli accoppiamenti degli ambi l'1°e 4° cioè 78 e 5 ; 1°e 5° ossia 78 e 58 ; 3°e4° ovvero 4 e 5
non si sono mai concretizzati in ambo al contrario l'ambo più frequente ( nei mesi precedenti) è il 2° e 4° cioè 84 e 5 . Questo per tentare di azzeccare l'ambo secco basandosi sui ritardi o sulle qurequenze

1e2	1e3	1e4	1e5	2e3	2e4	2e5	3e4	3e5	4 e5
1	2	0	0	3	4	1	0	1	2

lo script....

Option Explicit
Sub Main
Dim N
Dim Ruota(1),Numeri1(6),Posta(10),som(6)
Dim Ind
' di seguito metti le risultanze del file excel .........Mi4+25    FI4+5      FI2+67    CA4+35    Mi4+5

som(1) = 25
som(2) = 5
som(3) = 67
som(4) = 35
som(5) = 5
'som(6) = x eventualmente per giocare il 6° num

Ind = 3
                                                                                       ' metti ll'estrazione generatrice
Ruota(1) = 3                                                                                  'il numero corrispondente della ruota dove si gioca
'Posta(6) = 2 ' se la posta è 6 significa chepunto sul 1° determ se metto 7 significa che punto sul 2° determin. ecc
Posta(2) = 2
Posta(3) = 1
For N = 9961 To EstrazioneFin                                                         'Qui farsi i conti
If IndiceMensile(N) = 3Then                                                                                               
Scrivi "Giochiamo sulla Ruota di " & SiglaRuota(Ruota(1)) & " indice mensile " & Ind & " con gioco dall'estr successiva "
Scrivi Estratto(N,5,4) & "." & Estratto(N,3,4) & "." & Estratto(N,3,2) & "." & Estratto(N,2,4) & "." & Estratto(N,5,4) & "... Ai numeri "
Scrivi som(1) & "." & som(2) & "." & som(3) & "." & som(4) & "." & som(5) & "... Sommiamo"
Scrivi Fuori90(Estratto(N,5,4) + som(1)) & "." & Fuori90(Estratto(N,3,4) + som(2)) & "." & Fuori90(Estratto(N,3,2) + som(3)) & "." & Fuori90(Estratto(N,2,4) + som(4)) & "." & Fuori90(Estratto(N,5,4) + som(5)) & "... e avremo "



Numeri1(1) = Fuori90(Estratto(N,5,4) + som(1))
Numeri1(2) = Fuori90(Estratto(N,3,4) + som(2))
Numeri1(3) = Fuori90(Estratto(N,3,2) + som(3))
Numeri1(4) = Fuori90(Estratto(N,2,4) + som(4))
Numeri1(5) = Fuori90(Estratto(N,5,4) + som(5))
'Numeri1(6) = Fuori90(Estratto(N,3,5) + som(6))
' t1(2) = Fuori90(Estratto(es,7,3) * 8)
EliminaRipetuti(Numeri1)
ImpostaGiocata 1,Numeri1,Ruota,Posta,8,3

Gioca N,,,1 ' quel ,,, virgola x3 e poi 1 significa che voglio vedere le uscite reali
End If

Next
ScriviResoconto
End Sub