Una cortese richiesta.

[Alien.]

Ciao,serve uno script per :

La NA.VE delle vincite con 1 ambata e 2 ambi secchi : 7 anni consecutivi con il 97% di esiti vincenti ( 2 soli casi negativi)

Si calcola alla 03à estrazione del mese sulla ruota di Bari e si gioca per ambata a Venezia e Cagliari Per ambo secco : ruota principale > Nazionale - secondaria : Venezia - Tutte Per ambetto. : Nazionale - Venezia Per ambo e terno secco : a Venezia Per terno secco. : Tutte...

forum.lottoced.com

che si può fare,grazie.

 

[Sakti]

Il mio script fa schifo, se qualche buona anima riesce a migliorarlo e adattarlo meglio al metodo, forse riusciamo ad ottenere quello che chiedi.
Meglio di così non riesco...


Sub Main()
ColoreTesto 2
Scrivi
Scrivi " 3° ESTRAZIONE DEL MESE",2,,4,,4
Scrivi
Scrivi
Scrivi
ColoreTesto 0
Dim ruote(12),ruota(5),ruo(5),c1(5),n1(5),n2(5),n3(5),poste(5),posta(5),post(5)
'-------------------------------------
posta(1) = 1
poste(2) = 1
poste(3) = 1
post(2) = 1
post(3) = 1
'------------------------------------
clp = 14
ini = 9500
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 3 Then
'---------------------------------
ruote(1) = 11
ruote(2) = 12
' --------------------------------
ruota(1) = 2
ruota(2) = 10
'---------------------------------
ruo(1) = 10
ruo(2) = 11
'---------------------------------
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"=") & " Caso n° " & casi,1
ColoreTesto 0:Scrivi DataEstrazione(es) & " =>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 2:Scrivi String(100,"=")
ColoreTesto 0
'----------------------------------
c1(1) = Fuori90(Estratto(es,1,1) - Estratto(es,1,3))
c1(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5))
c1(3) = Fuori90(c1(1) + c1(2))
'-----------------------------------
n1(1) = c1(3)
'----------------------------------
n2(1) = c1(1)
n2(2) = c1(2)
'----------------------------------
n3(1) = c1(1)
n3(2) = c1(2)
n3(3) = c1(3)
'----------------------------------
EliminaRipetuti n2
EliminaRipetuti n3
ImpostaGiocata 1,n1,ruota,posta,clp
ImpostaGiocata 2,n2,ruote,poste,clp
ImpostaGiocata 3,n3,ruo,post,clp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(co)
ScriviResoconto
End Sub

 

[salvo50]

Ciao Alien, Toon, ho postato lo script nel topic di Donatella, non ho fatto solo la ricerca degli ambetti.

 

[Sakti]

Grazie Salvo, ho visto il tuo script, perfetto, niente a che vedere con il mio...
Grandissimo .

 

[salvo50]

Grazie Salvo, ho visto il tuo script, perfetto, niente a che vedere con il mio...
Grandissimo .

Anche il tuo va bene, manca solo un ambo.

 

[Sakti]

Hai detto niente?!?!
Grazie per la Tua solita Cortesia.