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
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24

Ultimi Messaggi

Indietro
Alto