'https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547302.jpg
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547304.jpg
'https://oltreillotto.forumfree.it/?t=79202331#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=79202328#newpost
'11-07-2022
ColoreTesto 2 :Scrivi String(17,32)&" IL SOGNO DEL TERNO by Enzob",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3)
Dim ruote(10),ruota(10)
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",20))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" IL SOGNO DEL TERNO by Enzob "
For r1=1 To 10
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 Distanza(n1,n2)=10 Then
For r2=1 To 10
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (n3=10 And Distanza(n1,n2)=10 )And (p3=p1 Or p3=p2)Then
amb(1)=Fuori90(Estratto(es,8,5)+Estratto(es,9,4)+1)'ambata
amb(2)=Fuori90(Estratto(es,3,4)+Estratto(es,8,2)+59)'ambo
amb(3)=Fuori90(Estratto(es,8,2)+Estratto(es,10,1)+19)'terno
Rem se uno o pił numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 2
For y = x + 1 To 3
If amb(
= amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb1(1)=Fuori90(Estratto(es,1,1)+Estratto(es,2,5)+1)'ambata
amb1(2)=Fuori90(Estratto(es,5,2)+Estratto(es,12,2)+61)'ambo
amb1(3)=Fuori90(Estratto(es,4,1)+Estratto(es,4,2)+4)'terno
Rem se uno o pił numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 2
For y = x + 1 To 3
If amb1(
= amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb2(1)=Fuori90(Estratto(es,1,1)+Estratto(es,1,3)+1)'ambata
amb2(2)=Fuori90(Estratto(es,1,5)+Estratto(es,12,3)+1)'ambo
amb2(3)=Fuori90(Estratto(es,2,2)+Estratto(es,6,5)+1)'terno
Rem se uno o pił numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 2
For y = x + 1 To 3
If amb2(
= amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula
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
am(1)=amb(1)
am(2)=amb1(1)
am(3)=amb2(1)
ImpostaGiocata 1,am,ruote,posta,k
am4(1)=amb(1)
am4(2)=amb(2)
am4(3)=amb(3)
ImpostaGiocata 2,am4,ruota,poste2,k
am4(1)=amb1(1)
am4(2)=amb1(2)
am4(3)=amb1(3)
ImpostaGiocata 3,am4,ruota,poste2,k
am4(1)=amb2(1)
am4(2)=amb2(2)
am4(3)=amb2(3)
ImpostaGiocata 4,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
