Novità

X Mike58,Joe91 o Disaronno

rodrigo

Super Member >PLATINUM<
Buona giornata se possibile volevo chiedere uno script basato su alcune somme. Vi faccio un esempio:

Ba 89-30-86-72-65

Fig. 8 3 5 9 2 che piramidato viene
-------2 8 5 2 si uniscono queste cifre e si formano i numeri 28-85-52, quindi iniziano le somme con i numeri fissi 55 e 31 incolonnando in questo modo:

28+55=83+55 = 48
28+31=59+31 = 90

85+55=50+55 =15
85+31=26+31 =57

52+55=17+55 =72
52+31=83+31 =24

A questo punto si sommano i numeri in rosso:

83+48 = 41+9 = 50
59+90 = 59+9 = 68

50+15 = 65+9 = 74
26+57 = 83+9 = 02

17+72 = 89+9 = 08
83+24 = 17+9 = 26

Tutto qui, fine del calcolo, ovviamente vorrei avere la possibilità di scegliere la ruota e range di estrazioni.

Grazie per chi vorrà cimentarsi in questo script che spero non comporti difficoltà particolari.
Un cordiale saluto.
 
Ultima modifica:
eccolo, buona verifica

Codice:
Sub Main

Dim N(5),F(5),Nn(3),Nu(6),Num(6),Ru(1)

Dim T,V

Scrivi "Metodo Piramidato By Rodrigo **** Script List By Mike58 **** ",1,1,,1,3,,1

Scrivi

Ini = 8998'EstrazioneFin

Fin = EstrazioneFin

'r = InputBox("quale Ruota",,1)

For r = 1 To 10

Scrivi "Ruota...." & NomeRuota(r)

T = Array(T,"Data Estrazione","Estratti","Figure","Piramide","Numeri Piramide","Add","Numeri in Gioco","Esito Estratti","colpo","Data esito")

Call InitTabella(T,2,,3,5)

For es = Ini To Fin

k = k + 1

For p = 1 To 5

N(p) = Estratto(es,r,p)

F(p) = Figura(N(p))

Next

a = F(1) & F(2) & F(3) & F(4) & F(5)

aa = Piramide(a,1,5)

'--------------------------------------------------

Ru(1) = r

Nn(1) = Left(aa,2)

Nn(2) = Mid(aa,2,2)

Nn(3) = Right(aa,2)

a1 = Fuori90(Nn(1) + 55)

a2 = Fuori90(a1 + 55)

Num(1) = Fuori90(a1 + a2 + 9)

b1 = Fuori90(Nn(1) + 31)

b2 = Fuori90(b1 + 31)

Num(2) = Fuori90(b1 + b2 + 9)

c1 = Fuori90(Nn(2) + 55)

c2 = Fuori90(c1 + 55)

Num(3) =(c1 + c2 + 9)

d1 = Fuori90(Nn(2) + 31)

d2 = Fuori90(d1 + 31)

Num(4) = Fuori90(d1 + d2 + 9)

e1 = Fuori90(Nn(3) + 55)

e2 = Fuori90(e1 + 55)

Num(5) = Fuori90(e1 + e2 + 9)

g1 = Fuori90(Nn(3) + 31)

g2 = Fuori90(g1 + 31)

Num(6) = Fuori90(g1 + g2 + 9)

Call VerificaEsitoTurbo(Num,Ru,es + 1,2,25,,esito,colpi,estratti,id)

V = Array(V,FormatSpace(k,6) & DataEstrazione(es),StringaNumeri(N,,1),StringaNumeri(F),aa,StringaNumeri(Nn,,1),"+55 +31 ++9",StringaNumeri(Num,,1),estratti,colpi,DataEstrazione(id))

If esito = "" Then V(10) = " -- "

Call AddRigaTabella(V,,,3)

Next
k = 0
Call CreaTabella()

Next

End Sub
 
Ultima modifica:
Grazie Mike per la tua tempestività e gentilezza lo script va quasi bene, nel senso che se fosse possibile vorrei che alla voce "numeri in gioco" inserissi i 12 numeri in neretto come in esempio, e poi volevo chiederti se potevi inserire anche il resoconto per ruota o se puoi dirmi come modificare che lo faccio io...grazie grazie ancora.
 
