salvo50 Bari _Milano script

[kubes]

CIAO salvo50 POSSIBILE AVERE LO SCRIPT DI QUESTA METODOLOGIA?

IL METODO CONSISTE NEL DOVER PRENDERE 3 ESTRAZIONI CONSECUTIVE DI MILANO
DALL'ESTRAZIONE CENTRALE SOMMARE IL 2° +3° +4° DELLA RUOTA DI MILANO, IL RISULTATO è IL CAPOGIOCO
SOMMARE POI I TERZI ESTRATTI DELL'ESTRAZIONE PRECEDENTE E DI QUELLA SUCCESSIVA CHE DANNO COME RISOLTATO IL CAPOGIOCO

ESEMPIO

ESTR. DEL 28/02/08 MI-06-88-53-38-76
ESTR. DEL 01/03/08 MI-30-24-12-27-86
ESTR. DEL 04/03/08 MI-12-82-10-27-20

CALCOLO =24+12+27=63 CAPOGIOCO.

IL VALORE TROVATO E' UGUALE ALLA SOMMA DEI 2 TERZI ESTRATTI SOMMATI =53+10=63.
ADESSO SOMMARE I 4 LATERALI AL NUMERO CENTRALE DELL'ESTR. CENTRALE E' CIOE' IL 12,
( 53+12=65 / 24+12=36 / 10+12=22 / 27+12=39 ) QUINDI I NUMERI SONO

BA/TUTTE=63-65-36-22-39,

DA SEGUIRE SU BARI X 9 COLPI.

PER IL RESTO DELLE RUOTE SARA'
SE PREV è MI SI GIOCA A BA
NA-CA
PA-FI
RO-GE
TO-MI
VE-NA
BA-PA
CA-RO
FI-TO
GE-VE.

 

[salvo50]

Ciao a Tutti

Ciao Kubes, si può fare, però prima sono impegnato con Genios tempo permettendo.

 

[salvo50]

CIAO salvo50
PER IL RESTO DELLE RUOTE SARA'
SE PREV è MI SI GIOCA A BA
NA-CA
PA-FI
RO-GE
TO-MI
VE-NA
BA-PA
CA-RO
FI-TO
GE-VE.

Solo per capire, se si calcola su Milano giocare su Bari, però Milano fa coppia con Torino, come mai?

 

[kubes]

SE CALCOLI TORINO , POI GIOCHI SU MILANO ....
SE CALCOLI BARI , POI GIOCHI SU PALERMO ......

 

[kubes]

GRAZIE salvo50

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,A,Caso,Casi
   Dim A03,A12,A13,A14,A23,P1,P2,P3
   Dim S1,S2,S3,S4,S5,S6,E1,E2,E3
   Dim Num(5),Ru1(1),Ru2(1),Poste(5)
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9500)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,9))
   Scrivi Space(12) & " CHIESTO DA KUBES - TRE ESTRAZIONI CONSECUTIVE - SCRIPT SALVO50",1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         A23 = Estratto(Es - 2,R1,3)
         A12 = Estratto(Es - 1,R1,2)
         A13 = Estratto(Es - 1,R1,3)
         A14 = Estratto(Es - 1,R1,4)
         A03 = Estratto(Es,R1,3)
         S1 = Fuori90(A12 + A13 + A14)
         S2 = Fuori90(A23 + A03)
         If S1 = S2 Then
            S3 = Fuori90(A23 + A13)
            S4 = Fuori90(A12 + A13)
            S5 = Fuori90(A03 + A13)
            S6 = Fuori90(A14 + A13)
            Num(1) = S1 : Num(2) = S3 : Num(3) = S4 : Num(4) = S5 : Num(5) = S6
            If R1 > 0 And R1 < 5 Then R2 = R1 + 6
            If R1 > 4 And R1 < 11 Then R2 = R1 - 4
            Ru1(1) = R2
            Ru2(1) = TU_
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
            Scrivi(" Estrazione n." & Format2(Es - 2) & " del " & DataEstrazione(Es - 2)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P1 = 1 To 5
               E1 = Estratto(Es - 2,R1,P1)
               If E1 = A23 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P2 = 1 To 5
               E2 = Estratto(Es - 1,R1,P2)
               If E2 = A12 Or E2 = A13 Or E2 = A14 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P3 = 1 To 5
               E3 = Estratto(Es,R1,P3)
               If E3 = A03 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E3) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(20) & "Pronostico 1  " & Format2(S1) & " = " & Format2(A12) & " + " & Format2(A13) & " + " & Format2(A14),1
            Scrivi Space(20) & "Pronostico 1  " & Format2(S2) & " = " & Format2(A23) & " + " & Format2(A03),1
            Scrivi Space(20) & "Pronostico 2  " & Format2(S3) & " = " & Format2(A23) & " + " & Format2(A13),1
            Scrivi Space(20) & "Pronostico 3  " & Format2(S4) & " = " & Format2(A12) & " + " & Format2(A13),1
            Scrivi Space(20) & "Pronostico 4  " & Format2(S5) & " = " & Format2(A03) & " + " & Format2(A13),1
            Scrivi Space(20) & "Pronostico 5  " & Format2(S6) & " = " & Format2(A14) & " + " & Format2(A13),1
            Scrivi
            ImpostaGiocata 1,Num,Ru1,Poste,Clp
            ImpostaGiocata 2,Num,Ru2,Poste,Clp
            Gioca Es
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[kubes]

grandissimo salvo50 ...grazie 1000