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
 
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.. 💪
 
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
    venerdì 17 maggio 2024
    Bari
    63
    35
    59
    12
    69
    Cagliari
    13
    07
    23
    24
    38
    Firenze
    35
    80
    90
    76
    73
    Genova
    11
    54
    27
    06
    20
    Milano
    07
    72
    48
    37
    15
    Napoli
    65
    87
    82
    50
    35
    Palermo
    13
    88
    44
    67
    24
    Roma
    31
    05
    47
    33
    46
    Torino
    39
    57
    84
    82
    09
    Venezia
    09
    23
    49
    53
    63
    Nazionale
    37
    43
    26
    48
    81
    Estrazione Simbolotto
    Milano
    26
    07
    17
    44
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto