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