Cercare un ambo ripetuto che pero’ sia o con numeri entrambi pari o con numeri entrambi dispari
CODICE
'ambo ripetuto di ciro vitale
Sub main()
Dim am1(2),am2(2)
Dim tez1(3),tez2(3),tez3(3),tez4(3)
Dim ruote(10)
Dim poste(2)
Dim poste1(3)
poste(2)=1
poste1(2)=.90
poste1(3)=.10
t=0
co=12 ' Quanti colpi?
rs=InputBox("Quante estrazioni vuoi controllare?",,50)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)
For r1=r+1 To 10
For p1=1 To 4
For q1=p1+1 To 5
c=Estratto (es,r1,p1)
d=Estratto (es,r1,q1)
dt=Abs (c-d)' Calcola la distanza matematica
If c=a And d=b Or c=b And d=a Then ' Controlla che gli ambi (a-b)=(c-d)
If c<45 And d>45 Or d<45 And c>45 Then ' Controlla che i valori siano uno < di 45 e l'altro > 45
st=c+d ' Somma dell'ambo
If Pari(st)=True Then 'Controlla se la coppia č Pari o Dispari
'If p1=p And q1=q Then ' Se si vuole gli ambi isitopi, attivare questa funzione.
sm1=st/2 ' Somma media
dm1=dt/2 ' Distanza media
sm2=Fuori90(sm1+1) 'Somma media +1
dm2=Fuori90((dm1+90)-1) ' Distanza media -1
'Quadratura delle somme in diagonale
sd1=Fuori90(sm1+dm2)
sd2=Fuori90(sm2+dm1)
'----------
am1(1)=sm1
am1(2)=dm1
am2(1)=sm2
am2(2)=dm2
'----------
tez1(1)=sm1
tez1(2)=dm1
tez1(3)=sd1
tez2(1)=sm1
tez2(2)=dm1
tez2(3)=sd2
tez3(1)=sm2
tez3(2)=dm2
tez3(3)=sd1
tez4(1)=sm2
tez4(2)=dm2
tez4(3)=sd2
'-----------
ruote(1)=r
ruote(2)=r1
t=t+1
Scrivi "--------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " "& Format2(c) &" "& Format2(d)&" * "& Left(NomeRuota(r),2) & " "&_
Format2(a) &" "& Format2(b)&" Somma med."& Format2(sm1)&"-"&" Dist. med."& Format2(dm1)
Scrivi "--------------------------------------------------------------Giocata n°"& Format2(t)
ce=0
ImpostaGiocata 1,am1,ruote,poste,co,2
ImpostaGiocata 2,am2,ruote,poste,co,2
ImpostaGiocata 3,tez1,ruote,poste1,co,3
ImpostaGiocata 4,tez2,ruote,poste1,co,3
ImpostaGiocata 5,tez3,ruote,poste1,co,3
ImpostaGiocata 6,tez4,ruote,poste1,co,3
If es>(fin-9) Then
Gioca es,,True
Else
Gioca es,True,True
End If
For zz=1 To 6
If Esito(zz)=False Then
ce=ce+1
End If
If ce=6 And es<(fin-9) Then
ColoreTesto 2
'Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+9),1
ColoreTesto 0
Scrivi ""
End If
Next
'End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato by franco florindi ",1
ColoreTesto 0
End Sub