Novità

Dove stò sbagliando?

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Con questo script,
ho sbagliato a premere ed è partito il post, comunque volevo solo sapere perchè in scriviresocondo da tutti zero
Grazie!
Codice: 
Option Explicit

Sub Main()
Dim ruota(1),posta(5)
Dim num(4),dec(6),cad(6),p1r2(5),p1r3(4),p1r4(3),p1r5(2)
Dim fig(1),xfig(1)
Dim k1,r1,a(6),es,fin,riga
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 0.1




fin = EstrazioneFin

r1 = FI_
es = fin - 100

Scrivi(" Estrazione n." & Format2(es) &     " del " & DataEstrazione(es)),0,0
'Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi
Scrivi
For es = es To fin

a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)



For k1 = 1 To 10
If k1 = 1 Then : num(1) = a(1) : num(3) = a(2): End If
If k1 = 2 Then : num(1) = a(2) : num(3) = a(3): End If
If k1 = 3 Then : num(1) = a(3) : num(3) = a(4): End If
If k1 = 4 Then : num(1) = a(4) : num(3) = a(5): End If
If k1 = 5 Then : num(1) = a(5) : num(3) = a(1): End If
If k1 = 6 Then : num(1) = a(1) : num(3) = a(3): End If
If k1 = 7 Then : num(1) = a(1) : num(3) = a(4): End If
If k1 = 8 Then : num(1) = a(2) : num(3) = a(4): End If
If k1 = 9 Then : num(1) = a(2) : num(3) = a(5): End If
If k1 = 10 Then : num(1) = a(3) : num(3) = a(5): End If



dec(1) = Decina(num(1))
cad(1) = Cadenza(num(1))
dec(3) = Decina(num(3))
cad(3) = Cadenza(num(3))
'-----------------------------------------
xfig(1) = dec(1) + cad(1) + dec(3) + cad(3)
fig(1) = FuoriX(((xfig(1)) + 9),9)

If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88

dec(2) = Decina(num(2))
cad(2) = Cadenza(num(2))



'calcoli  piramide
'seconda riga
p1r2(1) = dec(1) + cad(1)
p1r2(2) = cad(1) + dec(2)
p1r2(3) = dec(2) + cad(2)
p1r2(4) = cad(2) + dec(3)
p1r2(5) = dec(3) + cad(3)

If p1r2(1) > 9 Then p1r2(1) = p1r2(1) - 9
If p1r2(2) > 9 Then p1r2(2) = p1r2(2) - 9
If p1r2(3) > 9 Then p1r2(3) = p1r2(3) - 9
If p1r2(4) > 9 Then p1r2(4) = p1r2(4) - 9
If p1r2(5) > 9 Then p1r2(5) = p1r2(5) - 9
'terza riga
p1r3(1) = p1r2(1) + p1r2(2)
p1r3(2) = p1r2(2) + p1r2(3)
p1r3(3) = p1r2(3) + p1r2(4)
p1r3(4) = p1r2(4) + p1r2(5)

If p1r3(1) > 9 Then p1r3(1) = p1r3(1) - 9
If p1r3(2) > 9 Then p1r3(2) = p1r3(2) - 9
If p1r3(3) > 9 Then p1r3(3) = p1r3(3) - 9
If p1r3(4) > 9 Then p1r3(4) = p1r3(4) - 9
'quarta riga
p1r4(1) = p1r3(1) + p1r3(2)
p1r4(2) = p1r3(2) + p1r3(3)
p1r4(3) = p1r3(3) + p1r3(4)

If p1r4(1) > 9 Then p1r4(1) = p1r4(1) - 9
If p1r4(2) > 9 Then p1r4(2) = p1r4(2) - 9
If p1r4(3) > 9 Then p1r4(3) = p1r4(3) - 9
'quinta riga
p1r5(1) = p1r4(1) + p1r4(2)
p1r5(2) = p1r4(2) + p1r4(3)

If p1r5(1) > 9 Then p1r5(1) = p1r5(1) - 9
If p1r5(2) > 9 Then p1r5(2) = p1r5(2) - 9
'fine calcoli piramide

a(6) =(p1r5(1) & p1r5(2))

riga = riga & Format2(a(6)) & " "

Next
Scrivi "  " & Left(NomeRuota(r1),2) & " " & riga ' " " & StringaEstratti(es,r1) & ""& riga

riga = Null

ImpostaGiocata 1,a(6),r1,posta,3',1

Gioca es

Next
ScriviResoconto
End Sub
 
Ciao Salvo,

sperando che nello script non ci siano altri errori ...

