Uno script per favore

[Sonia63]

ciao a tutti, mi diverto a creare metodini, ma di fare script nisba
mi piacerebbe avere uno script(se possibile) di questo metodo
Io lo faccio a carta e penna e ho fatto tutto l'anno 2013 in cui ha dato sempre esito positivo

grazie a chi me lo fa

4 ambi a Tutte

Ad ogni prima estrazione del mese si guarderà il primo estratto della ruota di bari
esso sarà il capogioco per formare gli ambi secchi si abbineranno i rimanenti
4 estratti della ruota di genova della prima estrazione mese
il tutto in gioco per massimo 12 colpi

esempio

02/07/2013-ba-66-07-81-49-50
02/07/2013-ge-80-12-64-56-70

il 1° estratto di bari è il 66 (capogioco)
gli abbinamenti sono il 2,3,4,5 estratti della ruota di genova

i 4 ambi sono

66-12 / 66-64 / 66-56 / 66-70

risultato :

ambo secco 66-56 e ambo secco 66-70 al 3°colpo a venezia(tutte)

 

[Lanfranco60]

Ciao Sonia63, eccoti lo script, ne avevo uno già fatto e molto simile, ho dovuto modificare solo
il modo di ricavo dei numeri,nel tuo non ci sono nemmeno calcoli da fare, ci sono varie inputbox, così puoi
verificare e cambiare cio che vuoi, anche su altre ruote.
c'era anche una progressione di puntate, io lo adeguata ai colpi,
lo messa al raddoppio(ma è solo indicativa)
decidi tu se usarla o no e con quali importi.

Option Explicit
Sub Main()
    Dim es,Ini,Fin,ruote(10),ruota(10),poste(10),ultest
    Dim r1,r2,idm,ee,Clp,co,a,b,c,d,e,z,w
    Dim n1(2),n2(2),n3(2),n4(2)
    Dim Importi(2,12),siNoProgress,Punt(12)
    poste(2) = 1
    r1 = CInt(InputBox(" Scegli la ruota del capogioco ",,"1"))
    r2 = CInt(InputBox(" Scegli la ruota degli abbinamenti",,"4"))
    idm = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'indice mensile x analisi",1)
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"150"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
    siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO",,"1"))
    If siNoProgress = 1 Then
        Punt(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
        Punt(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"2"))
        Punt(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"4"))
        Punt(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"8"))
        Punt(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"16"))
        Punt(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"32"))
        Punt(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"64"))
        Punt(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"128"))
        Punt(9) = CInt(InputBox("Puntata Ambo a Tutte per il 9°colpo ",,"256"))
        Punt(10) = CInt(InputBox("Puntata Ambo a Tutte per il 10°colpo ",,"512"))
        Punt(11) = CInt(InputBox("Puntata Ambo a Tutte per il 11°colpo ",,"1024"))
        Punt(12) = CInt(InputBox("Puntata Ambo a Tutte per il 12°colpo ",,"2048"))
        Importi(2,1) = Punt(1)
        Importi(2,2) = Punt(2)
        Importi(2,3) = Punt(3)
        Importi(2,4) = Punt(4)
        Importi(2,5) = Punt(5)
        Importi(2,6) = Punt(6)
        Importi(2,7) = Punt(7)
        Importi(2,8) = Punt(8)
        Importi(2,9) = Punt(9)
        Importi(2,10) = Punt(10)
        Importi(2,11) = Punt(11)
        Importi(2,12) = Punt(12)
    End If
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        If(((eval(idm) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(idm)And(eval(idm) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(idm) = 0)))) Then
            ruote(1) = r1
            ruote(2) = r2
            ruota(1) = 11
            a = Estratto(es,r1,1)
            b = Estratto(es,r2,2)
            c = Estratto(es,r2,3)
            d = Estratto(es,r2,4)
            e = Estratto(es,r2,5)
            n1(1) = a
            n1(2) = b
            n2(1) = a
            n2(2) = c
            n3(1) = a
            n3(2) = d
            n4(1) = a
            n4(2) = e
            ruote(1) = r1
            ruote(2) = r2
            ruota(1) = 11
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
            Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
            ColoreTesto 1
            Scrivi
            Scrivi " 4 Ambi secchi :   " & a & "-" & b & " / " & a & "-" & c & " / " & a & "-" & d & " / " & a & "-" & e,1,,3,1,2
            ColoreTesto 0
            Scrivi String(65,"°"),1
            ColoreTesto 1
            Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
            ColoreTesto 0
            Scrivi " Al 1° colpo - " & Importi(2,1) & " euro  x Ambo a Tutte"
            Scrivi " Al 2° colpo - " & Importi(2,2) & " euro  x Ambo a Tutte"
            Scrivi " Al 3° colpo - " & Importi(2,3) & " euro  x Ambo a Tutte"
            Scrivi " Al 4° colpo - " & Importi(2,4) & " euro  x Ambo a Tutte"
            Scrivi " Al 5° colpo - " & Importi(2,5) & " euro  x Ambo a Tutte"
            Scrivi " Al 6° colpo - " & Importi(2,6) & " euro  x Ambo a Tutte"
            Scrivi " Al 7° colpo - " & Importi(2,7) & " euro  x Ambo a Tutte"
            Scrivi " Al 8° colpo - " & Importi(2,8) & " euro  x Ambo a Tutte"
            Scrivi " Al 9° colpo - " & Importi(2,9) & " euro  x Ambo a Tutte"
            Scrivi " Al 10° colpo - " & Importi(2,10) & " euro  x Ambo a Tutte"
            Scrivi " Al 11° colpo - " & Importi(2,11) & " euro  x Ambo a Tutte"
            Scrivi " Al 12° colpo - " & Importi(2,12) & " euro  x Ambo a Tutte"
            Scrivi String(35,"-")
            ImpostaGiocata 1,n1,ruota,poste,Clp,2
            ImpostaProgressione 1,Importi
            ImpostaGiocata 2,n2,ruota,poste,Clp,2
            ImpostaProgressione 2,Importi
            ImpostaGiocata 3,n3,ruota,poste,Clp,2
            ImpostaProgressione 3,Importi
            ImpostaGiocata 4,n4,ruota,poste,Clp,2
            ImpostaProgressione 4,Importi
            '-------------------------------------
            For z = 1 To 4
                For w = 1 To 4
                    ImpostaInterruzioni z,w,2
                    ImpostaInterruzioni w,z,2
                Next
            Next
            Gioca es,1,,1
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" X Sonia63  Listed By Lanfranco60 "),1,3,0
    ScriviResoconto
End Sub

 

[Sonia63]

che bello grazieeeeeeeee