| 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
| | |
| |
|