Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 ha scritto:
Ciao a Tutti

Codice: 
'Sal a Me servirebbe uno script che cerchi il numero 45 In ogni estrazione
'sulle ruote che vanno da Cagliari a Torino deve trovarsi In 2 à - 3à o 4à
'Posizione e deve essere solo senza duplicati, se lo trova deve sottrarre
'o sommare i numeri isotopi che si trovano nella ruota precedente e nella
'ruota successiva se il numero isotopo è minore di 45 si somma se è maggiore
'si sottrae il 45, il numero ottenuto da questa somma/Differenza va giocato
'come Estratto determinato sulle posizioni laterali sulla ruota dove è stato
'il numero 45 e sulla sua ruota Diametrale
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,E3,Co
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,A1
   Dim Diam_A,Diam_C
   Dim Amba(1),Posta(10),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10250)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " Somma Diametrali Isotopi in ruote Consecutive proposto da Filippo1963 - SCRIPT Salvo50",1,,4,,3,,1
   Posta(6) = 1
   Posta(10) = 1
   For Es = Ini To FIn
      Co = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Call Ante(Es,R1,P1,A1,Co)
      If Co = 1 Then
         Caso = 0
         For R1 = 2 To 9
            For P1 = 2 To 4
               A = Estratto(Es,R1 - 1,P1)
               B = Estratto(Es,R1,P1)
               C = Estratto(Es,R1 + 1,P1)
               If A > 0 And B = 45 And C > 0 Then
                  Diam_A = Diametrale(A) : Diam_C = Diametrale(C)
                  Amba(1) = Fuori90(Diam_A + Diam_C)
                  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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 - 1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1 - 1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",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
                     E2 = Estratto(Es,R1,P3)
                     If E2 = B Then
                        ColoreTesto 1
                     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) & " ",1,0
                  For P4 = 1 To 5
                     E3 = Estratto(Es,R1 + 1,P4)
                     If E3 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E3) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & "Il Diametrale di " & Format2(A) & " = " & Format2(Diam_A),1
                  Scrivi Space(10) & "Il Diametrale di " & Format2(C) & " = " & Format2(Diam_C),1
                  Scrivi Space(22) & Format2(Diam_A) & " + " & Format2(Diam_C) & " = " & Format2(Amba(1)),1
                  R2 = RuotaDiametrale(R1)
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
Function Ante(Es,R1,P1,A1,Co)
   For R1 = 1 To 10
      For P1 = 1 To 5
         A1 = Estratto(Es,R1,P1)
         If A1 = 45 Then Co = Co + 1
      Next
   Next
End Function
Clicca per espandere...
Grazie Tantissimo Salvo50 lo provo subito
 
Ciao a Tutti
Riflettendoci nell'ultimo script, fare i diametrali non serve a niente, il risultato non cambia proprio perché dopo si fa la somma col fuori90, forse ho capito male e doveva essere fatto diversamente.

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,E3,Co
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,A1
   Dim Amba(1),Posta(10),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10250)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " Somma Isotopi in ruote Consecutive proposto da Filippo 1963 - SCRIPT Salvo50",1,,4,,3,,1
   Posta(6) = 1
   Posta(10) = 1
   For Es = Ini To FIn
      Co = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Call Ante(Es,R1,P1,A1,Co)
      If Co = 1 Then
         Caso = 0
         For R1 = 2 To 9
            For P1 = 2 To 4
               A = Estratto(Es,R1 - 1,P1)
               B = Estratto(Es,R1,P1)
               C = Estratto(Es,R1 + 1,P1)
               If A > 0 And B = 45 And C > 0 Then
                  Amba(1) = Fuori90(A + C)
                  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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 - 1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1 - 1,P2)
                     If E1 = A Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",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
                     E2 = Estratto(Es,R1,P3)
                     If E2 = B Then
                        ColoreTesto 1
                     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) & " ",1,0
                  For P4 = 1 To 5
                     E3 = Estratto(Es,R1 + 1,P4)
                     If E3 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E3) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(22) & Format2(A) & " + " & Format2(C) & " = " & Format2(Amba(1)),1
                  R2 = RuotaDiametrale(R1)
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
Function Ante(Es,R1,P1,A1,Co)
   For R1 = 1 To 10
      For P1 = 1 To 5
         A1 = Estratto(Es,R1,P1)
         If A1 = 45 Then Co = Co + 1
      Next
   Next
End Function
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 11 febbraio 2025
    Bari
    45
    41
    04
    55
    42
    Cagliari
    51
    90
    39
    50
    60
    Firenze
    04
    57
    11
    79
    12
    Genova
    83
    57
    63
    64
    06
    Milano
    75
    24
    26
    82
    08
    Napoli
    37
    01
    17
    25
    32
    Palermo
    80
    53
    47
    03
    63
    Roma
    57
    68
    73
    86
    33
    Torino
    28
    43
    24
    13
    31
    Venezia
    78
    83
    90
    51
    01
    Nazionale
    04
    87
    35
    31
    29
    Estrazione Simbolotto
    Cagliari
    14
    08
    04
    16
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto