richiesta script

SVITLANA · Ieri alle 13:21

Buongiorno a tutti
chiedo se è possibile uno script che mi dia la formula migliore senza che calcolarla una per una nell'allegato script che ho cercato di mettere giù
Sub Main()

Dim ambata(3)

Dim ruota(12)

Dim posta(2)

posta(1) = 1

fin = EstrazioneFin

ini = fin - 150

For es = ini To fin

AvanzamentoElab ini,fin,es

If IndiceMensile(es) = 9 Then

N = Fuori90(Estratto(es,1,1) + Estratto(es,2,1))

N1 = Fuori90(Estratto(es,1,1) - Estratto(es,2,1))

N2 = Fuori90(Estratto(es,1,1) * Estratto(es,2,1))

N3 = Fuori90(Estratto(es,1,1) + Estratto(es,2,2))

N4 = Fuori90(Estratto(es,1,1) - Estratto(es,2,2))

N5 = Fuori90(Estratto(es,1,1)* Estratto(es,2,2))

N6 = Fuori90(Estratto(es,1,1) + Estratto(es,2,3))

N7 = Fuori90(Estratto(es,1,1) - Estratto(es,2,3))

N8 = Fuori90(Estratto(es,1,1)* Estratto(es,2,3))

N9 = Fuori90(Estratto(es,1,1) + Estratto(es,2,4))

N10 = Fuori90(Estratto(es,1,1) - Estratto(es,2,4))

N11 = Fuori90(Estratto(es,1,1)* Estratto(es,2,4))

N12 = Fuori90(Estratto(es,1,1) + Estratto(es,2,5))

N13 = Fuori90(Estratto(es,1,1) - Estratto(es,2,5))

N14 = Fuori90(Estratto(es,1,1)* Estratto(es,2,5))

a = Fuori90(Estratto(es,1,2) + Estratto(es,2,1))

a1 = Fuori90(Estratto(es,1,2) - Estratto(es,2,1))

a2 = Fuori90(Estratto(es,1,2)* Estratto(es,2,1))

a3 = Fuori90(Estratto(es,1,2) + Estratto(es,2,2))

a4 = Fuori90(Estratto(es,1,2) - Estratto(es,2,2))

a5 = Fuori90(Estratto(es,1,2)* Estratto(es,2,2))

a6 = Fuori90(Estratto(es,1,2) + Estratto(es,2,3))

a7 = Fuori90(Estratto(es,1,2) - Estratto(es,2,3))

a8 = Fuori90(Estratto(es,1,2)* Estratto(es,2,3))

a9 = Fuori90(Estratto(es,1,2) + Estratto(es,2,4))

a10 = Fuori90(Estratto(es,1,2) - Estratto(es,2,4))

a11 = Fuori90(Estratto(es,1,2)* Estratto(es,2,4))

a12 = Fuori90(Estratto(es,1,2) + Estratto(es,2,5))

a13 = Fuori90(Estratto(es,1,2) - Estratto(es,2,5))

a14 = Fuori90(Estratto(es,1,2)* Estratto(es,2,5))

b = Fuori90(Estratto(es,1,3) + Estratto(es,2,1))

b1 = Fuori90(Estratto(es,1,3) - Estratto(es,2,1))

b2 = Fuori90(Estratto(es,1,3)* Estratto(es,2,1))

b3 = Fuori90(Estratto(es,1,3) + Estratto(es,2,2))

b4 = Fuori90(Estratto(es,1,3) - Estratto(es,2,2))

b5 = Fuori90(Estratto(es,1,3)* Estratto(es,2,2))

b6 = Fuori90(Estratto(es,1,3) + Estratto(es,2,3))

b7 = Fuori90(Estratto(es,1,3) - Estratto(es,2,3))

b8 = Fuori90(Estratto(es,1,3)* Estratto(es,2,3))

b9 = Fuori90(Estratto(es,1,3) + Estratto(es,2,4))

b10 = Fuori90(Estratto(es,1,3) - Estratto(es,2,4))

