Richiesta script x Napoli

[farfalla2]

Ciao a TUTTI, mi rivolgo a chi è capace a fare gli script e in particolare a Claudio8 per la sua gentilezza e disponibilità. Avrei bisogno di uno script che calcola le ambate su tutte le estrazioni nella ruota di Napoli. Il metodo è questo: sommare il secondo e il quarto estratto e se il risultato supera il 90 togliere il 90. Fare il complemento del numero ricavato che sarà la prima ambata. Le terzine simmetriche saranno le altre ambate. Per esempio: in data 19/11 avevamo il 20 e 37 come secondo e quarto estratto. 20+37= 57 90-57=33 prima ambata. 3-33-63 terzine simmetriche. Secondo colpo ambata 3 a Napoli. In data 5/12 come secondo e quarto estratto a Napoli avevamo 75 84 75+84=159 159-90=69 90-69=21 21-51-81 ambate Terzo colpo ambata 81 Se è possibile chiedo un ulteriore script su tutte le rute compresa la Nazionale per vedere se questo metodo è valido anche su altre ruote. Ciao a tutti e sopratutto GRAZIE.

 

[claudio8]

Appena trovo tempo e voglia lo preparo..

 

[claudio8]

'Script che calcola le ambate su tutte le estrazioni nella ruota di Napoli.
'Il metodo è questo: sommare il secondo e il quarto Estratto e se il risultato supera il 90 togliere il 90.
'Fare il complemento del numero ricavato che sarà la prima ambata. Le terzine simmetriche saranno le altre ambate.
'Per esempio: In data 19/11 avevamo il 20 e 37 come secondo e quarto estratto. 20+37= 57 90-57=33 prima ambata.
'3-33-63 terzine simmetriche. Secondo colpo ambata 3 a Napoli.
'In data 5/12 come secondo e quarto Estratto a Napoli avevamo 75 84 75+84=159 159-90=69 90-69=21 21-51-81 ambate
'Terzo colpo ambata 81
'.....................................................................................................................
Sub Main()
    Dim es,r,p1,p2,clp,ambata1,ambata2,ambata3,Qes,rini,rfin
    Dim n(3),ruo(1),posta(10)
    ReDim fig10(4005,8)
    Qes = CInt(InputBox("Quante estrazioni controlliamo ?","ESTRAZIONI DI ANALISI",13))
    clp = CInt(InputBox("Quanti colpi di gioco?","COLPI DI GIOCO",30))
    ''sezione di scelta ruota: se si sceglie una singola ruota, ad entrambe le 2 seguenti domande inserire lo stesso n° riferito alla ruota scelta.
    rini = CInt(InputBox("Su quale ruota inizio il calcolo? "," Ruota di calcolo ",1))
    rfin = CInt(InputBox("Sino a quale ruota faccio il calcolo? ","Ruota finale calcolo ",12))
    p1 = CInt(InputBox("Posizione primo numero","Posizione 1° Numero",2))
    p2 = CInt(InputBox("Posizione secondo numero","Posizione 2° Numero",4))
    Scrivi " Script - Metodo per Napoli .... x Farfalla2 ",1
    'togliere o mettere l'apice " ' " alle 3 seguenti istruzioni x controllare singolarmente o tutte le tipologie di giocata (ambate, ambi e terno)per i 3 numeri
    posta(1) = 1 ' ambate
    posta(2) = 1 ' ambo
    'posta(3) = 1 'terno
    Scrivi
    caso = 0
    ini = EstrazioneFin - Qes
    fin = EstrazioneFin
    For r = rini To rfin
        If r = 11 Then r = 12
        Scrivi " .................................................................... Elaborazione sulla ruota di "  & NomeRuota(r),1
        For es = ini To fin
            Messaggio(es) & ". " & SiglaRuota(r)
            AvanzamentoElab ini,fin,es
            a = Estratto(es,r,p1)
            b = Estratto(es,r,p2)
            ambata1 = ComplAdX(Fuori90(a + b))
            ambata2 = Fuori90(ambata1 + 30)
            ambata3 = Fuori90(ambata1 + 60)
            n(1) = ambata1
            n(2) = ambata2
            n(3) = ambata3
            caso = caso + 1
            Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " - " & Format2(a) & " in " & p1 & "ª pos e " & Format2(b) & " in " & p2 & "ª pos"
            Scrivi "         Somma dei numeri  --> " & Format2(a) & "  + " & Format2(b) & " = " & Format2(ambata1) & " altre ambate : " & Format2(ambata2) & " e " & Format2(ambata3),1,,3
            Scrivi
            ruo(1) = r
            ImpostaGiocata 1,n,ruo,posta,clp,1 ' l' "1" interrompe la giocata al 1° esito
            Gioca es,True,,True
        Next
    Next
    ScriviResoconto
End Sub

 

[claudio8]

"Se è possibile chiedo un ulteriore script su tutte le rute compresa la Nazionale per vedere se questo metodo è valido anche su altre ruote. Ciao a tutti e sopratutto GRAZIE."

Ti ho inserito tutto ed oltre le tue richieste.
Puoi spaziare su tutte le posizioni da 1 a 5, e su tutte le ruote sia singolarmente che di sequenza ( da 1 bari a 12 nazionale).

buona ricerca.....

 

[farfalla2]

Ciaooo CLAUDIO...... lo script è perfetto .....sono contenta che hai trovato il tempo e la voglia......così mi hai fatto il regalo di Natale.....ti ringrazio di cuore e ti auguro vivamente feste serene e felici a te e tua famiglia.....BUON NATALE......

 

[claudio8]

Questo script elabora tutte le 10 somme degli estratti

'Fare il complemento del numero ricavato che sarà la prima ambata. Le terzine simmetriche saranno le altre ambate.
'Per esempio: In data 19/11 avevamo il 20 e 37 come secondo e quarto estratto. 20+37= 57 90-57=33 prima ambata.
'3-33-63 terzine simmetriche. Secondo colpo ambata 3 a Napoli.
'In data 5/12 come secondo e quarto Estratto a Napoli avevamo 75 84 75+84=159 159-90=69 90-69=21 21-51-81 ambate
'Terzo colpo ambata 81
'.....................................................................................................................
Sub Main()
    Dim es,r,p1,p2,clp,ambata1,ambata2,ambata3,Qes,rini,rfin
    Dim n(3),ruo(1),posta(10)
    ReDim fig10(4005,8)
    Qes = CInt(InputBox("Quante estrazioni controlliamo ?","ESTRAZIONI DI ANALISI",13))
    clp = CInt(InputBox("Quanti colpi di gioco?","COLPI DI GIOCO",30))
    ''sezione di scelta ruota: se si sceglie una singola ruota, ad entrambe le 2 seguenti domande inserire lo stesso n° riferito alla ruota scelta.
    rini = CInt(InputBox("Su quale ruota inizio il calcolo? "," Ruota di calcolo ",1))
    rfin = CInt(InputBox("Sino a quale ruota faccio il calcolo? ","Ruota finale calcolo ",2))
    'p1 = CInt(InputBox("Posizione primo numero","Posizione 1° Numero",2))
    'p2 = CInt(InputBox("Posizione secondo numero","Posizione 2° Numero",4))
    Scrivi " Script - Metodo per TUTTE la SOMME .... x Farfalla2 ",1
    'togliere o mettere l'apice " ' " alle 3 seguenti istruzioni x controllare singolarmente o tutte le tipologie di giocata (ambate, ambi e terno)per i 3 numeri
    posta(1) = 1 ' ambate
    posta(2) = 1 ' ambo
    'posta(3) = 1 'terno
    Scrivi
    ini = EstrazioneFin - Qes
    fin = EstrazioneFin
    For r = rini To rfin
        caso = 0
        If r = 11 Then r = 12
        Scrivi " .................................................................... Elaborazione sulla ruota di " & NomeRuota(r),1
        For es = ini To fin
        caso = 0
        Scrivi " .................................................................... Elaborazione estrazione del " & DataEstrazione(es),1

            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    Messaggio(es) & ". " & SiglaRuota(r)
                    AvanzamentoElab ini,fin,es
                    a = Estratto(es,r,p1)
                    b = Estratto(es,r,p2)
                    ambata1 = ComplAdX(Fuori90(a + b))
                    ambata2 = Fuori90(ambata1 + 30)
                    ambata3 = Fuori90(ambata1 + 60)
                    n(1) = ambata1
                    'n(2) = ambata2 'con l'inserimento dell'apice viene esclusa dalla giocata
                    'n(3) = ambata3 'con l'inserimento dell'apice viene esclusa dalla giocata

                    caso = caso + 1
                    Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " - " & Format2(a) & " in " & p1 & "ª pos e " & Format2(b) & " in " & p2 & "ª"
                    Scrivi "Som n°" & FormatSpace(caso,3,1) & " Somma dei numeri -> " & Format2(a) & "  + " & Format2(b) & " = " & Format2(ambata1) & " altre ambate : " & Format2(ambata2) & " e " & Format2(ambata3),1,,3
                    Scrivi
                    ruo(1) = r
                    ImpostaGiocata 1,n,ruo,posta,clp,1 ' l' "1" interrompe la giocata al 1° esito
                    Gioca es,True,,True
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

Grazie x gli auguri, sperco che tu riesca a trovare i numeri giusti per farti un vero regalo.