Per salvo50, una cortesia

[Matematico]

Ciao salvo50, e un saluto a tutti quelli che mi leggeranno ....questo metodo mi è venuto in mente ieri qualche giorno fà
Vorrei testarlo con uno script , visto che i tempi con carta e penna sarebbero lunghissimi ...

Ecco un esempio molto chiaro:
Prendo tutti gli estratti delle prime 4 ruote , li metto in fila e li sommo ..il numero finale sarà la 1°ambata, la differenza a 90 la 2° ambata e poi si giocheranno i 2 numeri anche x ambo e ambetto . Con questa piramide si posson ofare anche sistemi dai 20 numer iin giù e ho notato terni frequenti...
Sarà necessario un imput box dove inserire i 20 numeri desiderati , le ruote possono essere quelle che si vogliono , non x forza le prime 4 ...

BA-CA-FI-GE 01/10/2019

PIRAMIDE SOMMATORIA A 20 NUMERI

87.04.86.39.22.01.70.63.74.35.53.49.20.55.73.67.18.23.81.64
01 90 35 61 23 71 43 47 19 88 12 69 75 38 50 85 41 14 55
01 35 06 84 04 24 90 66 17 10 81 54 23 88 45 36 55 69
36 41 90 88 28 24 66 83 27 01 45 77 21 43 81 01 34
77 41 88 26 52 90 59 20 28 46 32 08 64 34 82 35
28 39 24 78 52 59 79 48 74 78 40 72 08 26 27
67 63 12 40 21 48 37 32 62 28 22 80 34 53
40 75 52 61 69 85 69 04 90 50 12 24 87
25 37 23 40 64 64 73 04 50 62 36 21
62 60 63 14 38 47 77 54 22 08 57
32 33 77 52 85 34 41 76 30 65
65 20 39 47 29 75 27 16 05
85 59 86 76 14 12 43 21
54 55 72 90 26 55 64
19 37 72 26 81 29
56 19 08 17 20
75 27 25 37
12 52 62
64 24
88 a 90 = 2 ambata 2 e 2-88 x ambo e ambetto

Esito :2 COLPO ambetto 2-89 su FI!!!

 

[salvo50]

Ciao a Tutti.

Ciao Matematico, non ho capito se è un solo metodo, oppure 2,

In uno i 20 numeri li prendi dagli estratti delle prime 4 ruote, li sommi ed il totale col fuori90 è la prima ambata ed il complemento a 90 è la seconda ambata giocare i 2 numeri per ambata,ambo e ambetto.


Nel secondo metodo i 20 numeri li inserisci da esterno e si piramidano col fuori90, finchè non resta un solo numero e poi si procede come per il primo metodo, complemento a 90 e giocare ambate ambo e ambetto

Dimmi se è così oppure spiegamelo un po' meglio

 

[Matematico]

Ciao a Tutti.

Ciao Matematico, non ho capito se è un solo metodo, oppure 2,

In uno i 20 numeri li prendi dagli estratti delle prime 4 ruote, li sommi ed il totale col fuori90 è la prima ambata ed il complemento a 90 è la seconda ambata giocare i 2 numeri per ambata,ambo e ambetto.


Nel secondo metodo i 20 numeri li inserisci da esterno e si piramidano col fuori90, finchè non resta un solo numero e poi si procede come per il primo metodo, complemento a 90 e giocare ambate ambo e ambetto

Dimmi se è così oppure spiegamelo un po' meglio

Ciao salvo50, è solo un metodo quello che hai scritto per primo:
In uno i 20 numeri li prendi dagli estratti delle prime 4 ruote, li sommi ed il totale col fuori90 è la prima ambata ed il complemento a 90 è la seconda ambata giocare i 2 numeri per ambata,ambo e ambetto.

 

[salvo50]

Controlla eventuali errori o dimenticanze

'Si prendono i 20 numeri dagli estratti delle prime 4 ruote,
'si sommano ed il totale col Fuori90 è la prima ambata ed il
'complemento a 90 è la seconda ambata
'giocare i 2 numeri per ambata,ambo e ambetto.
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,R3,R4,Caso,Casi
   Dim A1,B1,C1,D1,Amba1,Amba2,R5,P1
   Dim MAmba1,PAmba1,MAmba2,PAmba2
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim A(5),B(5),C(5),D(5),Ru(1),Posta(2),Poste(2)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9590)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,7))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(25) & " PER MATEMATICO - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      R1 = 1 : R2 = 2 : R3 = 3 : R4 = 4
      A1 = Fuori90(SommaEstratti(Es,R1)) : B1 = Fuori90(SommaEstratti(Es,R2))
      C1 = Fuori90(SommaEstratti(Es,R3)) : D1 = Fuori90(SommaEstratti(Es,R4))
      Amba1 = Fuori90(A1 + B1 + C1 + D1)
      Amba2 = ComplAdX(Amba1)
      MAmba1 = Fuori90(90 +(Amba1 - 1)) : PAmba1 = Fuori90(Amba1 + 1)
      MAmba2 = Fuori90(90 +(Amba2 - 1)) : PAmba2 = Fuori90(Amba2 + 1)
      For R5 = 1 To 12
         If R5 = 11 Then R5 = 12
         If A1 > 0 And B1 > 0 And C1 > 0 And D1 > 0 Then
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
            Scrivi " Somma Estratti = " & Format2(A1),1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
            Scrivi " Somma Estratti = " & Format2(B1),1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R3) & " " & StringaEstratti(Es,R3),1,0
            Scrivi " Somma Estratti = " & Format2(C1),1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R4) & " " & StringaEstratti(Es,R4),1,0
            Scrivi " Somma Estratti = " & Format2(D1),1
            Scrivi
            Scrivi Space(1) & Format2(A1) & " + " & Format2(B1) & " + " & Format2(C1) & " + " & Format2(D1) & " = ",1,0
            Scrivi Format2(Amba1) & " Prima Ambata",1,0,,2
            Scrivi "  Complemento a 90 = " & Format2(Amba2) & " Seconda Ambata",1,,,1
            Scrivi
            Scrivi Space(10) & Format2(Amba1) & " " & Format2(Amba2) & "    Ambate e Ambo"
            Scrivi Space(10) & Format2(Amba1) & " " & Format2(MAmba2) & " 1° Ambetto"
            Scrivi Space(10) & Format2(Amba1) & " " & Format2(PAmba2) & " 2° Ambetto"
            Scrivi Space(10) & Format2(MAmba1) & " " & Format2(Amba2) & " 3° Ambetto"
            Scrivi Space(10) & Format2(PAmba1) & " " & Format2(Amba2) & " 4° Ambetto"
            Ru(1) = R5
            Ambo1(1) = Amba1 : Ambo1(2) = Amba2
            ImpostaGiocata 1,Ambo1,Ru,Posta,Clp
            Ambo2(1) = Amba1 : Ambo2(2) = MAmba2
            ImpostaGiocata 2,Ambo2,Ru,Poste,Clp
            Ambo3(1) = Amba1 : Ambo3(2) = PAmba2
            ImpostaGiocata 3,Ambo3,Ru,Poste,Clp
            Ambo4(1) = MAmba1 : Ambo4(2) = Amba2
            ImpostaGiocata 4,Ambo4,Ru,Poste,Clp
            Ambo5(1) = PAmba1 : Ambo5(2) = Amba2
            ImpostaGiocata 5,Ambo5,Ru,Poste,Clp
            Gioca Es
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[i legend]

Ciao salvo il calcolo da fare è una somma consecutiva degli estratti . 1+2 ,2+3 ecc
Finché non si ottiene un solo valore.
Non se se funzia
Da verificare, sia la logica che il testo
Fatto da cellulare. Attenzione ai cicli do che possono mandare in loop e bisogna chiudere il programma.

' a= array che contiene gli estratti 

Function GetSum(a)
Dim i
  Do while ubound(a)>1
      Redim aSom(0)
          For i =1 ti ubound(a)-1
                  Redim preserv aSom(i)
                   Asom(i)=fuori90(a(i)+a(i+1))
           Next
          Redim a(0)
           For i =1 to ubound(aSom)
                  Redim preserv a(i)
                 A(i)=  Asom(i)
           Next


          
  Loop
