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
 
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
 
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
 
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
 
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.. 💪
 
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:
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.
 
Ciao salvo14, potresti scrivere il metodo in chiaro? non so leggere gli script..... Grazie

Isabel
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 giugno 2026
    Bari
    79
    44
    34
    76
    86
    Cagliari
    16
    76
    87
    84
    37
    Firenze
    70
    35
    43
    72
    04
    Genova
    38
    59
    06
    79
    55
    Milano
    40
    68
    61
    88
    83
    Napoli
    37
    61
    90
    22
    14
    Palermo
    31
    45
    90
    44
    26
    Roma
    72
    04
    06
    41
    23
    Torino
    65
    62
    34
    06
    86
    Venezia
    34
    64
    59
    49
    71
    Nazionale
    07
    25
    36
    38
    08
    Estrazione Simbolotto
    Napoli
    45
    41
    35
    11
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto