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

[Xeroxs]

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....

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...

 

[kira]

grazie xeroxs ma io NN ci capisco un'acca dello script...nn potresti mettere il calcolo come quell'altro???? se vuoi ne?? grazie

 

[Xeroxs]

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

 

[kira]

 

[kira]

perdona xeroxs, ma l'ambo si gioca su fir ven oppure fir nap ???

 

[Xeroxs]

Wow ho sbagliato il titolo è Firenze Napoli.... copiando ho scritto male...
Scusate.

 

[Xeroxs]

modificando un mio script ho dimenticato la modifica del titolo...

 

[kira]

nn importa ora sappiamo grazie

 

[Xeroxs]

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...

 

[Pixel]

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

 

[Xeroxs]

Ciao,
Devi usare gli estratti relativi alla 12 estrazione
41+62+84 con fuori 90 hai 7

 

[Pixel]

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

 

[Pixel]

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

 

[Pixel]

C'era un errore di una precedente compilazione

 

[Marco-elle]

Lo script nel tempo può dare errori nel tempo con le operazioni di sottrazione

 

[Marco-elle]

Aggiornamento

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

 

[K2020]

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.

 

[Marco-elle]

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

 

[Xeroxs]

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.

 

[Marco-elle]

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.