Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim n(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5),poterno(5)
Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)
poambata(1)=1 : poambo(2)=1:poterno(3)=1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (15," ")& "Metodo Ambi Somma nikko",1
Scrivi String (15," ")& "su Lottoced ",1
ColoreTesto 1
Scrivi String (15," ")& "programmed by °°°esselotto°°° ",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",14))
If colpis= False Then Exit Sub
clp=colpis
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin
For es=ini To fin
Messaggio "elaborazione. estraz. "&(es)
For r=1 To 9
rt(1)=r
For p=1 To 4
pp=p+1
n(1)=CInt(Estratto (es,r,p))
n(2)=CInt(Estratto (es,r,pp))
so1=((n(1)+n(2)))
If so1<91 Then
For rr=r+1 To 10
rt(2)=rr
If rr=r+1 Or rr= r+5 Then
n(3)=CInt(Estratto (es,rr,p))
n(4)=CInt(Estratto (es,rr,pp))
so2=((n(3)+n(4)))
If so1=so2 And n(1)<>n(3)And n(2)<>n(3)And n(1)<>n(4) And n(2)<> n(3) Then
am=(90-so1):If am<1 Then am=am+90
am1=Fuori90 (n(1)+so1)
am2=Fuori90 (n(2)+so1)
co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid (4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r ' ruota di bari
MatriceCaselleDaEvid(1,1) = p ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r ' ruota di bari
MatriceCaselleDaEvid(2,1) = pp ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(3,1) = p ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(4,1) = pp ' quarto Estratto
Call DisegnaEstrazione (es ,MatriceCaselleDaEvid )
' disegna il cerchio con il triangolo formato dai numeri 1-30-60
ReDim aNu(4)
aNu(1) =n(1)
aNu(2) =n(2)
aNu(3) =n(3)
aNu(4) =n(4)
Call DisegnaCerchioCiclometrico (aNu, True,False,False)
ReDim aNu(7)
aNu(1) =n(1)
aNu(2) =n(2)
aNu(3) =n(3)
aNu(4)= n(4)
aNu(5) =am
aNu(6) =am1
aNu(7) =am2
Call DisegnaCerchioCiclometrico (aNu, True,False,False)
ruote(1)=11
nu(1)=am
'''nu(2)am1 ' ambata secondaria
ImpostaGiocata 1,nu,rt,poambata,clp
na(1)=am
na(2)=am1
ImpostaGiocata 2,na,rt,poambo,clp
na1(1)=am
na1(2)=am2
ImpostaGiocata 3,na1,rt,poambo,clp
na2(1)=am1
na2(2)=am2
ImpostaGiocata 4,na2,rt,poambo,clp
na3(1)=am
na3(2)=am1
na3(3)=am2
ImpostaGiocata 5,na3,ruote,poambo,clp
ImpostaGiocata 7,na3,ruote,poterno,clp
Gioca es
End If
End If
Next
End If
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Metodo Ambi Somma",1
Scrivi"Autore...* nikko ",1
End Sub
td2(7)=1