Ho interfacciato numeri e ruota (quelli che m'è parso dovessero essere)

con quelli richiesti dall'istruzione "Gioca".

Codice: 
Option Explicit
Sub Main()
Dim ruota(1),posta(5)
Dim num(4),dec(6),cad(6),p1r2(5),p1r3(4),p1r4(3),p1r5(2)
Dim fig(1),xfig(1)
Dim k1,r1,a(6),ini,fin,es,riga
Dim nu
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 0.1
fin = EstrazioneFin
r1 = FI_
ruota(1) = r1
ini = fin - 100
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
'Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi
Scrivi
For es = ini To fin
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
For k1 = 1 To 10
If k1 = 1 Then : num(1) = a(1) : num(3) = a(2): End If
If k1 = 2 Then : num(1) = a(2) : num(3) = a(3): End If
If k1 = 3 Then : num(1) = a(3) : num(3) = a(4): End If
If k1 = 4 Then : num(1) = a(4) : num(3) = a(5): End If
If k1 = 5 Then : num(1) = a(5) : num(3) = a(1): End If
If k1 = 6 Then : num(1) = a(1) : num(3) = a(3): End If
If k1 = 7 Then : num(1) = a(1) : num(3) = a(4): End If
If k1 = 8 Then : num(1) = a(2) : num(3) = a(4): End If
If k1 = 9 Then : num(1) = a(2) : num(3) = a(5): End If
If k1 = 10 Then : num(1) = a(3) : num(3) = a(5): End If
dec(1) = Decina(num(1))
cad(1) = Cadenza(num(1))
dec(3) = Decina(num(3))
cad(3) = Cadenza(num(3))
'-----------------------------------------
xfig(1) = dec(1) + cad(1) + dec(3) + cad(3)
fig(1) = FuoriX(((xfig(1)) + 9),9)
If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88
dec(2) = Decina(num(2))
cad(2) = Cadenza(num(2))
'calcoli  piramide
'seconda riga
p1r2(1) = dec(1) + cad(1)
p1r2(2) = cad(1) + dec(2)
p1r2(3) = dec(2) + cad(2)
p1r2(4) = cad(2) + dec(3)
p1r2(5) = dec(3) + cad(3)
If p1r2(1) > 9 Then p1r2(1) = p1r2(1) - 9
If p1r2(2) > 9 Then p1r2(2) = p1r2(2) - 9
If p1r2(3) > 9 Then p1r2(3) = p1r2(3) - 9
If p1r2(4) > 9 Then p1r2(4) = p1r2(4) - 9
If p1r2(5) > 9 Then p1r2(5) = p1r2(5) - 9
'terza riga
p1r3(1) = p1r2(1) + p1r2(2)
p1r3(2) = p1r2(2) + p1r2(3)
p1r3(3) = p1r2(3) + p1r2(4)
p1r3(4) = p1r2(4) + p1r2(5)
If p1r3(1) > 9 Then p1r3(1) = p1r3(1) - 9
If p1r3(2) > 9 Then p1r3(2) = p1r3(2) - 9
If p1r3(3) > 9 Then p1r3(3) = p1r3(3) - 9
If p1r3(4) > 9 Then p1r3(4) = p1r3(4) - 9
'quarta riga
p1r4(1) = p1r3(1) + p1r3(2)
p1r4(2) = p1r3(2) + p1r3(3)
p1r4(3) = p1r3(3) + p1r3(4)
If p1r4(1) > 9 Then p1r4(1) = p1r4(1) - 9
If p1r4(2) > 9 Then p1r4(2) = p1r4(2) - 9
If p1r4(3) > 9 Then p1r4(3) = p1r4(3) - 9
'quinta riga
p1r5(1) = p1r4(1) + p1r4(2)
p1r5(2) = p1r4(2) + p1r4(3)
If p1r5(1) > 9 Then p1r5(1) = p1r5(1) - 9
If p1r5(2) > 9 Then p1r5(2) = p1r5(2) - 9
'fine calcoli piramide
a(6) =(p1r5(1) & p1r5(2))
riga = riga & " " & Format2(a(6))
Next
'Scrivi Left(NomeRuota(r1),2) & " " & riga,True ' " " & StringaEstratti(es,r1) & ""& riga
nu = Split(Trim(riga)," ")
riga = Null
Scrivi SiglaRuota(r1) & " " & StringaNumeri(nu),True
ImpostaGiocata 1,nu,ruota,posta,3',1
Gioca es
Next
ScriviResoconto
End Sub

:)
 
Ciao joe!

Grazie infinite, adesso va bene.

Se qualcuno volesse usare questo script, volevo precisare che questi numeri, 52 85 28 82 25 58 22 55 88 si possono cambiare a piacere, per esempio si possono inserire i numeri del - Quadrato Intellettuale - di Pico Della Mirandola, ecc.
Codice: 
If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 31 marzo 2026
    Bari
    64
    09
    80
    53
    34
    Cagliari
    65
    25
    53
    11
    04
    Firenze
    52
    61
    16
    58
    66
    Genova
    28
    61
    02
    72
    60
    Milano
    40
    87
    27
    22
    05
    Napoli
    28
    17
    30
    29
    37
    Palermo
    65
    15
    79
    20
    52
    Roma
    84
    58
    35
    80
    60
    Torino
    34
    07
    48
    35
    55
    Venezia
    18
    24
    23
    26
    87
    Nazionale
    77
    81
    40
    26
    73
    Estrazione Simbolotto
    Firenze
    06
    16
    22
    20
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto