Per ilegend

[ananda]

Ciao, ho visto che sei un esperto di script, quindi vorrei chiederti se gentilmente puoi buttarmi giù questo. Ho bisogno di sommare, su VE, i cinque numeri estratti dell'ultima estrazione di un mese qualsiasi con i cinque numeri estratti dell'estrazione successiva (cioè la prima del mese successivo), poi fare il fuori 90 della somma ottenuta. E' fattibile? Grazie mille per la risposta.
Ananda

 

[claudio8]

Sub Main
Dim s,aSom,r
r = VE_
    For es =  9500 To EstrazioneFin ' dalla estrazione 9500 alla ultima estrazione impostata su Spaziometria
    If IndiceMensile(es)= 1 Then
    aSom = Fuori90(SommaEstratti(es, r) + SommaEstratti(es-1,r))
    Scrivi  " somma estratti VE  del "&  DataEstrazione(es) & " e precedente: " & aSom  
    End If
    Next
End Sub

 

[i legend]

Ciao Claudio ,grazie
Ciao ananda, non sono un esperto,non sono un programmatore. quando il tempo me lo permette mi rendo disponibile,con tutti i miei limiti
Ciao

 

[ananda]

Grazie infinite ad entrambi. Se possibile, vorrei aggiungere due opzioni:
1- poter scegliere quale ruota verificare, magari con una mascherina iniziale.
2- Mettere in gioco il numero trovato e il suo vertibile sulla ruota di rilevazione e tutte, per ambo.

Vi ringrazio anticipatamente ed auguro buona giornata.
Ananda

 

[claudio8]

E te pareva... Ahahahaha lo sapevo ... scherzo

Sub Main
    'https://forum.lottoced.com/threads/per-ilegend.2193504/#post-2227694
    Dim s,aSom,r,escl,clp,es,co,i
    Dim aN(10)
    Dim aR(10)
    Dim aPosta(5)
    'aPosta(1) = 1
    aPosta(2) = 1
    escl = InputBox("Quante estrazioni controllo?"," ESTRAZIONI ",320)
    r = InputBox("Quale Ruota verifico?" & Chr(13) & "( 1 Ba. 2 Ca. 3 Fi. 4 Ge..... )" & Chr(13) & "(..... 10 Ve. 11 TT. 12 Nz.  )","RUOTA RICERCA",10)
    clp = InputBox("Quanti colpi di gioco?","COLPI GIOCO",10)
    aR(1) = r
    aR(2) = 11
    For es = EstrazioneFin - escl To EstrazioneFin ' sino alla ultima estrazione impostata su Spaziometria
        i = i + 1
        Messaggio es & " del " & DataEstrazione(es)
        AvanzamentoElab 1,escl,i
        If IndiceMensile(es) = 1 Then
            co = co + 1
            aSom = Fuori90(SommaEstratti(es,r) + SommaEstratti(es - 1,r))
            Scrivi "Caso" & FormatSpace(co,3,1) & ") Somma estratti VE  del " & DataEstrazione(es) & " e precedente: " & aSom
            aN(1) = aSom
            aN(2) = Vert(aSom)
' aN(3)= Fuori90 (aN(1)*aN(2))
            ImpostaGiocata 1,aN,aR,aPosta,clp
            Gioca es,False,,1
        End If
        If ScriptInterrotto Then Exit For
    Next
    ScriviResoconto
End Sub

Saluti

 

[ananda]

Eh si, c'è sempre l'inghippo!!! ?
Grazie infinite Claudio!

Ananda

 

[Sakti]

Se aggiungi:
aN(3)= Fuori90 (aN(1)*aN(2))
i risultati non sono male....