Novità

SCRIPT PER PIRAMIDARE ESTRAZIONI

*blacklotto*

Super Member >PLATINUM<
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(n) + Cadenza(n)
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(y) + Cadenza(y)
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

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

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

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 giugno 2024
    Bari
    88
    59
    16
    58
    04
    Cagliari
    51
    71
    61
    54
    55
    Firenze
    11
    13
    15
    53
    23
    Genova
    63
    19
    10
    88
    43
    Milano
    16
    14
    77
    83
    88
    Napoli
    42
    35
    05
    34
    77
    Palermo
    33
    51
    68
    67
    01
    Roma
    83
    78
    75
    84
    86
    Torino
    14
    10
    11
    63
    46
    Venezia
    60
    82
    31
    59
    27
    Nazionale
    61
    33
    71
    86
    78
    Estrazione Simbolotto
    Napoli
    11
    21
    28
    35
    18

Ultimi Messaggi

Alto