GetSum= a(ubound(a))
End function

Ciao a tutti

 

[i legend]

Magari se prima del loop si scrive stringanumeri( a ) si potrebbe vedere come lavora.

 

[i legend]

K=0
For r =1to ubond(ar)

     Redim aestr(0)
          Call getarraynumeriruota ( idestr, ar(r),aEstr)
            For p =1 ti 5
              K=k+1
               A(k)=aestr(p)
                  Next
            Next

 

[joe]

Per riferimento:

03.10.2019
17.23.16.13.90.68.07.82.77.73.44.13.62.16.17.61.31.82.68.47
40.39.29.13.68.75.89.69.60.27.57.75.78.33.78.02.23.60.25
79.68.42.81.53.74.68.39.87.84.42.63.21.21.80.25.83.85
57.20.33.44.37.52.17.36.81.36.15.84.42.11.15.18.78
77.53.77.81.89.69.53.27.27.51.09.36.53.26.33.06
40.40.68.80.68.32.80.54.78.60.45.89.79.59.39
80.18.58.58.10.22.44.42.48.15.44.78.48.08
08.76.26.68.32.66.86.90.63.59.32.36.56
84.12.04.10.08.62.86.63.32.01.68.02
06.16.14.18.70.58.59.05.33.69.70
22.30.32.88.38.27.64.38.12.49
52.62.30.36.65.01.12.50.61
24.02.66.11.66.13.62.21
26.68.77.77.79.75.83
04.55.64.66.64.68
59.29.40.40.42
88.69.80.82
67.59.72
36.41
77


Dolcetto o Scherzetto !?!?!?

 

[Matematico]

Ciao a tutti , grazie salvo 50 ma quello che è importante per me è vedere la piramide visibile perchè altri numeri possono essere giocati ....ringrazio anche Ilegend e joe a cui chiedo se cortesemente può mettere il listato della piramide sviluppata che è quello che a me interessa grazie 1000 in anticipo.

Notte a tutti.

 

[i legend]

ciao a tutti
ho provato le funzioni che ho scritto ieri al volo, sembrerebbe che siano esatte confrontate a joe
ti posto lo script
controlla se va bene , sono parecchio arrugginito ormai .

Option Explicit
' Verificare che i risultati ottenuti siano esatti o conformi a quanto richiesto
' script per matematico utente ced
Sub Main
   Dim idEstr
   ReDim aR(0):Call ScegliMyRuote(aR)
   ReDim aNum(0)
   Dim aAmb(2),aP(2):aP(2) = 1
   Dim qEstr:qEstr = CInt(InputBox("minimo 1 ","inserisci quanti concorsi analizzare",1)) ' analizzo gli ultimi 20 concorsi si puo cambiare
   If qEstr < 1 Then Exit Sub
   Dim nClp:nClp = 9 ' numero colpi di verifica
   Dim aVCap:aVCap = Array("Complemento a 90","Simmetrico a 91","Diamterale","Vertibile","Diametrale Decina")
   Dim idCap:idCap = ScegliOpzioneMenu(aVCap,0,"Calcola il .... del primo capogioco") + 1
   For idEstr = EstrazioneFin -(qEstr - 1) To EstrazioneFin
      Scrivi FormatSpace(GetInfoEstrazione(idEstr) & "   " & StringaRuote(aR),60,1) & "  ",1,,vbBlue,vbCyan ' informazioni data e ruote
      Call CaricaAEstr(idEstr,aR,aNum)
      aAmb(1) = GetSum(aNum) ' numero ottenuto dal calcolo
      Select Case idCap
      Case 1
         aAmb(2) = 90 - aAmb(1) ' secondo numero ottenuto come complemento 90 dell ambata principale
      Case 2
         aAmb(2) = 91 - aAmb(1) ' simmetrico 91
      Case 3
         aAmb(2) = Diametrale(aAmb(1))
      Case 4
         aAmb(2) = Vert(aAmb(1)) ' vertibile
      Case 5
         aAmb(2) = DiametraleD(aAmb(1)) ' diametrale decina
      End Select
      Scrivi FormatSpace(GetInfoEstrazione(idEstr) & "   " & StringaRuote(aR) & "  " & FormatSpace(GetSum(aNum),2,1) & "  " & StringaNumeri(aAmb,,True),60,1) & "  ",1,,vbBlue,vbCyan
      Call ImpostaGiocata(1,aAmb,aR,aP,nClp)
      Dim aSestina:aSestina = Array(0,aAmb(1),aAmb(2),Fuori90(aAmb(1) + 1),Fuori90(aAmb(1) - 1),Fuori90(aAmb(2) + 1),Fuori90(aAmb(2) - 1))
      Call ImpostaGiocata(2,aSestina,aR,aP,nClp)
      Call Gioca(idEstr)
   Next
   Scrivi FormatSpace(" ",62),1,,RGB(0,128,64),RGB(236,255,245)
   Scrivi FormatSpace("  Hai scelto come Secondo capaogioco il :  " & aVCap(idCap - 1),62),1,,RGB(0,128,64),RGB(236,255,245)
   Scrivi FormatSpace(" ",62),1,,RGB(0,128,64),RGB(236,255,245)
   ScriviResoconto
End Sub
' questa sub carica gli estratti su cui effettuare i calcoli
Sub CaricaAEstr(idestr,aR,anum)
   Dim R,k,p
   k = 0
   For R = 1 To UBound(aR)
      ReDim aEstr(0)
      Call GetArrayNumeriRuota(idestr,aR(R),aEstr)
      For p = 1 To 5
         k = k + 1
         ReDim Preserve anum(k)
         anum(k) = aEstr(p)
      Next
   Next
End Sub
' queesta funzione esegue i calcoli
Function GetSum(a)
   Dim i
   Do While UBound(a) > 1
      ReDim aSom(0)
      For i = 1 To UBound(a) - 1
         ReDim Preserve aSom(i)
         aSom(i) = Fuori90(a(i) + a(i + 1))
      Next
      ReDim a(0)
      For i = 1 To UBound(aSom)
         ReDim Preserve a(i)
         a(i) = aSom(i)
      Next
      Scrivi StringaNumeri(a,,True)
   Loop
   GetSum = a(UBound(a))
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub

 

[salvo50]

Ciao a tutti , grazie salvo 50 ma quello che è importante per me è vedere la piramide visibile perchè altri numeri possono essere giocati ....ringrazio anche Ilegend e joe a cui chiedo se cortesemente può mettere il listato della piramide sviluppata che è quello che a me interessa grazie 1000 in anticipo.

Notte a tutti.

Ciao a Tutti.

Non ci siamo capiti, io ti avevo chiesto se erano 2 metodi perchè nella prima parte della tua richiesta mi dici che all'ambata si arriva facendo la somma dei 20 estratti, non facendo la piramide, dopo fai la piramide con 20 numeri inseriti da esterno, allora questi 20 numeri di dove li devo prendere?

e poi l'ambata da dove deve risultare dalla somma dei 20 numeri o dal cuspide della piramide, o da tutti e due?

Avevo chiesto dei chiarimenti e mi hai risposto di considerare solo la prima parte della tua richiesta ed io ho calcolato l'ambata solo con la somma dei 20 estratti, la piramide l'ho proprio esclusa e non ho capito perchè l'avevi messa, ripeto spiegami bene quello che ti interessa.

Anche Ilegend non ha calcolato la piramide, sicuramente si è basato sulla risposta che mi hai dato quando ti ho chiesto dei chiarimenti.

 

[i legend]

ciao Salvo la funzione che ieri ho scritto al post 5 calcola la piramide,e al post 6 infatti ho suggerito di inserire stringanumeri per vedere come lavora.al post 7 ho scritto come caricare gli estratti , praticamente lo script era fatto,
ma senza fare verifiche.
ho inserito una possibile soluzione , da controllare,sicuramente joe ne ha trovata un altra.
per vedere se la mia funzia bigogna che qualcuno faccia le prove

 

[Matematico]

Grazie I legend , tutto ok perfetto grazie...ti chiedo un' altra cortesia , potresti inserire un imput box ove immettere 20 numeri scelti da me ?

 

[Matematico]

Ciao a Tutti.

Non ci siamo capiti, io ti avevo chiesto se erano 2 metodi perchè nella prima parte della tua richiesta mi dici che all'ambata si arriva facendo la somma dei 20 estratti, non facendo la piramide, dopo fai la piramide con 20 numeri inseriti da esterno, allora questi 20 numeri di dove li devo prendere?

e poi l'ambata da dove deve risultare dalla somma dei 20 numeri o dal cuspide della piramide, o da tutti e due?

Avevo chiesto dei chiarimenti e mi hai risposto di considerare solo la prima parte della tua richiesta ed io ho calcolato l'ambata solo con la somma dei 20 estratti, la piramide l'ho proprio esclusa e non ho capito perchè l'avevi messa, ripeto spiegami bene quello che ti interessa.

Anche Ilegend non ha calcolato la piramide, sicuramente si è basato sulla risposta che mi hai dato quando ti ho chiesto dei chiarimenti.

Ciao salvo50, hai ragione al 100% tu....non mi sono spiegato bene e mi scuso con te

 

[salvo50]

Ciao salvo50, hai ragione al 100% tu....non mi sono spiegato bene e mi scuso con te

Fa niente, comunque dello script di ILegend non ci ho capito niente, troppo complicato per me, però lanciandolo a me le piramidi non escono, ecco perchè avevo pensato che ILegend non li aveva calcolati

 

[i legend]

Ciao salvo lo script al post 10 dovrebbe funzionare. A te cosa esce a videata?

X matematico
Salvo ti ha chiesto cosa fare e tu hai detto che il metodo da realizzare era questo.
Ciao

 

[Matematico]

Ciao salvo lo script al post 10 dovrebbe funzionare. A te cosa esce a videata?

X matematico
Salvo ti ha chiesto cosa fare e tu hai detto che il metodo da realizzare era questo.
Ciao

Grazie ancora I legend , và benissimo cosi

 

[joe]

Buon week end a tutte/i.

Confermo quanto ha scritto ilegend.

La mia soluzione è differente perché

Utilizza 2 cicli for il primo a decrescere

la lunghezza mentre quello più nidificato

è praticamente identico.

Non ho il pc e non posso fare prove.

 

[i legend]

Ciao Joe
x matematico
controlla bene i risultati dello script .
ho adattato lo script di base
Quando si chiede uno script è buona regola avere bene in mente cosa si vuole ottenere.
per costruire uno script serve logica, tutto il lavoro si sviluppa sequenzialmente.
cambiare idea vuol dire solo sprecare tempo.
oggi sono al pc per distrarmi e non pensare ,perchè pensare fa male , in altre occasioni non avrei perso tempo a rifare qualcosa, che fa cio che è richiesto.
questo script dovrebbe fare quanto richiesto dal primo e dal secondo metodo.
controllate per favore

Option Explicit
' Verificare che i risultati ottenuti siano esatti o conformi a quanto richiesto
' Selezione di n estratti a cui applicare il calcolo somma consecutiva
' script per matematico utente ced
Sub Main
   Dim idEstr
   Dim aPos(55,2)
   ReDim aEstrVer(0)
   Dim sEstr
   ReDim aR(0):Call ScegliMyRuote(aR)
   Dim aRT(1):aRT(1) = 11
   Call ScegliEstratti(aEstrVer,aPos,sEstr)
   ReDim aNum(0)
   Dim aAmb(2),aP1(1),aP2(2):aP1(1) = 1:aP2(2) = 1
   Dim qEstr:qEstr = CInt(InputBox("minimo 1 ","inserisci quanti concorsi analizzare",1)) ' analizzo gli ultimi 20 concorsi si puo cambiare
   If qEstr < 1 Then Exit Sub
   Dim nClp:nClp = 9 ' numero colpi di verifica
   Dim aVCap:aVCap = Array("Complemento a 90","Simmetrico a 91","Diamterale","Vertibile","Diametrale Decina")
   Dim idCap:idCap = ScegliOpzioneMenu(aVCap,0,"Calcola il .... del primo capogioco") + 1
   Dim Ini,fin
   fin = EstrazioneFin
   Ini = fin -(qEstr - 1)
   For idEstr = Ini To fin
      Scrivi FormatSpace(GetInfoEstrazione(idEstr) & "   " & sEstr,60,1) & "  ",1,,vbBlue,vbCyan ' informazioni data e ruote
      Call CaricaAEstr(idEstr,aPos,aEstrVer,aNum)
      Scrivi StringaNumeri(aNum,,True)
      aAmb(1) = GetSum(aNum) ' numero ottenuto dal calcolo
      Select Case idCap
      Case 1
         aAmb(2) = 90 - aAmb(1) ' secondo numero ottenuto come complemento 90 dell ambata principale
      Case 2
         aAmb(2) = 91 - aAmb(1) ' simmetrico 91
      Case 3
         aAmb(2) = Diametrale(aAmb(1))
      Case 4
         aAmb(2) = Vert(aAmb(1)) ' vertibile
      Case 5
         aAmb(2) = DiametraleD(aAmb(1)) ' diametrale decina
      End Select
      Scrivi FormatSpace(GetInfoEstrazione(idEstr) & "   " & StringaRuote(aR) & "  " & FormatSpace(GetSum(aNum),2,1) & "  " & StringaNumeri(aAmb,,True),60,1) & "  ",1,,vbBlue,vbCyan
      Call ImpostaGiocata(1,aAmb,aR,aP1,nClp)
      Dim aSestina:aSestina = Array(0,aAmb(1),aAmb(2),Fuori90(aAmb(1) + 1),Fuori90(aAmb(1) - 1),Fuori90(aAmb(2) + 1),Fuori90(aAmb(2) - 1))
      Call ImpostaGiocata(2,aSestina,aRT,aP2,nClp)
      Call Gioca(idEstr)
      Call AvanzamentoElab(Ini,fin,idEstr)
   Next
   Scrivi FormatSpace(" ",62),1,,RGB(0,128,64),RGB(236,255,245)
   Scrivi FormatSpace("  Hai scelto come Secondo capaogioco il :  " & aVCap(idCap - 1),62),1,,RGB(0,128,64),RGB(236,255,245)
   Scrivi FormatSpace(" ",62),1,,RGB(0,128,64),RGB(236,255,245)
   ScriviResoconto
End Sub
' questa sub carica gli estratti su cui effettuare i calcoli
Sub CaricaAEstr(idestr,aPos,aEstrVer,anum)
   Dim R,k,p,E
   k = 0
   ReDim anum(0)
   For p = 1 To UBound(aEstrVer)
      E = Estratto(idestr,aPos(aEstrVer(p),1),aPos(aEstrVer(p),2))
      If isNumeroValidoLotto(E) Then
         ReDim Preserve anum(p)
         anum(p) = Estratto(idestr,aPos(aEstrVer(p),1),aPos(aEstrVer(p),2))
      End If
   Next
End Sub
' queesta funzione esegue i calcoli
Function GetSum(a)
   Dim i
   Do While UBound(a) > 1
      ReDim aSom(0)
      For i = 1 To UBound(a) - 1
         ReDim Preserve aSom(i)
         aSom(i) = Fuori90(a(i) + a(i + 1))
      Next
      ReDim a(0)
      For i = 1 To UBound(aSom)
         ReDim Preserve a(i)
         a(i) = aSom(i)
      Next
      Scrivi StringaNumeri(a,,True)
   Loop
   GetSum = a(UBound(a))
End Function
Sub ScegliEstratti(aEstrVer,aPos,sEstr)
   ReDim aVoci(55)
   ReDim aVociSel(55)
   Dim R,m,p
   For R = 1 To 12
      If R = 11 Then R = 12
      For p = 1 To 5
         m = m + 1
         aVoci(m) = p & SiglaRuota(R)
         aPos(m,1) = R
         aPos(m,2) = p
      Next
   Next
   m = 0
   sEstr = ""
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Estratti di Verifica") >= 0 Then
      For p = 1 To UBound(aVoci)
         If aVociSel(p) Then
            m = m + 1
            ReDim Preserve aEstrVer(m)
            aEstrVer(m) = p
            sEstr = sEstr & aVoci(p) & "  "
         End If
      Next
   End If
End Sub
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e per capogiochi") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub

 

[i legend]

Grazie salvo