|
|
|
AMBO UGUALE ANGELOSKIZZO ...2016
Scrivi
Scrivi String(28,32)&"Metodo AMBO RIPETUTO Angelo sk. "
ColoreTesto 0
Sub main()
Dim num(10)
Dim nu1(7)
Dim nu2(7)
Dim nu3(8)
Dim nu4(8)
Dim nu5(8)
Dim ruote(10)
Dim ruote2(10)
ruote2(10)=11
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
fin = EstrazioneFin
ini = fin -17
t=0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k=12
For r=1 To 10
For p=1 To 4
For q=p+1 To 5
n1=Estratto (es,r,p)
b=Estratto (es,r,q)
For r1=r+1 To 12
If r1=11 Then r1=12
For pp=1 To 4
For qq=pp+1 To 5
c=Estratto (es,r1,pp)
d=Estratto (es,r1,qq)
' n1 -a
' c - d
If (c=n1 And d=b) Or (c=b And d=n1) Then ' se i numeri sono uguali
b2=Fuori90 ( (Figura(n1)+Figura(b))* (Figura(c)+Figura(d)) )
a2=Diametrale(b2)
a3=Vert(a2)
a4=Fuori90(Figura(n1)+Figura(b))
a5=Fuori90(Figura(c)+Figura(d))
a6=Fuori90(a4+a5)
a7=Diametrale(a6)
t=t+1
Scrivi
ruote(1) = r
ruote(2) = r1
nu1(1) = a2
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a2
nu2(2) = a6
ImpostaGiocata 2,nu2,ruote,poste,k
ImpostaGiocata 3,nu2,ruote2,poste,k
nu5(1) = a2
nu5(2) = a5
ImpostaGiocata 4,nu5,ruote,poste,k
ImpostaGiocata 5,nu5,ruote2,poste,k
Gioca es
Scrivi"========================================="
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1 :Scrivi "------------ AMBO RIPETUTO Angelo SK -----",1
Scrivi
Scrivi " http://https://triadevincente.forumfree.it/"
Scrivi
End Sub
|
|
.
.
