Novità

Script per metodo "Venezia-Nazionale "

Lanfranco60 ha scritto:
gorilla81, ti ricordo che lo script lo hai fatto fare che gioca ANCHE gli ambi secchi su ruote fisse
ma nella tua progressione non vedo le puntate per quest'ultimi.

CHE FACCIO ???
Clicca per espandere...


Ciao lo script è pronto, le progressioni sono come le hai impostate tu, sia per l'ambata
che per l'ambo a tutte.
dato che non hai dato indicazioni sulla progressione da seguire per gli ambi sulle 2 ruote secche,
ti ho messo la giocata fissa ad 1 Euro per quest'ultimi

ti ho messo delle inputbox che ti permettono di scegliere
nota :
(leggi bene le varie inputbox)

Ti ho messo anche un resoconto particolare delle giocate e anche una tabella finale alla fine del resoconto, giu in basso nell'output
( presi di sana pianta da uno script di Mike58).


Codice: 
Sub Main()
    Dim es,Ini,Fin,Clp,ee,r1,r2,ruote(12),ruota(1)
    Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste1(2),poste2(2)
    Dim Importi1(1,8),Importi2(2,8),siNoProgress,Punt1(8),Punt2(8)
    posta(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
    r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"8"))
    siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO"))
    If siNoProgress = 1 Then
        Punt1(1) = CInt(InputBox("Puntata Ambata su 2 ruote per il 1°colpo ",,"1"))
        Punt1(2) = CInt(InputBox("Puntata Ambata su 2 ruote per il 2°colpo ",,"2"))
        Punt1(3) = CInt(InputBox("Puntata Ambata su 2 ruote per il 3°colpo ",,"4"))
        Punt1(4) = CInt(InputBox("Puntata Ambata su 2 ruote per il 4°colpo ",,"8"))
        Punt1(5) = CInt(InputBox("Puntata Ambata su 2 ruote per il 5°colpo ",,"15"))
        Punt1(6) = CInt(InputBox("Puntata Ambata su 2 ruote per il 6°colpo ",,"25"))
        Punt1(7) = CInt(InputBox("Puntata Ambata su 2 ruote per il 7°colpo ",,"45"))
        Punt1(8) = CInt(InputBox("Puntata Ambata su 2 ruote per l'8°colpo ",,"76"))
        Punt2(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
        Punt2(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"1"))
        Punt2(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"2"))
        Punt2(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"4"))
        Punt2(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"7"))
        Punt2(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"12"))
        Punt2(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"21"))
        Punt2(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"35"))
        Importi1(1,1) = Punt1(1)
        Importi1(1,2) = Punt1(2)
        Importi1(1,3) = Punt1(3)
        Importi1(1,4) = Punt1(4)
        Importi1(1,5) = Punt1(5)
        Importi1(1,6) = Punt1(6)
        Importi1(1,7) = Punt1(7)
        Importi1(1,8) = Punt1(8)
        Importi2(2,1) = Punt2(1)
        Importi2(2,2) = Punt2(2)
        Importi2(2,3) = Punt2(3)
        Importi2(2,4) = Punt2(4)
        Importi2(2,5) = Punt2(5)
        Importi2(2,6) = Punt2(6)
        Importi2(2,7) = Punt2(7)
        Importi2(2,8) = Punt2(8)
    End If
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        e1 = Estratto(es,r1,1)
        e2 = Estratto(es,r1,2)
        e3 = Estratto(es,r1,3)
        e4 = Estratto(es,r1,4)
        e5 = Estratto(es,r1,5)
        e6 = Estratto(es - 1,r1,1)
        e7 = Estratto(es - 1,r1,2)
        e8 = Estratto(es - 1,r1,3)
        e9 = Estratto(es - 1,r1,4)
        e10 = Estratto(es - 1,r1,5)
        a = Differenza(e1,e6)
        If a = 90 Then a = 0
        b = Differenza(e2,e7)
        If b = 90 Then b = 0
        c = Differenza(e3,e8)
        If c = 90 Then c = 0
        d = Differenza(e4,e9)
        If d = 90 Then d = 0
        e = Differenza(e5,e10)
        If e = 90 Then e = 0
        f = Differenza(b,a)
        If f = 90 Then f = 0
        g = Differenza(c,b)
        If g = 90 Then g = 0
        h = Differenza(d,c)
        If h = 90 Then h = 0
        i = Differenza(e,d)
        If i = 90 Then i = 0
        l = Differenza(g,f)
        If l = 90 Then l = 0
        m = Differenza(h,g)
        If m = 90 Then m = 0
        n = Differenza(i,h)
        If n = 90 Then n = 0
        o = Differenza(m,l)
        If o = 90 Then o = 0
        p = Differenza(n,m)
        If p = 90 Then p = 0
        q = Differenza(p,o)
        ruote(1) = r1
        ruote(2) = r2
        ruota(1) = 11
        co = co + 1
        Scrivi String(105,"=") & " Caso n°" & Format2(co),1
        Scrivi
        ColoreTesto 1
        Scrivi DataEstrazione(es - 1) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es - 1,r1),1
        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1),1
        ColoreTesto 0
        Scrivi String(50,"*"),1
        ColoreTesto 2
        Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
        ColoreTesto 0
        Scrivi
        Scrivi "a :  " & Format2(a) & " = " & Format2(e1) & " - " & Format2(e6) & " ( Diff. tra Primi estratti)",1
        Scrivi "b :  " & Format2(b) & " = " & Format2(e2) & " - " & Format2(e7) & " ( Diff. tra Secondi estratti)",1
        Scrivi "c :  " & Format2(c) & " = " & Format2(e3) & " - " & Format2(e8) & " ( Diff. tra Terzi estratti)",1
        Scrivi "d :  " & Format2(d) & " = " & Format2(e4) & " - " & Format2(e9) & " ( Diff. tra Quarti estratti)",1
        Scrivi "e :  " & Format2(e) & " = " & Format2(e5) & " - " & Format2(e10 & " ( Diff. tra Quinti estratti)"),1
        Scrivi "f :  " & Format2(f) & " = " & Format2(b) & " - " & Format2(a) & "  ( b - a )",1
        Scrivi "g :  " & Format2(g) & " = " & Format2(c) & " - " & Format2(b) & "  ( c - b )",1
        Scrivi "h :  " & Format2(h) & " = " & Format2(d) & " - " & Format2(c) & "  ( d - c )",1
        Scrivi "i :  " & Format2(i) & " = " & Format2(e) & " - " & Format2(d) & "  ( e - d )",1
        Scrivi "l :  " & Format2(l) & " = " & Format2(g) & " - " & Format2(f) & "  ( g - f )",1
        Scrivi "m :  " & Format2(m) & " = " & Format2(h) & " - " & Format2(g) & "  ( h - g )",1
        Scrivi "n :  " & Format2(n) & " = " & Format2(i) & " - " & Format2(h) & "  ( i - h )",1
        Scrivi "o :  " & Format2(o) & " = " & Format2(m) & " - " & Format2(l) & "  ( m - l )",1
        Scrivi "p :  " & Format2(p) & " = " & Format2(n) & " - " & Format2(m) & "  ( n - m )",1
        Scrivi "q :  " & Format2(q) & " = " & Format2(p) & " - " & Format2(o) & "  ( p - o )",1
        ColoreTesto 2
        Scrivi
        Scrivi Format2(q) & "    Questa è L'Ambata",1
        ColoreTesto 0
        Scrivi String(65,"*"),1
        ambata(1) = q
        ambo1(1) = ambata(1)
        ambo1(2) = a
        ambo2(1) = ambata(1)
        ambo2(2) = b
        ambo3(1) = ambata(1)
        ambo3(2) = c
        ambo4(1) = ambata(1)
        ambo4(2) = d
        ambo5(1) = ambata(1)
        ambo5(2) = e
        ImpostaGiocata 1,ambata,ruote,posta,Clp,1
        ImpostaProgressione 1,Importi1
        ImpostaGiocata 2,ambo1,ruote,poste1,Clp,2
        ImpostaGiocata 3,ambo2,ruote,poste1,Clp,2
        ImpostaGiocata 4,ambo3,ruote,poste1,Clp,2
        ImpostaGiocata 5,ambo4,ruote,poste1,Clp,2
        ImpostaGiocata 6,ambo5,ruote,poste1,Clp,2
        ImpostaGiocata 7,ambo1,ruota,poste2,Clp,2
        ImpostaProgressione 7,Importi2
        ImpostaGiocata 8,ambo2,ruota,poste2,Clp,2
        ImpostaProgressione 8,Importi2
        ImpostaGiocata 9,ambo3,ruota,poste2,Clp,2
        ImpostaProgressione 9,Importi2
        ImpostaGiocata 10,ambo4,ruota,poste2,Clp,2
        ImpostaProgressione 10,Importi2
        ImpostaGiocata 11,ambo5,ruota,poste2,Clp,2
        ImpostaProgressione 11,Importi2
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'ambata su 2 ruote ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi1(1,1) & " euro  x Ambata"
        Scrivi " Al 2° colpo - " & Importi1(1,2) & " euro  x Ambata"
        Scrivi " Al 3° colpo - " & Importi1(1,3) & " euro  x Ambata"
        Scrivi " Al 4° colpo - " & Importi1(1,4) & " euro  x Ambata"
        Scrivi " Al 5° colpo - " & Importi1(1,5) & " euro  x Ambata"
        Scrivi " Al 6° colpo - " & Importi1(1,6) & " euro  x Ambata"
        Scrivi " Al 7° colpo - " & Importi1(1,7) & " euro  x Ambata"
        Scrivi " Al 8° colpo - " & Importi1(1,8) & " euro  x Ambata"
        Scrivi String(35,"-")
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi2(2,1) & " euro  x Ambo"
        Scrivi " Al 2° colpo - " & Importi2(2,2) & " euro  x Ambo"
        Scrivi " Al 3° colpo - " & Importi2(2,3) & " euro  x Ambo"
        Scrivi " Al 4° colpo - " & Importi2(2,4) & " euro  x Ambo"
        Scrivi " Al 5° colpo - " & Importi2(2,5) & " euro  x Ambo"
        Scrivi " Al 6° colpo - " & Importi2(2,6) & " euro  x Ambo"
        Scrivi " Al 7° colpo - " & Importi2(2,7) & " euro  x Ambo"
        Scrivi " Al 8° colpo - " & Importi2(2,8) & " euro  x Ambo"
        Scrivi String(35,"-")
        For j = 1 To 11
            For w = 1 To 11
                ImpostaInterruzioni j,w,1
                ImpostaInterruzioni w,j,1
            Next
        Next
        Gioca es,1,,1
        Scrivi "Rendiconto parziale       ",1,- 1,6
        Scrivi "Toatale spesa   : " & GetSpesa(True)
        Scrivi "Totale vincite  : " & GetVincita(True)
        Scrivi "Totale guadagno : " & GetGuadagno(True)
        Scrivi "Resoconto progressivo     ",1,- 1,3
        Scrivi "Toatale spesa   : " & GetSpesa(False)
        Scrivi "Totale vincite  : " & GetVincita(False)
        Scrivi "Totale guadagno : " & GetGuadagno(False)
        If GetGuadagno(False) > 0 Then
            Scrivi" ****  GO ON, MAN ! *** ",1,- 1,2
        Else
            Scrivi" ****  BEWARE, YOU ARE GETTING FUCKED **** ",1,- 1,4
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(105,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(105," * ")
    TestoInBandaPassante(" metodo di gorilla81  listato by Lanfranco60 "),1,3,0
    ScriviResoconto
    elencogiocate
End Sub
Function elencogiocate
    ReDim aT(9)
    aT(1) = "NumGiocata"
    aT(2) = "Colpo"
    aT(3) = "Spesa"
    aT(4) = "SpesaParz"
    aT(5) = "Vincita"
    aT(6) = "VincitaParz"
    aT(7) = " Utile totale "
    aT(8) = " Utile Parz "
    aT(9) = " sequenza Pos/Neg "
    Call InitTabella(aT,1,,3,5)
    For k = 1 To GetQuantitaGiocateEffettuate
        If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
            aT(1) = k
            aT(2) = RetColpo
            aT(3) = RetSpesa
            aT(4) = RetSpesaParz
            aT(5) = RetVincita
            aT(6) = RetVincitaParz
            aT(7) = Round(aT(5) - aT(3),2)
            aT(8) = Round(aT(6) - aT(4),2)
            If retcolpo > 0 Then aT(9) = 0
            If retcolpo < 0 Then aT(9) = 1
            If aT(9) = 1 Then neg = neg + 1
            If aT(9) = 0 Then pos = pos + 1
            Call AddRigaTabella(aT,,,3)
            If retcolpo > 0 Then Call SetColoreCella(2,3,0)
            If aT(7) > 0 Then Call SetColoreCella(7,4,2)
            If aT(7) < 0 Then Call SetColoreCella(7,2,4)
            If aT(8) > 0 Then Call SetColoreCella(8,4,2)
            If aT(8) < 0 Then Call SetColoreCella(8,2,4)
            If aT(9) = 1 Then Call SetColoreCella(9,7,1)
        End If
    Next
    ReDim Tot(9)
    Tot(1) = " casi Positivi"
    Tot(2) = pos
    Tot(8) = " casi Negativi "
    Tot(9) = neg
    Call AddRigaTabella(Tot,3,,3)
    Call CreaTabella
End Function
 
Ultima modifica:
Sub Main()
Dim es,Ini,Fin,Clp,ee,r1,r2
Dim ruote(12),ruota(1),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste(2)
Dim prog1(1,8),prog2(2,8)

'-----per AMBATA
prog1(1,1)=1
prog1(1,2)=2
prog1(1,3)=4
prog1(1,4)=8
prog1(1,5)=15
prog1(1,6)=25
prog1(1,7)=45
prog1(1,8)=76

'-----Per AMBO RUOTA e TUTTE
prog2(2,1)=1
prog2(2,2)=1
prog2(2,3)=2
prog2(2,4)=4
prog2(2,5)=7
prog2(2,6)=12
prog2(2,7)=21
prog2(2,8)=35



posta(1) = 1
poste(2) = 1
r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
e1 = Estratto(es,r1,1)
e2 = Estratto(es,r1,2)
e3 = Estratto(es,r1,3)
e4 = Estratto(es,r1,4)
e5 = Estratto(es,r1,5)
e6 = Estratto(es - 1,r1,1)
e7 = Estratto(es - 1,r1,2)
e8 = Estratto(es - 1,r1,3)
e9 = Estratto(es - 1,r1,4)
e10 = Estratto(es - 1,r1,5)
a = Differenza(e1,e6)
If a = 90 Then a = 0
b = Differenza(e2,e7)
If b = 90 Then b = 0
c = Differenza(e3,e8)
If c = 90 Then c = 0
d = Differenza(e4,e9)
If d = 90 Then d = 0
e = Differenza(e5,e10)
If e = 90 Then e = 0
f = Differenza(b,a)
If f = 90 Then f = 0
g = Differenza(c,b)
If g = 90 Then g = 0
h = Differenza(d,c)
If h = 90 Then h = 0
i = Differenza(e,d)
If i = 90 Then i = 0
l = Differenza(g,f)
If l = 90 Then l = 0
m = Differenza(h,g)
If m = 90 Then m = 0
n = Differenza(i,h)
If n = 90 Then n = 0
o = Differenza(m,l)
If o = 90 Then o = 0
p = Differenza(n,m)
If p = 90 Then p = 0
q = Differenza(p,o)
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = co + 1
Scrivi String(105,"=") & " Caso n°" & Format2(co),1
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1
ColoreTesto 0
Scrivi String(65,"*"),1
Scrivi
ColoreTesto 2
Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
ColoreTesto 0
Scrivi
Scrivi Format2(a) & " = " & Format2(e1) & " - " & Format2(e6),1
Scrivi Format2(b) & " = " & Format2(e2) & " - " & Format2(e7),1
Scrivi Format2(c) & " = " & Format2(e3) & " - " & Format2(e8),1
Scrivi Format2(d) & " = " & Format2(e4) & " - " & Format2(e9),1
Scrivi Format2(e) & " = " & Format2(e5) & " - " & Format2(e10),1
Scrivi Format2(f) & " = " & Format2(b) & " - " & Format2(a),1
Scrivi Format2(g) & " = " & Format2(c) & " - " & Format2(b),1
Scrivi Format2(h) & " = " & Format2(d) & " - " & Format2(c),1
Scrivi Format2(i) & " = " & Format2(e) & " - " & Format2(d),1
Scrivi Format2(l) & " = " & Format2(g) & " - " & Format2(f),1
Scrivi Format2(m) & " = " & Format2(h) & " - " & Format2(g),1
Scrivi Format2(n) & " = " & Format2(i) & " - " & Format2(h),1
Scrivi Format2(o) & " = " & Format2(m) & " - " & Format2(l),1
Scrivi Format2(p) & " = " & Format2(n) & " - " & Format2(m),1
Scrivi Format2(q) & " = " & Format2(p) & " - " & Format2(o),1
ColoreTesto 2
Scrivi
Scrivi Format2(q) & " Questa è L'Ambata",1
ColoreTesto 0
Scrivi String(65,"*"),1
ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
ambo3(1) = ambata(1)
ambo3(2) = c
ImpostaGiocata 4,ambo3,ruote,poste,Clp,2
ambo4(1) = ambata(1)
ambo4(2) = d
ImpostaGiocata 5,ambo4,ruote,poste,Clp,2
ambo5(1) = ambata(1)
ambo5(2) = e
ImpostaGiocata 6,ambo5,ruote,poste,Clp,2
ImpostaGiocata 7,ambo1,ruota,poste,Clp,2
ImpostaGiocata 8,ambo2,ruota,poste,Clp,2
ImpostaGiocata 9,ambo3,ruota,poste,Clp,2
ImpostaGiocata 10,ambo4,ruota,poste,Clp,2
ImpostaGiocata 11,ambo5,ruota,poste,Clp,2

For j=1 To 11
For w=1 To 11
ImpostaInterruzioni j,w,1
ImpostaInterruzioni w,j,1
Next
Next

Gioca es,1,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(105,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(105," * ")
TestoInBandaPassante(" metodo di gorilla81 listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub
 
gorilla81 ha scritto:
Sub Main()
Dim es,Ini,Fin,Clp,ee,r1,r2
Dim ruote(12),ruota(1),ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste(2)
Dim prog1(1,8),prog2(2,8)

'-----per AMBATA
prog1(1,1)=1
prog1(1,2)=2
prog1(1,3)=4
prog1(1,4)=8
prog1(1,5)=15
prog1(1,6)=25
prog1(1,7)=45
prog1(1,8)=76

'-----Per AMBO RUOTA e TUTTE
prog2(2,1)=1
prog2(2,2)=1
prog2(2,3)=2
prog2(2,4)=4
prog2(2,5)=7
prog2(2,6)=12
prog2(2,7)=21
prog2(2,8)=35



posta(1) = 1
poste(2) = 1
r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
e1 = Estratto(es,r1,1)
e2 = Estratto(es,r1,2)
e3 = Estratto(es,r1,3)
e4 = Estratto(es,r1,4)
e5 = Estratto(es,r1,5)
e6 = Estratto(es - 1,r1,1)
e7 = Estratto(es - 1,r1,2)
e8 = Estratto(es - 1,r1,3)
e9 = Estratto(es - 1,r1,4)
e10 = Estratto(es - 1,r1,5)
a = Differenza(e1,e6)
If a = 90 Then a = 0
b = Differenza(e2,e7)
If b = 90 Then b = 0
c = Differenza(e3,e8)
If c = 90 Then c = 0
d = Differenza(e4,e9)
If d = 90 Then d = 0
e = Differenza(e5,e10)
If e = 90 Then e = 0
f = Differenza(b,a)
If f = 90 Then f = 0
g = Differenza(c,b)
If g = 90 Then g = 0
h = Differenza(d,c)
If h = 90 Then h = 0
i = Differenza(e,d)
If i = 90 Then i = 0
l = Differenza(g,f)
If l = 90 Then l = 0
m = Differenza(h,g)
If m = 90 Then m = 0
n = Differenza(i,h)
If n = 90 Then n = 0
o = Differenza(m,l)
If o = 90 Then o = 0
p = Differenza(n,m)
If p = 90 Then p = 0
q = Differenza(p,o)
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = co + 1
Scrivi String(105,"=") & " Caso n°" & Format2(co),1
Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1
ColoreTesto 0
Scrivi String(65,"*"),1
Scrivi
ColoreTesto 2
Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
ColoreTesto 0
Scrivi
Scrivi Format2(a) & " = " & Format2(e1) & " - " & Format2(e6),1
Scrivi Format2(b) & " = " & Format2(e2) & " - " & Format2(e7),1
Scrivi Format2(c) & " = " & Format2(e3) & " - " & Format2(e8),1
Scrivi Format2(d) & " = " & Format2(e4) & " - " & Format2(e9),1
Scrivi Format2(e) & " = " & Format2(e5) & " - " & Format2(e10),1
Scrivi Format2(f) & " = " & Format2(b) & " - " & Format2(a),1
Scrivi Format2(g) & " = " & Format2(c) & " - " & Format2(b),1
Scrivi Format2(h) & " = " & Format2(d) & " - " & Format2(c),1
Scrivi Format2(i) & " = " & Format2(e) & " - " & Format2(d),1
Scrivi Format2(l) & " = " & Format2(g) & " - " & Format2(f),1
Scrivi Format2(m) & " = " & Format2(h) & " - " & Format2(g),1
Scrivi Format2(n) & " = " & Format2(i) & " - " & Format2(h),1
Scrivi Format2(o) & " = " & Format2(m) & " - " & Format2(l),1
Scrivi Format2(p) & " = " & Format2(n) & " - " & Format2(m),1
Scrivi Format2(q) & " = " & Format2(p) & " - " & Format2(o),1
ColoreTesto 2
Scrivi
Scrivi Format2(q) & " Questa è L'Ambata",1
ColoreTesto 0
Scrivi String(65,"*"),1
ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
ambo3(1) = ambata(1)
ambo3(2) = c
ImpostaGiocata 4,ambo3,ruote,poste,Clp,2
ambo4(1) = ambata(1)
ambo4(2) = d
ImpostaGiocata 5,ambo4,ruote,poste,Clp,2
ambo5(1) = ambata(1)
ambo5(2) = e
ImpostaGiocata 6,ambo5,ruote,poste,Clp,2
ImpostaGiocata 7,ambo1,ruota,poste,Clp,2
ImpostaGiocata 8,ambo2,ruota,poste,Clp,2
ImpostaGiocata 9,ambo3,ruota,poste,Clp,2
ImpostaGiocata 10,ambo4,ruota,poste,Clp,2
ImpostaGiocata 11,ambo5,ruota,poste,Clp,2

For j=1 To 11
For w=1 To 11
ImpostaInterruzioni j,w,1
ImpostaInterruzioni w,j,1
Next
Next

Gioca es,1,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(105,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(105," * ")
TestoInBandaPassante(" metodo di gorilla81 listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub
Clicca per espandere...

MANCANO LE " ImpostaProgressioni " dopo ogni " ImpostaGiocata " ...............................

ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
*** ImpostaProgressione 1,prog1
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
*** ImpostaProgressione 2,prog2
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
*** *ImpostaProgressione 3,prog2

Segui cosi fino alla fine delle "ImpostaGiocate" (non devi inserire gli asterischi, li ho messi per farti capire dove inserire).

Per Lanfranco, interessante la soluzione dell'InputBox x le Progressioni.
 
Ultima modifica:
Lanfranco60 ha scritto:
Ciao lo script è pronto, le progressioni sono come le hai impostate tu, sia per l'ambata
che per l'ambo a tutte.
dato che non hai dato indicazioni sulla progressione da seguire per gli ambi sulle 2 ruote secche,
ti ho messo la giocata fissa ad 1 Euro per quest'ultimi

ti ho messo delle inputbox che ti permettono di scegliere
nota :
(leggi bene le varie inputbox)

Ti ho messo anche un resoconto particolare delle giocate e anche una tabella finale alla fine del resoconto, giu in basso nell'output
( presi di sana pianta da uno script di Mike58).


Codice: 
Sub Main()
    Dim es,Ini,Fin,Clp,ee,r1,r2,ruote(12),ruota(1)
    Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste1(2),poste2(2)
    Dim Importi1(1,8),Importi2(2,8),siNoProgress,Punt1(8),Punt2(8)
    posta(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
    r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"8"))
    siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO"))
    If siNoProgress = 1 Then
        Punt1(1) = CInt(InputBox("Puntata Ambata su 2 ruote per il 1°colpo ",,"1"))
        Punt1(2) = CInt(InputBox("Puntata Ambata su 2 ruote per il 2°colpo ",,"2"))
        Punt1(3) = CInt(InputBox("Puntata Ambata su 2 ruote per il 3°colpo ",,"4"))
        Punt1(4) = CInt(InputBox("Puntata Ambata su 2 ruote per il 4°colpo ",,"8"))
        Punt1(5) = CInt(InputBox("Puntata Ambata su 2 ruote per il 5°colpo ",,"15"))
        Punt1(6) = CInt(InputBox("Puntata Ambata su 2 ruote per il 6°colpo ",,"25"))
        Punt1(7) = CInt(InputBox("Puntata Ambata su 2 ruote per il 7°colpo ",,"45"))
        Punt1(8) = CInt(InputBox("Puntata Ambata su 2 ruote per l'8°colpo ",,"76"))
        Punt2(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
        Punt2(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"1"))
        Punt2(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"2"))
        Punt2(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"4"))
        Punt2(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"7"))
        Punt2(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"12"))
        Punt2(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"21"))
        Punt2(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"35"))
        Importi1(1,1) = Punt1(1)
        Importi1(1,2) = Punt1(2)
        Importi1(1,3) = Punt1(3)
        Importi1(1,4) = Punt1(4)
        Importi1(1,5) = Punt1(5)
        Importi1(1,6) = Punt1(6)
        Importi1(1,7) = Punt1(7)
        Importi1(1,8) = Punt1(8)
        Importi2(2,1) = Punt2(1)
        Importi2(2,2) = Punt2(2)
        Importi2(2,3) = Punt2(3)
        Importi2(2,4) = Punt2(4)
        Importi2(2,5) = Punt2(5)
        Importi2(2,6) = Punt2(6)
        Importi2(2,7) = Punt2(7)
        Importi2(2,8) = Punt2(8)
    End If
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        e1 = Estratto(es,r1,1)
        e2 = Estratto(es,r1,2)
        e3 = Estratto(es,r1,3)
        e4 = Estratto(es,r1,4)
        e5 = Estratto(es,r1,5)
        e6 = Estratto(es - 1,r1,1)
        e7 = Estratto(es - 1,r1,2)
        e8 = Estratto(es - 1,r1,3)
        e9 = Estratto(es - 1,r1,4)
        e10 = Estratto(es - 1,r1,5)
        a = Differenza(e1,e6)
        If a = 90 Then a = 0
        b = Differenza(e2,e7)
        If b = 90 Then b = 0
        c = Differenza(e3,e8)
        If c = 90 Then c = 0
        d = Differenza(e4,e9)
        If d = 90 Then d = 0
        e = Differenza(e5,e10)
        If e = 90 Then e = 0
        f = Differenza(b,a)
        If f = 90 Then f = 0
        g = Differenza(c,b)
        If g = 90 Then g = 0
        h = Differenza(d,c)
        If h = 90 Then h = 0
        i = Differenza(e,d)
        If i = 90 Then i = 0
        l = Differenza(g,f)
        If l = 90 Then l = 0
        m = Differenza(h,g)
        If m = 90 Then m = 0
        n = Differenza(i,h)
        If n = 90 Then n = 0
        o = Differenza(m,l)
        If o = 90 Then o = 0
        p = Differenza(n,m)
        If p = 90 Then p = 0
        q = Differenza(p,o)
        ruote(1) = r1
        ruote(2) = r2
        ruota(1) = 11
        co = co + 1
        Scrivi String(105,"=") & " Caso n°" & Format2(co),1
        Scrivi
        ColoreTesto 1
        Scrivi DataEstrazione(es - 1) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es - 1,r1),1
        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1),1
        ColoreTesto 0
        Scrivi String(50,"*"),1
        ColoreTesto 2
        Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
        ColoreTesto 0
        Scrivi
        Scrivi "a :  " & Format2(a) & " = " & Format2(e1) & " - " & Format2(e6) & " ( Diff. tra Primi estratti)",1
        Scrivi "b :  " & Format2(b) & " = " & Format2(e2) & " - " & Format2(e7) & " ( Diff. tra Secondi estratti)",1
        Scrivi "c :  " & Format2(c) & " = " & Format2(e3) & " - " & Format2(e8) & " ( Diff. tra Terzi estratti)",1
        Scrivi "d :  " & Format2(d) & " = " & Format2(e4) & " - " & Format2(e9) & " ( Diff. tra Quarti estratti)",1
        Scrivi "e :  " & Format2(e) & " = " & Format2(e5) & " - " & Format2(e10 & " ( Diff. tra Quinti estratti)"),1
        Scrivi "f :  " & Format2(f) & " = " & Format2(b) & " - " & Format2(a) & "  ( b - a )",1
        Scrivi "g :  " & Format2(g) & " = " & Format2(c) & " - " & Format2(b) & "  ( c - b )",1
        Scrivi "h :  " & Format2(h) & " = " & Format2(d) & " - " & Format2(c) & "  ( d - c )",1
        Scrivi "i :  " & Format2(i) & " = " & Format2(e) & " - " & Format2(d) & "  ( e - d )",1
        Scrivi "l :  " & Format2(l) & " = " & Format2(g) & " - " & Format2(f) & "  ( g - f )",1
        Scrivi "m :  " & Format2(m) & " = " & Format2(h) & " - " & Format2(g) & "  ( h - g )",1
        Scrivi "n :  " & Format2(n) & " = " & Format2(i) & " - " & Format2(h) & "  ( i - h )",1
        Scrivi "o :  " & Format2(o) & " = " & Format2(m) & " - " & Format2(l) & "  ( m - l )",1
        Scrivi "p :  " & Format2(p) & " = " & Format2(n) & " - " & Format2(m) & "  ( n - m )",1
        Scrivi "q :  " & Format2(q) & " = " & Format2(p) & " - " & Format2(o) & "  ( p - o )",1
        ColoreTesto 2
        Scrivi
        Scrivi Format2(q) & "    Questa è L'Ambata",1
        ColoreTesto 0
        Scrivi String(65,"*"),1
        ambata(1) = q
        ambo1(1) = ambata(1)
        ambo1(2) = a
        ambo2(1) = ambata(1)
        ambo2(2) = b
        ambo3(1) = ambata(1)
        ambo3(2) = c
        ambo4(1) = ambata(1)
        ambo4(2) = d
        ambo5(1) = ambata(1)
        ambo5(2) = e
        ImpostaGiocata 1,ambata,ruote,posta,Clp,1
        ImpostaProgressione 1,Importi1
        ImpostaGiocata 2,ambo1,ruote,poste1,Clp,2
        ImpostaGiocata 3,ambo2,ruote,poste1,Clp,2
        ImpostaGiocata 4,ambo3,ruote,poste1,Clp,2
        ImpostaGiocata 5,ambo4,ruote,poste1,Clp,2
        ImpostaGiocata 6,ambo5,ruote,poste1,Clp,2
        ImpostaGiocata 7,ambo1,ruota,poste2,Clp,2
        ImpostaProgressione 7,Importi2
        ImpostaGiocata 8,ambo2,ruota,poste2,Clp,2
        ImpostaProgressione 8,Importi2
        ImpostaGiocata 9,ambo3,ruota,poste2,Clp,2
        ImpostaProgressione 9,Importi2
        ImpostaGiocata 10,ambo4,ruota,poste2,Clp,2
        ImpostaProgressione 10,Importi2
        ImpostaGiocata 11,ambo5,ruota,poste2,Clp,2
        ImpostaProgressione 11,Importi2
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'ambata su 2 ruote ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi1(1,1) & " euro  x Ambata"
        Scrivi " Al 2° colpo - " & Importi1(1,2) & " euro  x Ambata"
        Scrivi " Al 3° colpo - " & Importi1(1,3) & " euro  x Ambata"
        Scrivi " Al 4° colpo - " & Importi1(1,4) & " euro  x Ambata"
        Scrivi " Al 5° colpo - " & Importi1(1,5) & " euro  x Ambata"
        Scrivi " Al 6° colpo - " & Importi1(1,6) & " euro  x Ambata"
        Scrivi " Al 7° colpo - " & Importi1(1,7) & " euro  x Ambata"
        Scrivi " Al 8° colpo - " & Importi1(1,8) & " euro  x Ambata"
        Scrivi String(35,"-")
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi2(2,1) & " euro  x Ambo"
        Scrivi " Al 2° colpo - " & Importi2(2,2) & " euro  x Ambo"
        Scrivi " Al 3° colpo - " & Importi2(2,3) & " euro  x Ambo"
        Scrivi " Al 4° colpo - " & Importi2(2,4) & " euro  x Ambo"
        Scrivi " Al 5° colpo - " & Importi2(2,5) & " euro  x Ambo"
        Scrivi " Al 6° colpo - " & Importi2(2,6) & " euro  x Ambo"
        Scrivi " Al 7° colpo - " & Importi2(2,7) & " euro  x Ambo"
        Scrivi " Al 8° colpo - " & Importi2(2,8) & " euro  x Ambo"
        Scrivi String(35,"-")
        For j = 1 To 11
            For w = 1 To 11
                ImpostaInterruzioni j,w,1
                ImpostaInterruzioni w,j,1
            Next
        Next
        Gioca es,1,,1
        Scrivi "Rendiconto parziale       ",1,- 1,6
        Scrivi "Toatale spesa   : " & GetSpesa(True)
        Scrivi "Totale vincite  : " & GetVincita(True)
        Scrivi "Totale guadagno : " & GetGuadagno(True)
        Scrivi "Resoconto progressivo     ",1,- 1,3
        Scrivi "Totale spesa   : " & GetSpesa(False)
        Scrivi "Totale vincite  : " & GetVincita(False)
        Scrivi "Totale guadagno : " & GetGuadagno(False)
        If GetGuadagno(False) > 0 Then
            Scrivi" ****  GO ON, MAN ! *** ",1,- 1,2
        Else
            Scrivi" ****  BEWARE, YOU ARE GETTING FUCKED **** ",1,- 1,4
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(105,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(105," * ")
    TestoInBandaPassante(" metodo di gorilla81  listato by Lanfranco60 "),1,3,0
    ScriviResoconto
    elencogiocate
End Sub
Function elencogiocate
    ReDim aT(9)
    aT(1) = "NumGiocata"
    aT(2) = "Colpo"
    aT(3) = "Spesa"
    aT(4) = "SpesaParz"
    aT(5) = "Vincita"
    aT(6) = "VincitaParz"
    aT(7) = " Utile totale "
    aT(8) = " Utile Parz "
    aT(9) = " sequenza Pos/Neg "
    Call InitTabella(aT,1,,3,5)
    For k = 1 To GetQuantitaGiocateEffettuate
        If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
            aT(1) = k
            aT(2) = RetColpo
            aT(3) = RetSpesa
            aT(4) = RetSpesaParz
            aT(5) = RetVincita
            aT(6) = RetVincitaParz
            aT(7) = Round(aT(5) - aT(3),2)
            aT(8) = Round(aT(6) - aT(4),2)
            If retcolpo > 0 Then aT(9) = 0
            If retcolpo < 0 Then aT(9) = 1
            If aT(9) = 1 Then neg = neg + 1
            If aT(9) = 0 Then pos = pos + 1
            Call AddRigaTabella(aT,,,3)
            If retcolpo > 0 Then Call SetColoreCella(2,3,0)
            If aT(7) > 0 Then Call SetColoreCella(7,4,2)
            If aT(7) < 0 Then Call SetColoreCella(7,2,4)
            If aT(8) > 0 Then Call SetColoreCella(8,4,2)
            If aT(8) < 0 Then Call SetColoreCella(8,2,4)
            If aT(9) = 1 Then Call SetColoreCella(9,7,1)
        End If
    Next
    ReDim Tot(9)
    Tot(1) = " casi Positivi"
    Tot(2) = pos
    Tot(8) = " casi Negativi "
    Tot(9) = neg
    Call AddRigaTabella(Tot,3,,3)
    Call CreaTabella
End Function
Clicca per espandere...







Con questa modifica ho eliminato il gioco degli ambi secchi su ruote fisse

Lo script è stato composto nell'editor script di Spaziometria, testato è funzionante al 1000%
Quindi se si vuole usufruire di tutte le funzionalità, bisogna usare SPAZIOMETRIA


Codice: 
Sub Main()
    Dim es,Ini,Fin,Clp,ee,r1,r2,ruote(12),ruota(1)
    Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste2(2)
    Dim Importi1(1,8),Importi2(2,8),siNoProgress,Punt1(8),Punt2(8)
    posta(1) = 1
    poste2(2) = 1
    r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
    r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"8"))
    siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO"))
    If siNoProgress = 1 Then
        Punt1(1) = CInt(InputBox("Puntata Ambata su 2 ruote per il 1°colpo ",,"1"))
        Punt1(2) = CInt(InputBox("Puntata Ambata su 2 ruote per il 2°colpo ",,"2"))
        Punt1(3) = CInt(InputBox("Puntata Ambata su 2 ruote per il 3°colpo ",,"4"))
        Punt1(4) = CInt(InputBox("Puntata Ambata su 2 ruote per il 4°colpo ",,"8"))
        Punt1(5) = CInt(InputBox("Puntata Ambata su 2 ruote per il 5°colpo ",,"15"))
        Punt1(6) = CInt(InputBox("Puntata Ambata su 2 ruote per il 6°colpo ",,"25"))
        Punt1(7) = CInt(InputBox("Puntata Ambata su 2 ruote per il 7°colpo ",,"45"))
        Punt1(8) = CInt(InputBox("Puntata Ambata su 2 ruote per l'8°colpo ",,"76"))
        Punt2(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
        Punt2(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"1"))
        Punt2(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"2"))
        Punt2(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"4"))
        Punt2(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"7"))
        Punt2(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"12"))
        Punt2(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"21"))
        Punt2(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"35"))
        Importi1(1,1) = Punt1(1)
        Importi1(1,2) = Punt1(2)
        Importi1(1,3) = Punt1(3)
        Importi1(1,4) = Punt1(4)
        Importi1(1,5) = Punt1(5)
        Importi1(1,6) = Punt1(6)
        Importi1(1,7) = Punt1(7)
        Importi1(1,8) = Punt1(8)
        Importi2(2,1) = Punt2(1)
        Importi2(2,2) = Punt2(2)
        Importi2(2,3) = Punt2(3)
        Importi2(2,4) = Punt2(4)
        Importi2(2,5) = Punt2(5)
        Importi2(2,6) = Punt2(6)
        Importi2(2,7) = Punt2(7)
        Importi2(2,8) = Punt2(8)
    End If
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        e1 = Estratto(es,r1,1)
        e2 = Estratto(es,r1,2)
        e3 = Estratto(es,r1,3)
        e4 = Estratto(es,r1,4)
        e5 = Estratto(es,r1,5)
        e6 = Estratto(es - 1,r1,1)
        e7 = Estratto(es - 1,r1,2)
        e8 = Estratto(es - 1,r1,3)
        e9 = Estratto(es - 1,r1,4)
        e10 = Estratto(es - 1,r1,5)
        a = Differenza(e1,e6)
        If a = 90 Then a = 0
        b = Differenza(e2,e7)
        If b = 90 Then b = 0
        c = Differenza(e3,e8)
        If c = 90 Then c = 0
        d = Differenza(e4,e9)
        If d = 90 Then d = 0
        e = Differenza(e5,e10)
        If e = 90 Then e = 0
        f = Differenza(b,a)
        If f = 90 Then f = 0
        g = Differenza(c,b)
        If g = 90 Then g = 0
        h = Differenza(d,c)
        If h = 90 Then h = 0
        i = Differenza(e,d)
        If i = 90 Then i = 0
        l = Differenza(g,f)
        If l = 90 Then l = 0
        m = Differenza(h,g)
        If m = 90 Then m = 0
        n = Differenza(i,h)
        If n = 90 Then n = 0
        o = Differenza(m,l)
        If o = 90 Then o = 0
        p = Differenza(n,m)
        If p = 90 Then p = 0
        q = Differenza(p,o)
        ruote(1) = r1
        ruote(2) = r2
        ruota(1) = 11
        co = co + 1
        Scrivi String(105,"=") & " Caso n°" & Format2(co),1
        Scrivi
        ColoreTesto 1
        Scrivi DataEstrazione(es - 1) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es - 1,r1),1
        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1),1
        ColoreTesto 0
        Scrivi String(50,"*"),1
        ColoreTesto 2
        Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
        ColoreTesto 0
        Scrivi
        Scrivi "a :  " & Format2(a) & " = " & Format2(e1) & " - " & Format2(e6) & " ( Diff. tra Primi estratti)",1
        Scrivi "b :  " & Format2(b) & " = " & Format2(e2) & " - " & Format2(e7) & " ( Diff. tra Secondi estratti)",1
        Scrivi "c :  " & Format2(c) & " = " & Format2(e3) & " - " & Format2(e8) & " ( Diff. tra Terzi estratti)",1
        Scrivi "d :  " & Format2(d) & " = " & Format2(e4) & " - " & Format2(e9) & " ( Diff. tra Quarti estratti)",1
        Scrivi "e :  " & Format2(e) & " = " & Format2(e5) & " - " & Format2(e10 & " ( Diff. tra Quinti estratti)"),1
        Scrivi "f :  " & Format2(f) & " = " & Format2(b) & " - " & Format2(a) & "  ( b - a )",1
        Scrivi "g :  " & Format2(g) & " = " & Format2(c) & " - " & Format2(b) & "  ( c - b )",1
        Scrivi "h :  " & Format2(h) & " = " & Format2(d) & " - " & Format2(c) & "  ( d - c )",1
        Scrivi "i :  " & Format2(i) & " = " & Format2(e) & " - " & Format2(d) & "  ( e - d )",1
        Scrivi "l :  " & Format2(l) & " = " & Format2(g) & " - " & Format2(f) & "  ( g - f )",1
        Scrivi "m :  " & Format2(m) & " = " & Format2(h) & " - " & Format2(g) & "  ( h - g )",1
        Scrivi "n :  " & Format2(n) & " = " & Format2(i) & " - " & Format2(h) & "  ( i - h )",1
        Scrivi "o :  " & Format2(o) & " = " & Format2(m) & " - " & Format2(l) & "  ( m - l )",1
        Scrivi "p :  " & Format2(p) & " = " & Format2(n) & " - " & Format2(m) & "  ( n - m )",1
        Scrivi "q :  " & Format2(q) & " = " & Format2(p) & " - " & Format2(o) & "  ( p - o )",1
        ColoreTesto 2
        Scrivi
        Scrivi Format2(q) & "    Questa è L'Ambata",1
        ColoreTesto 0
        Scrivi String(65,"*"),1
        ambata(1) = q
        ambo1(1) = ambata(1)
        ambo1(2) = a
        ambo2(1) = ambata(1)
        ambo2(2) = b
        ambo3(1) = ambata(1)
        ambo3(2) = c
        ambo4(1) = ambata(1)
        ambo4(2) = d
        ambo5(1) = ambata(1)
        ambo5(2) = e
        ImpostaGiocata 1,ambata,ruote,posta,Clp,1
        ImpostaProgressione 1,Importi1
        ImpostaGiocata 2,ambo1,ruota,poste2,Clp,2
        ImpostaProgressione 2,Importi2
        ImpostaGiocata 3,ambo2,ruota,poste2,Clp,2
        ImpostaProgressione 3,Importi2
        ImpostaGiocata 4,ambo3,ruota,poste2,Clp,2
        ImpostaProgressione 4,Importi2
        ImpostaGiocata 5,ambo4,ruota,poste2,Clp,2
        ImpostaProgressione 5,Importi2
        ImpostaGiocata 6,ambo5,ruota,poste2,Clp,2
        ImpostaProgressione 6,Importi2
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'ambata su 2 ruote ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi1(1,1) & " euro  x Ambata"
        Scrivi " Al 2° colpo - " & Importi1(1,2) & " euro  x Ambata"
        Scrivi " Al 3° colpo - " & Importi1(1,3) & " euro  x Ambata"
        Scrivi " Al 4° colpo - " & Importi1(1,4) & " euro  x Ambata"
        Scrivi " Al 5° colpo - " & Importi1(1,5) & " euro  x Ambata"
        Scrivi " Al 6° colpo - " & Importi1(1,6) & " euro  x Ambata"
        Scrivi " Al 7° colpo - " & Importi1(1,7) & " euro  x Ambata"
        Scrivi " Al 8° colpo - " & Importi1(1,8) & " euro  x Ambata"
        Scrivi String(35,"-")
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi2(2,1) & " euro  x Ambo"
        Scrivi " Al 2° colpo - " & Importi2(2,2) & " euro  x Ambo"
        Scrivi " Al 3° colpo - " & Importi2(2,3) & " euro  x Ambo"
        Scrivi " Al 4° colpo - " & Importi2(2,4) & " euro  x Ambo"
        Scrivi " Al 5° colpo - " & Importi2(2,5) & " euro  x Ambo"
        Scrivi " Al 6° colpo - " & Importi2(2,6) & " euro  x Ambo"
        Scrivi " Al 7° colpo - " & Importi2(2,7) & " euro  x Ambo"
        Scrivi " Al 8° colpo - " & Importi2(2,8) & " euro  x Ambo"
        Scrivi String(35,"-")
        For j = 1 To 6
            For w = 1 To 6
                ImpostaInterruzioni j,w,1
                ImpostaInterruzioni w,j,1
            Next
        Next
        Gioca es,1,,1
        Scrivi "Rendiconto parziale       ",1,- 1,6
        Scrivi "Toatale spesa   : " & GetSpesa(True)
        Scrivi "Totale vincite  : " & GetVincita(True)
        Scrivi "Totale guadagno : " & GetGuadagno(True)
        Scrivi "Resoconto progressivo     ",1,- 1,3
        Scrivi "Totale spesa   : " & GetSpesa(False)
        Scrivi "Totale vincite  : " & GetVincita(False)
        Scrivi "Totale guadagno : " & GetGuadagno(False)
        If GetGuadagno(False) > 0 Then
            Scrivi" ****  GO ON, MAN ! *** ",1,- 1,2
        Else
            Scrivi" ****  BEWARE, YOU ARE GETTING FUCKED **** ",1,- 1,4
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(105,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(105," * ")
    TestoInBandaPassante(" metodo di gorilla81  listato by Lanfranco60 "),1,3,0
    ScriviResoconto
    elencogiocate
End Sub
Function elencogiocate
    ReDim aT(9)
    aT(1) = "NumEstrGiocata"
    aT(2) = "Colpo"
    aT(3) = "Spesa"
    aT(4) = "SpesaParz"
    aT(5) = "Vincita"
    aT(6) = "VincitaParz"
    aT(7) = " Utile totale "
    aT(8) = " Utile Parz "
    aT(9) = " sequenza Pos/Neg "
    Call InitTabella(aT,1,,3,5)
    For k = 1 To GetQuantitaGiocateEffettuate
        If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
            aT(1) = k
            aT(2) = RetColpo
            aT(3) = RetSpesa
            aT(4) = RetSpesaParz
            aT(5) = RetVincita
            aT(6) = RetVincitaParz
            aT(7) = Round(aT(5) - aT(3),2)
            aT(8) = Round(aT(6) - aT(4),2)
            If retcolpo > 0 Then aT(9) = 0
            If retcolpo < 0 Then aT(9) = 1
            If aT(9) = 1 Then neg = neg + 1
            If aT(9) = 0 Then pos = pos + 1
            Call AddRigaTabella(aT,,,3)
            If retcolpo > 0 Then Call SetColoreCella(2,3,0)
            If aT(7) > 0 Then Call SetColoreCella(7,4,2)
            If aT(7) < 0 Then Call SetColoreCella(7,2,4)
            If aT(8) > 0 Then Call SetColoreCella(8,4,2)
            If aT(8) < 0 Then Call SetColoreCella(8,2,4)
            If aT(9) = 1 Then Call SetColoreCella(9,7,1)
        End If
    Next
    ReDim Tot(9)
    Tot(1) = " casi Positivi"
    Tot(2) = pos
    Tot(8) = " casi Negativi "
    Tot(9) = neg
    Call AddRigaTabella(Tot,3,,3)
    Call CreaTabella
End Function
 
Ultima modifica:
hettro ha scritto:
Per Lanfranco, interessante la soluzione dell'InputBox x le Progressioni

Piccole modifiche funziona anche in LD, non in L8.
Clicca per espandere...

Ti è piaciuta come soluzione ? lo ricopiata da un vecchio script di baffoblu.

Per le modifiche non saprei, perchè uso solo spaziometria, non mi va di stare a smanettare con altri programmi,
con questo fai praticamente tutto, e poi vuoi mettere che è in continua evoluzione......:-)
 
Lanfranco60 ha scritto:
Con questa modifica ho eliminato il gioco degli ambi secchi su ruote fisse

Lo script è stato composto nell'editor script di Spaziometria, testato è funzionante al 1000%
Quindi se si vuole usufruire di tutte le funzionalità, bisogna usare SPAZIOMETRIA


Codice: 
Sub Main()
    Dim es,Ini,Fin,Clp,ee,r1,r2,ruote(12),ruota(1)
    Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste2(2)
    Dim Importi1(1,8),Importi2(2,8),siNoProgress,Punt1(8),Punt2(8)
    posta(1) = 1
    poste2(2) = 1
    r1 = CInt(InputBox(" Scegli la ruota di calcolo e gioco ",,"12"))
    r2 = CInt(InputBox(" Scegli l'altra ruota di gioco ",,"10"))
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"8"))
    siNoProgress = CInt(InputBox("Vuoi una progressione ? * 1 = SI / 2 = NO"))
    If siNoProgress = 1 Then
        Punt1(1) = CInt(InputBox("Puntata Ambata su 2 ruote per il 1°colpo ",,"1"))
        Punt1(2) = CInt(InputBox("Puntata Ambata su 2 ruote per il 2°colpo ",,"2"))
        Punt1(3) = CInt(InputBox("Puntata Ambata su 2 ruote per il 3°colpo ",,"4"))
        Punt1(4) = CInt(InputBox("Puntata Ambata su 2 ruote per il 4°colpo ",,"8"))
        Punt1(5) = CInt(InputBox("Puntata Ambata su 2 ruote per il 5°colpo ",,"15"))
        Punt1(6) = CInt(InputBox("Puntata Ambata su 2 ruote per il 6°colpo ",,"25"))
        Punt1(7) = CInt(InputBox("Puntata Ambata su 2 ruote per il 7°colpo ",,"45"))
        Punt1(8) = CInt(InputBox("Puntata Ambata su 2 ruote per l'8°colpo ",,"76"))
        Punt2(1) = CInt(InputBox("Puntata Ambo a Tutte per il 1°colpo ",,"1"))
        Punt2(2) = CInt(InputBox("Puntata Ambo a Tutte per il 2°colpo ",,"1"))
        Punt2(3) = CInt(InputBox("Puntata Ambo a Tutte per il 3°colpo ",,"2"))
        Punt2(4) = CInt(InputBox("Puntata Ambo a Tutte per il 4°colpo ",,"4"))
        Punt2(5) = CInt(InputBox("Puntata Ambo a Tutte per il 5°colpo ",,"7"))
        Punt2(6) = CInt(InputBox("Puntata Ambo a Tutte per il 6°colpo ",,"12"))
        Punt2(7) = CInt(InputBox("Puntata Ambo a Tutte per il 7°colpo ",,"21"))
        Punt2(8) = CInt(InputBox("Puntata Ambo a Tutte per il 8°colpo ",,"35"))
        Importi1(1,1) = Punt1(1)
        Importi1(1,2) = Punt1(2)
        Importi1(1,3) = Punt1(3)
        Importi1(1,4) = Punt1(4)
        Importi1(1,5) = Punt1(5)
        Importi1(1,6) = Punt1(6)
        Importi1(1,7) = Punt1(7)
        Importi1(1,8) = Punt1(8)
        Importi2(2,1) = Punt2(1)
        Importi2(2,2) = Punt2(2)
        Importi2(2,3) = Punt2(3)
        Importi2(2,4) = Punt2(4)
        Importi2(2,5) = Punt2(5)
        Importi2(2,6) = Punt2(6)
        Importi2(2,7) = Punt2(7)
        Importi2(2,8) = Punt2(8)
    End If
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "Scripter : Lanfranco60 *** elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        e1 = Estratto(es,r1,1)
        e2 = Estratto(es,r1,2)
        e3 = Estratto(es,r1,3)
        e4 = Estratto(es,r1,4)
        e5 = Estratto(es,r1,5)
        e6 = Estratto(es - 1,r1,1)
        e7 = Estratto(es - 1,r1,2)
        e8 = Estratto(es - 1,r1,3)
        e9 = Estratto(es - 1,r1,4)
        e10 = Estratto(es - 1,r1,5)
        a = Differenza(e1,e6)
        If a = 90 Then a = 0
        b = Differenza(e2,e7)
        If b = 90 Then b = 0
        c = Differenza(e3,e8)
        If c = 90 Then c = 0
        d = Differenza(e4,e9)
        If d = 90 Then d = 0
        e = Differenza(e5,e10)
        If e = 90 Then e = 0
        f = Differenza(b,a)
        If f = 90 Then f = 0
        g = Differenza(c,b)
        If g = 90 Then g = 0
        h = Differenza(d,c)
        If h = 90 Then h = 0
        i = Differenza(e,d)
        If i = 90 Then i = 0
        l = Differenza(g,f)
        If l = 90 Then l = 0
        m = Differenza(h,g)
        If m = 90 Then m = 0
        n = Differenza(i,h)
        If n = 90 Then n = 0
        o = Differenza(m,l)
        If o = 90 Then o = 0
        p = Differenza(n,m)
        If p = 90 Then p = 0
        q = Differenza(p,o)
        ruote(1) = r1
        ruote(2) = r2
        ruota(1) = 11
        co = co + 1
        Scrivi String(105,"=") & " Caso n°" & Format2(co),1
        Scrivi
        ColoreTesto 1
        Scrivi DataEstrazione(es - 1) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es - 1,r1),1
        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1),1
        ColoreTesto 0
        Scrivi String(50,"*"),1
        ColoreTesto 2
        Scrivi " Calcoli effettuati dal più grande al più piccolo ",1
        ColoreTesto 0
        Scrivi
        Scrivi "a :  " & Format2(a) & " = " & Format2(e1) & " - " & Format2(e6) & " ( Diff. tra Primi estratti)",1
        Scrivi "b :  " & Format2(b) & " = " & Format2(e2) & " - " & Format2(e7) & " ( Diff. tra Secondi estratti)",1
        Scrivi "c :  " & Format2(c) & " = " & Format2(e3) & " - " & Format2(e8) & " ( Diff. tra Terzi estratti)",1
        Scrivi "d :  " & Format2(d) & " = " & Format2(e4) & " - " & Format2(e9) & " ( Diff. tra Quarti estratti)",1
        Scrivi "e :  " & Format2(e) & " = " & Format2(e5) & " - " & Format2(e10 & " ( Diff. tra Quinti estratti)"),1
        Scrivi "f :  " & Format2(f) & " = " & Format2(b) & " - " & Format2(a) & "  ( b - a )",1
        Scrivi "g :  " & Format2(g) & " = " & Format2(c) & " - " & Format2(b) & "  ( c - b )",1
        Scrivi "h :  " & Format2(h) & " = " & Format2(d) & " - " & Format2(c) & "  ( d - c )",1
        Scrivi "i :  " & Format2(i) & " = " & Format2(e) & " - " & Format2(d) & "  ( e - d )",1
        Scrivi "l :  " & Format2(l) & " = " & Format2(g) & " - " & Format2(f) & "  ( g - f )",1
        Scrivi "m :  " & Format2(m) & " = " & Format2(h) & " - " & Format2(g) & "  ( h - g )",1
        Scrivi "n :  " & Format2(n) & " = " & Format2(i) & " - " & Format2(h) & "  ( i - h )",1
        Scrivi "o :  " & Format2(o) & " = " & Format2(m) & " - " & Format2(l) & "  ( m - l )",1
        Scrivi "p :  " & Format2(p) & " = " & Format2(n) & " - " & Format2(m) & "  ( n - m )",1
        Scrivi "q :  " & Format2(q) & " = " & Format2(p) & " - " & Format2(o) & "  ( p - o )",1
        ColoreTesto 2
        Scrivi
        Scrivi Format2(q) & "    Questa è L'Ambata",1
        ColoreTesto 0
        Scrivi String(65,"*"),1
        ambata(1) = q
        ambo1(1) = ambata(1)
        ambo1(2) = a
        ambo2(1) = ambata(1)
        ambo2(2) = b
        ambo3(1) = ambata(1)
        ambo3(2) = c
        ambo4(1) = ambata(1)
        ambo4(2) = d
        ambo5(1) = ambata(1)
        ambo5(2) = e
        ImpostaGiocata 1,ambata,ruote,posta,Clp,1
        ImpostaProgressione 1,Importi1
        ImpostaGiocata 2,ambo1,ruota,poste2,Clp,2
        ImpostaProgressione 2,Importi2
        ImpostaGiocata 3,ambo2,ruota,poste2,Clp,2
        ImpostaProgressione 3,Importi2
        ImpostaGiocata 4,ambo3,ruota,poste2,Clp,2
        ImpostaProgressione 4,Importi2
        ImpostaGiocata 5,ambo4,ruota,poste2,Clp,2
        ImpostaProgressione 5,Importi2
        ImpostaGiocata 6,ambo5,ruota,poste2,Clp,2
        ImpostaProgressione 6,Importi2
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'ambata su 2 ruote ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi1(1,1) & " euro  x Ambata"
        Scrivi " Al 2° colpo - " & Importi1(1,2) & " euro  x Ambata"
        Scrivi " Al 3° colpo - " & Importi1(1,3) & " euro  x Ambata"
        Scrivi " Al 4° colpo - " & Importi1(1,4) & " euro  x Ambata"
        Scrivi " Al 5° colpo - " & Importi1(1,5) & " euro  x Ambata"
        Scrivi " Al 6° colpo - " & Importi1(1,6) & " euro  x Ambata"
        Scrivi " Al 7° colpo - " & Importi1(1,7) & " euro  x Ambata"
        Scrivi " Al 8° colpo - " & Importi1(1,8) & " euro  x Ambata"
        Scrivi String(35,"-")
        ColoreTesto 1
        Scrivi "[ puntate eseguite per l'Ambo a Tutte ]"
        ColoreTesto 0
        Scrivi " Al 1° colpo - " & Importi2(2,1) & " euro  x Ambo"
        Scrivi " Al 2° colpo - " & Importi2(2,2) & " euro  x Ambo"
        Scrivi " Al 3° colpo - " & Importi2(2,3) & " euro  x Ambo"
        Scrivi " Al 4° colpo - " & Importi2(2,4) & " euro  x Ambo"
        Scrivi " Al 5° colpo - " & Importi2(2,5) & " euro  x Ambo"
        Scrivi " Al 6° colpo - " & Importi2(2,6) & " euro  x Ambo"
        Scrivi " Al 7° colpo - " & Importi2(2,7) & " euro  x Ambo"
        Scrivi " Al 8° colpo - " & Importi2(2,8) & " euro  x Ambo"
        Scrivi String(35,"-")
        For j = 1 To 6
            For w = 1 To 6
                ImpostaInterruzioni j,w,1
                ImpostaInterruzioni w,j,1
            Next
        Next
        Gioca es,1,,1
        Scrivi "Rendiconto parziale       ",1,- 1,6
        Scrivi "Toatale spesa   : " & GetSpesa(True)
        Scrivi "Totale vincite  : " & GetVincita(True)
        Scrivi "Totale guadagno : " & GetGuadagno(True)
        Scrivi "Resoconto progressivo     ",1,- 1,3
        Scrivi "Totale spesa   : " & GetSpesa(False)
        Scrivi "Totale vincite  : " & GetVincita(False)
        Scrivi "Totale guadagno : " & GetGuadagno(False)
        If GetGuadagno(False) > 0 Then
            Scrivi" ****  GO ON, MAN ! *** ",1,- 1,2
        Else
            Scrivi" ****  BEWARE, YOU ARE GETTING FUCKED **** ",1,- 1,4
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(105,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(105," * ")
    TestoInBandaPassante(" metodo di gorilla81  listato by Lanfranco60 "),1,3,0
    ScriviResoconto
    elencogiocate
End Sub
Function elencogiocate
    ReDim aT(9)
    aT(1) = "NumEstrGiocata"
    aT(2) = "Colpo"
    aT(3) = "Spesa"
    aT(4) = "SpesaParz"
    aT(5) = "Vincita"
    aT(6) = "VincitaParz"
    aT(7) = " Utile totale "
    aT(8) = " Utile Parz "
    aT(9) = " sequenza Pos/Neg "
    Call InitTabella(aT,1,,3,5)
    For k = 1 To GetQuantitaGiocateEffettuate
        If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
            aT(1) = k
            aT(2) = RetColpo
            aT(3) = RetSpesa
            aT(4) = RetSpesaParz
            aT(5) = RetVincita
            aT(6) = RetVincitaParz
            aT(7) = Round(aT(5) - aT(3),2)
            aT(8) = Round(aT(6) - aT(4),2)
            If retcolpo > 0 Then aT(9) = 0
            If retcolpo < 0 Then aT(9) = 1
            If aT(9) = 1 Then neg = neg + 1
            If aT(9) = 0 Then pos = pos + 1
            Call AddRigaTabella(aT,,,3)
            If retcolpo > 0 Then Call SetColoreCella(2,3,0)
            If aT(7) > 0 Then Call SetColoreCella(7,4,2)
            If aT(7) < 0 Then Call SetColoreCella(7,2,4)
            If aT(8) > 0 Then Call SetColoreCella(8,4,2)
            If aT(8) < 0 Then Call SetColoreCella(8,2,4)
            If aT(9) = 1 Then Call SetColoreCella(9,7,1)
        End If
    Next
    ReDim Tot(9)
    Tot(1) = " casi Positivi"
    Tot(2) = pos
    Tot(8) = " casi Negativi "
    Tot(9) = neg
    Call AddRigaTabella(Tot,3,,3)
    Call CreaTabella
End Function
Clicca per espandere...

Ciao Lanfranco, uso spaziometria quasi da sempre ma anche in passato mi diede questo problema con uno script ma mi bastò aggiornare e tutto filò liscio. Adesso invece non riesco a trovare l'aggiornamento all'ultima versione... cosa mi consigliate?
 
Per hettro

MANCANO LE " ImpostaProgressioni " dopo ogni " ImpostaGiocata " ...............................

ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
*** ImpostaProgressione 1,prog1
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
*** ImpostaProgressione 2,prog2
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
*** *ImpostaProgressione 3,prog2

Segui cosi fino alla fine delle "ImpostaGiocate" (non devi inserire gli asterischi, li ho messi per farti capire dove inserire).
Clicca per espandere...

La progressione per la giocata di sola ambata dove va?


Grazie!
 
Ultima modifica:
Io non capisco, ti ho fatto uno script extralusso dove puoi scegliere tutto quello che vuoi, comprese le progressioni a tuo piacimento
e le interruzioni di giocate,noccioline popcorn e ci ho aggiunto anche la birra.

e tu?

stai cercando ancora dove mettere la progressione per la giocata.....................BOOOOOOOOOOO
 
gorilla81 ha scritto:
Per hettro

La progressione per la giocata di sola ambata dove va?

Grazie!
Clicca per espandere...

ambata(1) = q
ImpostaGiocata 1,ambata,ruote,posta,Clp,1
ImpostaProgressione 1,prog1 <---------------- AMBATA
'----------------------------------------
ambo1(1) = ambata(1)
ambo1(2) = a
ImpostaGiocata 2,ambo1,ruote,poste,Clp,2
ImpostaProgressione 2,prog2 <---------------- AMBO
ambo2(1) = ambata(1)
ambo2(2) = b
ImpostaGiocata 3,ambo2,ruote,poste,Clp,2
ImpostaProgressione 3,prog2 <---------------- AMBO


e così di seguito..................................................
 
Ultima modifica:
Lanfranco chiedere è come dici tu anche imparare! In più inizialmente col tuo script mi dava quell'errore del quale ti parlavo, risolto in un secondo momento che ho installato la nuova versione di spaziometria. Con lo stesso metodo ho imparato 2 metodi per costruire gli script!

Per Hettro, scusa ma mi sono spiegato male, volevo chiederti se una volta inserita quella stringa la progressione per ambata viene seguita o se la devo cambiare colpo dopo colpo manualmente.

Buona giornata!
 
gorilla81 ha scritto:
Lanfranco chiedere è come dici tu anche imparare! In più inizialmente col tuo script mi dava quell'errore del quale ti parlavo, risolto in un secondo momento che ho installato la nuova versione di spaziometria. Con lo stesso metodo ho imparato 2 metodi per costruire gli script!

Per Hettro, scusa ma mi sono spiegato male, volevo chiederti se una volta inserita quella stringa la progressione per ambata viene seguita o se la devo cambiare colpo dopo colpo manualmente.

Buona giornata!
Clicca per espandere...

Tutto automatico, alla sortita della prima AMBATA si blocca tutta la giocata inclusi gli AMBI

Le MATRICI delle progressioni sono quelle che hai inserito all'inizio dello script.

Se vuoi cambiare importi devi cambiarli nelle MATRICI, lascia stare il resto.

Per le PROGRESSIONI basta sostituire gli importi dopo " = ":

--------------------------------------------------

Per AMBATA

prog1(1,1)=1
prog1(1,2)=2
prog1(1,3)=4
prog1(1,4)=8
prog1(1,5)=15
prog1(1,6)=25
prog1(1,7)=45
prog1(1,8)=76

Per AMBO RUOTA e TUTTE

prog2(2,1)=1
prog2(2,2)=1
prog2(2,3)=2
prog2(2,4)=4
prog2(2,5)=7
prog2(2,6)=12
prog2(2,7)=21
prog2(2,8)=35

--------------------------------------------------
 
Ultima modifica:
x gorilla81


Adesso che hai finalmente installato l'ultima versione di spaziometria,
puoi inserirti lo script e goderti i popcorn e la birra.

Ma non so perchè sembra che tu non lo apprezzi
leggo che ancora stai cercando di fare cose che lo
script ti fa già di suo in automatico
questo mi da da pensare, ma in fin dei conti il metodo è quello che è......
 
Lanfranco60 ha scritto:
x gorilla81


Adesso che hai finalmente installato l'ultima versione di spaziometria,
puoi inserirti lo script e goderti i popcorn e la birra.

Ma non so perchè sembra che tu non lo apprezzi
leggo che ancora stai cercando di fare cose che lo
script ti fa già di suo in automatico
questo mi da da pensare, ma in fin dei conti il metodo è quello che è......
Clicca per espandere...

Ciao Lanfranco,

gorilla81 vuole solo imparare, io cerco di spiegargli i passaggi, questo e tutto.

IL TUO E' UNO SPLENDIDO SCRIPT, HO GIA FATTO L'ESEGUIBILE.
 
Lanfranco il tuo é un lavoro superlativo e che rispecchia in tutto quello che io cercavo! Però visto che nel lavoro di Hettro mancava un solo passaggio x completarlo e avevo un dubbio sul suo funzionamento sarebbe stato un peccato lasciarlo incompleto e nella mia mente lasciare un dubbio! tutto qui! Vi ringrazio di cuore x il lavoro fatto x me!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 giugno 2025
    Bari
    33
    01
    29
    44
    22
    Cagliari
    44
    19
    09
    33
    01
    Firenze
    68
    14
    30
    61
    05
    Genova
    44
    53
    24
    79
    62
    Milano
    62
    72
    07
    21
    37
    Napoli
    48
    39
    29
    85
    11
    Palermo
    12
    50
    29
    76
    75
    Roma
    89
    02
    62
    78
    23
    Torino
    16
    45
    27
    23
    13
    Venezia
    36
    77
    81
    09
    73
    Nazionale
    17
    18
    01
    47
    88
    Estrazione Simbolotto
    Napoli
    15
    35
    27
    25
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto