CALCOLO SU BARI

[carlo58]

se possibile fare script Grazie anticipatamente
1° del mese su Bari 02/11/2022
1°estratto 66 6+6=12 1+2=3 1°+2° 3+2=5
2°estratto 20 2+0=02 2+0=2 2°+3° 2+9=11
3°estratto 09 0+9=09 0+9=9 3°+4° 9+6=15
4°estratto 24 2+4=06 0+6=6 4°+5° 6+1=7
5°estratto 82 8+2=10 1+0=1 5° 1+0=1
in Gioco 5-11-15-7-1 x ambo e terno su Venezia Nazionale e tutte

[Master]

Ciao
controlla se i calcoli sono corretti

Codice: Seleziona tutto

  ------------------------------------------
03.01.2022 BA 49.38.64.66.53
              13.11.10.12.08
              04.02.01.03.08
    In Gioco  03.04.06.08.11

------------------------------------------
01.02.2022 BA 06.01.61.23.24
              06.01.07.05.06
              06.01.07.05.06
    In Gioco  06.07.08.11.12

------------------------------------------
01.03.2022 BA 61.68.49.75.71
              07.14.13.12.08
              07.05.04.03.08
    In Gioco  07.08.09.11.12

------------------------------------------
02.04.2022 BA 35.41.38.06.73
              08.05.11.06.10
              08.05.02.06.01
    In Gioco  01.07.08.13

------------------------------------------
03.05.2022 BA 80.69.84.73.50
              08.15.12.10.05
              08.06.03.01.05
    In Gioco  04.05.06.09.14

------------------------------------------
03.06.2022 BA 76.84.29.70.60
              13.12.11.07.06
              04.03.02.07.06
    In Gioco  05.06.07.09.13

------------------------------------------
02.07.2022 BA 49.39.86.27.59
              13.12.14.09.14
              04.03.05.09.05
    In Gioco  05.07.08.14

------------------------------------------
02.08.2022 BA 80.17.86.13.30
              08.08.14.04.03
              08.08.05.04.03
    In Gioco  03.07.09.13.16

------------------------------------------
01.09.2022 BA 37.90.13.07.58
              10.09.04.07.13
              01.09.04.07.04
    In Gioco  04.10.11.13

------------------------------------------
01.10.2022 BA 67.36.58.68.33
              13.09.13.14.06
              04.09.04.05.06
    In Gioco  06.09.11.13

------------------------------------------
02.11.2022 BA 66.20.09.24.82
              12.02.09.06.10
              03.02.09.06.01
    In Gioco  01.05.07.11.15

 

[carlo58]

tutto ok spiego finale in gioco
03.01.2022 BA----49.38.64.66.53
---------------------13.11.10.12.08
---------------------04.02.01.03.08
--------------------- 1° 2° 3° 4° 5°


1°2°-------2°3°-------3°4°------4°5°
4e2=42----2e1=21----1e3=13---3e8=38

In Gioco 42-21-13-38
spero di essermi spiegato bene, ringraziando l'interesse alla mia idea.

[Master]

Ciao
Tutto ok con finale di gioco
Buona serata

Codice: Seleziona tutto

'Calcolo su Bari ideato da carlo58 http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4692
Sub Main()
   Dim Inizio,Ini,Caso,R,p,K,i,j,t
   Dim ruota(3),posta(3),n(5),fi(5),nr1(5)
   posta(2) = 1:posta(3) = 1
   Inizio = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",150))
   K = CInt(InputBox("Quanti colpi vuoi controllare?",,13))
   Ini = EstrazioneFin - Inizio
   Caso = 0
   For es = Ini To EstrazioneFin
      If IndiceMensile(es) = 1 Then
         R = 1
         For p = 1 To 5
            n(p) = Estratto(es,R,p)
            fi(p) = Figura(n(p))
         Next
         t = 0
         For i = 1 To 4:j = i + 1
            t = t + 1
            nr1(t) = Fuori90(fi(i) & fi(j))
         Next
         Caso = Caso + 1
         ruota(1) = VE_: ruota(2) = NZ_:ruota(3) = TT_
         Scrivi String(100,"-") & " Caso " & Caso,1
         Scrivi DataEstrazione(es) & " " & SiglaRuota(R) & " " & StringaEstratti(es,R),1
         Scrivi Space(14) & StringaNumeri(fi)
         Scrivi Space(14) & StringaNumeri(nr1)
         Scrivi
         ImpostaGiocata 1,nr1,ruota,posta,K
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

[carlo58]

Tutto perfetto i calcoli sono quelli che volevo io non so come ringraziarti.
N.B. queste due righe le devo apostrofare perchè mi da errore 450
Scrivi Space(14) & StringaNumeri(fi,,1)
Scrivi Space(14) & StringaNumeri(nr1,,1)
CIAOOOOOOOOOOOOOOO e Grazie

[Master]

Ho modificato le due righe così non le devi più apostrofare
ciaooo

[carlo58]

DALLE RICERCHE FATTE DA ME IL MIGLIORE CHE DA RISULTATI MIGLIORI E QUESTO SE QUALCUNO TROVA DI MEGLIO E BEN FATTO. BUONA FORTUNA A TUTTI

'Calcolo su Bari ideato da carlo58 viewtopic.php?f=10&t=4692
Sub Main()
Dim Inizio,Ini,Caso,R,p,K,i,j,t
Dim ruota(12),posta(4),n(5),fi(5),nr1(5)
posta(3) = 1:posta(4) = 1
Inizio = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",1500))
K = CInt(InputBox("Quanti colpi vuoi controllare?",,13))
Ini = EstrazioneFin - Inizio
Caso = 0
For es = Ini To EstrazioneFin
If IndiceMensile(es) = 11 Then
R = 12
For p = 1 To 5
n(p) = Estratto(es,R,p)
fi(p) = Figura(n(p))
Next
t = 0
For i = 1 To 4:j = i + 1
t = t + 1
nr1(t) = Fuori90(fi(i) & fi(j))
Next
Caso = Caso + 1
ruota(1) = BA_: ruota(2) = NZ_:ruota(3) = TU_
Scrivi String(100,"-") & " Caso " & Caso,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(R) & " " & StringaEstratti(es,R),1
Scrivi Space(14) & StringaNumeri(FI)
Scrivi Space(14) & StringaNumeri(nr1)
Scrivi
ImpostaGiocata 1,nr1,ruota,posta,K
Gioca es
End If
Next
ScriviResoconto
End Sub

[lottomoney]

Buongiorno, la ruota di ricerca che ha dato un esito positivo è quella di Venezia, su 157 estrazioni (1 anno) e 13 colpi.
Peccato che la giocata sia solo per Terno e Quaterna e non anche per Ambo.
lottomoney