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
 
Marco-elle

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
 
Marco-elle

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
 
Marco-elle

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
 
Sakti

Sakti

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.. 💪
 
Marco-elle

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
    giovedì 06 giugno 2024
    Bari
    04
    26
    13
    81
    75
    Cagliari
    12
    27
    33
    64
    89
    Firenze
    61
    20
    75
    17
    02
    Genova
    27
    18
    35
    41
    03
    Milano
    50
    16
    26
    66
    73
    Napoli
    29
    08
    10
    17
    86
    Palermo
    14
    90
    39
    76
    65
    Roma
    43
    87
    27
    45
    80
    Torino
    42
    03
    33
    70
    39
    Venezia
    26
    75
    86
    85
    82
    Nazionale
    09
    11
    80
    45
    34
    Estrazione Simbolotto
    Napoli
    04
    33
    13
    42
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto