Analesi quadro estrazionale

i legend · 7 Giugno 2015

ciao ecco uno script da testare se fa correttamente l'analesi del quadro estrazionale, non so se puo essere utile ciao

Codice:

 Option Explicit Sub Main() 'Salvo errori script analisi quadro estrazionale ' verificare ,se sono presenti bugs, grazie 	Dim idEstr,R,P,iSomP,iSomD,iSom,E,aTitolo,idCol,sTrE,Pir,Uni 	Dim V,V1,V2,V3 	Dim aEstr(5),aPaDi(5),aFig(5),aCad(5) 	V = "" 	V1 = "" 	V2 = "" 	V3 = "" 	idEstr = CInt(InputBox("Ultima Estrazione Utile :" & GetInfoEstrazione(EstrazioneFin),"Inserisci Estrazione da analizzare",EstrazioneFin)) 	If idEstr < 0 Or idEstr > EstrazioneFin Then Exit Sub 	 	aTitolo = Array("","Ruota","I","II","III","IV","V","   ","(P/d)I","(P/d)II","(P/d)III","(P/d)IV","(P/d)V","   ","F( 1 )","F( 2 )","F( 3 )","F( 4 )","F( 5 )","   ","C( 1 )","C( 2 )","C( 3 )","C( 4 )","C( 5 )","   ","SomEst","SomP  ","SomD  ","F90(Pir)") 	Call InitTabella(aTitolo,RGB(240,240,254),,3) 	For R = 1 To 12 		If R  11 Then 			 			iSom = 0 			iSomP = 0 			iSomD = 0 			sTrE = "" 			For P = 1 To 5 				E = Estratto(idEstr,R,P) 				aEstr(P) = E 				aFig(P) = Figura(E) 				aCad(P) = Cadenza(E) 				If pari(E) Then 					aPaDi(P) = "P" 					iSomP = iSomP + E 				Else 					aPaDi(P) = "D" 					iSomD = iSomD + E 				End If 				sTrE = sTrE & E 				Pir = Fuori90(Piramide(sTrE,,2)) 				iSom = iSom + E 			Next 			ReDim aTab(29) 			Call AlimentaArrayTabella(aTab,NomeRuota(R),aEstr(1),aEstr(2),aEstr(3),aEstr(4),aEstr(5),V,aPaDi(1),aPaDi(2),aPaDi(3),aPaDi(4),aPaDi(5),V1,aFig(1),aFig(2),aFig(3),aFig(4),aFig(5),V2,aCad(1),aCad(2),aCad(3),aCad(4),aCad(5),V3,iSom,iSomP,iSomD,Pir) 			Call AddRigaTabella(aTab,,,4) 			 			For idCol = 1 To 25 Step 6 				Call SetColoreCella(CInt(idCol),RGB(240,240,254)) 			Next 			For idCol = 8 To 12 				Call SetColoreCella(CInt(idCol),RGB(230,255,248),RGB(0,0,255)) 			Next 			For idCol = 14 To 18 				Call SetColoreCella(CInt(idCol),RGB(255,240,255),RGB(0,0,255)) 			Next 			For idCol = 20 To 24 				Call SetColoreCella(CInt(idCol),RGB(254,249,211),RGB(0,0,255)) 			Next 		End If 	Next 	Scrivi "Data Estrazione In Esame :       " & GetInfoEstrazione(idEstr) & "      ",1,1,vbWhite,,5 	Scrivi  	Call CreaTabellaOrdinabile End Sub Sub AlimentaArrayTabella(aTab,idR,E1,E2,E3,E4,E5,v,PDE1,PDE2,PDE3,PDE4,PDE5,v1,FE1,FE2,FE3,FE4,FE5,v2,CE1,CE2,CE3,CE4,CE5,v3,SomE,SomP,SomD,Pir) 	aTab(1) = idR 	aTab(2) = E1 	aTab(3) = E2 	aTab(4) = E3 	aTab(5) = E4 	aTab(6) = E5 	aTab(7) = "" 	aTab(8) = PDE1 	aTab(9) = PDE2 	aTab(10) = PDE3 	aTab(11) = PDE4 	aTab(12) = PDE5 	aTab(13) = "" 	aTab(14) = FE1 	aTab(15) = FE2 	aTab(16) = FE3 	aTab(17) = FE4 	aTab(18) = FE5 	aTab(19) = "" 	aTab(20) = CE1 	aTab(21) = CE2 	aTab(22) = CE3 	aTab(23) = CE4 	aTab(24) = CE5 	aTab(25) = "" 	aTab(26) = SomE 	aTab(27) = SomP 	aTab(28) = SomD 	aTab(29) = Pir End Sub

