somma comune 36 fra 2 ambi preso da un giornale del settore
autore " Franco Mongillo "
'Somma Estratti 36 comune di due ambi isotopi e non
ColoreTesto 1:Scrivi "ambi somma (36) in orriz. su 2 ruote per franca46",1:coloretesto 0:scrivi
Sub main()
Dim nu1(2),nu2(4),ruote(10),ruot(1)
Dim poste(2),posta(5),posta1(5)
poste(1)=1 : poste(2)=1
posta(2)=1 : posta(3)=1
posta1(2)=1 : posta1(3)=1
k=12
so=CInt(InputBox("Qual'e' la somma?","Numero somma",36))
fin=EstrazioneFin : ini=fin-200
For es=ini To fin
Messaggio "elab. estr. del " & DataEstrazione (es)
For r=1 To 10
For p=1 To 4
For p1=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,p1)
sm1=a : sm2=b
'sm3=sm1+sm2 'cosi θ senza il fuori90...
sm3=Fuori90 (sm1+sm2)
If sm3=so Then
'---------------------------------------------------------------------------
For r1=r+1 To 11 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
If r1=11 Then r1=12
'---------------------------------------------------------------------------
'r1=r+1 '<<<--- per ruote consecutive
'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
'---------------------------------------------------------------------------
For p2=1 To 4
For p3=p2+1 To 5
c=Estratto(es,r1,p2)
d=Estratto(es,r1,p3)
sm4=c : sm5=d
'sm6=sm4+sm5 'cosi θ senza il fuori90...
sm6=Fuori90 (sm4+sm5)
If sm3=sm6 And sm3=so Then
casi=casi+1
Scrivi String(65,""),1
Scrivi Space(8)&"[F. Mongillo: ambo somma < "&so&" > in orriz. su "&siglaruota(r)&" e "&siglaruota(r1)&" ]",1
Scrivi String(65,"-")
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r) & " "& StringaEstratti(es,r)&" > ambo < " & Format2(a) &" - "& Format2 (b)&" >"
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1) & " "& StringaEstratti(es,r1)&" > ambo < "& Format2 (c) &" - "& Format2 (d)&" >"
Scrivi "somma (36) : " & Format2(a) &" + "& Format2 (b)&" = "&sm3
Scrivi "somma (36) : " & Format2(c) &" + "& Format2 (d)&" = "&sm6
Scrivi String(52,"-")&"n° caso "&casi
e=Fuori90(a+c)
f=Fuori90(b+d)
g=Abs(e-f) 'ambata
ruote(1)=r : ruote(2)=r1 : ruote(3)=12
ruot(1)=11
nu1(1)=g
nu1(2)=Vert(g)
ImpostaGiocata 1,nu1,ruote,poste,k
nu2(1)=nu1(1) : nu2(2)=nu1(2)
nu2(3)=e : nu2(4)=f
ImpostaGiocata 2,nu2,ruote,posta,k
ImpostaGiocata 3,nu2,ruot,posta1,k
Gioca es
End If
Next
Next
Next
End If
Next
Next
Next
'---------------------------------------------------------------------------
Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
'---------------------------------------------------------------------------
'ScriviResoconto
Scrivi : ColoreTesto 1 : Scrivi "by maxma62",1
End Sub
ultimo caso presentato ( avevo dimenticato di inserirlo )
- semplici da capire i calcoli effettuati
lun 24.12.2012 < Ge 24.32.71.25.04 > ambo < 32 - 04 >
lun 24.12.2012 < Mi 15.37.89.60.78 > ambo < 37 - 89 >
somma (36) : 32 + 04 = 36
somma (36) : 37 + 89 = 36
----------------------------------------------------n° caso 61
lun 24.12.2012 [8630]
G 1: MA 66.69 Ge Mi Nz 7/12
M 69.66 su Nz 2° colpo [8632/29.12.2012]
A 69.66 su Nz 2° colpo [8632/29.12.2012]
M 69 su Ge 4° colpo [8634/03.01.2013]
M 66 su Nz 6° colpo [8636/08.01.2013]
in corso (7° su 12)
G 2: AT 66.69.03 Ge Mi Nz 7/12
A 69.66 su Nz 2° colpo [8632/29.12.2012]
in corso (7° su 12)
G 3: AT 66.69.03 Tu 7/12
A 66.03 su Tu (Ve) 4° colpo [8634/03.01.2013]
in corso (7° su 12)
