Novità

Numeri divisori a 4

Codice: 
Option Explicit
Sub Main
   Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2
   Dim Fin,Ini,Clp,E1,E,F
   Dim Num1,Num2
   Dim AMBO1(2),AMBO2(2),AMBO3(2),AMBO4(2),AMBO5(2)
   Dim AMBO6(2),AMBO7(2),AMBO8(2),AMBO9(2)
   Dim AMBATA(2)
   Dim POSTA(2),POSTE(2),RUOTE(4),RUOTA(2)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2611)
   'Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "Metodo Numeri Divisori a 2 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
   POSTA(1) = 1
   POSTE(2) = 2
   ResetTimer
   For Es = Ini To Fin
      ' If IsUltimaDelMese(Es) Then
      Messaggio Es & "                 " & TempoTrascorso
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         For R2 = 1 To 12
            If R1 = 11 Then R1 = 12
            If R2 = 11 Then R2 = 12
            For P1 = 2 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P1 - 1)
               E = Estratto(Es,R2,P1)
               F = Estratto(Es,R2,P1 - 1)
               If A > 9 And B > 3 Then
                  If A Mod 2 = 0 Then
                     C = B & A
                     D =(C / 2)
                     If D > 999 Then Num1 = Left(D,2)
                     If D <= 999 Then Num1 = Left(D,1)
                     Num2 = Fuori90(Right(D,2))
                     If Num1 <> Num2 Then
                        If E = Num2 Then
                           '
                           AMBO1(1) = Num1 : AMBO1(2) = Fuori90(10 - F)
                           AMBO2(1) = Num1 : AMBO2(2) = Fuori90(20 - F)
                           AMBO3(1) = Num1 : AMBO3(2) = Fuori90(30 - F)
                           AMBO4(1) = Num1 : AMBO4(2) = Fuori90(40 - F)
                           AMBO5(1) = Num1 : AMBO5(2) = Fuori90(50 - F)
                           AMBO6(1) = Num1 : AMBO6(2) = Fuori90(60 - F)
                           AMBO7(1) = Num1 : AMBO7(2) = Fuori90(70 - F)
                           AMBO8(1) = Num1 : AMBO8(2) = Fuori90(80 - F)
                           AMBO9(1) = Num1 : AMBO9(2) = Fuori90(90 - F)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ReDim MatriceCaselleDaEvid(4,1)
                           MatriceCaselleDaEvid(1,0) = R1
                           MatriceCaselleDaEvid(1,1) = P1
                           MatriceCaselleDaEvid(2,0) = R1
                           MatriceCaselleDaEvid(2,1) = P1 - 1
                           MatriceCaselleDaEvid(3,0) = R2
                           MatriceCaselleDaEvid(3,1) = P1
                           MatriceCaselleDaEvid(4,0) = R2
                           MatriceCaselleDaEvid(4,1) = P1 - 1
                           Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
                           ColoreTesto 1
                           Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           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 ColoreTesto 2
                              If E1 = B Then ColoreTesto 1
                              If E1 <> A And E1 <> B Then ColoreTesto 0
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(9) & Format2(B) & " - " & Format2(A) & " <-> " & Format2(C),1,0
                           Scrivi " / 2 = " & Format2(D),1
                           Scrivi
                           AMBATA(1) = Num1
                           RUOTA(1) = R1
                           RUOTA(2) = R2
                           RUOTE(1) = R1
                           RUOTE(2) = R2
                           RUOTE(3) = TT_
                           RUOTE(4) = NZ_
                           ImpostaGiocata 1,AMBATA,RUOTA,POSTA,9,1
                           Gioca Es,,,1
                           Scrivi
                           ImpostaGiocata 1,AMBO1,RUOTE,POSTE,0
                           ImpostaGiocata 2,AMBO2,RUOTE,POSTE,0
                           ImpostaGiocata 3,AMBO3,RUOTE,POSTE,0
                           ImpostaGiocata 4,AMBO4,RUOTE,POSTE,0
                           ImpostaGiocata 5,AMBO5,RUOTE,POSTE,0
                           ImpostaGiocata 6,AMBO6,RUOTE,POSTE,0
                           ImpostaGiocata 7,AMBO7,RUOTE,POSTE,0
                           ImpostaGiocata 8,AMBO8,RUOTE,POSTE,0
                           ImpostaGiocata 9,AMBO9,RUOTE,POSTE,0
                           Gioca Es,,,1
                        End If
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
   Scrivi TempoTrascorso
End Sub

x Salvo50
ho fatto una modifica allo script vedi se va bene cosi lo script..
oppure se si deve fare qualche correzione allo script..
 
Ultima modifica:
12028.PNG

x Salvo50
questa e la tabella con la divisione a 4
adesso dovremmo vedere a seguito se rende meglio la tecnica con i divisori a 2
oppure con i divisori a 4
 
Ciao a Tutti
Ciao Zetrix
Secondo me va bene, e puoi togliere il <script by Salvo50> perchè di mio è rimasto pochissimo ed è
pure in più, come la visualizzazione della ruota e dei 5 estratti, perchè se metti la tabella non c'è
bisogno di visualizzare gli estratti sono superflui.
 
Salvo50 , perche dovresti togliere la scritta <script by Salvo50> lo script lai scritto te ho fatto solo alcune modifiche
purtroppo ai un modo di scrivere gli script diverso da me, es, non metti le tabelle delle estr,
se ti faccio vedere uno dei miei script sono scritti diversi da te..
ma non e un problema l'importante e che abbiamo risolto lo script purtroppo realizzare l'ambo su ruota e diventato
difficile basti vedere che spesso gli ambi escono fuori ruota e spesso escono pure sulla nazionale..
 
Ultima modifica:
Codice: 
Option Explicit
Sub Main
   Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2,Y
   Dim Fin,Ini,Clp,E1,E,F
   Dim Num1,Num2
   Dim AMBO1(2),AMBO2(2),AMBATA(2)
   Dim POSTA(2),POSTE(2),RUOTE(4),RUOTA(2)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2602)
   'Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "Metodo Numeri Divisori - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
   POSTA(1) = 1
   POSTE(2) = 2
   ResetTimer
   For Es = Ini To Fin
      ' If IsUltimaDelMese(Es) Then
      Messaggio Es & "                 " & TempoTrascorso
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         For R2 = 1 To 12
            If R1 = 11 Then R1 = 12
            If R2 = 11 Then R2 = 12
            For P1 = 2 To 5
               For Y = 2 To 21
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P1 - 1)
                  E = Estratto(Es,R2,P1)
                  F = Estratto(Es,R2,P1 - 1)
                  If(B & A) Mod Y = 0 Then
                     C = B & A
                     D =(C / Y)
                     Num1 = Y
                     'Num2 = Fuori90(Right(D,2))
                     If E = D Then
                        '
                        AMBO1(1) = Num1 : AMBO1(2) = Diametrale(F)
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ReDim MatriceCaselleDaEvid(4,1)
                        MatriceCaselleDaEvid(1,0) = R1
                        MatriceCaselleDaEvid(1,1) = P1
                        MatriceCaselleDaEvid(2,0) = R1
                        MatriceCaselleDaEvid(2,1) = P1 - 1
                        MatriceCaselleDaEvid(3,0) = R2
                        MatriceCaselleDaEvid(3,1) = P1
                        MatriceCaselleDaEvid(4,0) = R2
                        MatriceCaselleDaEvid(4,1) = P1 - 1
                        Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
                        ColoreTesto 1
                        Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        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 ColoreTesto 2
                           If E1 = B Then ColoreTesto 1
                           If E1 <> A And E1 <> B Then ColoreTesto 0
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi SiglaRuota(R1) &" = "& Space(1) & Format2(B) & "-" & Format2(A) & " <-> " & Format2(C),1,0
                        Scrivi " / " & Y & " = " & Format2(D),1
                        Scrivi
                        AMBATA(1) = Num1
                        RUOTA(1) = R1
                        RUOTA(2) = R2
                        RUOTE(1) = R1
                        RUOTE(2) = R2
                        RUOTE(3) = TT_
                        RUOTE(4) = NZ_
                        ImpostaGiocata 1,AMBATA,RUOTA,POSTA,9,0
                        Gioca Es,,,1
                        Scrivi
                        ImpostaGiocata 1,AMBO1,RUOTE,POSTE,0
                        Gioca Es,,,1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
   Scrivi TempoTrascorso
End Sub

x Salvo50
ho fatto una modifica allo script ma non mi sembra che da troppi risultati per ambo..
 
Ciao a Tutti
Ciao Zetrix
Non è semplice trovare le combinazioni giuste, purtroppo io non ho idee.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto