Novità

per @salvo50 MOD script by salvo

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18

Ultimi Messaggi

Indietro
Alto