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 Subnancy48;n2032319 ha scritto:se non sbaglio ambata 83 x ambi 34-42-33 grazie a chi me li conferma buone feste a tutti
 
     
     
     
    