b11 = Fuori90(Estratto(es,1,3)* Estratto(es,2,4))

b12 = Fuori90(Estratto(es,1,3) + Estratto(es,2,5))

b13 = Fuori90(Estratto(es,1,3) - Estratto(es,2,5))

b14 = Fuori90(Estratto(es,1,3)* Estratto(es,2,5))

c = Fuori90(Estratto(es,1,4) + Estratto(es,2,1))

c1 = Fuori90(Estratto(es,1,4) - Estratto(es,2,1))

c2 = Fuori90(Estratto(es,1,4)* Estratto(es,2,1))

c3 = Fuori90(Estratto(es,1,4) + Estratto(es,2,2))

c4 = Fuori90(Estratto(es,1,4) - Estratto(es,2,2))

c5 = Fuori90(Estratto(es,1,4)* Estratto(es,2,2))

c6 = Fuori90(Estratto(es,1,4) + Estratto(es,2,3))

c7 = Fuori90(Estratto(es,1,4) - Estratto(es,2,3))

c8 = Fuori90(Estratto(es,1,4)* Estratto(es,2,3))

c9 = Fuori90(Estratto(es,1,4) + Estratto(es,2,4))

c10 = Fuori90(Estratto(es,1,4) - Estratto(es,2,4))

c11 = Fuori90(Estratto(es,1,4)* Estratto(es,2,4))

c12 = Fuori90(Estratto(es,1,4) + Estratto(es,2,5))

c13 = Fuori90(Estratto(es,1,4) - Estratto(es,2,5))

c14 = Fuori90(Estratto(es,1,4)* Estratto(es,2,5))

d = Fuori90(Estratto(es,1,5) + Estratto(es,2,1))

d1 = Fuori90(Estratto(es,1,5) - Estratto(es,2,1))

d2 = Fuori90(Estratto(es,1,5)* Estratto(es,2,1))

d3 = Fuori90(Estratto(es,1,5) + Estratto(es,2,2))

d4 = Fuori90(Estratto(es,1,5) - Estratto(es,2,2))

d5 = Fuori90(Estratto(es,1,5)* Estratto(es,2,2))

d6 = Fuori90(Estratto(es,1,5) + Estratto(es,2,3))

d7 = Fuori90(Estratto(es,1,5) - Estratto(es,2,3))

d8 = Fuori90(Estratto(es,1,5)* Estratto(es,2,3))

d9 = Fuori90(Estratto(es,1,5) + Estratto(es,2,4))

d10 = Fuori90(Estratto(es,1,5) - Estratto(es,2,4))

d11 = Fuori90(Estratto(es,1,5)* Estratto(es,2,4))

d12 = Fuori90(Estratto(es,1,5) + Estratto(es,2,5))

d13 = Fuori90(Estratto(es,1,5) - Estratto(es,2,5))

d14 = Fuori90(Estratto(es,1,5)* Estratto(es,2,5))

ruota(1) = 1 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(2) = 2 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(3) = 3 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(4) = 4 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(5) = 5 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(6) = 6 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(7) = 7 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(8) = 8 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(9) = 9 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(10) = 10 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(12) = 12 '<<<<<<<<<<<<<<<<<<<<RUOTA

ambata(1) =(d14)

ImpostaGiocata 1,ambata,ruota,posta,3,1

Gioca es

End If

Next

ScriviResoconto

End Sub

Grazie

pasquale71 · Ieri alle 14:35

Buonasera, non è molto chiaro quello che chiede su questo script che genera un'ambata alla nona estrazione del mese e si ferma sulla prima ruota dove viene sortito. Cosa vorrebbe che faccia questo script per Lei?, Saluti

SVITLANA · Ieri alle 16:47

buonasera, vorrei sapere se è possibile su quale ruota il numero è uscito piu volte e, calcolare quale delle formule migliore invece di procedere manualmente con a,a1,a2 ect.
grazie

pasquale71 · Ieri alle 18:06

Senza Stravolgero piu' di tanto , forse è quello che cercavi, prova cosi'. Anche se qui ci sono dei mostri sacri che lavorano sugli script meglio di chiunque altro.

'-------------------------------------------

Sub Main()

Dim ambata(3)

Dim ruota(12)

Dim posta(2)

posta(1) = 1

fin = EstrazioneFin

ini = fin - 150

For es = ini To fin

AvanzamentoElab ini,fin,es

If IndiceMensile(es) = 9 Then

N = Fuori90(Estratto(es,1,1) + Estratto(es,2,1))

N1 = Fuori90(Estratto(es,1,1) - Estratto(es,2,1))

N2 = Fuori90(Estratto(es,1,1) * Estratto(es,2,1))

N3 = Fuori90(Estratto(es,1,1) + Estratto(es,2,2))

N4 = Fuori90(Estratto(es,1,1) - Estratto(es,2,2))

N5 = Fuori90(Estratto(es,1,1)* Estratto(es,2,2))

N6 = Fuori90(Estratto(es,1,1) + Estratto(es,2,3))

N7 = Fuori90(Estratto(es,1,1) - Estratto(es,2,3))

N8 = Fuori90(Estratto(es,1,1)* Estratto(es,2,3))

N9 = Fuori90(Estratto(es,1,1) + Estratto(es,2,4))

N10 = Fuori90(Estratto(es,1,1) - Estratto(es,2,4))

N11 = Fuori90(Estratto(es,1,1)* Estratto(es,2,4))

N12 = Fuori90(Estratto(es,1,1) + Estratto(es,2,5))

N13 = Fuori90(Estratto(es,1,1) - Estratto(es,2,5))

N14 = Fuori90(Estratto(es,1,1)* Estratto(es,2,5))

a = Fuori90(Estratto(es,1,2) + Estratto(es,2,1))

a1 = Fuori90(Estratto(es,1,2) - Estratto(es,2,1))

a2 = Fuori90(Estratto(es,1,2)* Estratto(es,2,1))

a3 = Fuori90(Estratto(es,1,2) + Estratto(es,2,2))

a4 = Fuori90(Estratto(es,1,2) - Estratto(es,2,2))

a5 = Fuori90(Estratto(es,1,2)* Estratto(es,2,2))

a6 = Fuori90(Estratto(es,1,2) + Estratto(es,2,3))

a7 = Fuori90(Estratto(es,1,2) - Estratto(es,2,3))

a8 = Fuori90(Estratto(es,1,2)* Estratto(es,2,3))

a9 = Fuori90(Estratto(es,1,2) + Estratto(es,2,4))

a10 = Fuori90(Estratto(es,1,2) - Estratto(es,2,4))

a11 = Fuori90(Estratto(es,1,2)* Estratto(es,2,4))

a12 = Fuori90(Estratto(es,1,2) + Estratto(es,2,5))

a13 = Fuori90(Estratto(es,1,2) - Estratto(es,2,5))

a14 = Fuori90(Estratto(es,1,2)* Estratto(es,2,5))

b = Fuori90(Estratto(es,1,3) + Estratto(es,2,1))

b1 = Fuori90(Estratto(es,1,3) - Estratto(es,2,1))

b2 = Fuori90(Estratto(es,1,3)* Estratto(es,2,1))

b3 = Fuori90(Estratto(es,1,3) + Estratto(es,2,2))

b4 = Fuori90(Estratto(es,1,3) - Estratto(es,2,2))

b5 = Fuori90(Estratto(es,1,3)* Estratto(es,2,2))

b6 = Fuori90(Estratto(es,1,3) + Estratto(es,2,3))

b7 = Fuori90(Estratto(es,1,3) - Estratto(es,2,3))

b8 = Fuori90(Estratto(es,1,3)* Estratto(es,2,3))

b9 = Fuori90(Estratto(es,1,3) + Estratto(es,2,4))

b10 = Fuori90(Estratto(es,1,3) - Estratto(es,2,4))

b11 = Fuori90(Estratto(es,1,3)* Estratto(es,2,4))

b12 = Fuori90(Estratto(es,1,3) + Estratto(es,2,5))

b13 = Fuori90(Estratto(es,1,3) - Estratto(es,2,5))

b14 = Fuori90(Estratto(es,1,3)* Estratto(es,2,5))

c = Fuori90(Estratto(es,1,4) + Estratto(es,2,1))

c1 = Fuori90(Estratto(es,1,4) - Estratto(es,2,1))

c2 = Fuori90(Estratto(es,1,4)* Estratto(es,2,1))

c3 = Fuori90(Estratto(es,1,4) + Estratto(es,2,2))

c4 = Fuori90(Estratto(es,1,4) - Estratto(es,2,2))

c5 = Fuori90(Estratto(es,1,4)* Estratto(es,2,2))

c6 = Fuori90(Estratto(es,1,4) + Estratto(es,2,3))

c7 = Fuori90(Estratto(es,1,4) - Estratto(es,2,3))

c8 = Fuori90(Estratto(es,1,4)* Estratto(es,2,3))

c9 = Fuori90(Estratto(es,1,4) + Estratto(es,2,4))

c10 = Fuori90(Estratto(es,1,4) - Estratto(es,2,4))

c11 = Fuori90(Estratto(es,1,4)* Estratto(es,2,4))

c12 = Fuori90(Estratto(es,1,4) + Estratto(es,2,5))

c13 = Fuori90(Estratto(es,1,4) - Estratto(es,2,5))

c14 = Fuori90(Estratto(es,1,4)* Estratto(es,2,5))

d = Fuori90(Estratto(es,1,5) + Estratto(es,2,1))

d1 = Fuori90(Estratto(es,1,5) - Estratto(es,2,1))

d2 = Fuori90(Estratto(es,1,5)* Estratto(es,2,1))

d3 = Fuori90(Estratto(es,1,5) + Estratto(es,2,2))

d4 = Fuori90(Estratto(es,1,5) - Estratto(es,2,2))

d5 = Fuori90(Estratto(es,1,5)* Estratto(es,2,2))

d6 = Fuori90(Estratto(es,1,5) + Estratto(es,2,3))

d7 = Fuori90(Estratto(es,1,5) - Estratto(es,2,3))

d8 = Fuori90(Estratto(es,1,5)* Estratto(es,2,3))

d9 = Fuori90(Estratto(es,1,5) + Estratto(es,2,4))

d10 = Fuori90(Estratto(es,1,5) - Estratto(es,2,4))

d11 = Fuori90(Estratto(es,1,5)* Estratto(es,2,4))

d12 = Fuori90(Estratto(es,1,5) + Estratto(es,2,5))

d13 = Fuori90(Estratto(es,1,5) - Estratto(es,2,5))

d14 = Fuori90(Estratto(es,1,5)* Estratto(es,2,5))

ruota(1) = 1 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(2) = 2 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(3) = 3 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(4) = 4 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(5) = 5 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(6) = 6 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(7) = 7 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(8) = 8 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(9) = 9 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(10) = 10 '<<<<<<<<<<<<<<<<<<<<RUOTA

ruota(12) = 12 '<<<<<<<<<<<<<<<<<<<<RUOTA

ambata(1) =(d14)

ImpostaGiocata 1,ambata,ruota,posta,3

Gioca es,1

End If

Next

ScriviResoconto

End Sub

SVITLANA · Ieri alle 19:56

GRAZIE!!

claudio8 · Oggi alle 00:00

Da quanto ho letto deduco che tu voglia:

SVITLANA ha scritto:
buonasera,
vorrei sapere se è possibile calcolare su quale ruota il numero ( da N a d14 in elenco ) è uscito piu volte e, se possibile creare una formula che calcoli il migliore invece di procedere manualmente con a,a1,a2 ect.
grazie

Codice:

Sub Main()
     Dim ambata(3)
     Dim ruota(12)
     Dim posta(2)
     Dim N(100),co,r
     posta(1) = 1 'estratto
     fin = EstrazioneFin
     ini = fin - 50
     r = 1
     For es = ini To fin
          AvanzamentoElab ini,fin,es
          If IndiceMensile(es) = 9 Then
               Scrivi " Somma estratti "
               co = 0
               For p1 = 1 To 5
                    For p2 = 1 To 5
                         co = co + 1
                         N(co) = Fuori90(Estratto(es,r,p1) + Estratto(es,r + 1,p2)) ' algoritmo dell'ambata
                         Scrivi Format2(co) & ")" & " " & DataEstrazione(es) & " -- " & Estratto(es,r,p1) & " + " & Estratto(es,r + 1,p2) & " = " & N(co)
                    Next
                    Scrivi
               Next
               '----------------------------------------------------------------------------------------------------------              
               ' N1 = N - Estratto(es,2,1))
               '               N2 = N * Estratto(es,2,1))
               '               N3 = N + Estratto(es,2,2))
               '               N4 = N - Estratto(es,2,2))
               '               N5 = N * Estratto(es,2,2))
               '               N6 = N + Estratto(es,2,3))
               '               N7 = N - Estratto(es,2,3))
               '               N8 = N* Estratto(es,2,3))
               '               N9 = N + Estratto(es,2,4))
               '               N10 = N - Estratto(es,2,4))
               '               N11 = N* Estratto(es,2,4))
               '               N12 = N + Estratto(es,2,5))
               '               N13 = N - Estratto(es,2,5))
               '               N14 = N* Estratto(es,2,5))
               '
               '               a = Fuori90(Estratto(es,1,2) + Estratto(es,2,1))
               '
               '               a1 = Fuori90(Estratto(es,1,2) - Estratto(es,2,1))
               '               a2 = Fuori90(Estratto(es,1,2)* Estratto(es,2,1))
               '               a3 = Fuori90(Estratto(es,1,2) + Estratto(es,2,2))
               '               a4 = Fuori90(Estratto(es,1,2) - Estratto(es,2,2))
               '               a5 = Fuori90(Estratto(es,1,2)* Estratto(es,2,2))
               '               a6 = Fuori90(Estratto(es,1,2) + Estratto(es,2,3))
               '               a7 = Fuori90(Estratto(es,1,2) - Estratto(es,2,3))
               '               a8 = Fuori90(Estratto(es,1,2)* Estratto(es,2,3))
               '               a9 = Fuori90(Estratto(es,1,2) + Estratto(es,2,4))
               '               a10 = Fuori90(Estratto(es,1,2) - Estratto(es,2,4))
               '               a11 = Fuori90(Estratto(es,1,2)* Estratto(es,2,4))
               '               a12 = Fuori90(Estratto(es,1,2) + Estratto(es,2,5))
               '               a13 = Fuori90(Estratto(es,1,2) - Estratto(es,2,5))
               '               a14 = Fuori90(Estratto(es,1,2)* Estratto(es,2,5))
               '               b = Fuori90(Estratto(es,1,3) + Estratto(es,2,1))
               '               b1 = Fuori90(Estratto(es,1,3) - Estratto(es,2,1))
               '               b2 = Fuori90(Estratto(es,1,3)* Estratto(es,2,1))
               '               b3 = Fuori90(Estratto(es,1,3) + Estratto(es,2,2))
               '               b4 = Fuori90(Estratto(es,1,3) - Estratto(es,2,2))
               '               b5 = Fuori90(Estratto(es,1,3)* Estratto(es,2,2))
               '               b6 = Fuori90(Estratto(es,1,3) + Estratto(es,2,3))
               '               b7 = Fuori90(Estratto(es,1,3) - Estratto(es,2,3))
               '               b8 = Fuori90(Estratto(es,1,3)* Estratto(es,2,3))
               '               b9 = Fuori90(Estratto(es,1,3) + Estratto(es,2,4))
               '               b10 = Fuori90(Estratto(es,1,3) - Estratto(es,2,4))
               '               b11 = Fuori90(Estratto(es,1,3)* Estratto(es,2,4))
               '               b12 = Fuori90(Estratto(es,1,3) + Estratto(es,2,5))
               '               b13 = Fuori90(Estratto(es,1,3) - Estratto(es,2,5))
               '               b14 = Fuori90(Estratto(es,1,3)* Estratto(es,2,5))
               '               c = Fuori90(Estratto(es,1,4) + Estratto(es,2,1))
               '               c1 = Fuori90(Estratto(es,1,4) - Estratto(es,2,1))
               '               c2 = Fuori90(Estratto(es,1,4)* Estratto(es,2,1))
               '               c3 = Fuori90(Estratto(es,1,4) + Estratto(es,2,2))
               '               c4 = Fuori90(Estratto(es,1,4) - Estratto(es,2,2))
               '               c5 = Fuori90(Estratto(es,1,4)* Estratto(es,2,2))
               '               c6 = Fuori90(Estratto(es,1,4) + Estratto(es,2,3))
               '               c7 = Fuori90(Estratto(es,1,4) - Estratto(es,2,3))
               '               c8 = Fuori90(Estratto(es,1,4)* Estratto(es,2,3))
               '               c9 = Fuori90(Estratto(es,1,4) + Estratto(es,2,4))
               '               c10 = Fuori90(Estratto(es,1,4) - Estratto(es,2,4))
               '               c11 = Fuori90(Estratto(es,1,4)* Estratto(es,2,4))
               '               c12 = Fuori90(Estratto(es,1,4) + Estratto(es,2,5))
               '               c13 = Fuori90(Estratto(es,1,4) - Estratto(es,2,5))
               '               c14 = Fuori90(Estratto(es,1,4)* Estratto(es,2,5))
               '               d = Fuori90(Estratto(es,1,5) + Estratto(es,2,1))
               '               d1 = Fuori90(Estratto(es,1,5) - Estratto(es,2,1))
               '               d2 = Fuori90(Estratto(es,1,5)* Estratto(es,2,1))
               '               d3 = Fuori90(Estratto(es,1,5) + Estratto(es,2,2))
               '               d4 = Fuori90(Estratto(es,1,5) - Estratto(es,2,2))
               '               d5 = Fuori90(Estratto(es,1,5)* Estratto(es,2,2))
               '               d6 = Fuori90(Estratto(es,1,5) + Estratto(es,2,3))
               '               d7 = Fuori90(Estratto(es,1,5) - Estratto(es,2,3))
               '               d8 = Fuori90(Estratto(es,1,5)* Estratto(es,2,3))
               '               d9 = Fuori90(Estratto(es,1,5) + Estratto(es,2,4))
               '               d10 = Fuori90(Estratto(es,1,5) - Estratto(es,2,4))
               '               d11 = Fuori90(Estratto(es,1,5)* Estratto(es,2,4))
               '               d12 = Fuori90(Estratto(es,1,5) + Estratto(es,2,5))
               '               d13 = Fuori90(Estratto(es,1,5) - Estratto(es,2,5))
               '               d14 = Fuori90(Estratto(es,1,5)* Estratto(es,2,5))
               '          For x = 1 To 10 ciclo delle ruote lette da ImpostaGiocata
               '               ruota(x) = x
               '          Next
               '          ruota(12) = 12 '<<<<<<<<<<<<<<<<<<<<RUOTA
              '
              '
               '          ambata(1) =(d14)
               '          ImpostaGiocata 1,ambata,ruota,posta,3,1
               '          Gioca es
          End If
     Next
     'ScriviResoconto
End Sub

Ti ho inserito un pezzo di script per darti l'input alla costruzione delle formule ( costrutti ) che ti possono ottimizzare lo script.

Nb: il controllo dell'ambata va eseguito ogni volta che lo script calcola l'algoritmo dell'ambata.

Saluti

Cerca

Cerca

richiesta script

SVITLANA

Junior Member

pasquale71

Advanced Member >PLATINUM<

SVITLANA

Junior Member

pasquale71

Advanced Member >PLATINUM<

SVITLANA

Junior Member

claudio8

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi