Novità

per @salvo50 MOD script by salvo

kubes

kubes

Senior Member
ciao salvo ho questo script fatto da te , cortesemente mi serve una correzione . esempio:
Estrazione n.9672 del 22.08.2019 CA 72 29 60 05 40
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
in questo caso a NA abbiamo il 3 in 5° posizione .
a me occorre trovare i numeretti isotopi e che abbiano a loro volta un altro numeretto al loro fianco
esempio:
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
Estrazione n.9672 del 22.08.2019 TO 08 42 05 33 03
qui abbiamo 1 in 4° posizione
quindi togliere tutte le ricerche che non soddisfano i requisiti
e calcolare come segue
ca-na
05+01=6 verticale
05+03=08 diagonale
03+01=4 orizzontale

na-to
03+03=6 verticale
03+01=4 diagonale
01+03=4 orizzontale

Codice: 
Option Explicit
Sub Main
   Dim R1,P1,P2,P3,Es,R2,Clp,Esq,Caso,Casi
   Dim Ru(2),Poste(2),Posta(1),Num1(1)
   Dim Num2(2),Tutte(1),Posts(2),Num3(3)
   Dim Salvo50,Ini,FIn,Ind
   Dim A,B,C,D,E1,E2,CA,CB,AB,Vab,VaR
   Scrivi
   Posta(1) = 1
   Poste(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   FIn = EstrazioneFin
   Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",,17))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,6))
   Ini = FIn - Ind
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Scrivi
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               If(A > 0 And A < 9) And(B > 0 And B < 10) Then
                  CA = Cadenza(A)
                  CB = Cadenza(B)
                  AB = Fuori90(CB & CA)
                  Vab = DiametraleD(AB)
                  VaR = Vab + CA
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E1) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E2) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(30) & " Pronostico ",1,0
                  ColoreTesto 2
                  Scrivi Format2(AB) & " " & Format2(Vab) & " " & Format2(VaR),1 : ColoreTesto 0
                  Scrivi
                  Ru(1) = R1
                  Ru(2) = R2
                  Tutte(1) = TU_
                  Num1(1) = AB
                  ImpostaGiocata 1,Num1,Ru,Posta,Clp
                  Num2(1) = AB : Num2(2) = Vab
                  ImpostaGiocata 2,Num2,Ru,Poste,Clp
                  Num3(1) = AB : Num3(2) = Vab : Num3(3) = VaR
                  ImpostaGiocata 3,Num3,Tutte,Posts,13,2
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho eliminato le combinazioni con 2 o più numeretti uguali

Codice: 
Option Explicit
Dim R1,R2,Es
Sub Main
   Dim FIn,Ini,Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,Sab,Sac,Sad,Sbc,Sbd,Scd
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & " PER KUBES - TRIS di NUMERETTI - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
      Caso = 00
      For R1 = 1 To 10
         For R2 = R1 + 01 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 01 To 04 : P2 = P1 + 01
               A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
               If A > 0 And B > 0 And C > 0 And D > 0 Then
                  Sab =(A + B) : Sac =(A + C) : Sad =(A + D)
                  Sbc =(B + C) : Sbd =(B + D) : Scd =(C + D)
                  '
                  Call AmboAmbataVers01(Sab,Sac,Sbc,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
                  Call AmboAmbataVers02(Sab,Sbd,Sad,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
                  Call AmbataAmboVers01(Sac,Scd,Sad,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
                  Call AmbataAmboVers02(Sbd,Scd,Sbc,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
                  '
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
End Sub
Sub AmboAmbataVers01(Sab,Sac,Sbc,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
   If A < 10 And B < 10 And C < 10 And A <> B And A <> C And B <> C Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(61,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(52,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Call Scrivi(Format2(A) & " + " & Format2(B) & " = " & Format2(Sab) & " Somma Orizontale",1)
      Call Scrivi(Format2(A) & " + " & Format2(C) & " = " & Format2(Sac) & " Somma Verticale",1)
      Call Scrivi(Format2(B) & " + " & Format2(C) & " = " & Format2(Sbc) & " Somma Diagonale",1)
   End If
End Sub
Sub AmboAmbataVers02(Sab,Sbd,Sad,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
   If A < 10 And B < 10 And D < 10 And A <> B And A <> D And B <> D Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(61,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(52,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Call Scrivi(Format2(A) & " + " & Format2(B) & " = " & Format2(Sab) & " Somma Orizontale",1)
      Call Scrivi(Format2(B) & " + " & Format2(D) & " = " & Format2(Sbd) & " Somma Verticale",1)
      Call Scrivi(Format2(A) & " + " & Format2(D) & " = " & Format2(Sad) & " Somma Diagonale",1)
   End If
End Sub
Sub AmbataAmboVers01(Sac,Scd,Sad,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
   If A < 10 And C < 10 And D < 10 And A <> C And A <> D And C <> D Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(61,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(52,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Call Scrivi(Format2(A) & " + " & Format2(C) & " = " & Format2(Sac) & " Somma Verticale",1)
      Call Scrivi(Format2(A) & " + " & Format2(D) & " = " & Format2(Sad) & " Somma Diagonale",1)
      Call Scrivi(Format2(C) & " + " & Format2(D) & " = " & Format2(Scd) & " Somma Orizontale",1)
   End If
End Sub
Sub AmbataAmboVers02(Sbd,Scd,Sbc,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
   If B < 10 And C < 10 And D < 10 And B <> C And B <> D And C <> D Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(61,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(52,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Call Scrivi(Format2(B) & " + " & Format2(D) & " = " & Format2(Sbd) & " Somma Verticale",1)
      Call Scrivi(Format2(B) & " + " & Format2(C) & " = " & Format2(Sbc) & " Somma Diagonale",1)
      Call Scrivi(Format2(C) & " + " & Format2(D) & " = " & Format2(Scd) & " Somma Orizontale",1)
   End If
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto