SCRIPT PER PIRAMIDARE ESTRAZIONI

[antonino46]

COME FARE UNO SCRIPT PER PIRAMIDARE I NUMERI DELLE VARIE E STRAZIONI

 

[*blacklotto*]

Tra le svariate ipotesi ...

Sub Main()
' Vertice piramidale (Cinzia)
max = 0
Dim nu(1),ru(1)
r = 1
ru(1) = r
e = 2
fin = EstrazioneFin
ini = fin - e
For es = ini To fin:Messaggio(es)
Scrivi "Piramide dell' estrazione " & es & " avvenuta a " & NomeRuota(r) & " il " & DataEstrazione(es)
Scrivi
a1 = Decina(Estratto(es,r,1))
a2 = Cadenza(Estratto(es,r,1))
b1 = Decina(Estratto(es,r,2))
b2 = Cadenza(Estratto(es,r,2))
c1 = Decina(Estratto(es,r,3))
c2 = Cadenza(Estratto(es,r,3))
d1 = Decina(Estratto(es,r,4))
d2 = Cadenza(Estratto(es,r,4))
e1 = Decina(Estratto(es,r,5))
e2 = Cadenza(Estratto(es,r,5))
Scrivi StringaEstratti(es,r)
f = a1 + a2
If f > 9 Then f = Decina(f) + Cadenza(f)
Scrivi f & "",0,0
g = a2 + b1
If g > 9 Then g = Decina(g) + Cadenza(g)
Scrivi g & "-",0,0
h = b1 + b2
If h > 9 Then h = Decina(h) + Cadenza(h)
Scrivi h & "",0,0
i = b2 + c1
If i > 9 Then i = Decina(i) + Cadenza(i)
Scrivi i & "-",0,0
j = c1 + c2
If j > 9 Then j = Decina(j) + Cadenza(j)
Scrivi j & "",0,0
k = c2 + d1
If k > 9 Then k = Decina(k) + Cadenza(k)
Scrivi k & "-",0,0
l = d1 + d2
If l > 9 Then l = Decina(l) + Cadenza(l)
Scrivi l & "",0,0
m = d2 + e1
If m > 9 Then m = Decina(m) + Cadenza(m)
Scrivi m & "-",0,0
n = e1 + e2
If n > 9 Then n = Decina + Cadenza
Scrivi n & ""
'------------------------------------------------------------
o = f + g
If o > 9 Then o = Decina(o) + Cadenza(o)
Scrivi Space(1) & o & "",0,0
q = g + h
If q > 9 Then q = Decina(q) + Cadenza(q)
Scrivi q & "-",0,0
s = h + i
If s > 9 Then s = Decina(s) + Cadenza(s)
Scrivi s & "",0,0
t = i + j
If t > 9 Then t = Decina(t) + Cadenza(t)
Scrivi t & "-",0,0
u = j + k
If u > 9 Then u = Decina(u) + Cadenza(u)
Scrivi u & "",0,0
v = k + l
If v > 9 Then v = Decina(v) + Cadenza(v)
Scrivi v & "-",0,0
w = l + m
If w > 9 Then w = Decina(w) + Cadenza(w)
Scrivi w & "",0,0
x = m + n
If x > 9 Then x = Decina(x) + Cadenza(x)
Scrivi x
'------------------------------------------------------------
y = o + q
If y > 9 Then y = Decina + Cadenza
Scrivi Space(2) & y & "",0,0
z = q + s
If z > 9 Then z = Decina(z) + Cadenza(z)
Scrivi z & "-",0,0
aa = s + t
If aa > 9 Then aa = Decina(aa) + Cadenza(aa)
Scrivi aa & "",0,0
ab = t + u
If ab > 9 Then ab = Decina(ab) + Cadenza(ab)
Scrivi ab & "-",0,0
ac = u + v
If ac > 9 Then ac = Decina(ac) + Cadenza(ac)
Scrivi ac & "",0,0
ad = v + w
If ad > 9 Then ad = Decina(ad) + Cadenza(ad)
Scrivi ad & "-",0,0
ae = w + x
If ae > 9 Then ae = Decina(ae) + Cadenza(ae)
Scrivi ae
'-------------------------------------
af = y + z
If af > 9 Then af = Decina(af) + Cadenza(af)
Scrivi Space(3) & af & "",0,0
ag = z + aa
If ag > 9 Then ag = Decina(ag) + Cadenza(ag)
Scrivi ag & "-",0,0
ah = aa + ab
If ah > 9 Then ah = Decina(ah) + Cadenza(ah)
Scrivi ah & "",0,0
ai = ab + ac
If ai > 9 Then ai = Decina(ai) + Cadenza(ai)
Scrivi ai & "-",0,0
aj = ac + ad
If aj > 9 Then aj = Decina(aj) + Cadenza(aj)
Scrivi aj & "",0,0
ak = ad + ae
If ak > 9 Then ak = Decina(ak) + Cadenza(ak)
Scrivi ak
'-------------------------------------
al = af + ag
If al > 9 Then al = Decina(al) + Cadenza(al)
Scrivi Space(4) & al & "",0,0
am = ag + ah
If am > 9 Then am = Decina(am) + Cadenza(am)
Scrivi am & "-",0,0
an = ah + ai
If an > 9 Then an = Decina(an) + Cadenza(an)
Scrivi an & "",0,0
ao = ai + aj
If ao > 9 Then ao = Decina(ao) + Cadenza(ao)
Scrivi ao & "-",0,0
ap = aj + ak
If ap > 9 Then ap = Decina(ap) + Cadenza(ap)
Scrivi ap
'-------------------------------------
aq = al + am
If aq > 9 Then aq = Decina(aq) + Cadenza(aq)
Scrivi Space(5) & aq & "",0,0
ar = am + an
If ar > 9 Then ar = Decina(ar) + Cadenza(ar)
Scrivi ar & "-",0,0
at = an + ao
If at > 9 Then at = Decina(at) + Cadenza(at)
Scrivi at & "",0,0
au = ao + ap
If au > 9 Then au = Decina(au) + Cadenza(au)
Scrivi au
'-------------------------------------
av = aq + ar
If av > 9 Then av = Decina(av) + Cadenza(av)
Scrivi Space(6) & av & "",0,0
aw = ar + at
If aw > 9 Then aw = Decina(aw) + Cadenza(aw)
Scrivi aw & "-",0,0
ax = at + au
If ax > 9 Then ax = Decina(ax) + Cadenza(ax)
Scrivi ax
'-------------------------------------
ay = av + aw
If ay > 9 Then ay = Decina(ay) + Cadenza(ay)
Scrivi Space(7) & ay & "",0,0
az = aw + ax
If az > 9 Then az = Decina(az) + Cadenza(az)
Scrivi az
nu(1) = ay & az
Scrivi
Scrivi "il numero ricavato dalla piramide è : " & nu(1)
cl = 9
ess = es + cl
If ess > fin Then ess = fin End If
fr = SerieFreq(es + 1,ess,nu,ru,1)
If fr < 0 Then fr = 0
If fr > 0 Then cc = 0 Else cc = cc + 1
If fr > 0 Then ee = ee + 1
If fr = 0 Then
If cc > max Then max = cc
End If
If fr = 1 Then
Scrivi "Nelle " & cl & " estrazioni successive si è presentato " & fr & " volta",1
Else
If fr > 1 Then
ColoreTesto 2
Scrivi "Nelle " & cl & " estrazioni successive si è presentato " & fr & " volte",1
End If
End If
ColoreTesto 1
Scrivi String(80,"*")
ColoreTesto 0
Next
End Sub

---- > Guarda anche questo ...

Sub Main()
'Piramide con gioco ambatalistato by Paolo1
Dim nu(2)
Dim ruote(2)
Dim poste(2)
poste(1) = 1
ruote(1) = ScegliRuota
r = ruote(1)
fin = EstrazioneFin
ini = fin - 10
For es = ini To fin
Messaggio es
Scrivi "<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>"
a1 = Decina(Estratto(es,r,1))
a2 = Cadenza(Estratto(es,r,1))
a3 = Decina(Estratto(es,r,2))
a4 = Cadenza(Estratto(es,r,2))
a5 = Decina(Estratto(es,r,3))
a6 = Cadenza(Estratto(es,r,3))
a7 = Decina(Estratto(es,r,4))
a8 = Cadenza(Estratto(es,r,4))
a9 = Decina(Estratto(es,r,5))
a10 = Cadenza(Estratto(es,r,5))
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
ColoreTesto 2
Scrivi "----------------"
ColoreTesto 0
Scrivi a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9 & a10
b1 = Figura(a1 + a2)
b2 = Figura(a2 + a3)
b3 = Figura(a3 + a4)
b4 = Figura(a4 + a5)
b5 = Figura(a5 + a6)
b6 = Figura(a6 + a7)
b7 = Figura(a7 + a8)
b8 = Figura(a8 + a9)
b9 = Figura(a9 + a10)
Scrivi b1 & b2 & b3 & b4 & b5 & b6 & b7 & b8 & b9
c1 = Figura(b1 + b2)
c2 = Figura(b2 + b3)
c3 = Figura(b3 + b4)
c4 = Figura(b4 + b5)
c5 = Figura(b5 + b6)
c6 = Figura(b6 + b7)
c7 = Figura(b7 + b8)
c8 = Figura(b8 + b9)
Scrivi c1 & c2 & c3 & c4 & c5 & c6 & c7 & c8
d1 = Figura(c1 + c2)
d2 = Figura(c2 + c3)
d3 = Figura(c3 + c4)
d4 = Figura(c4 + c5)
d5 = Figura(c5 + c6)
d6 = Figura(c6 + c7)
d7 = Figura(c7 + c8)
Scrivi d1 & d2 & d3 & d4 & d5 & d6 & d7
e1 = Figura(d1 + d2)
e2 = Figura(d2 + d3)
e3 = Figura(d3 + d4)
e4 = Figura(d4 + d5)
e5 = Figura(d5 + d6)
e6 = Figura(d6 + d7)
Scrivi e1 & e2 & e3 & e4 & e5 & e6
f1 = Figura(e1 + e2)
f2 = Figura(e2 + e3)
f3 = Figura(e3 + e4)
f4 = Figura(e4 + e5)
f5 = Figura(e5 + e6)
Scrivi f1 & f2 & f3 & f4 & f5
g1 = Figura(f1 + f2)
g2 = Figura(f2 + f3)
g3 = Figura(f3 + f4)
g4 = Figura(f4 + f5)
Scrivi g1 & g2 & g3 & g4
h1 = Figura(g1 + g2)
h2 = Figura(g2 + g3)
h3 = Figura(g3 + g4)
Scrivi h1 & h2 & h3
i1 = Figura(h1 + h2)
i2 = Figura(h2 + h3)
Scrivi i1 & i2
ll =(i1*10)
lll = Fuori90(ll + i2)
nu(1) = lll
ImpostaGiocata 1,nu,ruote,poste,9,1
Gioca es,1
Next
ScriviResoconto,0
End Sub

 

[salvo50]

Ciao a Tutti

Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,P1,Caso,Casi
   Dim BaseP,Ruo,X1,Cusp1
   Dim Ambata(1),Ru(1),Posta(1),A(5)
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9880)
   Ruo = InputBox(" In quale ruota vuoi giocare?",,6)
   Clp = InputBox("Per quanti colpi vuoi fare la ricerca?",,12)
   Scrivi Space(5) & " Chiesto da Antonino46 - Script per Piramidare estrazioni - Script Salvo50" & Space(5),1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruo To Ruo
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
         Next
         BaseP = StringaNumeri(A,"",True)
         For X1 = 1 To Len(BaseP) - 2
            P1 =(Piramide(BaseP,X1))
         Next
         Cusp1 =(Piramide(BaseP,Len(BaseP) - 2))
         Cusp1 = Fuori90(Cusp1)
         Ru(1) = R1
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         Scrivi
         Scrivi Space(27) & BaseP,1
         For X1 = 1 To Len(BaseP) - 2
            Scrivi Space(27) &(Piramide(BaseP,X1)),1
         Next
         Scrivi
         Ambata(1) = Cusp1
         ImpostaGiocata 1,Ambata,Ru,Posta,Clp,1
         Gioca Es
      Next
   Next
   ScriviResoconto
End Sub

 

[antonino46]

GRAZIE RAGAZZI SIETE MERAVIGLIOSI!!!!! MI SERVIVA PROPRIO QUESTO PER FARE DELLE VERIFICHE