SUPER LOTTO

la tavola istantanea di bartalini,

« Older   Newer »
  Share  
occhidigiada58.
CAT_IMG Posted on 22/12/2010, 00:11 by: occhidigiada58.




somma uguale isotopa

CODICE
Sub main()
Dim nu1(5),nu2(5),nu3(5),nu4(6),amb(6),ruota(2),ruote(1),ruot(1)
Dim posta(1),poste(2),post(5)
Dim pstd(10)

posta(1)=5:poste(2)=3
post(2)=1.5:post(3)=1.5:post(4)=1.5
post(2)=1.5:post(3)=1.5:post(4)=1.5:post(5)=1.5

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8231)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "TAVOLA ISTANTANEA (2 ambi uniti somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'iso
n1=Fuori90(a+b)
n2=Fuori90(c+d)
If n1=n2 And d1=d2 Then

casi=casi+1:Scrivi String(19,"=")&"  metoto < tavola istantanea >  "&String(19,"="),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."
Scrivi String(70,"-")
Scrivi "somma "&format2(a)&"."&format2(b)&" = "&format2(n1)&" / somma "&_
Format2(c)&"."&format2(d)&" = "&format2(n2)
Scrivi String(58,"-")&" caso n° "&(casi)

If (n1)=(n2) Then

' Tavola Istantanea riassunta da Joe91

amb(1)=Fuori90(n1+48) : amb(2)=Fuori90(n1+27) : amb(3)=Fuori90(n1+53)
amb(4)=Fuori90(n1+75) : amb(5)=Fuori90(n1+12) : amb(6)=Fuori90(n1+42)

' --------- Alba, 06/08/2010 ---------

ruota(1)=r1:ruota(2)=r2:ruote(1)=12:ruot(1)=11:co=0


nu1(1)=amb(1):nu1(2)=amb(4)
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k,1,0
pstd(p1+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,pstd,k,0
Erase pstd
pstd(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,pstd,k,0
Erase pstd

nu2(1)=amb(1):nu2(2)=amb(2):nu2(3)=amb(3)
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruot,poste,k

nu3(1)=amb(4):nu3(2)=amb(5):nu3(3)=amb(6)
co=co+1
ImpostaGiocata co,nu3,ruota,poste,k
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruot,poste,k

nu4(1)=amb(1):nu4(2)=amb(4):nu4(3)=amb(2)
nu4(4)=amb(3):nu4(5)=amb(5):nu4(6)=amb(6)
co=co+1
ImpostaGiocata co,nu4,ruote,post,k

Gioca es
End If
End If
End If 'iso
Next:next:Next:Next:Next:Next:Next
ScriviResoconto
Scrivi "TAVOLA ISTANTANEA (2 ambi somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
End Sub



numeri isotopi


CODICE
'tavola istantanea numeri isotopi
Sub main()
Dim k(10),ab(2),ab1(6)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1)=1 : ptt(2)=1: ptt(3)=1 : clp=15
ini=EstrazioneFin -20
co=0
For es=ini To EstrazioneFin
Messaggio (es)
For r=1 To 10
rt(1)=r : rtt(1)=r
For p1=1 To 5
n1=Estratto(es,r,p1)
For r1=r+1 To 12
If r1=11 Then r1=12
rt(2)=r1 : rtt(2)=r1
ruote(1)=11:ruote(2)=12
n2=Estratto(es,r1,p1)
If (n1)=(n2)Then
co=co+1
Scrivi String (70,"=")
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r1)&"  "& StringaEstratti (es,r1)&""
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" "
Scrivi DataEstrazione (es)&" "& SiglaRuota(r)&"-"& SiglaRuota (r1)&_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi
ab(1)=Fuori90(n1+48)
ab(2)=Fuori90 (ab(1)+27)
ImpostaGiocata 1,ab,rtt,pt,clp

ab1(1)=Fuori90(n1+48)
ab1(2)=Fuori90 (ab1(1)+27)
ab1(3)=Fuori90 (n1+27)
ab1(4)=Fuori90(ab1(3)+26)
ab1(5)=Fuori90 (n1+12)
ab1(6)=Fuori90 (ab1(5)+30)

ImpostaGiocata 2,ab1, rtt, ptt,clp  
ImpostaGiocata 3,ab1, ruote, ptt,clp

Gioca es  

End If
Next
Next
Next
Next

ScriviResoconto
End Sub
 
Top
11 replies since 21/12/2010, 23:46   5920 views
  Share