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.
zagort;n2025491 ha scritto:ciao manuel grazie per averlo postato,ma il pc non lo fa scaricare malware.......pericoloso
Option Explicit
'Ambo e Terno in 4 colpi a Napoli dalla 10a del mese di Manuel67
'http://forum.lottoced.com/forum/lottoced/metodi/2024276-ambo-e-terno-in-4-colpi-a-napoli-dalla-10a-del-mese#post2024278
Sub Main()
'
'Dim a As Integer
Dim a
'
'Dim Numeri(2) As Integer
Dim Numeri(2)
'
'Dim Giocate(1) As Integer
'Giocate(1) = _Ambo
Dim Giocate(2)
Giocate(2) = 1
'
'Dim Ruote(1) As Integer
'Ruote(1)=_NA
Dim Ruote(1)
Ruote(1) = NA_
'
Dim num(1)
Dim posta(1)
posta(1) = 1
'
'Metodo.Init("Ambo e Terno in 4 colpi a Napoli dalla 11a del mese","Autore: [Paolo Campana]"
Call Scrivi("Ambo e Terno in 4 colpi a Napoli dalla 11a del mese , Autore: [Paolo Campana]")
'
',_CasisticaON,7)
Dim casi
casi = 00
'
'Metodo.Progressione(_Ambo,1,100)
'
'For a = Estrazione.Ultima To _DataAuto Step - 1
For a = EstrazioneFin To EstrazioneIni Step - 1
'
'If Estrazione.Mensile(a) = 10 Then
If IndiceMensile(a) = 10 Then
'
casi = casi + 01
'
' Dim n1 As Integer =(Estratti.Numero(a,_FI,5) + 47)
Dim n1
n1 = Fuori90(Estratto(a,FI_,5) + 47)
'
' Dim n2 As Integer =(Estratti.Numero(a,_BA,2) + 40)
Dim n2
n2 = Fuori90(Estratto(a,BA_,2) + 40)
'
' Dim n3 As Integer =(Estratti.Numero(a,_RM,3) + 64)
Dim n3
n3 = Fuori90(Estratto(a,RO_,3) + 64)
'
' Dim n4 As Integer =(Estratti.Numero(a,_PA,1) + 09)
Dim n4
n4 = Fuori90(Estratto(a,PA_,1) + 09)
'
'Numeri(1) = F90(n1)
'Numeri(2) = F90(n2)
Numeri(1) = n1
Numeri(2) = n2
'Metodo.GiocaPronostico(1,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 1,Numeri,Ruote,Giocate,4,2
'
'Numeri(1) = F90(n1)
'Numeri(2) = F90(n3)
Numeri(1) = n1
Numeri(2) = n3
'Metodo.GiocaPronostico(2,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 2,Numeri,Ruote,Giocate,4,2
'
'Numeri(1) = F90(n1)
'Numeri(2) = F90(n4)
Numeri(1) = n1
Numeri(2) = n4
'Metodo.GiocaPronostico(3,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 3,Numeri,Ruote,Giocate,4,2
Gioca a
End If
If casi >= 7 Then Exit For
Next
'
'Metodo.Report()
Call ScriviResoconto()
'
End Sub
nancy48;n2032319 ha scritto:se non sbaglio ambata 83 x ambi 34-42-33 grazie a chi me li conferma buone feste a tutti