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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto