AAA CERCASI UN'ANIMA BUONA PER SCRIPT

[Alien.]

Indice mensile: 5
Ruote di verifica: BaCa
Posizioni determinate: 12345
Colpi di gioco: 13


3 di Na + 5 di To + 3 per Ambata
complemento 90 1 di Na + 1 di Nz + 1 per Ambo
complemento 90 5 di Ca + 1 di To + 49 per Terno
*********************************************************************
diametrale 3 di Na + 5 di To + 48 per Ambata
decina 1 di Ba + 3 di Ve + 1 per Ambo
diametrale 1 di Fi + 2 di Ge + 50 per Terno
*********************************************************************
figura 2 di Fi + 5 di Na + 4 per Ambata
decina 4 di Pa + 1 di Ve + 4 per Ambo
diametrale 4 di Ba + 4 di Pa + 4 per Terno
*********************************************************************
diametrale 5 di Fi + 1 di Ge + 7 per Ambata
complemento 90 1 di Ro + 1 di To + 3 per Ambo
complemento 90 5 di Ba + 4 di Ca + 5 per Terno
*********************************************************************
diametrale decina 2 di Ge + 2 di To + 34 per Ambata
cadenza 1 di Ge + 3 di Ro + 30 per Ambo
2 di Ge + 2 di Mi + 5 per Terno
*********************************


GRAZIE

 

[pasquale71]

Buonasera

Salvo Errori dovrebbe essere così,si possono fare molte personalizzazioni, ho preferito separare ambate e lasciare lunghetta per sorti superiori ,cordialità Pasquale71, Saluti agli Admin e Amici



Sub Main()
Scrivi: ColoreTesto 1: Scrivi String(29," ") & " SOMMATIVO 5 Mese Bari e Cagliari by Pasquale71 per Alien"
ColoreTesto 0: Scrivi : Scrivi
Dim r(12)
Dim ambata(12),ambata1(5),ambata2(5),ambata3(5),ambata4(5),amb(6),ambataf(3),ambatab(5),ambatac(5),ambatad(5),ambatae(5)
Dim ambate(12)
Dim anum(3)
Dim p1(3)
Dim p2(3)
'p1(1) = 0.20
p1(2) = 0.80
p1(3) = 0.50
p2(1) = 0.20
r1 = 1 '1 ' InputBox("SCEGLI LA RUOTA SU CUI GIOCARE","By PASQUALE71",1)
r2 = 2


cc = InputBox("DA QUALE ESTRAZIONE VUOI PARTIRE? ",,9259)
kk = 13' InputBox("SCEGLI I COLPI DI GIOCO",,9)
im = 5 'InputBox("INSERISCI L'INDICE MENSILE" & Chr(10) & "1 = PRIMA DEL MESE",,1)
im = CInt(im)
If im = 5 Then
ini = cc
fin = EstrazioneFin
r(1) = r1
r(2) = r2
r(3) = r3
r(4) = r4
r(5) = r5
r(6) = r6
r(7) = r7
r(8) = r8
r(9) = r9
r(10) = r10
r(11) = r11
For es = ini To fin
If IndiceMensile(es) = im Then
casi = casi + 1
Scrivi String(100,"x") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - Indice Mensile: " & im & "° Estrazione"
ColoreTesto 0
'-----------------------------------------------------------------------------
If im = 5 Then



ambataf(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
ambata(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
amb(1) = Fuori90((Estratto(es,NA_,1) + Estratto(es,NZ_,1))+1)
ambataf(2) = (90-amb(1))
amb(2) = Fuori90((Estratto(es,CA_,5) + Estratto(es,TO_,1))+49)
ambataf(3) = 90-(amb(2))
'-----------------------------------------------------------------------------

ambatab(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(2) = Fuori90(Decina(Estratto(es,BA_,1) + Estratto(es,VE_,3)+1))
ambata1(3) = Diametrale(Fuori90(Estratto(es,FI_,1) + Estratto(es,GE_,2)+50))
'-----------------------------------------------------------------------------

ambatac(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(2) = Fuori90(Decina(Estratto(es,PA_,4) + Estratto(es,VE_,1)+4))
ambata2(3) = Diametrale(Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,4)+4))
'-----------------------------------------------------------------------------

ambatad(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
ambata3(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
amb(3) = Fuori90((Estratto(es,RO_,1) + Estratto(es,TO_,1))+3)
ambata3(2) = (90-amb(3))
amb(4) = Fuori90((Estratto(es,BA_,5) + Estratto(es,CA_,5))+5)
ambata3(3) = 90-(amb(4))
'-----------------------------------------------------------------------------

ambatae(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(2) = Fuori90(Cadenza(Estratto(es,GE_,1) +Estratto(es,RO_,3))+30)
ambata4(3) = Fuori90(Estratto(es,GE_,2) + Estratto(es,MI_,2)+5)




EliminaRipetuti ambataf
ImpostaGiocata 1,ambata,r,p2,kk
ImpostaGiocata 2,ambataf,r,p1,kk


EliminaRipetuti ambata1
ImpostaGiocata 3,ambatab,r,p2,kk
ImpostaGiocata 4,ambata1,r,p1,kk

EliminaRipetuti ambata2
ImpostaGiocata 5,ambatac,r,p2,kk
ImpostaGiocata 6,ambata2,r,p1,kk

EliminaRipetuti ambata3
ImpostaGiocata 7,ambatad,r,p2,kk
ImpostaGiocata 8,ambata3,r,p1,kk

EliminaRipetuti ambata4
ImpostaGiocata 9,ambatae,r,p2,kk
ImpostaGiocata 10,ambata4,r,p1,kk


End If
Gioca es,True,,1
End If
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End If
End Sub

 

[LuigiB]

ciao , lo script non l'ho provato perche come sapete io non gioco ma sono intervenuto per salutare l'arrivo di un nuovo scripter ..essendo pochi quando ne vedo uno sono sempre contento

 

[Alien.]

Ciao Pasquale ,grazie per lo script non ci speravo più.
Ma senti mi da errore qua:

Dim ambata(12),ambata1(5),ambata2(5),ambata3(5),ambata 4(5),ambata(6),ambataf(3),ambatab(5),ambatac(5),ambat ad(5),ambatae(5)

grazie.


Comunque Luigi sei un po birichino,potevi provarlo è..................hahhahaha scherzo buona serata.

 

[salvo50]

Ciao a Tutti!

devi correggere così, praticamente devi eliminare gli spazi che si sono creati quando ha fatto copia

Dim ambata(12),ambata1(5),ambata2(5),ambata3(5),ambata4(5),ambata(6),ambataf(3),ambatab(5),ambatac(5),ambatad(5),ambatae(5)

 

[pasquale71]

Grazie Salvo, chiedo venia. Cordiali Saluti, Buongiorno Luigi ;-)

 

[Alien.]

Ciao perdonami Salvo ma ho copiato ed incollato la tua linea di script ma mi da sempre lo stesso errore come mai?Grazie.


Dim ambata(12),ambata1(5),ambata2(5),ambata3(5),ambata 4(5),ambata(6),ambataf(3),ambatab(5),ambatac(5),am batad(5),ambatae(5)

 

[salvo50]

Ciao Alien
ambata4(5), qui il 4 deve essere unito ad ambata senza nessun spazio

ambatad(5) qui idem, l'hai postato così, am batad(5), devi togliere lo spazio, deve essere tutto unito

 

[Alien.]

OK perfetto ,grazie salvo ma dove ho prelevato lo script c'erano vari terni nello script solo 3 ambi e tutte ambate forse il conto non è fatto bene ,se puoi ti è possibile controllare,grazie.

 

[Alien.]

scusa salvo che per caso sai le formule di excel per trovare diametrale,decina,figura,diametrale in decina,cadenza ? grazie.

 

[Alien.]

ambataf(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
ambata(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
amb(1) = Fuori90((Estratto(es,NA_,1) + Estratto(es,NZ_,1))+1)
ambataf(2) = (90-amb(1))
amb(2) = Fuori90((Estratto(es,CA_,5) + Estratto(es,TO_,1))+49)
ambataf(3) = 90-(amb(2))
'-----------------------------------------------------------------------------

ambatab(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(2) = Fuori90(Decina(Estratto(es,BA_,1) + Estratto(es,VE_,3)+1))
ambata1(3) = Diametrale(Fuori90(Estratto(es,FI_,1) + Estratto(es,GE_,2)+50))
'-----------------------------------------------------------------------------

ambatac(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(2) = Fuori90(Decina(Estratto(es,PA_,4) + Estratto(es,VE_,1)+4))
ambata2(3) = Diametrale(Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,4)+4))
'-----------------------------------------------------------------------------

ambatad(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
ambata3(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
amb(3) = Fuori90((Estratto(es,RO_,1) + Estratto(es,TO_,1))+3)
ambata3(2) = (90-amb(3))
amb(4) = Fuori90((Estratto(es,BA_,5) + Estratto(es,CA_,5))+5)
ambata3(3) = 90-(amb(4))
'-----------------------------------------------------------------------------

ambatae(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(2) = Fuori90(Cadenza(Estratto(es,GE_,1) +Estratto(es,RO_,3))+30)
ambata4(3) = Fuori90(Estratto(es,GE_,2) + Estratto(es,MI_,2)+5)



SONO 5 TERNI GUARDANDO SOPRA SEMBRANO QUATERNE

QUESTO MI PARE DOPPIO

ambatab(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)

PURE QUESTO ECC.

mbatac(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)



GRAZIE.

 

[salvo50]

ambataf(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
ambata(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,3))
amb(1) = Fuori90((Estratto(es,NA_,1) + Estratto(es,NZ_,1))+1)
ambataf(2) = (90-amb(1))
amb(2) = Fuori90((Estratto(es,CA_,5) + Estratto(es,TO_,1))+49)
ambataf(3) = 90-(amb(2))
'-----------------------------------------------------------------------------

ambatab(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(2) = Fuori90(Decina(Estratto(es,BA_,1) + Estratto(es,VE_,3)+1))
ambata1(3) = Diametrale(Fuori90(Estratto(es,FI_,1) + Estratto(es,GE_,2)+50))
'-----------------------------------------------------------------------------

ambatac(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(2) = Fuori90(Decina(Estratto(es,PA_,4) + Estratto(es,VE_,1)+4))
ambata2(3) = Diametrale(Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,4)+4))
'-----------------------------------------------------------------------------

ambatad(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
ambata3(1) = Diametrale(Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,1))+7)
amb(3) = Fuori90((Estratto(es,RO_,1) + Estratto(es,TO_,1))+3)
ambata3(2) = (90-amb(3))
amb(4) = Fuori90((Estratto(es,BA_,5) + Estratto(es,CA_,5))+5)
ambata3(3) = 90-(amb(4))
'-----------------------------------------------------------------------------

ambatae(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(1) = Diametrale(Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,2))+34)
ambata4(2) = Fuori90(Cadenza(Estratto(es,GE_,1) +Estratto(es,RO_,3))+30)
ambata4(3) = Fuori90(Estratto(es,GE_,2) + Estratto(es,MI_,2)+5)



SONO 5 TERNI GUARDANDO SOPRA SEMBRANO QUATERNE

QUESTO MI PARE DOPPIO

ambatab(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)
ambata1(1) = Diametrale(Fuori90(Estratto(es,NA_,3) + Estratto(es,TO_,5))+48)

PURE QUESTO ECC.

mbatac(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)
ambata2(1) = Fuori90(Figura(Estratto(es,FI_,2) + Estratto(es,NA_,5))+4)



GRAZIE.

Ciao a Tutti!


Non sono doppi, praticamente li ha scritti doppi perche Pasquale probabilmente è un dilettante come me, anch'io li scrivo doppi quando devo ripetere lo stesso numero in un'altra combinazione, ho provato una volta a non ripetere la stessa riga ed è successo un patatrak, quindi anch'io finche non capisco bene i vari passaggi, faccio come Pasquale.

Se guardi nell'output vedi che la prima ricerca è di un numero soltanto, la seconda ricerca sono tre numeri nei quali c'è anche il numero della prima ricerca, è per questo che l'ha scritto due volte, negli script degli esperti ho notato che in questi casi non ripetono la riga.

 

[Alien.]

grazie salvo,la cosa strana è che ,non ricordo dove l'ho preso il metodo ma vi erano dei terni forse nel 2014 va bhe ....si vede che il metodo non gira più,un classico ,grazie anche a pasquale per la sua buona volontà.

 

[salvo50]

Ciao a Tutti

L'ho fatto per vedere se riuscivo a non fare le righe doppie e dopo un po di tentativi ci sono riuscito, a proposito delle doppie righe, volevo scusarmi con Pasquale, perchè ho scritto che è un dilettante come me, perchè leggendo bene quello che ha scritto, mi sembra di capire che ha fatto una specie di abbozzo, quindi non detto che sia un dilettante, mi scuso ancora.

 ' Proposto da Alien
' Script by Salvo50

Option Explicit
Sub Main
    Dim Ambata1,Ambata2,Ambata3,Ambata4,Ambata5,Ambo1,Ambo2,Ambo3,Ambo4,Ambo5,Terno1,Terno2,Terno3,Terno4,Terno5
    Dim num1(3),num2(3),num3(3),num4(3),num5(3),ruota(2),Posta1(1),Posta2(2),Posta3(3)
    Dim Es,Fin,Esq,Clp1,Clp2,Clp3,Col,Esqcol,caso,Ind
    Posta1(1) = 1
    Posta2(2) = 1
    Posta3(3) = 1
    Fin = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,7000)
    Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
    Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,13)
    Clp3 = InputBox("Per quanti colpi vuoi giocare il terno?",,13)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1000))
    Ind = CInt(InputBox(" Quale indice mensile?  ",,5))
    Esqcol = Esq + Col
    If Esqcol > Fin Then Esqcol = Fin
    For Es = Esq To Esqcol
        Messaggio Es
        AvanzamentoElab Esq,Esqcol,Es
        If IndiceMensile(Es) = Ind Then
            ruota(1) = BA_
            ruota(2) = CA_
            Ambata1 = Fuori90(Estratto(Es,6,3) + Estratto(Es,9,3) + 3)
            Ambo1 = Fuori90(Estratto(Es,6,1) + Estratto(Es,12,1) + 1) : Ambo1 = 90 - Ambo1
            Terno1 = Fuori90(Estratto(Es,2,5) + Estratto(Es,9,1) + 49) : Terno1 = 90 - Terno1
            '-----------------------------------------------------------------------------
            Ambata2 = Diametrale(Fuori90(Estratto(Es,6,3) + Estratto(Es,9,5) + 48))
            Ambo2 = Fuori90(Decina (Estratto(Es,1,1)) + Estratto(Es,10,3) + 1)
            Terno2 = Diametrale(Fuori90(Estratto(Es,3,1) + Estratto(Es,4,2) + 50))
            '-----------------------------------------------------------------------------
            Ambata3 = Fuori90(Estratto(Es,3,2) + Estratto(Es,6,5) + 4)
            Ambo3 = Fuori90(Decina (Estratto(Es,7,4)) + Estratto(Es,10,1) + 4)
            Terno3 = Diametrale(Fuori90(Estratto(Es,1,4) + Estratto(Es,7,4) + 4))
            '-----------------------------------------------------------------------------
            Ambata4 = Diametrale(Fuori90(Estratto(Es,3,5) + Estratto(Es,4,1) + 7))
            Ambo4 = Fuori90(Estratto(Es,8,1) + Estratto(Es,9,1) + 3) : Ambo4 = 90 - Ambo4
            Terno4 = Fuori90(Estratto(Es,1,5) + Estratto(Es,2,4) + 5) : Terno4 = 90 - Terno4
            '-----------------------------------------------------------------------------
            Ambata5 = Diametrale(Decina (Fuori90(Estratto(Es,4,2)) + Estratto(Es,9,2) + 34))
            Ambo5 = Fuori90(Cadenza (Estratto(Es,4,1)) + Estratto(Es,8,3) + 30)
            Terno5 = Fuori90(Estratto(Es,4,2) + Estratto(Es,5,2) + 5)
            '-----------------------------------------------------------------------------
            caso = caso + 1
            ColoreTesto 1
            Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(caso,"0000")
            ColoreTesto 0
            num1(1) = Ambata1
            ImpostaGiocata 1,num1,ruota,Posta1,Clp1,1
            num1(2) = Ambo1
            ImpostaGiocata 2,num1,ruota,Posta2,Clp2,2
            num1(3) = Terno1
            EliminaRipetuti num1
            ImpostaGiocata 3,num1,ruota,Posta3,Clp3,3
            '--------------------------------------
            num2(1) = Ambata2
            ImpostaGiocata 4,num2,ruota,Posta1,Clp1,1
            num2(2) = Ambo2
            ImpostaGiocata 5,num2,ruota,Posta2,Clp2,2
            num2(3) = Terno2
            EliminaRipetuti num2
            ImpostaGiocata 6,num2,ruota,Posta3,Clp3,3
            '--------------------------------------
            num3(1) = Ambata3
            ImpostaGiocata 7,num3,ruota,Posta1,Clp1,1
            num3(2) = Ambo3
            ImpostaGiocata 8,num3,ruota,Posta2,Clp2,2
            num3(3) = Terno3
            EliminaRipetuti num3
            ImpostaGiocata 9,num3,ruota,Posta3,Clp3,3
            '--------------------------------------
            num4(1) = Ambata4
            ImpostaGiocata 10,num4,ruota,Posta1,Clp1,1
            num4(2) = Ambo4
            ImpostaGiocata 11,num4,ruota,Posta2,Clp2,2
            num4(3) = Terno4
            EliminaRipetuti num4
            ImpostaGiocata 12,num4,ruota,Posta3,Clp3,3
            '--------------------------------------
            num5(1) = Ambata5
            ImpostaGiocata 13,num5,ruota,Posta1,Clp1,1
            num5(2) = Ambo5
            ImpostaGiocata 14,num5,ruota,Posta2,Clp2,2
            num5(3) = Terno5
            EliminaRipetuti num5
            ImpostaGiocata 15,num5,ruota,Posta3,Clp3,3
            Gioca Es
            Erase num1
            Erase num2
            Erase num3
            Erase num4
            Erase num5
        End If
    Next
    ScriviResoconto
End Sub

 

[Alien.]

Acc....Salvo ancora pasquale non ti ha "menato" ? hhaahhaahhaha
grazie per il tuo lavoro.


è pero si ferma al gen 2009 poi non credo che calcoli 5 terni,peccato che non ricordo dove ho prelevato il metodo li dava un sacco di terni gli avrei dato un sacco di...............

 

[antonioquagliozzi]

chi mi puo fare (script) del metodo di donatella postato il 22/11/2017 ore 16,22 grazie