aiutino x listato

fata65 · 21 Settembre 2015

faccio piccola richiesta avrei bisogno di calcolare ad ogni estrazione ruota x ruota sommando il 1°est+2°est --2°est+3°est 3° est+4°est 4°est+5°est grazie

i legend · 21 Settembre 2015

Codice:

Sub getTab  (aTab, idestr )
Dim i,R1, P1, P2 
Redim atab  (1)
Atab  (1)=idestr
I=1

For ruota=1 To 12
      If ruota  < > 11 Then
              For p1= 1 To  4
                        P2=p1+1
                         I= I+1
                         Redim preserv atab ( I ) 
                          Atab (i)=fuori90 (estratto  (idestr,           ruota, p1)+estratto  (idestr,ruota, p2))
Next
End if
Next
End  sub 
Sub GetTestoTab  (a Tab )
Dim i,R1,p1, p2 
ATab (1)="Data "
I=1
For  R1 = 1 To  12 
If  R1  < > 11  Then 
For p1 = 1 To 4 
P2 =p1 + 1 
I = I + 1 
Redim preserv  atab ( I ) 
Atab ( I ) = left  (siglaruota  (R1 ),1)&p1 &"+"&left  (siglaruota  (R1 ),1)&p2 
Next 
End if 
Next 
Call inittabella  (atab )
End sub 
Sub Main 
Dim idestr 
Redim aTesto  (1)
Call GetTestoTab  (aTesto )
For idestr = 1 To estrazionefin 
Redim atab ( 1 ) 
Call getTab  (atab, idestr ) 
Call  addrigatabella (atab )
Next 
Call  creatabella ()
End sub

Ciao provate se così va

fata65 · 21 Settembre 2015

ciao legend mi da errore

Mike58 · 21 Settembre 2015

Ecco il codice dell'amico I Legend in tabella ordinato in 2 versioni con una mia aggiunta di verifica ambo a Tutte.

Ordinato per estrazioni

Codice:

Sub Main

Dim ru(1),T,V

ReDim atab(1)

atab(1) = idestr

I = 1

For idestr = 9050 To EstrazioneFin

T = Array(T,"Ruota","ID Estr","Numeri","Ambo a Tutte","Colpo")

Call InitTabella(T,,,2,2)

For ruota = 1 To 12

If ruota = 11 Then ruota = 12

ru(1) = 11'ruota

For p1 = 1 To 4

P2 = p1 + 1

I = i + 1

ReDim Preserve atab(i)

atab(i) = Fuori90(Estratto(idestr,ruota,p1) + Estratto(idestr,ruota,p2))

Next

Call VerificaEsito(atab,ru,idestr + 1,2,10,,,clp,estratti,id)

V = Array(V,SiglaRuota(ruota),idestr,StringaNumeri(atab,,1),estratti,clp)

Call AddRigaTabella(V,,,2)

'Scrivi idestr & vbTab & StringaNumeri(atab,,1) & vbTab & SiglaRuota(ruota) & vbTab & estratti & vbTab & clp

I = 0

'End If

Next

Scrivi

CreaTabella

Next

End Sub

ordinato per Ruote.

Codice:

Sub Main

Dim ru(1),T,V

ReDim atab(1)

atab(1) = idestr

I = 1

For ruota = 1 To 12

If ruota = 11 Then ruota = 12

T = Array(T,"Ruota","ID Estr","Numeri","Ambo a Tutte","Colpo")

Call InitTabella(T,,,2,2)

For idestr = 9050 To EstrazioneFin

ru(1) = 11'ruota

For p1 = 1 To 4

P2 = p1 + 1

I = i + 1

ReDim Preserve atab(i)

atab(i) = Fuori90(Estratto(idestr,ruota,p1) + Estratto(idestr,ruota,p2))

Next

Call VerificaEsito(atab,ru,idestr + 1,2,10,,,clp,estratti,id)

V = Array(V,SiglaRuota(ruota),idestr,StringaNumeri(atab,,1),estratti,clp)

Call AddRigaTabella(V,,,2)

'Scrivi idestr & vbTab & StringaNumeri(atab,,1) & vbTab & SiglaRuota(ruota) & vbTab & estratti & vbTab & clp

I = 0

'End If

Next

Scrivi

CreaTabella

Next

End Sub

i legend · 21 Settembre 2015

Ciao Mike grazie.
Avevo costruito una tabella senza fare le statistiche.
Scrivere dal cellulare è difficile
Ciao e grazie.
Fata prova anche quello modificato e dimmi se va bene.
Ciao

Il codice sopra bisogna formattarlo , non riesco. Ciao

Mike58 · 21 Settembre 2015

Riposto lo script di I legend, riformattato.

Codice:

Sub getTab (aTab, idestr )

Dim i,R1, P1, P2

ReDim aTab (1)

aTab (1)=idestr

i=1

For ruota=1 To 12

If ruota <> 11 Then

For P1= 1 To 4

P2=P1+1

i= i+1

ReDim Preserve aTab ( i )

aTab (i)=Fuori90 (Estratto (idestr, ruota, P1)+Estratto (idestr,ruota, P2))

Next

End If

Next

End Sub

Sub GetTestoTab (aTab )

Dim i,R1,p1, p2

aTab (1)="Data "

i=1

For R1 = 1 To 12

If R1 <> 11 Then

For p1 = 1 To 4

p2 =p1 + 1

i = i + 1

ReDim Preserve aTab ( i )

aTab ( i ) = Left (SiglaRuota (R1 ),1)&p1 &"+"&Left (SiglaRuota (R1 ),1)&p2

Next

End If

Next

Call InitTabella (aTab )

End Sub

Sub Main

Dim idestr

ReDim aTesto (1)

Call GetTestoTab (aTesto )

For idestr = EstrazioneFin-10 To EstrazioneFin

ReDim atab ( 1 )

Call getTab (atab, idestr )

Call AddRigaTabella (atab )

Next

Call CreaTabella ()

End Sub

Alien. · 21 Settembre 2015

Ciao,ottimo e veloce....ma come si fa ad indovinare la ruota?ehehehehhe....poi l'ID estrazione mi mette fuori uso si poteebbe inserire la data?
grazie.

i legend · 21 Settembre 2015

Ciao alien lo script fa solo la somma degli estratti consecutivi. Fata non ha detto come utilizzare i dati ma ci si può lavorare su?
Per Mike .grazie sei gentilissimo come sempre.
Ciao notte a tutti

janez57 · 22 Settembre 2015

Buon giorno a tutti/e.

Per il sig. i legend ottima la scheda. Secondo me ora per migliorarlo una volta trovato i 4 numeri della somme bisogna
fare la piramide ed il numero che esce con il suo vertibile va messo in gioco sulla ruota di calcolo.come ambate.
Janez.

Mike58 · 22 Settembre 2015

Ciao a tutti, aspettando l'utilizzo di fata65, accolgo,la richiesta di janez57, e ricavo la piramide ed il suo vertibile e ne verifichiamo gli esiti.

Tutto in forma sperimentale.

Codice:

Sub Main

Dim ru(1),T,V,Np(2),rt(1)

ReDim atab(1)

atab(1) = idestr

I = 1

For ruota = 1 To 12

If ruota = 11 Then ruota = 12

T = Array(T,"Ruota","ID Estr","Numeri","Ambo a Tutte","Colpo","Piramide","Num Piramide","Vertibile","Esito","ClpP")

Call InitTabella(T,,,2,2)

For idestr = 9048 To EstrazioneFin

ru(1) = 11'ruota

rt(1) = ruota

For p1 = 1 To 4

P2 = p1 + 1

I = i + 1

ReDim Preserve atab(i)

atab(i) = Fuori90(Estratto(idestr,ruota,p1) + Estratto(idestr,ruota,p2))

aa = StringaNumeri(atab,"",0)

bb = StringaNumeri(atab,,1)

a = Fuori90(Piramide(aa,6,2))

Np(1) = a

Np(2) = Vert(a)

Next

Call VerificaEsito(atab,ru,idestr + 1,2,10,,,clp,estratti,id)

Call VerificaEsito(Np,rt,idestr + 1,1,10,,,clpP,estrattiP,idP)

V = Array(V,SiglaRuota(ruota),idestr,bb,estratti,clp,aa,Np(1),Np(2),estrattiP,clpP)

Call AddRigaTabella(V,,,2)

'Scrivi idestr & vbTab & StringaNumeri(atab,,1) & vbTab & SiglaRuota(ruota) & vbTab & estratti & vbTab & clp

I = 0

'End If

ReDim posta(2)

ReDim poste(1)

posta(2) = 1

poste(1) = 1

ImpostaGiocata 1,atab,ru,posta,10,2

ImpostaGiocata 2,Np,rt,poste,10,1

Gioca idestr,,,,,False

Next

Scrivi

Scrivi "Spesa......... " & GetSpesa(False)

Scrivi "Vincita....... " & GetVincita(False)

Scrivi "Guadagno...... " & GetGuadagno(False)

CreaTabella

ResettaGiocate(True)

Next

End Sub

P.s. x janez ho visto la tua richiesta in forma privata penso sia possibile dammi un po' di tempo

janez57 · 22 Settembre 2015

Buon Pomeriggio a tutti/e

Mille grazie Mike58 per l'aggiunta fatta in questo script.
La ringrazio anticipamente per quello che potrà fare per l'altra richiesta.

Janez

fata65 · 22 Settembre 2015

bravi ragazzi ottimo se avete altre idee ben venga .

la tabella mi serviva x controllare i numeri doppi esemp.22 esce a roma tor. poi escono nelle medesime ruote

janez57 · 23 Settembre 2015

Buon giorno a tutti/e
Se ho capito bene fata65 a lei andrebbe meglio una tabella per indice mensile
tipo indice 9 estrazione del 19-9-15 n°9058
---1+2--2+3--3+4--4+5---piramide-a----v
ba--78----05---43-----55----------------47--74
ca--67----30---05-----68----------------32--23
fi----39----87---64-----28----------------12--21
ge--42----90---72-----28-----------------3---30
mi--62----09---07-----44---------------11---19
na--24---28---26------21---------------59---55
pa--61---87---50------17---------------34---43
ro---75---62---49------73---------------07---70
to---78---50---65------16---------------82---28
ve---06---01---02-----86---------------51---15
nz---49---84---30-----69---------------36---63

In questo modo viene meglio la lettura dei numeri uguali in ruote consecutive
da mettere in gioco .
Janez

i legend · 23 Settembre 2015

Ciao a tutti .Grazie mike per il la oro che fai

X janez ciao sono semplicemente legend .ciao a tutti.

fata65 · 23 Settembre 2015

si janez cosi va bene la tabella In questo modo viene meglio la lettura dei numeri uguali in ruote consecutive si può modificare la tabella con quella che fa la piramide grazie ragazzi siete bravissimi

janez57 · 29 Settembre 2015

Buona sera a tutti/e

Come da metodo indicato da Fata65 al quarto colpo ambata 28 firenze e 5 a cagliari.

Janez

fata65 · 30 Settembre 2015

janez cè anche il 44 al 1° colpo su genova estr.9060 e possibile evviddenziare i numeri doppi e la loro uscita

FI	9059	47.44.63.78
GE	9059	65.67.63.44

fata65 · 1 Ottobre 2015

buon pomeriggio a tutti mi chiedevo se era possibile evviddenziare i numeri doppi e la loro uscita

aiutino x listato

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<