Novità

x Toon

S

salvo14

Super Member >PLATINUM<
Ciao Toon, scusa se approfitto della tua gentilezza.
Ti chiedo nel limite del possibile e quando hai tempo di verificare la formula di questo Script in quanto all'apparenza funziona bene, peccato che da l'ambata sbagliata.
Ho verificato la formula con excel e mi dà l'ambata giusta tantè che come puoi verificare dà un ambo ogni mese (almeno fino che dura..)
Esempio Ambate con excel:
02/01/2024 Ambata 46
01/02/2024 Ambata 4
01/03/2024 Ambata 4
Sicuramente lo Script ha la formula sbagliata.
Grazie.

Sub Main() ColoreTesto 2
Scrivi
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
poste(2) = 1
y = 200 'InputBox("Quante estrazioni di ricerca?",,200)
klp = 12
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 1 Then
ruote(1) = 1
ruote(2) = 2
'---
ColoreTesto 0 :Scrivi " ALLA 1^ DEL MESE 4 AMBI SU BARI-CAGLIARI COLPI 12 ",1,1,1,4,4,"verdana",1

ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0

t1(1) = Fuori90(Estratto(es,1,3) -(Estratto(es,4,2) * 4))
ImpostaGiocata 1,t1,ruote,poste,klp

t2(1) = Fuori90(Estratto(es,1,3) -(Estratto(es,4,2) * 4))
t2(2) = 11
ImpostaGiocata 2,t2,ruote,poste,klp

t3(1) = Fuori90(Estratto(es,1,3) -(Estratto(es,4,2) * 4))
t3(2) = 19
ImpostaGiocata 3,t3,ruote,poste,klp

t4(1) = Fuori90(Estratto(es,1,3) -(Estratto(es,4,2) * 4))
t4(2) = 81
ImpostaGiocata 4,t4,ruote,poste,klp

t5(1) = Fuori90(Estratto(es,1,3) -(Estratto(es,4,2) * 4))
t5(2) = 90
ImpostaGiocata 5,t5,ruote,poste,klp

Gioca es,1
End If
Next
Scrivi
ScriviResoconto
End Sub
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Nelle sottrazioni,bisogna sommare 90 al 1° estratto perchè non sempre il 1°
estratto del calcolo algoritmico è maggiore del 2° estratto
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
Si ma la moltiplicazone in questo caso va fatta per ultimo per riportare le sue ambate
metti questa
Fuori90((90+Estratto(es,1,3) -Estratto(es,4,2)) * 4)
Ciauz
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Controlla ora se i dati sono uguali a exel
Codice: 
Sub Main() ColoreTesto 2
   Scrivi
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
   poste(2) = 1
   y = 200 'InputBox("Quante estrazioni di ricerca?",,200)
   klp = 12
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then
      If IndiceMensile(es) = 1 Then
         ruote(1) = 1
         ruote(2) = 2
         '---
         ColoreTesto 0 :Scrivi " ALLA 1^ DEL MESE 4 AMBI SU BARI-CAGLIARI COLPI 12 ",1,1,1,4,4,"verdana",1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,4,2) * 4)
         ImpostaGiocata 1,t1,ruote,poste,klp
         t2(1) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,4,2) * 4)
         t2(2) = 11
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,4,2) * 4)
         t3(2) = 19
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,4,2) * 4)
         t4(2) = 81
         ImpostaGiocata 4,t4,ruote,poste,klp
         t5(1) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,4,2) * 4)
         t5(2) = 90
         ImpostaGiocata 5,t5,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi
   ScriviResoconto
End Sub
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Mancava la giocata x estratto e variato come spiegava il buon DJ Nomade
Codice: 
Sub Main() ColoreTesto 2
   Scrivi
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5):Dim posta(1)
   poste(2) = 1
   posta(1) = 1
   y = 200 'InputBox("Quante estrazioni di ricerca?",,200)
   klp = 12
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then
      If IndiceMensile(es) = 1 Then
         ruote(1) = 1
         ruote(2) = 2
         '---
         ColoreTesto 0 :Scrivi " ALLA 1^ DEL MESE 4 AMBI SU BARI-CAGLIARI COLPI 12 ",1,1,1,4,4,"verdana",1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(90 +(Estratto(es,1,3) - Estratto(es,4,2)) * 4)
         ImpostaGiocata 1,t1,ruote,posta,klp
         t2(1) = Fuori90(90 +(Estratto(es,1,3) - Estratto(es,4,2)) * 4)
         t2(2) = 11
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(90 +(Estratto(es,1,3) - Estratto(es,4,2)) * 4)
         t3(2) = 19
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(90 +(Estratto(es,1,3) - Estratto(es,4,2)) * 4)
         t4(2) = 81
         ImpostaGiocata 4,t4,ruote,poste,klp
         t5(1) = Fuori90(90 +(Estratto(es,1,3) - Estratto(es,4,2)) * 4)
         t5(2) = 90
         ImpostaGiocata 5,t5,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi
   ScriviResoconto
End Sub
 
toon

toon

Advanced Member
Grazie Ragazzi, io non avevo fatto i calcoli, avevo solo aggiunto al listato 2 cose che non centravano nulla con le operazioni matematiche, ma con delle persone come Voi ci si sente coccolati e seguiti con attenzione, da veri Amici.
Salvo, hai la possibilità di godere dell'esperienza di due fra i più grandi esperti, Marco e DJ , Grazie, utile per migliorare anche per me.. 💪
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
toon ha scritto:
Grazie Ragazzi, io non avevo fatto i calcoli, avevo solo aggiunto al listato 2 cose che non centravano nulla con le operazioni matematiche, ma con delle persone come Voi ci si sente coccolati e seguiti con attenzione, da veri Amici.
Salvo, hai la possibilità di godere dell'esperienza di due fra i più grandi esperti, Marco e DJ , Grazie, utile per migliorare anche per me.. 💪
Clicca per espandere...
Grazie Toon,
Come scripter sono una sega! Ma….
Alle volte con i calcoli matematici
Riesco ad aiutare qualcuno pure io
 
Ultima modifica:
S

salvo14

Super Member >PLATINUM<
Ragazzi siete fortissimi, competenti e professionali Grazie a tutti sono contento di fare parte di questa comunità dove la disponibilità e l'altruismo regnano sovrani. Bravi e complimenti.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 03 maggio 2024
    Bari
    38
    11
    08
    19
    81
    Cagliari
    69
    50
    27
    65
    06
    Firenze
    60
    05
    42
    75
    84
    Genova
    17
    29
    71
    48
    80
    Milano
    02
    33
    81
    85
    63
    Napoli
    12
    10
    29
    51
    84
    Palermo
    04
    21
    69
    79
    50
    Roma
    62
    72
    84
    30
    90
    Torino
    41
    33
    46
    03
    68
    Venezia
    03
    29
    10
    85
    33
    Nazionale
    72
    03
    82
    37
    58
    Estrazione Simbolotto
    Milano
    19
    22
    24
    08
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto