‘’’’’’’’Ricerca QUADRATI di SOMMA su UNICA ruota
‘’’’’’’’’’’’’Prelevare solo Testo colorato Blu
''''''''''''Rintracciare un quadrato di somma unica in un'unica ruota
Sub main()
Dim somme(10)
Dim num(4)
Dim ruote(1)
Dim rt(2),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(10),na1(4),na2(4),na3(4),na4(4),na5(4),na6(4)
Dim SI,co
pt(1)=1 : ptt(2)=1 : pte(3)=1: ptq(4)=1 ' del terno
ColoreTesto 1
Scrivi String(75,"*"),1
Scrivi "Quadrato di Somma, unica ruota, arcor ",1
Scrivi "Programmato da ***esselotto*** per ***arcor*** LottoCed",1
Scrivi String(75,"*"),1
ColoreTesto 0
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Quadrato di Somma",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Quadrato di Somma ",9))
If colpis= False Then Exit Sub
clp=colpis
ruote(1)=11
ini=EstrazioneFin -indietro
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 12
If r=11 Then r=12
rt(1)=r
For p=1 To 2
For pp=p+1 To 3
a=Estratto (es,r,p)
b=Estratto (es,r,p+1)
x=p+2
som1=Fuori90 (a+b)
For k=p+1 To 4
For kk=k+1 To 5
c=Estratto (es,r,k)
d=Estratto (es,r,kk)
som2=Fuori90(c+d)
If som1=som2 And a<>c And b<>d And a<>d And b<>c Then
For j= 1 To 5
If j<>k Or j<>kk Or j<>p Or j<>pp Then
e=Estratto (es,r,j)
End If
Next
am=CInt (135-a-b-c-d)
Do Until am > 0
am = am + 90
Loop
am1=Fuori90(am+e)
am2=Abs(e-am)''<====differenza
''''am2=(e-am):if am2<1 Then am2=am2+90
a=Format2(a)
b=Format2(b)
c=Format2(c)
d=Format2(d)
e=Format2(e)
co=co+1
ColoreTesto 0
Scrivi String(75,"="),1
Scrivi String(75,"-") & " Caso N°" & co &" °",1
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)& Chr(10)
Scrivi "Quadrati di somma "& so1 & " [ ("& a &"."& b &") ("& c &"."& d &") ]"& Chr(10)
Scrivi "Numero rimasto ----> "& e &chr(10)
'''''''''''''''''''''''----------------------------------------
nu(1)=am
ImpostaGiocata 1,nu,rt,pt,clp ' Ambata
na(1)=am
na(2)=am1
ImpostaGiocata 2,na,rt,ptt,clp ' ambo
ImpostaGiocata 3,na,ruote,ptt,clp ' ambo t
na1(1)=am
na1(2)=am2
ImpostaGiocata 4,na1,rt,ptt,clp ' ambo
ImpostaGiocata 5,na1,ruote,ptt,clp ' ambo t
na2(1)=am1
na2(2)=am2
ImpostaGiocata 6,na2,rt,ptt,clp ' ambo
ImpostaGiocata 7,na2,ruote,ptt,clp ' ambo t
na3(1)=am
na3(2)=am1
na3(3)=am2
ImpostaGiocata 8,na3,rt,pte,clp ' <==== metti apice ' per non giocare terno su ruota
ImpostaGiocata 9,na3,ruote,pte,clp '<==== metti apice ' per non giocare terno a tutte
''''''''''''----------------------------
Gioca es
End If
Next
Next
Next
Next
Next
Next
ColoreTesto 1
scrivi"°°°esselotto°°°",1
ScriviResoconto
End Sub