Scrivi String (75,"*")
Scrivi String (25," ")& "Ambo Complementare di G.Lai",1
Scrivi String (15," ")& "programmato da °°°esselotto°°° per LottoCed",1
Scrivi String (75,"*")
Sub main()
Dim ruote(1)
Dim rt(3),poambata(5),poambo(5),poterno(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),ns1(6),ns2(6),ns3(6),ns4(6),ns5(6)
poambata(1)=1 : poambo(2)=1 : poterno(3)=1
ruote(1)=11
co=0
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","com 90",400))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi in gioco ?..","com 90",14))
If clp= False Then Exit Sub
ini=EstrazioneFin -indietro
fin=EstrazioneFin
For es=ini To fin
For r=1 To 9
rt(1)=r
For p=1 To 4
For pp =p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
con=Distanza(a,c)
If con=45 Then
co1=(90-a):co2=(90-b)
For rr=r+ 1 To 10
rt(2)=rr
c=Estratto (es,rr,p)
d=Estratto (es,rr,pp)
si=0
If co1=c Or co1=d Then trov=co1: man=co2 :Si=1
If co2=c Or co2=d Then trov=co2: man=co1:si=1
diametralidecina = Array(0, 6, 7, 8, 9, 10, 1, 2, 3, 4, 15, 16, 17, 18, 19, 20, 11, 12, 13,14, 25,_
26, 27, 28, 29, 30, 21, 22, 23, 24, 35, 36, 37, 38, 39, 40, 31, 32, 33, 34, 45, 46, 47, 48,49, 50,_
41, 42, 43, 44, 55, 56, 57, 58, 59, 60, 51, 52, 53, 54, 65, 66, 67, 68, 69, 70, 61, 62, 63,64, 75,_
76, 77, 78, 79, 70, 71, 72, 73, 74, 85, 86, 87, 88, 89, 90, 81, 82, 83, 84, 5)
If si=1 Then
diad=diametralidecina(man)'DiametraleD (man)
am=Fuori90 (man+diad)
so90=(a+trov)
If so90=90 Then dif=Abs(a-trov): am1=Fuori90 (dif+b)
so90=(b+trov)
If so90=90 Then dif=Abs(b-trov): am1=Fuori90 (dif+b)
am2=Diametrale (am1)
co=co+1
Scrivi String (65 ,".")& "Caso Nr "& co,1
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r),1
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr),1
Scrivi "numeri ---> ( "& Format2 (a) &" "& Format2(b) &" ) "
Scrivi "complemento ( "& Format2(trov) & " ) "
Scrivi
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp 'ambata
na(1)=am
na(2)=am1
ImpostaGiocata 2,na,rt,poambo,clp ' imposta giocata ambo
na1(1)=am
na1(2)=am2
ImpostaGiocata 3,na1,rt,poambo,clp ' imposta giocata ambo
na2(1)=am
na2(2)=am1
ImpostaGiocata 4,na2,ruote,poambo,clp ' imposta giocata ambo Tutte
na3(1)=am
na3(2)=am2
ImpostaGiocata 5,na3,ruote,poambo,clp ' imposta giocata ambo Tutte
Gioca es
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi "G.Lai"
End Sub
1403132444
