CIAO IO NE HO VARI DI METODI FATTI IN QST MODO DA 4-5-6-AMBI ,I COLPI MINIMO SI VA DA 10 A 13. da 6 colpi non ci sono riuscita.
ci vuole tanto tempo a farli e non sempre continuano . SERVONO UN Pò X CONVERGENZA.
QLC OGNI TANTO ESCE !!!!MA ci vuole un gran C.
IN FIN DEI CONTI E COME DARE 1 2 ANBATE CON 4 5 NUMERI IN 2 RUOTE ,SE SI FA IL CONFRONTO
LA SPESA piu o meno siamo li
TI METTO IL TUO SCRIPT SONO 5 AMBI SECCHI E NON 1 AMBO SECCO.
Sub Main
Dim ruote(10)
Dim ruota(10)
Dim numeri1(10)
Dim ambata(3)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)
Dim numeri5(10)
Dim posta(1)
Dim poste(5)
'posta(1) = 1
poste(2) = 1
k = 6
y = 1
For n = 9477 To EstrazioneFin
If IndiceMensile
= 4 Then
'If IsUltimaDelMese
Then
ruote(1) = 1
ruote(2) = 2
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata(1) = Fuori90(Estratto(n,1,1) + 71)
ambata(2) = Fuori90(Estratto(n,4,4) + 63)
ra1 = SerieRitardo(ini,es,ambata,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata sulla Ruota = " & Format2(ra1):ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,poste,k
numeri1(1) = Fuori90(Estratto(n,1,1) + 20)
numeri1(2) = Fuori90(Estratto(n,7,3) + 44)
ImpostaGiocata 2,numeri1,ruote,poste,k
ambata(1) = Fuori90(Estratto(n,1,1) * 38)
ambata(2) = Fuori90(Estratto(n,7,2) * 89)
ImpostaGiocata 3,ambata,ruote,poste,k
numeri3(1) = Fuori90(Estratto(n,1,1) + 8)
numeri3(2) = Fuori90(Estratto(n,8,3) * 85)
ImpostaGiocata 4,numeri3,ruote,poste,k
numeri3(1) = Fuori90(Estratto(n,1,1) + 3)
numeri3(2) = Fuori90(Estratto(n,1,1) + 59)
ImpostaGiocata 5,numeri3,ruote,poste,k
Gioca n
End If
'End If
Next
ScriviResoconto
End Sub
Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function