CODICE
Sub main()
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"** LA TRiADE DI SOMMA - FABARRI E MANARA **",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.F. ",1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),lg1(5)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1)=1
poste1(2)=1
poste(2)=3.50 : poste(3)=1 : poste(4)=.40 : poste(5)=.10
rs=InputBox(" Quante estrazioni vuoi controllare?","Florindi",20)
ini=EstrazioneFin-rs : fin=EstrazioneFin
For es=ini To fin
Messaggio(es)
For r1=1 To 10 : For p1=1 To 4 : For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For p3=1 To 5
If p3<>p1 And p3<>p2 Then
c=Estratto(es,r1,p3)
If Fuori90(a+b)=c And c<>90 Then
nu(1)=90-a : nu(2)=90-b : nu(3)=90-c
'Controlla la presenza dell'ambo in terzina su un'altra ruota.
For r2=1 To 10
If r2<>r1 Then
ru(1)=r2
sf=SerieFreq (es,es,nu,ru,2)
If sf>0 Then
'Trova l'ambo, che deve essere unico.
g=0: Erase nr
For q=1 To 5
nx=Estratto (es,r2,q)
For i=1 To 3
If nx=nu(i) Then g=g+1 : nr(g)=nx
Next
Next
If g=2 Then
'Cerca il numero mancante(cg)della terzina derivata.
ok=0
For y=1 To 3
If nu(y)<>nr(1) And nu(y)<>nr(2) Then cg=nu(y) : ok=1
If ok=1 Then Exit For
Next
amb(1)=cg
ambo1(1)=cg : ambo1(2)=a
ambo2(1)=cg : ambo2(2)=b
ambo3(1)=cg : ambo3(2)=c
ambo4(1)=cg : ambo4(2)=nr(1)
ambo5(1)=cg : ambo5(2)=nr(2)
lg1(1)=a : lg1(2)=b : lg1(3)=c : lg1(4)=nr(1) : lg1(5)=nr(2)
ruote(1)=r1:ruote(2)=r2
casi=casi+1:Scrivi String(70,"="),1
ColoreTesto 2
Scrivi Space (30)& "Caso "&casi
ColoreTesto 0
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" ]" &_
" Terna di somma: "& Format2(a)&"."& Format2(b)&"."& Format2(c)& Chr (10)&_
Space (37)& "Terno Derivato: "& StringaNumeri (nu),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" ]" & Chr (10) &_
"Ambo trovato "& StringaNumeri (nr)&" su "& SiglaRuota (r2)& Chr (10)&_
"Num. mancante - CAPOGIOCO: "& (amb(1)),1
Scrivi String(70,"-")
ImpostaGiocata 1,amb,ruote,posta,14
ImpostaGiocata 2,ambo1,ruote,poste1,14
ImpostaGiocata 3,ambo2,ruote,poste1,14
ImpostaGiocata 4,ambo3,ruote,poste1,14
ImpostaGiocata 5,ambo4,ruote,poste1,14
ImpostaGiocata 6,ambo5,ruote,poste1,14
ImpostaGiocata 7,lg1,ruote,poste,14
Gioca es
End If
End If
End If
Next
End If
End If
Next:Next : Next:Next:Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.Florindi. ",1
ColoreTesto 0
End Sub