i legend · 8 Giugno 2015

Codice:

Option Explicit
Sub Main()
'Salvo errori script analisi quadro estrazionale
' verificare ,se sono presenti bugs, grazie
    Dim idEstr,R,P,iSomP,iSomD,iSom,E,aTitolo,idCol,sTrE,Pir,Uni
    Dim V,V1,V2,V3
    Dim aEstr(5),aPaDi(5),aFig(5),aCad(5)
    V = "" : V1 = "" : V2 = "" : V3 = ""
    idEstr = CInt(InputBox("Ultima Estrazione Utile :" & GetInfoEstrazione(EstrazioneFin),"Inserisci Estrazione da analizzare",EstrazioneFin))
    If idEstr < 0 Or idEstr > EstrazioneFin Then Exit Sub
    
    aTitolo = Array("","Ruota","I","II","III","IV","V","   ","(P/d)I","(P/d)II","(P/d)III","(P/d)IV","(P/d)V","   ","F( 1 )","F( 2 )","F( 3 )","F( 4 )","F( 5 )","   ","C( 1 )","C( 2 )","C( 3 )","C( 4 )","C( 5 )","   ","SomEst","SomP  ","SomD  ","F90(Pir)")
    Call InitTabella(aTitolo,RGB(240,240,254),,3)
    For R = 1 To 12
        If R <> 11 Then
            
            iSom = 0
            iSomP = 0
            iSomD = 0
            sTrE = ""
            For P = 1 To 5
                E = Estratto(idEstr,R,P)
                aEstr(P) = E
                aFig(P) = Figura(E)
                aCad(P) = Cadenza(E)
                If pari(E) Then
                    aPaDi(P) = "P"
                    iSomP = iSomP + E
                Else
                    aPaDi(P) = "D"
                    iSomD = iSomD + E
                End If
                sTrE = sTrE & E
                Pir = Fuori90(Piramide(sTrE,,2))
                iSom = iSom + E
            Next
            ReDim aTab(29)
            Call AlimentaArrayTabella(aTab,NomeRuota(R),aEstr(1),aEstr(2),aEstr(3),aEstr(4),aEstr(5),V,aPaDi(1),aPaDi(2),aPaDi(3),aPaDi(4),aPaDi(5),V1,aFig(1),aFig(2),aFig(3),aFig(4),aFig(5),V2,aCad(1),aCad(2),aCad(3),aCad(4),aCad(5),V3,iSom,iSomP,iSomD,Pir)
            Call AddRigaTabella(aTab,,,4)
            
            For idCol = 1 To 25 Step 6
                Call SetColoreCella(CInt(idCol),RGB(240,240,254))
            Next
            For idCol = 8 To 12
                Call SetColoreCella(CInt(idCol),RGB(230,255,248),RGB(0,0,255))
            Next
            For idCol = 14 To 18
                Call SetColoreCella(CInt(idCol),RGB(255,240,255),RGB(0,0,255))
            Next
            For idCol = 20 To 24
                Call SetColoreCella(CInt(idCol),RGB(254,249,211),RGB(0,0,255))
            Next
        End If
    Next
    Scrivi "Data Estrazione In Esame :       " & GetInfoEstrazione(idEstr) & "      ",1,1,vbWhite,,5
    Scrivi

    Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayTabella(aTab,idR,E1,E2,E3,E4,E5,v,PDE1,PDE2,PDE3,PDE4,PDE5,v1,FE1,FE2,FE3,FE4,FE5,v2,CE1,CE2,CE3,CE4,CE5,v3,SomE,SomP,SomD,Pir)
    aTab(1) = idR
    aTab(2) = E1
    aTab(3) = E2
    aTab(4) = E3
    aTab(5) = E4
    aTab(6) = E5
    aTab(7) = ""
    aTab(8) = PDE1
    aTab(9) = PDE2
    aTab(10) = PDE3
    aTab(11) = PDE4
    aTab(12) = PDE5
    aTab(13) = ""
    aTab(14) = FE1
    aTab(15) = FE2
    aTab(16) = FE3
    aTab(17) = FE4
    aTab(18) = FE5
    aTab(19) = ""
    aTab(20) = CE1
    aTab(21) = CE2
    aTab(22) = CE3
    aTab(23) = CE4
    aTab(24) = CE5
    aTab(25) = ""
    aTab(26) = SomE
    aTab(27) = SomP
    aTab(28) = SomD
    aTab(29) = Pir
End Sub

ppaaoolloo · 8 Giugno 2015

ciao i legend
è un buon lavoro e mi sembra tutto ok

si potrebbe avere aggiungerne altri
per avere il quadro estrazionale delle
ultime 5 estrazioni?

ti ringrazio anticipatamente

ciao

i legend · 8 Giugno 2015

Ciao Paolo, grazie, Non ho capito cosa devo aggiungere. Vuoi che inserisca altri elementi?Tipo Decine o controfigure, o altro? Se ti spieghi e ne sono capace volentieri

Purtroppo riesco a collegarmi solo di sera, a dopo

lotto_tom75 · 8 Giugno 2015

i legend;n1891868 ha scritto:

Codice:

Option Explicit
Sub Main()
'Salvo errori script analisi quadro estrazionale
' verificare ,se sono presenti bugs, grazie
Dim idEstr,R,P,iSomP,iSomD,iSom,E,aTitolo,idCol,sTrE,Pir,Uni
Dim V,V1,V2,V3
Dim aEstr(5),aPaDi(5),aFig(5),aCad(5)
V = "" : V1 = "" : V2 = "" : V3 = ""
idEstr = CInt(InputBox("Ultima Estrazione Utile :" & GetInfoEstrazione(EstrazioneFin),"Inserisci Estrazione da analizzare",EstrazioneFin))
If idEstr < 0 Or idEstr > EstrazioneFin Then Exit Sub

aTitolo = Array("","Ruota","I","II","III","IV","V"," ","(P/d)I","(P/d)II","(P/d)III","(P/d)IV","(P/d)V"," ","F( 1 )","F( 2 )","F( 3 )","F( 4 )","F( 5 )"," ","C( 1 )","C( 2 )","C( 3 )","C( 4 )","C( 5 )"," ","SomEst","SomP ","SomD ","F90(Pir)")
Call InitTabella(aTitolo,RGB(240,240,254),,3)
For R = 1 To 12
If R <> 11 Then

iSom = 0
iSomP = 0
iSomD = 0
sTrE = ""
For P = 1 To 5
E = Estratto(idEstr,R,P)
aEstr(P) = E
aFig(P) = Figura(E)
aCad(P) = Cadenza(E)
If pari(E) Then
aPaDi(P) = "P"
iSomP = iSomP + E
Else
aPaDi(P) = "D"
iSomD = iSomD + E
End If
sTrE = sTrE & E
Pir = Fuori90(Piramide(sTrE,,2))
iSom = iSom + E
Next
ReDim aTab(29)
Call AlimentaArrayTabella(aTab,NomeRuota(R),aEstr(1),aEstr(2),aEstr(3),aEstr(4),aEstr(5),V,aPaDi(1),aPaDi(2),aPaDi(3),aPaDi(4),aPaDi(5),V1,aFig(1),aFig(2),aFig(3),aFig(4),aFig(5),V2,aCad(1),aCad(2),aCad(3),aCad(4),aCad(5),V3,iSom,iSomP,iSomD,Pir)
Call AddRigaTabella(aTab,,,4)