Ciao Rodrigo(Cam....), su questo tipo di script il resoconto diventa difficile da spiegare come farlo.
A beneficio di altri lo dico, vanno impostate le giocate con l'impostaGiocata e con il codice Gioca in modo False vanno giocate anche se in modo false le giocare e quindi richiamare il resoconto.
Chi cuole può leggere qualche codice poco usato (resettaGiocate) fino ad ora.

prova cosi.
Codice:
Sub Main

Dim N(5),F(5),Nn(3),Nu(6),Num(6),Ru(1),posta(2)

Dim T,V

posta(2) = 1

Scrivi "Metodo Piramidato By Rodrigo **** Script List By Mike58 **** ",1,1,,1,3,,1

Scrivi

Ini = 8998'EstrazioneFin

Fin = EstrazioneFin

'r = InputBox("quale Ruota",,1)

For r = 1 To 10

Scrivi "Ruota...." & NomeRuota(r)

T = Array(T,"Data Estrazione","Estratti","Figure","Piramide","Numeri Piramide","Add","Numeri in Gioco","Esito Estratti","colpo","Data esito","Spesa","Vincita","Utile")

Call InitTabella(T,2,,3,5)

For es = Ini To Fin

k = k + 1

For p = 1 To 5

N(p) = Estratto(es,r,p)

F(p) = Figura(N(p))

Next

a = F(1) & F(2) & F(3) & F(4) & F(5)

aa = Piramide(a,1,5)

'--------------------------------------------------

Ru(1) = r

Nn(1) = Left(aa,2)

Nn(2) = Mid(aa,2,2)

Nn(3) = Right(aa,2)

a1 = Fuori90(Nn(1) + 55)

a2 = Fuori90(a1 + 55)

Num(1) = Fuori90(a1 + a2 + 9)

b1 = Fuori90(Nn(1) + 31)

b2 = Fuori90(b1 + 31)

Num(2) = Fuori90(b1 + b2 + 9)

c1 = Fuori90(Nn(2) + 55)

c2 = Fuori90(c1 + 55)

Num(3) = Fuori90(c1 + c2 + 9)

d1 = Fuori90(Nn(2) + 31)

d2 = Fuori90(d1 + 31)

Num(4) = Fuori90(d1 + d2 + 9)

e1 = Fuori90(Nn(3) + 55)

e2 = Fuori90(e1 + 55)

Num(5) = Fuori90(e1 + e2 + 9)

g1 = Fuori90(Nn(3) + 31)

g2 = Fuori90(g1 + 31)

Num(6) = Fuori90(g1 + g2 + 9)

Call VerificaEsitoTurbo(Num,Ru,es + 1,2,25,,esito,colpi,estratti,id)

Call ImpostaGiocata(1,Num,Ru,posta,25,2)

Gioca es,,,,,False

Call GetSpesa(False,True)

Call GetVincita(False,True)

Call GetGuadagno(False,True)

V = Array(V,FormatSpace(k,6) & DataEstrazione(es),StringaNumeri(N,,1),StringaNumeri(F),aa,StringaNumeri(Nn,,1),"+55 +31 ++9",StringaNumeri(Num,,1),estratti,colpi,DataEstrazione(id),GetSpesa,GetVincita,GetGuadagno)

If esito = "" Then V(10) = " -- "

Call AddRigaTabella(V,,,3)

Next

k = 0

ScriviResoconto,False

Call ResettaGiocate(False)

Call SetTableWidth("100%")

Call CreaTabella()

'ScriviResoconto,0

Next

End Sub
 
Ultima modifica:
Grazie per questa ulteriore modifica, come ti accennavo nel post precedente potresti inserire alla voce "numeri in gioco" tutti i 12 numeri in neretto come in esempio, così si completa l'intero quadro. Grazie ancora
 
Ciao Rodrigo, non avevo capito che ti servivano anche gli altri numeri ai fini del pronostico,
Lo sai che lo detto in altre occasioni che + di 10 numeri con la funzione gioca non è possibile avere e quindi ti ho raccolto i 12 numeri in 2 sestine e verificate come giocate.

la tabella cosi risulta un po' sformattata ma ugualmente leggibile.

ciao

Codice:
Sub Main

Dim N(5),F(5),Nn(3),Nu(6),Num(6),Ru(1),posta(2),Numm(6)

Dim T,V

posta(2) = 1

Scrivi "Metodo Piramidato By Rodrigo **** Script List By Mike58 **** ",1,1,,1,3,,1

Scrivi

Ini = 8998'EstrazioneFin

Fin = EstrazioneFin

'r = InputBox("quale Ruota",,1)

For r = 1 To 10

Scrivi "Ruota...." & NomeRuota(r)

T = Array(T,"Data Estrazione","Estratti","Figure","Piramide","Numeri Piramide","Add","Numeri in Gioco","Esito Estratti","colpo","Data esito","Data Esito2","Spesa","Vincita","Utile")

Call InitTabella(T,2,,3,5)

For es = Ini To Fin

k = k + 1

For p = 1 To 5

N(p) = Estratto(es,r,p)

F(p) = Figura(N(p))

Next

a = F(1) & F(2) & F(3) & F(4) & F(5)

aa = Piramide(a,1,5)

'--------------------------------------------------

Ru(1) = r

Nn(1) = Left(aa,2)

Nn(2) = Mid(aa,2,2)

Nn(3) = Right(aa,2)

a1 = Fuori90(Nn(1) + 55)

a2 = Fuori90(a1 + 55)

Num(1) = Fuori90(a1 + a2 + 9)

b1 = Fuori90(Nn(1) + 31)

b2 = Fuori90(b1 + 31)

Num(2) = Fuori90(b1 + b2 + 9)

c1 = Fuori90(Nn(2) + 55)

c2 = Fuori90(c1 + 55)

Num(3) = Fuori90(c1 + c2 + 9)

d1 = Fuori90(Nn(2) + 31)

d2 = Fuori90(d1 + 31)

Num(4) = Fuori90(d1 + d2 + 9)

e1 = Fuori90(Nn(3) + 55)

e2 = Fuori90(e1 + 55)

Num(5) = Fuori90(e1 + e2 + 9)

g1 = Fuori90(Nn(3) + 31)

g2 = Fuori90(g1 + 31)

Num(6) = Fuori90(g1 + g2 + 9)

Numm(1) = Fuori90(Num(1)-9)

Numm(2) = Fuori90( Num(2)-9)

Numm(3) = Fuori90(Num(3)-9)

Numm(4) = Fuori90(Num(4)-9)

Numm(5) = Fuori90(Num(5)-9)

Numm(6) = Fuori90(Num(6)-9)

Call VerificaEsitoTurbo(Num,Ru,es + 1,2,25,,esito,colpi,estratti,id)

Call VerificaEsitoTurbo(Numm,Ru,es+1,2,25,,esito2,colpi2,estratti2,id2)

Call ImpostaGiocata(1,Num,Ru,posta,25,2)

Call ImpostaGiocata(2,Numm,Ru,posta,25,2)

Gioca es,,,,,False

Call GetSpesa(False,True)

Call GetVincita(False,True)

Call GetGuadagno(False,True)

'......... attenzione riga spezzata..... se non funziona unificarla togliendo la congiunzione _

V = Array(V,FormatSpace(k,6) & DataEstrazione(es),StringaNumeri(N,,1),StringaNumeri(F),aa,StringaNumeri(Nn,,1),"+55 +31 ++9",_

StringaNumeri(Num,,1) & "<br>" & StringaNumeri(Numm,,1),estratti & "<br>" & estratti2,colpi &"<br>" & colpi2,_

DataEstrazione(id),DataEstrazione(id2),GetSpesa,GetVincita,GetGuadagno)

If esito = "" Then V(10) = " -- "

If esito2 = "" Then V(11) = " -- "

Call AddRigaTabella(V,,,3)

Next

k = 0

ScriviResoconto,False

Call ResettaGiocate(False)

Call SetTableWidth("100%")

Call CreaTabella()

'ScriviResoconto,0

Next

End Sub
 
Ultima modifica:
Mike58;n1892278 ha scritto:
Ciao Rodrigo, non avevo capito che ti servivano anche gli altri numeri ai fini del pronostico,
Lo sai che lo detto in altre occasioni che + di 10 numeri con la funzione gioca non è possibile avere e quindi ti ho raccolto i 12 numeri in 2 sestine e verificate come giocate.

la tabella cosi risulta un po' sformattata ma ugualmente leggibile.

ciao

Codice:
Sub Main

Dim N(5),F(5),Nn(3),Nu(6),Num(6),Ru(1),posta(2),Numm(6)

Dim T,V

posta(2) = 1

Scrivi "Metodo Piramidato By Rodrigo **** Script List By Mike58 **** ",1,1,,1,3,,1

Scrivi

Ini = 8998'EstrazioneFin

Fin = EstrazioneFin

'r = InputBox("quale Ruota",,1)

For r = 1 To 10

Scrivi "Ruota...." & NomeRuota(r)

T = Array(T,"Data Estrazione","Estratti","Figure","Piramide","Numeri Piramide","Add","Numeri in Gioco","Esito Estratti","colpo","Data esito","Data Esito2","Spesa","Vincita","Utile")

Call InitTabella(T,2,,3,5)

For es = Ini To Fin

k = k + 1

For p = 1 To 5

N(p) = Estratto(es,r,p)

F(p) = Figura(N(p))

Next

a = F(1) & F(2) & F(3) & F(4) & F(5)

aa = Piramide(a,1,5)

'--------------------------------------------------

Ru(1) = r

Nn(1) = Left(aa,2)

Nn(2) = Mid(aa,2,2)

Nn(3) = Right(aa,2)

a1 = Fuori90(Nn(1) + 55)

a2 = Fuori90(a1 + 55)

Num(1) = Fuori90(a1 + a2 + 9)

b1 = Fuori90(Nn(1) + 31)

b2 = Fuori90(b1 + 31)

Num(2) = Fuori90(b1 + b2 + 9)

c1 = Fuori90(Nn(2) + 55)

c2 = Fuori90(c1 + 55)

Num(3) = Fuori90(c1 + c2 + 9)

d1 = Fuori90(Nn(2) + 31)

d2 = Fuori90(d1 + 31)

Num(4) = Fuori90(d1 + d2 + 9)

e1 = Fuori90(Nn(3) + 55)

e2 = Fuori90(e1 + 55)

Num(5) = Fuori90(e1 + e2 + 9)

g1 = Fuori90(Nn(3) + 31)

g2 = Fuori90(g1 + 31)

Num(6) = Fuori90(g1 + g2 + 9)

Numm(1) = Fuori90(Num(1)-9)

Numm(2) = Fuori90( Num(2)-9)

Numm(3) = Fuori90(Num(3)-9)

Numm(4) = Fuori90(Num(4)-9)

Numm(5) = Fuori90(Num(5)-9)

Numm(6) = Fuori90(Num(6)-9)

Call VerificaEsitoTurbo(Num,Ru,es + 1,2,25,,esito,colpi,estratti,id)

Call VerificaEsitoTurbo(Numm,Ru,es+1,2,25,,esito2,colpi2,estratti2,id2)

Call ImpostaGiocata(1,Num,Ru,posta,25,2)

Call ImpostaGiocata(2,Numm,Ru,posta,25,2)

Gioca es,,,,,False

Call GetSpesa(False,True)

Call GetVincita(False,True)

Call GetGuadagno(False,True)

'......... attenzione riga spezzata..... se non funziona unificarla togliendo la congiunzione _

V = Array(V,FormatSpace(k,6) & DataEstrazione(es),StringaNumeri(N,,1),StringaNumeri(F),aa,StringaNumeri(Nn,,1),"+55 +31 ++9",_

StringaNumeri(Num,,1) & "<br>" & StringaNumeri(Numm,,1),estratti & "<br>" & estratti2,colpi &"<br>" & colpi2,_

DataEstrazione(id),DataEstrazione(id2),GetSpesa,GetVincita,GetGuadagno)

If esito = "" Then V(10) = " -- "

If esito2 = "" Then V(11) = " -- "

Call AddRigaTabella(V,,,3)

Next

k = 0

ScriviResoconto,False

Call ResettaGiocate(False)

Call SetTableWidth("100%")

Call CreaTabella()

'ScriviResoconto,0

Next

End Sub




ciao ,chiedo scusa ma da errore di sintassi ho tolto la _ poi da noia la , poi da noia la " ecc
 
Alien, non cambiare nulla, copia lo script dal forum e autoformatta con l'icona AUTOFORMATTA_CODICE.
Succede che il form del forum lascia spazi tra una riga e l'altra e quindi la congiunzione "_" trova una riga vuota e va in errore.

Autoformattando lo script toglie gli spazi vuoti.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13
Indietro
Alto