Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
ColoreTesto 1
Scrivi
Scrivi " ! AMBATA SU CA-RO + 1 TERZINA SU CA-RO-TT ALLA ULTIMA ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO DI DONATELLA E LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim ruote(11)
Dim nn1(1): Dim nn2(5) : Dim nn3(5),posta(1),poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1
klp = 12
ini = 9000
fin = EstrazioneFin
co = 0
For es = ini To fin
If IsUltimaDelMese(es) Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 1:Scrivi String(100,"*")
ColoreTesto 0
a = Differenza(Estratto(es,5,2) , Estratto(es,6,3))
b = Fuori90(Estratto(es,5,2) + Estratto(es,6,3))
c = Vert(b)
d = DiametraleD(b)
nn1(1) = a
ruota(1) = 6
ruota(2) = 8
ImpostaGiocata 1,nn1,ruota,posta,klp,2
nn2(1) = a
nn2(2) = b
nn2(3) = c
nn2(4) = d
ruote(1) = 2
ruote(2) = 8
ruote(3) = 11
ImpostaGiocata 2,nn2,ruote,poste,klp,2
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub
Controlla ora,avevo sbagliato un codiceAlien.;n2161975 ha scritto:Esempio : ( reale) ultima estrazione di Aprile 2017
Mi : 02° estratto 72 - Napoli : 03° estratto 82
Ambata : 82 - 72 > 10
01° abbinamento : 82 + 72 = 154 -90 > 64
02° abbinamento : 46
03° abbinamento : 69
Ambi : 10.64 / 10.46 / 10.69
Esiti: 04° colpo ambata 10 e Ambo secco 10.64 a Milano
credo che faccia : 64 il suo vertibile 46 ed il diametrale del 64 =69