For idCol = 1 To 25 Step 6
Call SetColoreCella(CInt(idCol),RGB(240,240,254))
Next
For idCol = 8 To 12
Call SetColoreCella(CInt(idCol),RGB(230,255,248),RGB(0,0,255))
Next
For idCol = 14 To 18
Call SetColoreCella(CInt(idCol),RGB(255,240,255),RGB(0,0,255))
Next
For idCol = 20 To 24
Call SetColoreCella(CInt(idCol),RGB(254,249,211),RGB(0,0,255))
Next
End If
Next
Scrivi "Data Estrazione In Esame : " & GetInfoEstrazione(idEstr) & " ",1,1,vbWhite,,5
Scrivi

Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayTabella(aTab,idR,E1,E2,E3,E4,E5,v,PDE1,PDE2,PDE3,PDE4,PDE5,v1,FE1,FE2,FE3,FE4,FE5,v2,CE1,CE2,CE3,CE4,CE5,v3,SomE,SomP,SomD,Pir)
aTab(1) = idR
aTab(2) = E1
aTab(3) = E2
aTab(4) = E3
aTab(5) = E4
aTab(6) = E5
aTab(7) = ""
aTab(8) = PDE1
aTab(9) = PDE2
aTab(10) = PDE3
aTab(11) = PDE4
aTab(12) = PDE5
aTab(13) = ""
aTab(14) = FE1
aTab(15) = FE2
aTab(16) = FE3
aTab(17) = FE4
aTab(18) = FE5
aTab(19) = ""
aTab(20) = CE1
aTab(21) = CE2
aTab(22) = CE3
aTab(23) = CE4
aTab(24) = CE5
aTab(25) = ""
aTab(26) = SomE
aTab(27) = SomP
aTab(28) = SomD
aTab(29) = Pir
End Sub

Complimentissimi i legend per questa tua ennesima chicca di programma!!!

Mi spiegheresti solo le ultime 3 colonne cosa sono che i miei due neuroni non ci arrivano?

GRAZIE! Ciao grande

Ideuzza dell'ultimo momento... Ti provo a buttare là un'altra ADDON x il tuo fantastico script se ti va e ti vien facile.. aggiungerla... Ovvero rilevare per ogni categoria (pari e dispari , figure ecc...) l'incmax dei ritardi per ogni posizione di ogni ruota analogamente a quanto avviene per i valori numerici...

es.
dal 1871... al 6/6/2015
BA posizione 1 valore PARI RA 3 RS 5 INCMAX 0 tradotto: sulla posizione 1° estratto dal 1871 ad oggi... C'è sempre stato un PARI dopo massimo 5 estrazioni ecc....

E così per le figure ... le somme.. ecc...

Sarebbe una macchina lotto ludica da guerra.. mica da ridere se tu riuscissi a fare queste implementazioni per altro venutemi in mente solo grazie alla tua splendida categorizzazione automatica mediante il tuo script superlativo soprastante!

ppaaoolloo · 8 Giugno 2015

i legend;n1892047 ha scritto:
Ciao Paolo, grazie, Non ho capito cosa devo aggiungere. Vuoi che inserisca altri elementi?Tipo Decine o controfigure, o altro? Se ti spieghi e ne sono capace volentieri Purtroppo riesco a collegarmi solo di sera, a dopo

ciao
se ti era possibile iochiedevo gli stessi dati non solo per l'ultima estrazione
ma anche delle altre 4 estrazioni precedenti

se ti riuscisse sarebbe davvero bello

grazie

ciao

i legend · 8 Giugno 2015

Ciao Paolo , con l'inputBox puoi scegliere di analizzare qualsiasi estrazione;
Purtroppo farle venire tutte insieme credo si possa fare ma è confusionario, cmq ci proverò ma non so se sono in grado, sono il novellino del gruppo, se non sono troppo presentuoso per affermarlo.

Ciao Tom, bellissima idea, La vedo dura, ma mi piacerebbe cimentarmi nell 'impresa, ti tengo aggiornato....
Ora sto lavorando su uno script che filtra per Ritardi ed incrementi attuali storici ,,,, fai un salto in statistica coppie per estratto fammi sapere che ne pensi

Ciao a dopo

i legend · 8 Giugno 2015

Ciao Paolo prova Questo, fammi sapere

Codice:

Option Explicit
Sub Main()
'Salvo errori script analisi quadro estrazionale
' verificare ,se sono presenti bugs, grazie
    Dim idEstr,R,P,iSomP,iSomD,iSom,E,aTitolo,idCol,sTrE,Pir,Uni
    Dim V,V1,V2,V3,qEstr
    Dim aEstr(5),aPaDi(5),aFig(5),aCad(5)
    V = "" : V1 = "" : V2 = "" : V3 = ""
   
    qEstr=CInt(InputBox("Quante estrazioni vuoi visualizzare?","Analisi Estrazioni",5))-1

    
    aTitolo = Array("","DataEstrazione","Ruota","I","II","III","IV","V","   ","(P/d)I","(P/d)II","(P/d)III","(P/d)IV","(P/d)V","   ","F( 1 )","F( 2 )","F( 3 )","F( 4 )","F( 5 )","   ","C( 1 )","C( 2 )","C( 3 )","C( 4 )","C( 5 )","   ","SomEst","SomP  ","SomD  ","F90(Pir)")
    Call InitTabella(aTitolo,RGB(240,240,254),,3)
For idEstr=EstrazioneFin-qEstr To EstrazioneFin
If idEstr < 0 Or idEstr > EstrazioneFin Then Exit Sub

    For R = 1 To 12
        If R <> 11 Then
            
            iSom = 0
            iSomP = 0
            iSomD = 0
            sTrE = ""
            For P = 1 To 5
                E = Estratto(idEstr,R,P)
                aEstr(P) = E
                aFig(P) = Figura(E)
                aCad(P) = Cadenza(E)
                If pari(E) Then
                    aPaDi(P) = "P"
                    iSomP = iSomP + E
                Else
                    aPaDi(P) = "D"
                    iSomD = iSomD + E
                End If
                sTrE = sTrE & E
                Pir = Fuori90(Piramide(sTrE,,2))
                iSom = iSom + E
            Next
            ReDim aTab(30)
            Call AlimentaArrayTabella(aTab,DataEstrazione(idEstr),NomeRuota(R),aEstr(1),aEstr(2),aEstr(3),aEstr(4),aEstr(5),V,aPaDi(1),aPaDi(2),aPaDi(3),aPaDi(4),aPaDi(5),V1,aFig(1),aFig(2),aFig(3),aFig(4),aFig(5),V2,aCad(1),aCad(2),aCad(3),aCad(4),aCad(5),V3,iSom,iSomP,iSomD,Pir)
            Call AddRigaTabella(aTab,,,4)
            
            For idCol = 2 To 26 Step 6
                Call SetColoreCella(CInt(idCol),RGB(240,240,254))
            Next
            For idCol = 9 To 13
                Call SetColoreCella(CInt(idCol),RGB(230,255,248),RGB(0,0,255))
            Next
            For idCol = 15 To 19
                Call SetColoreCella(CInt(idCol),RGB(255,240,255),RGB(0,0,255))
            Next
            For idCol = 21 To 25
                Call SetColoreCella(CInt(idCol),RGB(254,249,211),RGB(0,0,255))
            Next
        End If
    Next
Next
    Scrivi " Estrazioni In Esame :       " & qEstr+1 & "                                   ",1,1,vbWhite,,5
    Scrivi

    Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayTabella(aTab,idEstr,idR,E1,E2,E3,E4,E5,v,PDE1,PDE2,PDE3,PDE4,PDE5,v1,FE1,FE2,FE3,FE4,FE5,v2,CE1,CE2,CE3,CE4,CE5,v3,SomE,SomP,SomD,Pir)
    aTab(1)=idEstr
aTab(2) = idR
    aTab(3) = E1
    aTab(4) = E2
    aTab(5) = E3
    aTab(6) = E4
    aTab(7) = E5
    aTab(8) = ""
    aTab(9) = PDE1
    aTab(10) = PDE2
    aTab(11) = PDE3
    aTab(12) = PDE4
    aTab(13) = PDE5
    aTab(14) = ""
    aTab(15) = FE1
    aTab(16) = FE2
    aTab(17) = FE3
    aTab(18) = FE4
    aTab(19) = FE5
    aTab(20) = ""
    aTab(21) = CE1
    aTab(22) = CE2
    aTab(23) = CE3
    aTab(24) = CE4
    aTab(25) = CE5
    aTab(26) = ""
    aTab(27) = SomE
    aTab(28) = SomP
    aTab(29) = SomD
    aTab(30) = Pir
End Sub

lotto_tom75 · 8 Giugno 2015

i legend;n1892075 ha scritto:
Ciao Paolo , con l'inputBox puoi scegliere di analizzare qualsiasi estrazione;
Purtroppo farle venire tutte insieme credo si possa fare ma è confusionario, cmq ci proverò ma non so se sono in grado, sono il novellino del gruppo, se non sono troppo presentuoso per affermarlo.

Ciao Tom, bellissima idea, La vedo dura, ma mi piacerebbe cimentarmi nell 'impresa, ti tengo aggiornato....
Ora sto lavorando su uno script che filtra per Ritardi ed incrementi attuali storici ,,,, fai un salto in statistica coppie per estratto fammi sapere che ne pensi Ciao a dopo

Ciao legend! Sono entusiasta che ti piaccia l'idea dell'ADDON al quale mi hai fatto pensare per il tuo fantastico script!

Per quanto riguarda la tua sezione "coppie per estratto " non riesco a trovare lo script relativo che mi hai chiesto di provare a valutare... Per quanto riguarda i risultati comunque li trovo ottimi come ti ho già scritto nel relativo tuo thread

Buona serata

ppaaoolloo · 8 Giugno 2015

i legend;n1892090 ha scritto:

Ciao Paolo prova Questo, fammi sapere

Codice:

Option Explicit
Sub Main()
'Salvo errori script analisi quadro estrazionale
' verificare ,se sono presenti bugs, grazie
Dim idEstr,R,P,iSomP,iSomD,iSom,E,aTitolo,idCol,sTrE,Pir,Uni
Dim V,V1,V2,V3,qEstr
Dim aEstr(5),aPaDi(5),aFig(5),aCad(5)
V = "" : V1 = "" : V2 = "" : V3 = ""

qEstr=CInt(InputBox("Quante estrazioni vuoi visualizzare?","Analisi Estrazioni",5))-1


aTitolo = Array("","DataEstrazione","Ruota","I","II","III","IV","V"," ","(P/d)I","(P/d)II","(P/d)III","(P/d)IV","(P/d)V"," ","F( 1 )","F( 2 )","F( 3 )","F( 4 )","F( 5 )"," ","C( 1 )","C( 2 )","C( 3 )","C( 4 )","C( 5 )"," ","SomEst","SomP ","SomD ","F90(Pir)")
Call InitTabella(aTitolo,RGB(240,240,254),,3)
For idEstr=EstrazioneFin-qEstr To EstrazioneFin
If idEstr < 0 Or idEstr > EstrazioneFin Then Exit Sub

For R = 1 To 12
If R <> 11 Then

iSom = 0
iSomP = 0
iSomD = 0
sTrE = ""
For P = 1 To 5
E = Estratto(idEstr,R,P)
aEstr(P) = E
aFig(P) = Figura(E)
aCad(P) = Cadenza(E)
If pari(E) Then
aPaDi(P) = "P"
iSomP = iSomP + E
Else
aPaDi(P) = "D"
iSomD = iSomD + E
End If
sTrE = sTrE & E
Pir = Fuori90(Piramide(sTrE,,2))
iSom = iSom + E
Next
ReDim aTab(30)
Call AlimentaArrayTabella(aTab,DataEstrazione(idEstr),NomeRuota(R),aEstr(1),aEstr(2),aEstr(3),aEstr(4),aEstr(5),V,aPaDi(1),aPaDi(2),aPaDi(3),aPaDi(4),aPaDi(5),V1,aFig(1),aFig(2),aFig(3),aFig(4),aFig(5),V2,aCad(1),aCad(2),aCad(3),aCad(4),aCad(5),V3,iSom,iSomP,iSomD,Pir)
Call AddRigaTabella(aTab,,,4)

For idCol = 2 To 26 Step 6
Call SetColoreCella(CInt(idCol),RGB(240,240,254))
Next
For idCol = 9 To 13
Call SetColoreCella(CInt(idCol),RGB(230,255,248),RGB(0,0,255))
Next
For idCol = 15 To 19
Call SetColoreCella(CInt(idCol),RGB(255,240,255),RGB(0,0,255))
Next
For idCol = 21 To 25
Call SetColoreCella(CInt(idCol),RGB(254,249,211),RGB(0,0,255))
Next
End If
Next
Next
Scrivi " Estrazioni In Esame : " & qEstr+1 & " ",1,1,vbWhite,,5
Scrivi

Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayTabella(aTab,idEstr,idR,E1,E2,E3,E4,E5,v,PDE1,PDE2,PDE3,PDE4,PDE5,v1,FE1,FE2,FE3,FE4,FE5,v2,CE1,CE2,CE3,CE4,CE5,v3,SomE,SomP,SomD,Pir)
aTab(1)=idEstr
aTab(2) = idR
aTab(3) = E1
aTab(4) = E2
aTab(5) = E3
aTab(6) = E4
aTab(7) = E5
aTab(8) = ""
aTab(9) = PDE1
aTab(10) = PDE2
aTab(11) = PDE3
aTab(12) = PDE4
aTab(13) = PDE5
aTab(14) = ""
aTab(15) = FE1
aTab(16) = FE2
aTab(17) = FE3
aTab(18) = FE4
aTab(19) = FE5
aTab(20) = ""
aTab(21) = CE1
aTab(22) = CE2
aTab(23) = CE3
aTab(24) = CE4
aTab(25) = CE5
aTab(26) = ""
aTab(27) = SomE
aTab(28) = SomP
aTab(29) = SomD
aTab(30) = Pir
End Sub

ciao
ho provato ed è come volevo io,
però la barra laterale scorre poco non riesco a visualizzare tutte le estrazioni con spaziometria
ma solo un paio, mentre invece l'ho estratto in excel e va bene

riesci a correggere questa anomalia?

grazie

ciao

i legend · 8 Giugno 2015

Ciao Tom lo script non l'ho ancora pubblicato,come base di ricerca utilizzo i sistemi condizionati, per cui ognuno dovrebbe svilupparne di propri .
Al momento sto implementando nuovi parametri di filtro

ppaaoolloo · 8 Giugno 2015

ciao legend
colgo l'occasione per richiederti se ti è possibile un ultimo mio script,
quello che cerco è uno script che mi trovi quali sono i ritardi di colonna
per un numero che posso scegliere ed inserire io
considerando le ruote globalmente

ad esempio mentre scrivo il numero 71
- ha un ritardo di 25 estrazioni nella 1° colonna
- ha un ritardo di 2 estrazioni nella seconda colonna
- ha un ritardo di 15 estrazioni nella terza colonna
- ha un ritardo di 6 estrazioni nella quarta colonna
- ha un ritardo di 10 estrazioni nella quinta colonna

spero di essere stato abbastanza chiaro

ti ringrazio anticipatamente se potrai aiutarmi

ciao

i legend · 8 Giugno 2015

Ciao paolo credo che Luigi abbia implementato una funzione ad hoc .. Ci provo
Ciao

Cerca

Cerca

Analesi quadro estrazionale

i legend

Premium Member

i legend

Premium Member

ppaaoolloo

Super Member >PLATINUM<

i legend

Premium Member

lotto_tom75

Advanced Premium Member

ppaaoolloo

Super Member >PLATINUM<

i legend

Premium Member

i legend

Premium Member

lotto_tom75

Advanced Premium Member

ppaaoolloo

Super Member >PLATINUM<

i legend

Premium Member

ppaaoolloo

Super Member >PLATINUM<

i legend

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi