================================================================================ Caso n° 35
LISTATO BY DjNomade 
24.04.2021 Ven 60.09.90.56.86 -> 09 90
================================================================================
sab 24.04.2021  [9916]
  G  1:  M    74.31   Ba    0/10    
     n.i. (10 colpi)
  G  2:  A    74.01   Ba    0/10    
     n.i. (10 colpi)
  G  3:  A    74.44   Ba    0/10    
     n.i. (10 colpi)
  G  4:  A    74.31   Ba    0/10    
     n.i. (10 colpi)
  G  5:  A    31.52   Ba    0/10    
     n.i. (10 colpi)
  G  6:  A    31.89   Ba    0/10    
     n.i. (10 colpi)
  G  7:  A    31.88   Ba    0/10    
     n.i. (10 colpi)

ColoreTesto 1
Scrivi String(20,"=")&"	Da Ambo spia 09-90 a Tutte o Nazionale  by DjNomade ",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Sub main()
Dim ruota(2)
Dim ambata1(5),ambo2(3),amb1(5),amb2(5)
Dim posta(5) 
Dim poste(5)
posta(1)=1 
poste(2)=1



k=10

co=0
 

ruota(1)=1

ini=8647
fin=EstrazioneFin
For es=ini To fin
For r=1 To 12
If r=11 Then r=12


For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto (es,r,p1)
n2=Estratto (es,r,p2)

If (n1=09 And n2=90) Or (n1=90 And n2=09)  Then  'CONDIZIONE DA RILEVARE : 


Messaggio DataEstrazione (es)
casi=casi+1
Scrivi String (80,"=")&" Caso n° "&casi,1
ColoreTesto 2:Scrivi "LISTATO BY DjNomade ",1

Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),3)&" "&_
StringaEstratti(es,r) &" -> "& Format2(n1)&" "& Format2(n2),True

ColoreTesto 0: Scrivi String (80,"="),1

co=co+1

amb1(1) = Fuori90(DiametraleD (Estratto(es,FI_,3))+Estratto(es,RO_,5)+80) '1° AMBATA
amb1(2) = Fuori90((90-Estratto(es,CA_,1))+Estratto(es,FI_,2)+66)           'ABBINAMENTO
amb1(3) = Fuori90((90-Estratto(es,GE_,1))+Estratto(es,RO_,2)+48)            'ABBINAMENTO
amb1(4) = Fuori90((90-Estratto(es,CA_,3))+Estratto(es,GE_,4)+86)            'ABBINAMENTO

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 3
For y = x + 1 To 4
If amb1(x) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula





amb2(1) = Fuori90(Cadenza(Estratto(es,CA_,2))+Estratto(es,MI_,1)+70)         '2° AMBATA
amb2(2) = Fuori90(Diametrale(Estratto(es,CA_,5))+Estratto(es,PA_,2)+85)       'ABBINAMENTO
amb2(3) = Fuori90(DiametraleD(Estratto(es,MI_,4))+Estratto(es,RO_,1)+06)       'ABBINAMENTO
amb2(4)= Fuori90(Vert(Estratto(es,FI_,3))+Estratto(es,MI_,2)+41)       'ABBINAMENTO


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 3
For y = x + 1 To 4
If amb2(x) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula







'------------------------------------------------------------------------------------  
ambata1(1)= amb1(1)
ambata1(2)= amb2(1)
ImpostaGiocata 1,ambata1,ruota,posta,k


'-----------------------------                    ---------------------------------

ambo2(1)= amb1(1)
ambo2(2)= amb1(2)
ImpostaGiocata 2,ambo2,ruota,poste,k

ambo2(1)= amb1(1)
ambo2(2)= amb1(3)
ImpostaGiocata 3,ambo2,ruota,poste,k

ambo2(1)= amb1(1)
ambo2(2)= amb1(4)
ImpostaGiocata 4,ambo2,ruota,poste,k

ambo2(1)= amb2(1)
ambo2(2)= amb2(2)
ImpostaGiocata 5,ambo2,ruota,poste,k

ambo2(1)= amb2(1)
ambo2(2)= amb2(3)
ImpostaGiocata 6,ambo2,ruota,poste,k

ambo2(1)= amb2(1)
ambo2(2)= amb2(4)
ImpostaGiocata 7,ambo2,ruota,poste,k
       


Gioca es
End If
Next
Next
Next
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub