| 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 |
| vinci |
Posted - 22 ottobre 2015 : 22:09:05
Sub Main
Scrivi " Metodo Mi-Na...9^mese ",1
Dim nu1(01),nu2(04)
Dim ruote(10)
Dim posta(10),poste(04)
poste(02) = 0.80
poste(03) = 0.15
poste(04) = 0.05
k = 12
ini = 8353
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 09 Then
ruote(01) = MI_
ruote(02) = NA_
co = co + 1
Scrivi String(80,"-") & "Caso n° " & Format2(co),1
nu2(01) = Fuori90(Estratto(es,MI_,1) + 72)'AMBATA: 1°MILANO + 72
nu2(02) = Fuori90(Estratto(es,MI_,2) + 09)'1°ABBINAMENTO: 2°MILANO + 9
nu2(03) = Fuori90(Estratto(es,PA_,1) + 84)'2°ABBINAMENTO: 1°PALERMO +84
nu2(04) = 63'3°ABBINAMENTO: NUMERO FISSO 63
If nu2(01) = nu2(02) Or nu2(01) = nu2(03) Or nu2(01) = nu2(04) Then nu2(01) = Vert(Fuori90(Estratto(es,MI_,1) + 72))
If nu2(02) = nu2(03) Or nu2(02) = nu2(04) Then nu2(02) = Vert(Fuori90(Estratto(es,MI_,2) + 09))
If nu2(03) = nu2(04) Then nu2(03) = Vert(Fuori90(Estratto(es,PA_,1) + 84))
EliminaRipetuti nu2
ImpostaGiocata 02,nu2,ruote,poste,k,02
Gioca es,True,,01
End If
Next
ScriviResoconto
End Sub
|
| 3 U L T I M E R E P L I C H E (Newest First) |
| damar25 |
Posted - 23 ottobre 2015 : 19:37:55
Risolto con spaziometria tutto a posto
Grazie damar25 |
| damar25 |
Posted - 23 ottobre 2015 : 19:34:28
Mi da errore la riga ( Gioca es, True,,01)
Grazie dell'attenzione damar25 |
| vinci |
Posted - 22 ottobre 2015 : 22:17:17
Estrazione generatrice del pronostico 09071 [126 - 20/10/2015]
G 0002 Numeri in gioco : 34.36.49.63 su MI NA per Ambo,Terno,Quaterna
In corso per altre 11 estrazioni
|
|
|
