Antondavide
Advanced Member >PLATINUM PLUS<
Grazie mille Manuel sei stato davvero esauriente nella risposta. Grazie ancora e Felicissima giornata a te a tutti del forum
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.
nancy48;n2024160 ha scritto:Ciao Manuel ho giocato la tua previsione e ti ringrazio per i due metodi da te postati, questa sera solo 31 peccato, comunque si gioca questa previsione x altri 2 colpi? grazie e buona serata
Option Explicit
'Ambo, Terno e Quaterna In 4 colpi dalla 5a del Mese su Nazionale di Manuel67
'http://forum.lottoced.com/forum/lottoced/metodi/2022260-ambo-terno-e-quaterna-in-4-colpi-dalla-5a-del-mese-su-nazionale
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) = _NZ
Dim Ruote(1)
Ruote(1) = NZ_
'
Dim num(1)
Dim posta(1)
posta(1) = 1
'
'Metodo.Init("3 Ambi sulla Nazionale in 4 colpi dalla 5a del mese","Autore: [Paolo Campana]",
Call Scrivi("3 Ambi sulla Nazionale in 4 colpi dalla 5a del mese , Autore: [Paolo Campana]")
Call Scrivi()
'
' _CasisticaON)
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) = 5 Then
If IndiceMensile(a) = 5 Then
'
casi = casi + 01
'
' Dim n1 As Integer = (Estratti.Numero(a,_MI,3)+76)
Dim n1
n1 = Fuori90(Estratto(a,MI_,3) + 76)
'
' Dim n2 As Integer = (Estratti.Numero(a,_NA,5)+62)
Dim n2
n2 = Fuori90(Estratto(a,NA_,5) + 62)
'
' Dim n3 As Integer = (Estratti.Numero(a,_RM,2)+11)
Dim n3
n3 = Fuori90(Estratto(a,RO_,2) + 11)
'
' Dim n5 As Integer = (Estratti.Numero(a,_BA,2)+87)
Dim n5
n5 = Fuori90(Estratto(a,BA_,2) + 87)
'
'Numeri(1) = F90(n1)
'Numeri(2) = F90(n5)
Numeri(1) = n1
Numeri(2) = n5
'Metodo.GiocaPronostico(1,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 1,Numeri,Ruote,Giocate,4,2
'
'Numeri(1) = F90(n2)
'Numeri(2) = F90(n5)
Numeri(1) = n2
Numeri(2) = n5
'Metodo.GiocaPronostico(2,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 2,Numeri,Ruote,Giocate,4,2
'
'Numeri(1) = F90(n3)
'Numeri(2) = F90(n5)
Numeri(1) = n3
Numeri(2) = n5
'Metodo.GiocaPronostico(3,a + 1,4,Numeri,Ruote,Giocate,0)
ImpostaGiocata 3,Numeri,Ruote,Giocate,4,2
Gioca a
End If
If casi >= 8 Then Exit For
Next
'
'Metodo.Report()
Call ScriviResoconto()
'
End Sub
skygirl;n2027633 ha scritto:grazie magia per lo script della 5.a del mese per Spaziometria.
Volevo chiedere se è possibile avere anche lo script per la Nazionale con calcoli da eseguirsi alla 8a del mese da giocare x 3 colpi indicato da Manuel nel post #9
un saluto
Alien.;n2028101 ha scritto:Ciao,grazie Magia
non so se lo script erra o è giusto il conteggio ad ottobre da 2 ambi uguali
skygirl;n2028773 ha scritto:kira ciao il post che calcola all'8° del mese lo trovi a pagina 1 è il post n. #9
http://forum.lottoced.com/forum/lot...-4-colpi-dalla-5a-del-mese-su-nazionale/page1
Option Explicit
'http://forum.lottoced.com/forum/lottoced/metodi/2022260-ambo-terno-e-quaterna-in-4-colpi-dalla-5a-del-mese-su-nazionale
Sub Main()
Dim a
Dim numeri(2)
Dim Giocate(2)
Giocate(2) = 1
Dim Ruote(1)
Ruote(1) = NZ_
Dim num(1)
Call Scrivi("3 Ambi sulla Nazionale in 3 colpi dalla 8a del mese , Autore: [Paolo Campana]")
Call Scrivi()
Dim casi
casi = 00
For a = EstrazioneFin To EstrazioneIni Step - 1
If IndiceMensile(a) = 8 Then
'
casi = casi + 01
Dim n1
n1 = Fuori90(Estratto(a,GE_,4) + 22)
Dim n2
n2 = Fuori90(Estratto(a,BA_,3) + 32)
Dim n3
n3 = Fuori90(Estratto(a,FI_,2) + 58)
Dim n5
n5 = Fuori90(Estratto(a,TO_,2) + 13)
numeri(1) = n1
numeri(2) = n2
ImpostaGiocata 1,numeri,Ruote,Giocate,3,2
numeri(1) = n1
numeri(2) = n3
ImpostaGiocata 2,numeri,Ruote,Giocate,3,2
numeri(1) = n1
numeri(2) = n5
ImpostaGiocata 3,numeri,Ruote,Giocate,3,2
Gioca a
End If
If casi >= 8 Then Exit For
Next
Call ScriviResoconto()
End Sub