Novità

L'Ambo - Su Firenze-Napoli - Alla 12 Del Mese

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti ed ancora Buon Anno.
Oggi Voglio proporre un sommativo che partendo da Maggio 2020 nella Terzina calcolata ha sempre dato l'ambo nei 5 colpi, 2 già passati per cui ne mancano solo 3 sperando che la fortuna ci aiuti.

Il pronostico Attuale è:
07.30.54 su FI NA per Ambo

per non avere problemi di calcolo Vi posto comunque lo Script così potete verificare la suà bontà negli esiti, ho scelto di partire da Maggio in quanto le estrazioni hanno subito stop, spostamenti ed anomalie che non mi piacciono, ma nel caos magari i calcoli se ne fregano....

Codice:
Option Explicit
Sub Main()
   Dim ruote(10)
   Dim numeri1(10)
   Dim posta(5)
   Dim Clp,Ini,Fin,es,K
   posta(2) = 1
   ruote(1) = FI_
   ruote(2) = NA_
   Clp = 5 ' Colpi di Gioco
   Ini = 9775
   Fin = EstrazioneFin
   Scrivi String(107,"-") & " By Xeroxs " & "-----"
   Scrivi String(48," ") & "****** Resoconto ****** ",1,,,7
   Scrivi String(48," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,1
   Scrivi String(34," ") & " L'Ambo - Su Firenze-Napoli - Alla 12 Del Mese ",1,,,1
   Scrivi String(123,"-")
   For es = Ini To EstrazioneFin
      'If IsUltimaDelMese(es) Then
      If IndiceMensile(es) = 12 Then
      Messaggio "Elaborazione estrazioni... [" &(es) & " ]   Script  by Xeroxs"
      AvanzamentoElab Ini,Fin,es
         numeri1(1) = Fuori90(Estratto(es,MI_,3) + Estratto(es,BA_,1) + 84)
         numeri1(2) = Fuori90(Estratto(es,BA_,1) - Estratto(es,NA_,3) + 33)
         numeri1(3) = Fuori90(Estratto(es,FI_,2) - Estratto(es,TO_,5) + 46)
         'EliminaRipetuti numeri1
         ColoreTesto 1 : K = K + 1 : Scrivi "Estraz. " & Format2(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile " & "[" & Format2(Mese(es)) & " - " & Anno(es) & "]  " & String(58,"*") & " Caso n° " & Format2(K),1,0
         Scrivi
         ColoreTesto 0
         Scrivi
         ImpostaGiocata 1,numeri1,ruote,posta,Clp
         'Gioca es
         Gioca es,True,,1
      End If
   Next
   Scrivi
   ScriviResoconto '1
End Sub

Sperando che la dea bendata ci Aiuti...♠️♣️♥️♦️
 
Ultima modifica:
grazie xeroxs ma io NN ci capisco un'acca dello script...nn potresti mettere il calcolo come quell'altro???? se vuoi ne?? grazie
 
Ciao,
numeri1(1) = Fuori90(Estratto(es,MI_,3) + Estratto(es,BA_,1) + 84)
numeri1(2) = Fuori90(Estratto(es,BA_,1) - Estratto(es,NA_,3) + 33)
numeri1(3) = Fuori90(Estratto(es,FI_,2) - Estratto(es,TO_,5) + 46)

Primo numero 3 di Milano + 1 di Bari + 84
Secondo numero 1 di Bari- 3 di Napoli + 33
Terzo numero 2 di Firenze - 5 di Torino + 46
Quando serve usare il fuori 90
 
grazie-del-regalo-pacco-animato-a001.gif
 
Ultima modifica:
Ciao, Per Correttezza ho modificato Titolo e Script per chi lo volesse usare, purtroppo quando lo scrivevo erano le tre e tra verifiche e altro ho sbagliato il Titolo... ;)
 
Scusa Xeroxs, ho ferificato il tuo metodo, ma a me viene 8-54-38,e non 7-30-54
sbaglio qualcosa?
3Mi+1 + 1Ba +84 (-90)
1Ba -3Na+33 (-90)
2Fi-5To+46 (-90)
Grazie
 
Ho calcolato più volte, ma a me il risultato viene un pò diverso.
ovvero 8-54 38

Risultati riferiti all'estrazione
del 28/12/2020


A1 = TMilano3.Text + 1 '41+1
B1 = TBari1.Text + 84 '62 +84 >146
If B1 > 90 Then B1 = B1 - 90 '56
'------------
A2 = TBari1.Text '62
B2 = TNapoli3.Text + 33 '65+33 >98
If B2 > 90 Then B2 = B2 - 90 ' 8
'--------------
A3 = TFirenze2.Text '7
B3 = TTorino5.Text + 46 '89+46 >135
If B3 > 90 Then B3 = B3 - 90 '45
'-------------RISULTATI
R1 = A1 + B1 '42+56 >98
If R1 > 90 Then R1 = R1 - 90 '8
'--------------------------
R2 = A2 - B2 '62-8
R2 = Math.Abs(R2) '> 54
'-----------------------
R3 = A3 - B3 '45-7
R3 = Math.Abs(R3) '> 38
 
Ho calcolato più volte, ma a me il risultato viene un pò diverso.
ovvero 8-54 38

Risultati riferiti all'estrazione
del 28/12/2020


A1 = TMilano3.Text '41
B1 = TBari1.Text + 84 '62 +84 >146
If B1 > 90 Then B1 = B1 - 90 '56
'------------
A2 = TBari1.Text '62
B2 = TNapoli3.Text + 33 '65+33 >98
If B2 > 90 Then B2 = B2 - 90 ' 8
'--------------
A3 = TFirenze2.Text '7
B3 = TTorino5.Text + 46 '89+46 >135
If B3 > 90 Then B3 = B3 - 90 '45
'-------------RISULTATI
R1 = A1 + B1 '42+56 >98
If R1 > 90 Then R1 = R1 - 90 '7
'--------------------------
R2 = A2 - B2 '62-8
R2 = Math.Abs(R2) '> 54
'-----------------------
R3 = A3 - B3 '45-7
R3 = Math.Abs(R3) '> 38
 
Aggiornamento

Codice:
Sub Main()
   Dim ruote(10)
   Dim numeri1(10)
   Dim posta(5)
   Dim Clp,Ini,Fin,es,K
   posta(2) = 1
   ruote(1) = FI_
   ruote(2) = NA_
   Clp = 5 ' Colpi di Gioco
   Ini = 9775
   Fin = EstrazioneFin
   Scrivi String(107,"-") & " By Xeroxs " & "-----"
   Scrivi String(48," ") & "****** Resoconto ****** ",1,,,7
   Scrivi String(48," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,1
   Scrivi String(34," ") & " L'Ambo - Su Firenze-Napoli - Alla 12 Del Mese ",1,,,1
   Scrivi String(123,"-")
   For es = Ini To EstrazioneFin
      'If IsUltimaDelMese(es) Then
      If IndiceMensile(es) = 12 Then
      Messaggio "Elaborazione estrazioni... [" &(es) & " ]   Script  by Xeroxs"
      AvanzamentoElab Ini,Fin,es
         numeri1(1) = Fuori90(Estratto(es,MI_,3) + Estratto(es,BA_,1) + 84)
         numeri1(2) = Fuori90(90+(Estratto(es,BA_,1)) - Estratto(es,NA_,3) + 33)
         numeri1(3) = Fuori90(90+(Estratto(es,FI_,2)) - Estratto(es,TO_,5) + 46)
         'EliminaRipetuti numeri1
         ColoreTesto 1 : K = K + 1 : Scrivi "Estraz. " & Format2(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile " & "[" & Format2(Mese(es)) & " - " & Anno(es) & "]  " & String(58,"*") & " Caso n° " & Format2(K),1,0
         Scrivi
         ColoreTesto 0
         Scrivi
         ImpostaGiocata 1,numeri1,ruote,posta,Clp
         'Gioca es
         Gioca es,True,,1
      End If
   Next
   Scrivi
   ScriviResoconto '1
End Sub
 
Buonasera sig. Marco , ho provato lo script ma mi da errore alla riga 14 , questo:

Scrivi String(48," ") & "****** Resoconto ****** ",1,,,7

Non so per quale motivo.
 
Buonasera sig. Marco , ho provato lo script ma mi da errore alla riga 14 , questo:

Scrivi String(48," ") & "****** Resoconto ****** ",1,,,7

Non so per quale motivo.
Ho provato ora a copiarlo e incollarlo su Spaziometria e non mi da nessun errore.Riprova a copiarlo bene perchè deve funzionare,ho solo fatto funzionare meglio 2 algoritmi
 
Ciao, Marco-elle
Grazie per la correzione, anche se provando e riprovando con il mio funziona correttamente, si vede che con altre versioni o programmi da errore, ho preso visione delle modifiche e ne terrò conto per i calcoli futuri, comunque anche fatti a mano sono corretti come da Script.
Grazie ancora per il tuo contributo.
 
Ciao, Marco-elle
Grazie per la correzione, anche se provando e riprovando con il mio funziona correttamente, si vede che con altre versioni o programmi da errore, ho preso visione delle modifiche e ne terrò conto per i calcoli futuri, comunque anche fatti a mano sono corretti come da Script.
Grazie ancora per il tuo contributo.
Ti ho solo inserito la somma90 al primo estratto dei 2 algoritmi che fanno la sottrazione,Al momento è sempre risultato che il primo numero è maggiore ma se in futuro non avviene,quel calcolo non lo fa,oppure rende la previsione falsata.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto