X Mike58,Joe91 o Disaronno

[rodrigo]

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.

 

[Mike58]

eccolo, buona verifica

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

 

[rodrigo]

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.

 

[Mike58]

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.

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

 

[rodrigo]

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

 

[Mike58]

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

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

 

[rodrigo]

Grazie ancora Mike va tutto benissimo così.

 

[Alien.]

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

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

 

[Mike58]

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.