'https://www.youtube.com/watch?v=oOVzcXUAH5Q
'24/04/2024
ColoreTesto 2
Scrivi String(37,32) & "Ambi isotopi SOMMA PERIMETRICA 90 LOTTO PER VINCERE PRO",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(10),nu4(10),nu(10)
	Dim ruote(10),ruota(10)
	Dim poste(5),poste1(5),poste2(5),poste3(5)
	poste(1) = 1
	poste(1) = 1
	poste1(2) = 1
	poste2(2) = 1
	poste2(3) = 1
      z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",80))
      k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
	fin = EstrazioneFin
	ini = fin - z
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(es,r1,p1)'
					n2 = Estratto(es,r1,p2)'
					For r2 = r1 + 1 To 11
						If r2 = 11 Then r2 = 12

								n3 = Estratto(es,r2,p1)'
								n4 = Estratto(es,r2,p2)'
								n5 =Fuori90(n1+n2+n3+n4)
                                                If  n5=90  Then
								n6 = Fuori90(n1*29)'
								n7 = Fuori90(n2*29)
								n8 = Fuori90(n3*29)
								n9 =Fuori90(n4*29)
								
		
								

									casi = casi + 1
									Scrivi
									Scrivi String(75,"=") & " caso n° " &(casi),1
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
									" > ambo  "& Format2(n1) & "." & Format2(n2) & " >",1 
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
									" > ambo  "& Format2(n3) & "." & Format2(n4) & " >",1 
									ColoreTesto 2
                                                     If  Distanza(p1,p2)=1 Or (p1=1 And p2=5 )   Then Scrivi " > AMBI UNITI ",1
                                                     If Distanza(r1,r2)=1 Or ((r1=1 And r2=12)Or(r1=12 And r2=1))  Then Scrivi " > RUOTE CONSECUTIVE ",1 
                                                     If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1 
                                                     If (r1+r2)=11  Then Scrivi " > RUOTE GEMELLARI ",1 
                                                      ColoreTesto 0
                                                      Scrivi     
									ruote(1) = r1
									ruote(2) = r2
									ruota(1) = 11
									
									co = 0

									nu1(1) = n6'  
									nu1(2) = n7 
									nu1(3) = n8  
									nu1(4) = n9 
									ImpostaGiocata 1,nu1,ruote,poste2,k


									Gioca es







								End If

							Next
						Next
					Next
				Next
			Next

	ScriviResoconto

End Sub