Imposta Giocata e resoconto

[antonio65]

Salve, cortesemente qualcuno può scrivermi correttamente imposta giocata e scrivi resoconto?
E' un sommativo per 10&lotto....grazie Antonio!!!


Sub Main
arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(13) & Chr(13) & "1 - 10 e lotto Serale" & Chr(13) & "2 - 10 e lotto 5Min",,1))
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim T
ImpostaArchivio10ELotto(arch)
'r = InputBox("Quale Ruota",,10)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,2))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
If arch = 1 Then Scrivi" ***** 10 e lotto Serale ***** ",1
If arch = 2 Then Scrivi" ***** 10 e lotto 5Min ***** ",1
Scrivi "Verifica esito dei Numeri..." & StringaNumeri(MEN),1
Scrivi
Ini = EstrazioneFinDL - 21
fin = EstrazioneFinDL
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Pos")
Call InitTabella(T,6)
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
'If IndiceMensileDL(es) = Ind Then
For p = 1 To 5
Num(p) = EstrattoDL(es,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstrattiDL(es)
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + clp
est = EstrattoDL(es,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreqDL(es1,es2,Nu,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
Next
' scrivi testo ............................
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(16)
V(1) = pos & "°" & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardoDL(Ini,fin,MEN,1)
'Call VerificaEsitoDL(MEN,es1+01,1,10,,esito,colpi,estratti,id)
Call VerificaEsitoDL(MEN,es1,1,nSorte,esito,colpi,Estratti,IdEstr)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = B
Call AddRigaTabella(V)
Call ImpostaGiocataDL(01,MEN,1,clp,nSorte)
Call GiocaDL(es)
Next
casi = 0
Call CreaTabella()
Call ScriviResocontoDL
End Sub

 

[Cinzia27]

Ciao, nello script da te postato vi sono errori diversi ad esempio parole divise ME N(5).
Li ho corretti, ma mi dà estrazione non valida e alla fine un output.

Prova a vedere.

Cinzia

Sub Main
arch = CInt(InputBox("QUALE ARCHIVIO" & Chr(13) & Chr(13) & "1 - 10 e lotto Serale" & Chr(13) & "2 - 10 e lotto 5Min",,1))
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim T
ImpostaArchivio10ELotto(arch)
'r = InputBox("Quale Ruota",,10)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,2))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
If arch = 1 Then Scrivi" ***** 10 e lotto Serale ***** ",1
If arch = 2 Then Scrivi" ***** 10 e lotto 5Min ***** ",1
Scrivi "Verifica esito dei Numeri..." & StringaNumeri(MEN),1
Scrivi
Ini = EstrazioneFinDL - 21
fin = EstrazioneFinDL
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifi ca","Colpo","Ritardo x 1","Pos")
Call InitTabella(T,6)
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
'If IndiceMensileDL(es) = Ind Then
For p = 1 To 5
Num(p) = EstrattoDL(es,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstrattiDL(es)
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + clp
est = EstrattoDL(es,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreqDL(es1,es2,Nu,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
Next
' scrivi testo ............................
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(16)
V(1) = pos & "°" & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardoDL(Ini,fin,MEN,1)
'Call VerificaEsitoDL(MEN,es1+01,1,10,,esito,colpi,estra tti,id)
Call VerificaEsitoDL(MEN,es1,1,nSorte,esito,colpi,Estratti,IdEstr)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = B
Call AddRigaTabella(V)
Call ImpostaGiocataDL(01,MEN,1,clp,nSorte)
Call GiocaDL(es)
Next
casi = 0
Call CreaTabella()
Call ScriviResocontoDL
End Sub

 

[antonio65]

Salve Cinzia, grazie per l'intervento...cosi va bene...lei è esperta di script?

 

[Cinzia27]

Insomma...

 

[antonio65]

Più di me sicuro...ho un problema con uno script sommativo....costruito dal grande Mike...che ho adattato io per il 10&lotto sia serale che 5 minuti....più che un problema una cosa strana...facendo le prove quando sorte il numero rimane in tabella...quando non esce sparisce non me lo da nemmeno come negativo mah....Siccome non voglio disturbare Mike....se sa qualcosa....

 

[Cinzia27]

10 e lotto su Spaziometria non ho mai provato, non saprei.

 

[antonio65]

Vabbè....è strano comunque...sul lotto non me lo fa...i casi negativi rimangono...così mi agevola di più a fare delle previsioni...
Viceversa non riesco....perchè la tabella ad ogni estrazione si aggiorna bù....ti allego lo script magari puoi provare....

Sub Main()
ImpostaArchivio10ELotto(2)
Dim nam(1),T,V,sommato(1)
Dim nu(1),NuFr(90,5),NuAdd(1),aN(10),SFF(3),Nn(1)
Ini = EstrazioniArchivioDL - 25
fin = EstrazioniArchivioDL
pos = CInt(InputBox("Quale posizione voglio sommare",,1))
'somma = InputBox("Quale sommativo voglio fare la somma",,14)
clp = InputBox("Quanti Colpi di Gioco",,1)
'smm = CInt(InputBox("Quante righe ",,1))
T = Array(T,"Info Es","Numeri Estrazione","Pos.Estratto","Sommativo","Freq. su casi","nu1","Esito","Verifica","Colpi")
Call InitTabella(T,3)
For es = Ini To fin
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + clp
est = EstrattoDL(es,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreqDL(es1,es2,nu,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
Call OrdinaMatrice(NuFr,- 1,2)
'For i = 1 To smm
Nn(1) = Fuori90(nu(1) + NuFr(1,1))
'Next
'sommato(1) = Fuori90(EstrattoDL(es,pos) + somma)
ReDim V(16)
V(1) = GetInfoEstrazioneDL(es)
V(2) = StringaEstrattiDL(es)
V(3) = pos & "°" & "=" & est
V(4) = "+" & Format2(CStr(NuFr(1,1)))
V(5) = Format2(NuFr(1,2)) & "su" & casi & "Casi"
V(6) = Nn(1)
'V(7) = MEN(1)
sr = SerieRitardoDL(Ini,fin,Nn,1)
Call VerificaEsitoDL(Nn,es+1,1,clp,Esito,colpi,estratti)
V(7) = Esito
V(8) = estratti
V(9) = colpi & "°"
'V(10) = MEN(2)
'V(11) = MEN(3)
'V(12) = MEN(4)
'V(13) = MEN(5)

'V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),somma & " + " & EstrattoDL(es,pos),pos,StringaNumeri(sommato),estratti,colpi)
Call AddRigaTabella(V)
Next
Call CreaTabella
End Sub

 

[antonio65]

Buonanotte Cinzia!!!

 

[Cinzia27]

Buonanotte !

 

[claudio8]

Mi sono permesso di rivisitare un po lo script in estetica, per le tue richieste non ho fatto alcuna verifica.
Ps: vi consiglio, prima di incollare uno script nei post di fare l'indentatura (autoformattazione) ,quindi copiarlo su notebook ed infine nel post tra i "code", resta più leggibile a chi lo visiona ed a chi lo ha scritto, inoltre non si formano le spaziature di cui scriveva Cinzia.

Sub Main()
    ImpostaArchivio10ELotto(2)
    Dim nam(1),T,V,sommato(1)
    Dim nu(1),NuFr(90,5),NuAdd(1),aN(10),SFF(3),Nn(1)
    Ini = EstrazioniArchivioDL - 25
    fin = EstrazioniArchivioDL
    pos = CInt(InputBox("Quale posizione voglio sommare",,1))
    'somma = InputBox("Quale sommativo voglio fare la somma",,14)
    clp = InputBox("Quanti Colpi di Gioco",,1)
    'smm = CInt(InputBox("Quante righe ",,1))
    T = Array(T,"Info Estr"," Numeri Estrazione ","Pos.Est","Somm","Fre/casi","Num "," Esito ","Colpi","Verifica")' 9 titoli
    Call InitTabella(T,3)

    For es = Ini To fin
        casi = casi + 1
        co = 0
        es1 = es + 1
        es2 = es1 + clp
        est = EstrattoDL(es,pos)
        '------- calcolo sommativo ---------------
        For sm = 1 To 90
            co = co + 1
            nu(1) = Fuori90(est + sm) ' estratto+ sommatico
            NuFr(co,1) = sm
            sf = SerieFreqDL (es1,es2,nu,1) ' frequente in 1 colpo
            If sf > 0 Then
                NuFr(co,2) = NuFr(co,2) + 1
            End If
        Next
        Call OrdinaMatrice(NuFr,- 1,2)
        'For i = 1 To smm
        Nn(1) = Fuori90(nu(1) + NuFr(1,1))
        'Next
        'sommato(1) = Fuori90(EstrattoDL(es,pos) + somma)
        ReDim V(9)' se aumantano i titoli dell'array "T" aumentare questo valore
        V(1) = GetInfoEstrazioneDL(es)
        V(2) = StringaEstrattiDL(es)
        V(3) = pos & "°" & " - " & FormatSpace((est),2,-1)
        V(4) = "+ " & FormatSpace(NuFr(1,1),2,-1)
        V(5) = FormatSpace(NuFr(1,2),2,1) & "/" & casi & " Casi"
        V(6) = Nn(1)
        'V(7) = MEN(1)
        sr = SerieRitardoDL(Ini,fin,Nn,1)
        Call VerificaEsitoDL (Nn,es+1,1,clp,Esito,colpi,estratti)
        V(7) = Esito
        V(8) = colpi & "°"
        V(9) = estratti
        'V(10) = MEN(2)
        'V(11) = MEN(3)
        'V(12) = MEN(4)
        'V(13) = MEN(5)
        'V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL( es),somma & " + " & EstrattoDL(es,pos),pos,StringaNumeri(sommato),estr atti,colpi)
        Call AddRigaTabella(V)
    Next
    SetTableWidth  ("100%")
    SetTableHeight ("100%")
    Call CreaTabellaOrdinabile(,,,0,,False,False)
End Sub

un saluto

 

[antonio65]

Ciao Claudio grazie per l'intervento...va bene anzi benissimo..ti volevo chiedere già che ci sei (sempre se vuoi) di colorare l'output della tabella
Num ....e anzichè avere un solo sommativo se ne puoi aggiungere 5 numeri....togliere pos = CInt(InputBox("Quale posizione voglio sommare",,1)) si può fare?Grazie

 

[Cinzia27]

Ciao, Claudio.
A me lo script si interrompe dandomi errore 13 tipo non corrispondente a questa riga :SetTableHeight ("100%").
Cinzia

 

[antonio65]

Ciao Cinzia, sicuramente si sarà sformattata

 

[claudio8]

Ciao, Claudio.
A me lo script si interrompe dandomi errore 13 tipo non corrispondente a questa riga :SetTableHeight ("100%").
Cinzia

Hai sicuramente una versione che non supporta le ultime funzioni fatte inserire a Luigi.
Installa la nuova che trovi qui sotto, vedrai che la tabella ètutt'altra cosa.
Ciao

 

[Cinzia27]

"Mi sono permesso di rivisitare un po lo script in estetica, per le tue richieste non ho fatto alcuna verifica.
Ps: vi consiglio, prima di incollare uno script nei post di fare l'indentatura (autoformattazione) ,quindi copiarlo su notebook ed infine nel post tra i "code", resta più leggibile a chi lo visiona ed a chi lo ha scritto, inoltre non si formano le spaziature di cui scriveva Cinzia".

"Hai sicuramente una versione che non supporta le ultime funzioni fatte inserire a Luigi.
Installa la nuova che trovi qui sotto, vedrai che la tabella ètutt'altra cosa".

Ciao Claudio, grazie delle dritte .Ho installato la nuova versione. Ora funziona. Ancora tre cose (solo tre):
Come faccio a fare l' autoformattazione o identatura ? Dove trovo notebook e code ?
Grazie
Cinzia

 

[claudio8]

Ho visto che hai ricopiato completamente quanto da me scritto, lo puoi fare automaticamente in fase di risposta cliccando su "Quota" evidenziato nel 2° sreenshot .
Per l'autoformattazione devi usare il comando in questo screenshot qui sotto, fa l'indentatura automatica di tutto lo script..


Sul lato sinistro del tasto di autoformattazione, gli altri 4 comandi che vedi operano sul testo dello script, il primo da dx ti inserisce l'apice facendo diventare il testo della riga o il restante della singola riga, un commento, in gergo si dice "remmare".
Il secondo toglie la remmatura, il terzo inserisce una indentatura (funziona come il Tab della tastiera),il quarto elimina l'indentatrua, tutte queste cose possono essere fatte selezionando la singola riga o diverse contemporaneamente.
Notebook o Blocco Note è un programma di scrittura, presente su windows ( non so come si chiama nella versione del tuo sistema operativo), che dovresti trovarlo tra gli accessori.
CODE è il tasto cancelletto che trovi su questo forum quando attivi l'editor avanzato. qui sotto lo screenshot



Spero di essere stato chiaro.
ciao

 

[Cinzia27]

Grazie, Claudio.
Sei veramente gentile oltre che preciso.
Quote l' avevo visto ma dato che volevo riportare due tuoi post ho preferito fare copia e incolla per non fare pastrocchi.
Per l' autoformattazione ho seguito le tue indicazioni, idem per code.
Blocco Note credo di non averlo, l' ho passato su un file word ( andrebbe bene un file txt ?)
Io provo a darvi una mano, ho messo le posizioni, mi ripete per 5 volte l' input box " colpi ", ma come vi ho detto, ho iniziato da poco con Spaziometria, sono
abituata ad usare un altro programma
Infine, non ho inteso quale testo intende colorare Antonio.

Buonanotte a tutti.
Cinzia

[B]Sub[/B] [B]Main[/B]()
[B]ImpostaArchivio10ELotto[/B](2)
[B]Dim[/B] [B]nam[/B](1),[B]T[/B],[B]V[/B],[B]sommato[/B](1)
[B]Dim[/B] [B]nu[/B](1),[B]NuFr[/B](90,5),[B]NuAdd[/B](1),[B]aN[/B](10),[B]SFF[/B](3),[B]Nn[/B](1)
    Ini [B]=[/B] [B]EstrazioniArchivioDL[/B] [B]-[/B] 25
    fin [B]=[/B] [B]EstrazioniArchivioDL[/B]
    'pos = CInt(InputBox("Quale posizione voglio sommare",,1))
[B]For[/B] pos[B]=[/B]1 [B]To[/B] 5
    'somma = InputBox("Quale sommativo voglio fare la somma",,14)
    clp [B]=[/B] [B]InputBox[/B]("Quanti Colpi di Gioco",,1)
    'smm = CInt(InputBox("Quante righe ",,1))
[B]T[/B] [B]=[/B] [B]Array[/B]([B]T[/B],"Info Estr"," Numeri Estrazione ","Pos.Est","Somm","Fre/casi","Num "," Esito ","Colpi","Verifica")' 9 titoli
[B]Call[/B] [B]InitTabella[/B]([B]T[/B],3)

[B]For[/B] es [B]=[/B] Ini [B]To[/B] fin
        casi [B]=[/B] casi [B]+[/B] 1
        co [B]=[/B] 0
        es1 [B]=[/B] es [B]+[/B] 1
        es2 [B]=[/B] es1 [B]+[/B] clp
        est [B]=[/B] [B]EstrattoDL[/B](es,pos)
        '------- calcolo sommativo ---------------
[B]For[/B] sm [B]=[/B] 1 [B]To[/B] 90
            co [B]=[/B] co [B]+[/B] 1
[B]nu[/B](1) [B]=[/B] [B]Fuori90[/B](est [B]+[/B] sm) ' estratto+ sommatico
[B]NuFr[/B](co,1) [B]=[/B] sm
            sf [B]=[/B] [B]SerieFreqDL[/B] (es1,es2,[B]nu[/B],1) ' frequente in 1 colpo
[B]If[/B] sf [B]>[/B] 0 [B]Then[/B]
[B]NuFr[/B](co,2) [B]=[/B] [B]NuFr[/B](co,2) [B]+[/B] 1
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Call[/B] [B]OrdinaMatrice[/B]([B]NuFr[/B],[B]-[/B] 1,2)
        'For i = 1 To smm
[B]Nn[/B](1) [B]=[/B] [B]Fuori90[/B]([B]nu[/B](1) [B]+[/B] [B]NuFr[/B](1,1))
        'Next
        'sommato(1) = Fuori90(EstrattoDL(es,pos) + somma)
[B]ReDim[/B] [B]V[/B](9)' se aumantano i titoli dell'array "T" aumentare questo valore
[B]V[/B](1) [B]=[/B] [B]GetInfoEstrazioneDL[/B](es)
[B]V[/B](2) [B]=[/B] [B]StringaEstrattiDL[/B](es)
[B]V[/B](3) [B]=[/B] pos [B]&[/B] "°" [B]&[/B] " - " [B]&[/B] [B]FormatSpace[/B]((est),2,[B]-[/B]1)
[B]V[/B](4) [B]=[/B] "+ " [B]&[/B] [B]FormatSpace[/B]([B]NuFr[/B](1,1),2,[B]-[/B]1)
[B]V[/B](5) [B]=[/B] [B]FormatSpace[/B]([B]NuFr[/B](1,2),2,1) [B]&[/B] "/" [B]&[/B] casi [B]&[/B] " Casi"
[B]V[/B](6) [B]=[/B] [B]Nn[/B](1)
        'V(7) = MEN(1)
        sr [B]=[/B] [B]SerieRitardoDL[/B](Ini,fin,[B]Nn[/B],1)
[B]Call[/B] [B]VerificaEsitoDL[/B] ([B]Nn[/B],es[B]+[/B]1,1,clp,Esito,colpi,estratti)
[B]V[/B](7) [B]=[/B] Esito
[B]V[/B](8) [B]=[/B] colpi [B]&[/B] "°"
[B]V[/B](9) [B]=[/B] estratti
        'V(10) = MEN(2)
        'V(11) = MEN(3)
        'V(12) = MEN(4)
        'V(13) = MEN(5)
        'V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL( es),somma & " + " & EstrattoDL(es,pos),pos,StringaNumeri(sommato),estr atti,colpi)
[B]Call[/B] [B]AddRigaTabella[/B]([B]V[/B])
[B]Next[/B]
[B]SetTableWidth[/B]  ("100%")
[B]SetTableHeight[/B] ("100%")
[B]Call[/B] [B]CreaTabellaOrdinabile[/B](,,,0,,[B]False[/B],[B]False[/B])
[B]Next[/B]
[B]End[/B] [B]Sub[/B]

 

[claudio8]

Grazie, Claudio.
Sei veramente gentile oltre che preciso. Grazie, ma non esagerare, di solito mi dicono che sono un "rompi"
Quote l' avevo visto ma dato che volevo riportare due tuoi post ho preferito fare copia e incolla per non fare pastrocchi.
Per l' autoformattazione ho seguito le tue indicazioni, idem per code. OK
Blocco Note credo di non averlo, l' ho passato su un file word ( andrebbe bene un file txt ?) No, perchè il word, a differenza del Blocco notr(notepad ch sicuramente puoi trovare su internet) ha delle impostazioni di larghezza foglio e di conseguenza se il testo va oltre detta impostazione lo porta automaticamente a capo, cosa che Notepad non fa, avendo una larghezza pagina molto, molto + grande.
Io provo a darvi una mano, ho messo le posizioni, mi ripete per 5 volte l' input box " colpi ", ma come vi ho detto, ho iniziato da poco con Spaziometria, sono abituata ad usare un altro programma ( qui non metto lingua se non x darvi una mano, per quello che posso ad usare il vbscript, come già scritto in altre occasioni, preferisco insegnare a pescare, sempre che si voglia seguire un metodo, piuttosto che passare il pescato per poi ritrovarsi a non riuscire ad usare la canna da pesca)
Infine, non ho inteso quale testo intende colorare Antonio. (qui ti dovrà rispondere Antonio)

Buonanotte a tutti.
Cinzia

Un saluto

 

[Cinzia27]

Grazie, Claudio.
Spero che così vada bene.
Cinzia

Sub Main()
ImpostaArchivio10ELotto(2)
Dim nam(1),T,V,sommato(1)
Dim nu(1),NuFr(90,5),NuAdd(1),aN(10),SFF(3),Nn(1)
    Ini = EstrazioniArchivioDL - 25
    fin = EstrazioniArchivioDL
    'pos = CInt(InputBox("Quale posizione voglio sommare",,1))
clp = InputBox("Quanti Colpi di Gioco",,1)
For pos=1 To 5
    'somma = InputBox("Quale sommativo voglio fare la somma",,14)

    'smm = CInt(InputBox("Quante righe ",,1))
T = Array(T,"Info Estr"," Numeri Estrazione ","Pos.Est","Somm","Fre/casi","Num "," Esito ","Colpi","Verifica")' 9 titoli
Call InitTabella(T,3)

For es = Ini To fin
        casi = casi + 1
        co = 0
        es1 = es + 1
        es2 = es1 + clp
        est = EstrattoDL(es,pos)
        '------- calcolo sommativo ---------------
For sm = 1 To 90
            co = co + 1
nu(1) = Fuori90(est + sm) ' estratto+ sommatico
NuFr(co,1) = sm
            sf = SerieFreqDL (es1,es2,nu,1) ' frequente in 1 colpo
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
Call OrdinaMatrice(NuFr,- 1,2)
        'For i = 1 To smm
Nn(1) = Fuori90(nu(1) + NuFr(1,1))
        'Next
        'sommato(1) = Fuori90(EstrattoDL(es,pos) + somma)
ReDim V(9)' se aumantano i titoli dell'array "T" aumentare questo valore
V(1) = GetInfoEstrazioneDL(es)
V(2) = StringaEstrattiDL(es)
V(3) = pos & "°" & " - " & FormatSpace((est),2,-1)
V(4) = "+ " & FormatSpace(NuFr(1,1),2,-1)
V(5) = FormatSpace(NuFr(1,2),2,1) & "/" & casi & " Casi"
V(6) = Nn(1)
        'V(7) = MEN(1)
        sr = SerieRitardoDL(Ini,fin,Nn,1)
Call VerificaEsitoDL (Nn,es+1,1,clp,Esito,colpi,estratti)
V(7) = Esito
V(8) = colpi & "°"
V(9) = estratti
        'V(10) = MEN(2)
        'V(11) = MEN(3)
        'V(12) = MEN(4)
        'V(13) = MEN(5)
        'V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL( es),somma & " + " & EstrattoDL(es,pos),pos,StringaNumeri(sommato),estr atti,colpi)
Call AddRigaTabella(V)
Next
SetTableWidth  ("100%")
SetTableHeight ("100%")
Call CreaTabellaOrdinabile(,,,0,,False,False)
Next
End Sub

 

[claudio8]

Cinzia, stiamo approfittando dell'ospitalità di Antonio, per cui sposto la nostra discussione in un nuovo post.