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
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto