Richiesta script

[DjNomade]

Non so se ho capito bene controlla questo

BUON ANNO
Ciauz

Anticipazione (Spoiler): Modif. x KEN

'https://forum.lottoced.com/threads/richiesta-script.2220591/
'https://forum.lottoced.com/threads/richiesta-script.2220591/#post-2706450
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
'31-12-2024
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5 by phil79 Modif. x KEN ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 3-5 ,1-5 by phil79 "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=3 And p2=5)Or(p1=1 And p2=5)Then
If ((Pari(n1)=True And Pari(n2)=True) Or (Pari(n1)=False And Pari(n2)=False))And Distanza(n1,n2)=30 Then
nn1=(n1+n2)/2 '76+88 164/2 82 ok
nn=Fuori90(n1+n2)'76+88 74 ok
If Decina(n1)=Decina(n2)Then nn1=Diametrale((n1+n2)/2)
nn2=Fuori90(nn1+nn)
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
'


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)

n4=Fuori90(n1+30)
If n4=n2 Then n4=Fuori90(n1+60)
If ((Distanza(n3,n1)=30 And Distanza(n3,n2)=30 And n3<>n1 And n3<>n2)Or n3=Diametrale(n4)) And Distanza(p3,p1)=Distanza(p3,p2) Then

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1


Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[KEN]

Perfetto come sempre grazie

 

[matt68]

buongiorno vorrei chiedere gentilmente compilazione di questo metodo in script grazie METODO NON MIO MA DONATELLA
Il metodo sotto esposto si calcola alla prima estrazione del mese e il pronostico mette in gioco due ambi secchi e 1 terzina e NESSUNA AMBATA
Prima estrazione del mese : ruota di Cagliari
AMBATA ( DA NON GIOCARE!) :
sommare al 01° estratto il fisso 05 > il risultato di questa operazione l'ambata ( da non giocare)
esempio : 01° estratto di Cagliari 60 > 60 + 05 ( fisso ) = 65
Ambi secchi : calcolo abbinamenti
Trovare la figura dell'ambata : esempio > ambata 65 : figura 02
I due abbinamenti per ambo saranno i radicali gemelli e finale 09 della figura 02 : quindi 22 - 29
Ambi secchi : 65.22 - 65.29 : giocare a : Roma - Cagliari . tutte ( escluso Nz)
Terzina per ambo e terno : abbinare all'ambata
il vertibile dell'ambata - e il numeretto dei radicali cioè il 02
Terzina per ambo e terno :
65.56.02
Giocare a : Genova . Tutte ( escluso NZ)
--------------------------------------------------------------------------------------------------------------------------------
Riassunto statistico :
nell'arco di 10 estrazioni di gioco il pronostico in 17 mesi si è sfaldato mediamente 2 volte :
1 volta : 4 pronostici
2 volte : 09 pronostici
3 volte : 03 pronostici
1 volta : al 14° colpo per ambo - al 16° per terno secco
Nota : quando l'ambata è un numero radicale degli abbinamenti ambi secchi saranno 3 e non si giocherà la terzina
----------------------------------------------------------------------------------------------
statistica : Settembre 2022 - gennaio 2024
Mesi analizzati : 17 > positivi 18 - negativi : 0
Ambi secchi vinti a tutte : 21 - ambi in terzina vinti a tutte : 14
Ambi a Roma : 03
Ambi a Cagliari : 03
Ambi a Firenze : 03
Ambi a Palermo : 03 ( ultima vincita : dicembre 22)
Ambi in terzina a Genova : 04
------------------------------------------------------

Settembre > 55 : 11.19 / 55.59.01
03° colpo ambo in terzina 59.55 a Palermo
05°colpo ambo secco 55.19 a Palermo ( e 10
---------------------------------------------------------------------
Ottobre > 10 : 11.19.01
02° colpo ambo secco 10.01 a Milano
-------------------------------------------------------------------
Novembre > 65 : 22.29 / 65.56.02
03° colpo ambo in terzina 56.02 a Napoli
06° colpo ambo in terzina 56.02 a Genova
----------------------------------------------------------------------
Dicembre > 20 : 22 - 29 - 02
07° colpo ambo secco 20.22 a Genova
08° colpo ambo secco 20.29 a Palermo
--------------------------------------------------------------------