Genlotto |
|
| CODICE 'Lati formanti la somma 45 di Marcello Binatti Sub main() Dim ruota(2),posta(5) Dim nu(5)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50)) k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0 fin=EstrazioneFin ini=fin-ee For es=ini To fin Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]" For r1=1 To 10 For r2=r1+1 To 11 If r2=11 Then r2=12 For p1=1 To 4 : p2=p1+1 a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2) ds1=Distanza(a,b) :For p3=1 To 4 : p4=p3+1 c=Estratto(es,r2,p3) :d=Estratto(es,r2,p4) ds2=Distanza(c,d) :dv1=Distanza(a,c) :dv2=Distanza(b,d) If (ds1=30 And ds2=15 Or ds1=15 And ds2=30) And (dv1+dv2)=45 Then dma=Diametrale(a):dmb=Diametrale(b):sm1=Fuori90(a+dmb):sm2=Fuori90(b+dma) so1=Fuori90(a+b) :so2=Fuori90(dma+dmb):sv1=Fuori90(dma+a) :sv2=Fuori90(b+dmb) dmc=Diametrale(c):dmd=Diametrale(d):sm3=Fuori90(c+dmd):sm4=Fuori90(d+dmc) so3=Fuori90(c+d) :so4=Fuori90(dmc+dmd):sv3=Fuori90(dmc+c) :sv4=Fuori90(d+dmd) casi=casi+1:Scrivi String(64,"="),1 Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ " ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ]" Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ " ] [ "&Format2(c)&"."&Format2(d)&" in "&(p3)&"/"&p4&" ^ pos. ]" ColoreTesto 1: Scrivi String(64,"-") Scrivi Format2(a)&" "&Format2(b)&"|"&Format2(so1)&" "&Format2(sv1)&" "&_ Format2(c)&" "&Format2(d)&"|"&Format2(so3)&" "&Format2(sv3) Scrivi Format2(dma)&" "&Format2(dmb)&"|"&Format2(so2)&" "&Format2(sv2)&" "&_ Format2(dmc)&" "&Format2(dmd)&"|"&Format2(so4)&" "&Format2(sv4) Scrivi "----------- -----------" Scrivi " "&Format2(sm1)&" (1 Q.) "&Format2(sm3)&" (2 Q.)" ColoreTesto 0 :Scrivi String(53,"-")&" caso n° "&(casi) ruota(1)=r1 :ruota(2)=r2 posta(1)=0 :posta(2)=1 nu(1)=sm1 :nu(2)=so1 nu(3)=sv1 :nu(4)=sv2 ImpostaGiocata 1,nu,ruota,posta,k nu(1)=sm3 :nu(2)=so3 nu(3)=sv3 :nu(4)=sv4 ImpostaGiocata 2,nu,ruota,posta,k Gioca es
End If Next Next Next Next Next ScriviResoconto End Sub Un saluto, Gen.. Lati formanti la somma 45 Il procedimento è qui: https://superlotto.blogfree.net/?t=3577924#lastpost
|
| |