Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Serpico 90

Advanced Member
Ciao ho cercato sul web e ho trovato la spiegazione del metodo chi ti copio qui Scelta Libera

Scelti due ambi su due ruote a scelta libera senza tenere conto di alcuna condizione si impianta il calcolo.

03/08/1996

Bari 61 34
Cagl.37 50

Sommare in tutti i sensi, quindi

61+50=21
37+34=71
61+34=05
37+50=87
61+37=08
34+50=84

somme ottenute 21-71; 05-87; 08-84
somme------------02----02------02

si ottiene un triplo sommativo uguale, in qualsiasi caso, per ottenere ciò Fabarri indicava la scelta di due ambi condizionati.
Il valore 2 va da capogico, è quasi sempre (a detta dell'autore) presente in una delle due ruote e per ambo secco si accoppia con i numeri racavati dalle somme dei numeri mediani. Ambi secchi 2-76 e
2-5. L'esito della previsione è considerato negativo perchè l'ambo secco 2 e 76 è uscito su Bari al 9° colpo. L'esito di una previsione si intende valido se esso si verifica a colpo o al massimo entro 3 colpi (questo sempre a detta dell'autore). Dire di tenere in gioco la previsione per 6/7 colpi è pazzesco!!!

I risultati positivi dice Antonio Longo vi sono e molto frequenti, non occorre giocare somme cospicue, non occorre tenere in gioco la previsione per lunghi periodi e non occorre scervellari nella ricerca di quelle condizioni che si verificano a volte una-due volte l'anno.

ciao a tutti e penso di aver fatto cosa gradita per gli appassionati dei trattati di Antonio Longo

ciao

ho copiato integralmente quello che ho trovato....
Cortesemente con il tuo tempo potresti gentilmente fare uno script ?
 

salvo50

Advanced Member >PLATINUM PLUS<
Dato che ci devono essere 3 somme uguali, sembrerebbe ci devono essere pochi riscontri, invece ci sono tutti, in qualsiasi modo facciamo le somme diagonali, verticali, orizzontali, alla fine non si fa altro che la somma dei 4 numeri, e quindi è logico che siano sempre uguali.

Quindi dato che non ci sono condizioni, ogni coppia di ruote sviluppa 100 pronostici (le 10 coppie della prima ruota per le 10 coppie della seconda ruota = 100) moltiplicato per le 45 coppie di ruote che ci sono in una estrazione (escluso la nazionale), abbiamo per ogni estrazione 4500 pronostici.

Quindi secondo me, bisogna mettere delle condizioni, in modo che si riducano i pronostici, anche perchè dato che sviluppa tutti i pronostici lo script è molto lento.

Quali condizioni devo mettere?

Ho fatto un abbozzo è solo con l'ambata, senza gli ambi
se si impostano più estrazioni va in tilt (per ovvie ragioni)

per una sola estrazione 4500 pronostici

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es1,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,SAC,SBD,SAD,SBC,S1,S2,S3
   Dim Ruo(2),Po1(1),Amba(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9769))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " CHIESTO DA SERPICO90 - METODO DI A. LONGO - ABBOZZO di SALVO50",1,,4,,3,,1
   Po1(1) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For R2 = R1 + 1 To 10
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es1,R2,P3)
                        D = Estratto(Es1,R2,P4)
                        If A > 0 And C > 0 Then
                           'A---B
                           '|   |
                           'C---D
                           
                           SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
                           SAC = Fuori90(A + C) : SBD = Fuori90(B + D)
                           SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                           S1 = Fuori90(SAD + SBC)
                           S2 = Fuori90(SAC + SBD)
                           S3 = Fuori90(SAB + SCD)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es1,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es1,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
                           Scrivi Space(8) & " Somme",1
                           Scrivi Space(20) & "Orizzontali" & Space(5) & "Verticali     Diagonali ",1
                           Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                           Scrivi Space(13) & Format2(SAC) & Space(12) & Format2(SAD),1
                           Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                           Scrivi Space(13) & Format2(SBD) & Space(12) & Format2(SBC),1
                           Scrivi Space(24) & String(31,"-"),1,,,2
                           Scrivi Space(8) & " Somme Uguali   " & Format2(S1) & Space(13) & Format2(S2) & Space(12) & Format2(S3),1
                           Scrivi
                           Ruo(1) = R1
                           Ruo(2) = R2
                           Amba(1) = S2
                           ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                           Gioca Es1
                           'End If
                           'End If
                           'End If
                           'End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Serpico 90

Advanced Member
Ciao intanto grazie per aver risposto e fatto lo script
Certamente è come dici tu le previsioni diventano tantissime....
Ti chiedo cortesemente puoi mettere all'inizio la possibilità della scelta delle ruote?
Potresti mettere la possibilità di scegliere la posizione dei due numeri .........ti faccio alcuni esempi

Concorso n.20 del 15.02.2020
napoli 43 44
roma 68 09.......

poi le varie operazioni di somma e viene fuori l'ambata 74
concorso n.23 roma 74


concorso n.22 del 20.02.2020
bari 44 58
cagliari 66 05

sempre dopo le operazioni di somme
previsione ambata 83
anche se presente una estrazione prima a cagliari
concorso 29 cagliari 83 quinta posizione

a questo punto se puoi fare in modo che ognuno si sceglie le due ruote e la posizione dei due numeri per ruota e trovati i quattro numeri lo script continua a fare le operazioni di previsione per giocare l'ambata .
 

Serpico 90

Advanced Member
Se vuoi posso farti altri esempi.sempre pero per trovare l'ambata da mettere in gioco per le due ruote
e cosi le previsioni da mettere in gioco diventerebbero molti di meno e poi certamente ognuno giocherà per le ruote che gli piacciono oppure se ha altre previsioni e convergenze.
 

salvo50

Advanced Member >PLATINUM PLUS<
Allora

1) scelta ruote
2) scelta posizione dei 2 numeri
Se vuoi posso farti altri esempi.sempre pero per trovare l'ambata da mettere in gioco per le due ruote
e cosi le previsioni da mettere in gioco diventerebbero molti di meno e poi certamente ognuno giocherà per le ruote che gli piacciono oppure se ha altre previsioni e convergenze.

Ho capito, mi devi solo dire se vuoi cercare anche gli ambi e se vuoi che faccio la ricerca indietro per verificare l'uscita delle previsioni ed eventualmente non giocare se il pronostico è già uscito nelle estrazioni passate
 

Serpico 90

Advanced Member
Se per te non diventa un grosso lavoro ....certamente sarebbe un ottimo regalo che mi faresti.
Fare la ricerca indietro come dici tu ....mi aiuterebbe a capire e se il caso a non giocare la previsione e risparmiare.
Se non puoi farlo..non problem ............giocherò solo l'ambata.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Scelte aggiunte
Alla 2ª e 4ª domanda si scelgono le ruote tramite il numero da 1 a 10, 1= Bari, 2= Cagliari ecc... 12 per la Nazionale.
Alla 3ª e 5ª si scelgono le posizioni da 1 a 5
Alla 6ª domanda si può sceglire di quante estrazioni a ritroso fare il controllo delle uscite degli ambi, se si inserisce 0 il controllo lo fa solo nell'estrazione di calcolo

A riguardo degli abbinamenti per ambo, nel prendere le somme dei numeri mediani, ho seguito le disposizioni dell'esempio, cioè

Diagonale - Orizzontale - Verticale

perche se si cambia questa disposizione, le somme dei numeri mediani cambiano e quindi cambiano anche gli abbinamenti

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,G,Clp,Es1,Salvo50,N1
   Dim R1,R2,P,PP,P5,P6,E1,E2,Caso,Casi,N2
   Dim SAB,SCD,SAC,SBD,SAD,SBC,S1,S2,S3,N3
   Dim Abb1,Abb2,I_Amba,I_Ambo,XP,XPP,X,N4
   Dim Ruo(2),Po1(1),Po2(2),Amba(1),Ambo(2)
   Dim Ambo1(2),Ambo2(2),Num(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700))'6552 estrazione del 3 - 8 - 1996
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota (da 1 a 10, per la Nazionale 12)",Salvo50,1))
   XP = InputBox("Inserisci le 2 Posizioni dei numeri della prima ruota, separati da un punto"," POSIZIONE","1.5")
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota (da 1 a 10, per la Nazionale 12)",Salvo50,2))
   XPP = InputBox("Inserisci le 2 Posizioni dei numeri della seconda ruota, separati da un punto"," POSIZIONE","1.5")
   I_Ambo = CInt(InputBox(" Inserisci di quante estrazioni indietro vuoi controllare l'uscita degli ambi",Salvo50,8))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   XP = "0." & XP
   P = Split(XP,".")
   N1 = CInt(P(1)) : N2 = CInt(P(2))
   XPP = "0." & XPP
   PP = Split(XPP,".")
   N3 = CInt(PP(1)) : N4 = CInt(PP(2))
   Scrivi Space(12) & " CHIESTO DA SERPICO90 - METODO DI A. LONGO - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      A = Estratto(Es1,R1,N1)
      B = Estratto(Es1,R1,N2)
      C = Estratto(Es1,R2,N3)
      D = Estratto(Es1,R2,N4)
      If A > 0 And C > 0 Then
         'A---B
         '|   |
         'C---D
         SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
         SAC = Fuori90(A + C) : SBD = Fuori90(B + D)
         SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
         S1 = Fuori90(SAD + SBC)
         S2 = Fuori90(SAC + SBD)
         S3 = Fuori90(SAB + SCD)
         Ruo(1) = R1
         Ruo(2) = R2
         Amba(1) = S2
         Abb1 = Fuori90(SBC + SAB) : Abb2 = Fuori90(SCD + SAC)
         Ambo1(1) = S2 : Ambo1(2) = Abb1
         Ambo2(1) = S2 : Ambo2(2) = Abb2
         If SerieFreqTurbo(Es1 - I_Ambo,Es1,Ambo1,Ruo,2) = 0 Then
            If SerieFreqTurbo(Es1 - I_Ambo,Es1,Ambo2,Ruo,2) = 0 Then
               Num(1) = Abb1 : Num(2) = Abb2
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es1,R1,P5)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
               Scrivi "  " & SiglaRuota(R2) & " ",1,0
               For P6 = 1 To 5
                  E2 = Estratto(Es1,R2,P6)
                  If E2 = C Or E2 = D Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi
               Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
               Scrivi Space(8) & " Somme",1
               Scrivi Space(21) & "Diagonali" & Space(4) & " Orizzontali" & Space(4) & "Verticali ",1
               Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAD),1,0
               Scrivi Space(13) & Format2(SAB) & Space(12) & Format2(SAC),1
               Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SBC),1,0
               Scrivi Space(13) & Format2(SCD) & Space(12) & Format2(SBD),1
               Scrivi Space(24) & String(31,"-"),1,0,,2
               Scrivi "  Controllo a ritroso uscita ambi per estrazioni " & Format2(I_Ambo),1,,,1
               Scrivi Space(8) & " Somme Uguali   " & Format2(S1) & Space(13) & Format2(S2) & Space(12) & Format2(S3),1
               Scrivi
               Scrivi "1ª somma tra gli intermedi " & Format2(SBC) & " e " & Format2(SAB) & " = " & Format2(Abb1) & "  Abbinamento 1",1
               Scrivi "2ª somma tra gli intermedi " & Format2(SCD) & " e " & Format2(SAC) & " = " & Format2(Abb2) & "  Abbinamento 2",1
               Scrivi
               EliminaRipetuti Num
               G = 1
               ImpostaGiocata G,Amba,Ruo,Po1,Clp
               For X = 1 To UBound(Num)
                  If Amba(1) <> Num(X)Then
                     Ambo(1) = Amba(1): Ambo(2) = Num(X)
                     If Ambo(2) > 0 Then
                        G = G + 1
                        ImpostaGiocata G,Ambo,Ruo,Po2,Clp
                     End If
                  End If
               Next
               Gioca Es1,,,1
            End If
         End If
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Serpico 90

Advanced Member
Buon giorno Salvo ..........
Stamattina ho trovato il tuo CAPOLAVORO
Complimenti .......era quello che desideravo.....ora passerò la mattinata a smanettare e verificare le estrazioni del passato per verificare la bontà del metodo e del tuo lavoro.
Grazie ti sono molto grato...
Buona VITA
buona giornata
 

salvo50

Advanced Member >PLATINUM PLUS<
CICLOMETRIA APPLICATA DELPAS a cura di ROBERTO PASCALE

Nel metodo si fanno i calcoli nella ruota di Milano, dove si ricavano tre ambi e una sestina, da un ambo unito, si giocano i tre ambi nelle ruote di Milano e Venezia e tutte le ruote, la sestina si gioca solo nelle ruote di Milano e Venezia, comunque L'autore dice che si hanno delle buone rese anche con gli accoppiamenti di

BARI - NAPOLI
PALERMO - CAGLIARI
FIRENZE - ROMA

Per questo ho predisposto la scelta della prima e seconda ruota tramite inputbox,
In questo modo ognuno puo predisporre la coppia di ruote che vuole

Nel primo e secondo esempio nell'articolo nelle date è sbagliato l'anno, quello giusto è 1989
quindi le date sono
primo esempio 04-03-1989
secondo esempio 11-03-1989

le altre date degli altri esempi non le ho controllate

Ciclometria applicata delpas - 1a parte - R. Pascale.jpg

Ciclometria applicata delpas - 2a parte - R. Pascale.jpg



Codice:
Option Explicit
Sub Main
   Dim R1,P1,P2,Es,Estr1,Estr2,Clp,FIn
   Dim Caso,Casi,P3,E1,Ini,R2
   Dim Amb1(2),Amb2(2),Amb3(3),Ru(3),Ruo(2)
   Dim Posta(5),Poste(2),M(2),Sestina(6)
   Posta(2) = 1
   Posta(3) = 1
   Poste(2) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9750)'6165 Primo esempio nell'articolo 04-03-1989
   R1 = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",,5)
   R2 = InputBox("Inserisci numero seconda ruota ( 1 - 10 NAZ 12)",,10)
   Clp = InputBox("Per quanti colpi vuoi fare la ricerca",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "CICLOMETRIA APPLICATA DELPAS a cura di ROBERTO PASCALE - SCRIPT Salvo50",1,,4,,3,,1
   Ru(1) = R1 : Ru(2) = R2 : Ru(3) = TU_
   Ruo(1) = R1 : Ruo(2) = R2
   For Es = Ini To FIn
      Caso = 0
      AvanzamentoElab Ini,FIn,Es
      For P1 = 1 To 4
         P2 = P1 + 1
         Estr1 = Estratto(Es,R1,P1) : If Estr1 > 0 Then
         Estr2 = Estratto(Es,R1,P2)
         M(1) = Estr1 : M(2) = Estr2
         Call OrdinaMatrice(M,1)
         'If M(1) > 30 And M(2) < 61 Then
         Amb1(1) = Fuori90(90 +(M(1) - 14))
         Amb1(2) = Fuori90(M(2) + 15)
         Amb2(1) = Fuori90(90 +(121 - Amb1(1)))
         Amb2(2) = Fuori90(90 +(121 - Amb1(2)))
         Amb3(1) = Fuori90(90 +(60 - Amb1(1)))
         Amb3(2) = Fuori90(90 +(60 - Amb1(2)))
         Sestina(1) = Amb1(1) : Sestina(2) = Amb1(2)
         Sestina(3) = Amb2(1) : Sestina(4) = Amb2(2)
         Sestina(5) = Amb3(1) : Sestina(6) = Amb3(2)
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P3 = 1 To 5
            E1 = Estratto(Es,R1,P3)
            If E1 = Estr1 Or E1 = Estr2 Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi "   Ruota Secondaria " & NomeRuota(R2),1,,,1
         Scrivi "1° Numero Ambo 1    " & Format2(Amb1(1)),1,0,,2
         Scrivi " = " & Format2(M(1)) & " - 14 ",1
         Scrivi "2° Numero Ambo 1    " & Format2(Amb1(2)),1,0,,2
         Scrivi " = " & Format2(M(2)) & " + 15 ",1
         Scrivi "1° Numero Ambo 2    " & Format2(Amb2(1)),1,0,,2
         Scrivi " = 121 - " & Format2(Amb1(1)),1
         Scrivi "2° Numero Ambo 2    " & Format2(Amb2(2)),1,0,,2
         Scrivi " = 121 - " & Format2(Amb1(2)),1
         Scrivi "1° Numero Ambo 3    " & Format2(Amb3(1)),1,0,,2
         Scrivi " = 060 - " & Format2(Amb1(1)),1
         Scrivi "2° Numero Ambo 3    " & Format2(Amb3(2)),1,0,,2
         Scrivi " = 060 - " & Format2(Amb1(2)),1
         Scrivi
         EliminaRipetuti Sestina
         ImpostaGiocata 1,Amb1,Ru,Poste,Clp
         ImpostaGiocata 2,Amb2,Ru,Poste,Clp
         ImpostaGiocata 3,Amb3,Ru,Poste,Clp
         ImpostaGiocata 4,Sestina,Ruo,Posta,Clp
         Gioca Es
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Sax71, Master e Jai.jai

Grazie!


ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA


In questo metodo si cercano nella stessa estrazione in 2 ruote 2 ambi di distanza uguale (quindi distanze orizzontali), poi questi 4 numeri si devono impostare in un quadrato in senso orario, e riprendere di nuovo le distanze orizzontali, ma se i 2 numeri di ogni ruota non sono in sequenza, le distanze orizzontali cambiano, quindi nella visualizzazione li ho evidenziati in rosso, se sono uguali vuol dire che gli ambi trovati sono in sequenza, se non sono uguali vuol dire che gli ambi trovati non sono in sequenza e quindi le 2 distanze non sono uguali, nei 15 esempi che fa il Cosma, in 13 casi gli ambi sono in sequenza quindi negli esempi che fa questa discrepanza non si nota, però c'è, infatti nei 2 esempi dove c'è, non fa tutti i calcoli ma da solo i risultati.

Poi dice che prima di fare la ricerca cercare a ritroso per 4 estrazioni, se è uscita l'ambata pronosticata, e se è uscita fare la ricerca solo per 4 estrazioni, se invece nelle 4 estrazioni a ritroso non è uscita fare la ricerca per più estrazioni, quindi ho fatto 3 script, nel primo faccio la ricerca se nelle 4 estrazioni a ritroso non è uscita l'ambata pronosticata, e invece nel secondo faccio la ricerca se l'ambata pronosticata è uscita nelle 4 estrazioni a ritroso, nel terzo faccio la ricerca solo negli ambi in sequenza e non guardo a ritroso se è uscita l'ambata pronosticata.

Armonia ciclometrica - 1a parte - Vasapollo Cosma.jpga

Armonia ciclometrica - 2a parte - Vasapollo Cosma.jpg
Primo script
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9771)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,8)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "Con l'assenza a ritroso per 4 estrazioni dell'ambata pronosticata",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           DAB = Distanza(A,B) : DCD = Distanza(C,D)
                           If DAB = DCD Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              'M1--M2
                              '|   |
                              'M4--M3
                              DM12 = Distanza(M(1),M(2))
                              DM34 = Distanza(M(3),M(4))
                              DM14 = Distanza(M(1),M(4))
                              DM23 = Distanza(M(2),M(3))
                              DM13 = Distanza(M(1),M(3))
                              DM24 = Distanza(M(2),M(4))
                              If DM12 = DM34 And DM13 = DM24 Then
                                 SoV = Fuori90(DM14 + DM23)
                                 SoD = Fuori90(DM13 + DM24)
                                 If SoV = SoD Then
                                    SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                    SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                    Amba(1) = SoC1
                                    Ru(1) = R1 : Ru(2) = R2
                                    If SerieFreqTurbo(Es - 4,Es,Amba,Ru,1) = 0 Then '--------------------------------------
                                       S1 = 90 - SoC1
                                       S2 = Fuori90(SoC1 + SoC2)
                                       Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es,R1,P5)
                                          If E1 = A Or E1 = B 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(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                       Scrivi Space(24) & "Estratti" & Space(8),1,0
                                       Scrivi "(      disposto In senso orario       )",1,,,1
                                       Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                       Scrivi " Distanze" & Space(6) & " Distanze",1
                                       Scrivi "   Stessa Dist.",1,0
                                       Scrivi Format2(DAB),1,0,,2
                                       Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                       Scrivi "Diagonali      Verticali",1
                                       Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                       Scrivi " " & Format2(M(2)) & Space(13),1,0
                                       Scrivi Format2(DM12),1,0,,2
                                       Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                       Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                       Scrivi " " & Format2(M(3)) & Space(13),1,0
                                       Scrivi Format2(DM34),1,0,,2
                                       Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                       Scrivi
                                       Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                       Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                       Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                       Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                       Scrivi
                                       Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                       ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                       EliminaRipetuti Terno
                                       ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                       Gioca Es
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub





Secondo script
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9775)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,4)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "Con la presenza a ritroso per 4 estrazioni dell'ambata pronosticata",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           DAB = Distanza(A,B) : DCD = Distanza(C,D)
                           If DAB = DCD Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              'M1--M2
                              '|   |
                              'M4--M3
                              DM12 = Distanza(M(1),M(2))
                              DM34 = Distanza(M(3),M(4))
                              DM14 = Distanza(M(1),M(4))
                              DM23 = Distanza(M(2),M(3))
                              DM13 = Distanza(M(1),M(3))
                              DM24 = Distanza(M(2),M(4))
                              If DM12 = DM34 And DM13 = DM24 Then
                                 SoV = Fuori90(DM14 + DM23)
                                 SoD = Fuori90(DM13 + DM24)
                                 If SoV = SoD Then
                                    SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                    SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                    Amba(1) = SoC1
                                    Ru(1) = R1 : Ru(2) = R2
                                    If SerieFreqTurbo(Es - 4,Es,Amba,Ru,1) > 0 Then '-----------------------
                                       S1 = 90 - SoC1
                                       S2 = Fuori90(SoC1 + SoC2)
                                       Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es,R1,P5)
                                          If E1 = A Or E1 = B 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(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                       Scrivi Space(24) & "Estratti" & Space(8),1,0
                                       Scrivi "(      disposto In senso orario       )",1,,,1
                                       Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                       Scrivi " Distanze" & Space(6) & " Distanze",1
                                       Scrivi "   Stessa Dist.",1,0
                                       Scrivi Format2(DAB),1,0,,2
                                       Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                       Scrivi "Diagonali      Verticali",1
                                       Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                       Scrivi " " & Format2(M(2)) & Space(13),1,0
                                       Scrivi Format2(DM12),1,0,,2
                                       Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                       Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                       Scrivi " " & Format2(M(3)) & Space(13),1,0
                                       Scrivi Format2(DM34),1,0,,2
                                       Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                       Scrivi
                                       Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                       Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                       Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                       Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                       Scrivi
                                       Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                       ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                       EliminaRipetuti Terno
                                       ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                       Gioca Es
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub






Terzo script
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9771)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,8)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "                  Solo con ambi sequenziali                    ",1,,4,,3,,1

   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                           DAB = Distanza(A,B) : DCD = Distanza(C,D)
                           If DAB = DCD Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              'M1--M2
                              '|   |
                              'M4--M3
                              DM12 = Distanza(M(1),M(2))
                              DM34 = Distanza(M(3),M(4))
                              DM14 = Distanza(M(1),M(4))
                              DM23 = Distanza(M(2),M(3))
                              DM13 = Distanza(M(1),M(3))
                              DM24 = Distanza(M(2),M(4))
                              If DAB = DM12 Then
                                 If DM12 = DM34 And DM13 = DM24 Then
                                    SoV = Fuori90(DM14 + DM23)
                                    SoD = Fuori90(DM13 + DM24)
                                    If SoV = SoD Then
                                       SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                       SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                       Amba(1) = SoC1
                                       Ru(1) = R1 : Ru(2) = R2
                                       S1 = 90 - SoC1
                                       S2 = Fuori90(SoC1 + SoC2)
                                       Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es,R1,P5)
                                          If E1 = A Or E1 = B 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(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                       Scrivi Space(24) & "Estratti" & Space(8),1,0
                                       Scrivi "(      disposto In senso orario       )",1,,,1
                                       Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                       Scrivi " Distanze" & Space(6) & " Distanze",1
                                       Scrivi "   Stessa Dist.",1,0
                                       Scrivi Format2(DAB),1,0,,2
                                       Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                       Scrivi "Diagonali      Verticali",1
                                       Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                       Scrivi " " & Format2(M(2)) & Space(13),1,0
                                       Scrivi Format2(DM12),1,0,,2
                                       Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                       Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                       Scrivi " " & Format2(M(3)) & Space(13),1,0
                                       Scrivi Format2(DM34),1,0,,2
                                       Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                       Scrivi
                                       Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                       Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                       Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                       Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                       Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                       Scrivi
                                       Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                       ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                       EliminaRipetuti Terno
                                       ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                       Gioca Es
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

toon

Advanced Member
Non so se mi posso permettere, ma nello script "
ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA"
non è possibile inserire L'indice mensile?
Sarebbe certamente ottimizzato per le attuali 3 estrazioni settimanali.
Comunque grazie, grande e ottimo lavoro.
(y) ;)
 

salvo50

Advanced Member >PLATINUM PLUS<
Non so se mi posso permettere, ma nello script "
ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA"
non è possibile inserire L'indice mensile?
Sarebbe certamente ottimizzato per le attuali 3 estrazioni settimanali.
Comunque grazie, grande e ottimo lavoro.
(y) ;)

Ciao Toon, grazie, riguardo a l'indice mensile si può fare, però preferisco aggiungere altri script con le dovute modifiche, per questo ho preparato il primo script con l'aggiunta dell'indice mensile cambiabile a piacere alla quarta domanda, dimmi se va bene così, che faccio gli altri due

Il Primo Script con l'aggiunta dell'indice mensile, modifica chiesta da Toon
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2,Ind_M
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,8)
   Ind_M = CInt(InputBox(" INSERISCI IL NUMERO DI INDICE MENSILE",,1))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "Con l'assenza a ritroso per 4 estrazioni dell'ambata pronosticata",1,,4,,3,,1
   Scrivi "CON SCELTA INDICE MENSILE, chiesto da Toon                       ",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_M Then
         Messaggio Es
         AvanzamentoElab Ini,Fin,Es
         Caso = 0
         For R1 = 1 To 10
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DAB = Distanza(A,B) : DCD = Distanza(C,D)
                              If DAB = DCD Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 'M1--M2
                                 '|   |
                                 'M4--M3
                                 DM12 = Distanza(M(1),M(2))
                                 DM34 = Distanza(M(3),M(4))
                                 DM14 = Distanza(M(1),M(4))
                                 DM23 = Distanza(M(2),M(3))
                                 DM13 = Distanza(M(1),M(3))
                                 DM24 = Distanza(M(2),M(4))
                                 If DM12 = DM34 And DM13 = DM24 Then
                                    SoV = Fuori90(DM14 + DM23)
                                    SoD = Fuori90(DM13 + DM24)
                                    If SoV = SoD Then
                                       SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                       SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                       Amba(1) = SoC1
                                       Ru(1) = R1 : Ru(2) = R2
                                       If SerieFreqTurbo(Es - 4,Es,Amba,Ru,1) = 0 Then '--------------------------------------
                                          S1 = 90 - SoC1
                                          S2 = Fuori90(SoC1 + SoC2)
                                          Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                          Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                          For P5 = 1 To 5
                                             E1 = Estratto(Es,R1,P5)
                                             If E1 = A Or E1 = B 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(R2) & " ",1,0
                                          For P6 = 1 To 5
                                             E2 = Estratto(Es,R2,P6)
                                             If E2 = C Or E2 = D Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E2) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi
                                          Scrivi Space(10) & " CON INDICE MENSILE =  " & Ind_M,1,,,2
                                          Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                          Scrivi Space(24) & "Estratti" & Space(8),1,0
                                          Scrivi "(      disposto In senso orario       )",1,,,1
                                          Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                          Scrivi " Distanze" & Space(6) & " Distanze",1
                                          Scrivi "   Stessa Dist.",1,0
                                          Scrivi Format2(DAB),1,0,,2
                                          Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                          Scrivi "Diagonali      Verticali",1
                                          Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                          Scrivi " " & Format2(M(2)) & Space(13),1,0
                                          Scrivi Format2(DM12),1,0,,2
                                          Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                          Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                          Scrivi " " & Format2(M(3)) & Space(13),1,0
                                          Scrivi Format2(DM34),1,0,,2
                                          Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                          Scrivi
                                          Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                          Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                          Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                          Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                          Scrivi
                                          Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                          ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                          EliminaRipetuti Terno
                                          ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                          Gioca Es
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Il Secondo Script con l'aggiunta dell'indice mensile, modifica chiesta da Toon
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2,Ind_M
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,4)
   Ind_M = CInt(InputBox(" INSERISCI IL NUMERO DI INDICE MENSILE",,1))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "Con la presenza a ritroso per 4 estrazioni dell'ambata pronosticata",1,,4,,3,,1
   Scrivi "CON SCELTA INDICE MENSILE, chiesto da Toon                         ",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_M Then
         Messaggio Es
         AvanzamentoElab Ini,Fin,Es
         Caso = 0
         For R1 = 1 To 10
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DAB = Distanza(A,B) : DCD = Distanza(C,D)
                              If DAB = DCD Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 'M1--M2
                                 '|   |
                                 'M4--M3
                                 DM12 = Distanza(M(1),M(2))
                                 DM34 = Distanza(M(3),M(4))
                                 DM14 = Distanza(M(1),M(4))
                                 DM23 = Distanza(M(2),M(3))
                                 DM13 = Distanza(M(1),M(3))
                                 DM24 = Distanza(M(2),M(4))
                                 If DM12 = DM34 And DM13 = DM24 Then
                                    SoV = Fuori90(DM14 + DM23)
                                    SoD = Fuori90(DM13 + DM24)
                                    If SoV = SoD Then
                                       SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                       SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                       Amba(1) = SoC1
                                       Ru(1) = R1 : Ru(2) = R2
                                       If SerieFreqTurbo(Es - 4,Es,Amba,Ru,1) > 0 Then '-----------------------
                                          S1 = 90 - SoC1
                                          S2 = Fuori90(SoC1 + SoC2)
                                          Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                          Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                          For P5 = 1 To 5
                                             E1 = Estratto(Es,R1,P5)
                                             If E1 = A Or E1 = B 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(R2) & " ",1,0
                                          For P6 = 1 To 5
                                             E2 = Estratto(Es,R2,P6)
                                             If E2 = C Or E2 = D Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E2) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi
                                          Scrivi Space(10) & " CON INDICE MENSILE =  " & Ind_M,1,,,2
                                          Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                          Scrivi Space(24) & "Estratti" & Space(8),1,0
                                          Scrivi "(      disposto In senso orario       )",1,,,1
                                          Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                          Scrivi " Distanze" & Space(6) & " Distanze",1
                                          Scrivi "   Stessa Dist.",1,0
                                          Scrivi Format2(DAB),1,0,,2
                                          Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                          Scrivi "Diagonali      Verticali",1
                                          Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                          Scrivi " " & Format2(M(2)) & Space(13),1,0
                                          Scrivi Format2(DM12),1,0,,2
                                          Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                          Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                          Scrivi " " & Format2(M(3)) & Space(13),1,0
                                          Scrivi Format2(DM34),1,0,,2
                                          Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                          Scrivi
                                          Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                          Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                          Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                          Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                          Scrivi
                                          Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                          ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                          EliminaRipetuti Terno
                                          ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                          Gioca Es
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub


Il Terzo Script con l'aggiunta dell'indice mensile, modifica chiesta da Toon
Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SoC1,SoC2,Ind_M
   Dim DM12,DM34,DM14,DM23,DM13,DM24,SoV,SoD,S1,S2
   Dim Amba(1),Terno(3),Ru(2),Ruo(3),Post1(1),Post2(3),M(4)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9771)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,8)
   Ind_M = CInt(InputBox(" INSERISCI IL NUMERO DI INDICE MENSILE",,1))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "ARMONIA CICLOMETRICA a cura di VASAPOLLO COSMA - Script Salvo50",1,,4,,3,,1
   Scrivi "                  Solo con ambi sequenziali                    ",1,,4,,3,,1
   Scrivi "          CON SCELTA INDICE MENSILE, chiesto da Toon           ",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post2(3) = 1
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_M Then
         Messaggio Es
         AvanzamentoElab Ini,Fin,Es
         Caso = 0
         For R1 = 1 To 10
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
                           If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                              DAB = Distanza(A,B) : DCD = Distanza(C,D)
                              If DAB = DCD Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 'M1--M2
                                 '|   |
                                 'M4--M3
                                 DM12 = Distanza(M(1),M(2))
                                 DM34 = Distanza(M(3),M(4))
                                 DM14 = Distanza(M(1),M(4))
                                 DM23 = Distanza(M(2),M(3))
                                 DM13 = Distanza(M(1),M(3))
                                 DM24 = Distanza(M(2),M(4))
                                 If DAB = DM12 Then
                                    If DM12 = DM34 And DM13 = DM24 Then
                                       SoV = Fuori90(DM14 + DM23)
                                       SoD = Fuori90(DM13 + DM24)
                                       If SoV = SoD Then
                                          SoC1 = Fuori90(DM14 + DM12 + DM34 + DM23)
                                          SoC2 = Fuori90(DM12 + DM13 + DM24 + DM34)
                                          Amba(1) = SoC1
                                          Ru(1) = R1 : Ru(2) = R2
                                          S1 = 90 - SoC1
                                          S2 = Fuori90(SoC1 + SoC2)
                                          Terno(1) = SoC1 : Terno(2) = S1 : Terno(3) = S2
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                          Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                          For P5 = 1 To 5
                                             E1 = Estratto(Es,R1,P5)
                                             If E1 = A Or E1 = B 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(R2) & " ",1,0
                                          For P6 = 1 To 5
                                             E2 = Estratto(Es,R2,P6)
                                             If E2 = C Or E2 = D Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E2) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi
                                          Scrivi Space(10) & " CON INDICE MENSILE =  " & Ind_M,1,,,2
                                          Scrivi Space(40) & "(   Distanze rilevate dal quadrato    )",1,,,1
                                          Scrivi Space(24) & "Estratti" & Space(8),1,0
                                          Scrivi "(      disposto In senso orario       )",1,,,1
                                          Scrivi "    Estratti con " & Space(6) & "Ordinati in " & "     Distanze " & Space(6),1,0
                                          Scrivi " Distanze" & Space(6) & " Distanze",1
                                          Scrivi "   Stessa Dist.",1,0
                                          Scrivi Format2(DAB),1,0,,2
                                          Scrivi Space(5) & "Senso Orario" & "     Orizontali" & Space(7),1,0
                                          Scrivi "Diagonali      Verticali",1
                                          Scrivi Space(7) & Format2(A) & " " & Format2(B) & Space(13) & Format2(M(1)),1,0
                                          Scrivi " " & Format2(M(2)) & Space(13),1,0
                                          Scrivi Format2(DM12),1,0,,2
                                          Scrivi Space(14) & Format2(DM13) & Space(13) & Format2(DM14),1
                                          Scrivi Space(7) & Format2(C) & " " & Format2(D) & Space(13) & Format2(M(4)),1,0
                                          Scrivi " " & Format2(M(3)) & Space(13),1,0
                                          Scrivi Format2(DM34),1,0,,2
                                          Scrivi Space(14) & Format2(DM24) & Space(13) & Format2(DM23),1
                                          Scrivi
                                          Scrivi "SOMME COMUNI: " & Format2(DM14) & " + " & Format2(DM12) & " + ",1,0
                                          Scrivi Format2(DM23) & " + " & Format2(DM34) & " = " & Format2(SoC1) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "INTEG. 90: " & Space(4) & "90 - " & Format2(SoC1) & " = " & Format2(S1),1
                                          Scrivi Space(14) & Format2(DM12) & " + " & Format2(DM13) & " + ",1,0
                                          Scrivi Format2(DM24) & " + " & Format2(DM34) & " = " & Format2(SoC2) & Space(4) & " | ",1,0
                                          Scrivi Space(4) & "NUMERO DOPPIO: " & Format2(SoC1) & " + " & Format2(SoC2) & " = " & Format2(S2),1
                                          Scrivi
                                          Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
                                          ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                                          EliminaRipetuti Terno
                                          ImpostaGiocata 2,Terno,Ruo,Post2,Clp2
                                          Gioca Es
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Grazie Master, Sax71 e Toon.

METODO BEN II a cura di MICHELE PACE

In questo metodo bisogna cercare in un'unica ruota per max 4 estrazioni, un ambo ripetuto, unito oppure isotopo oppure che abbia la distanza 30, dai calcoli si trova l'ambata a cui vengono abbinati per ambo i due estratti ed i diametrali dei due estratti, quindi 4 ambi, prima di giocare bisogna vedere a ritroso per 6 estrazioni che l'ambata non sia uscita, ho aggiunto da parte mia la ricerca dei 5 numeri insieme per ambo e terno sia nella ruota unica che per tutte le ruote, con l'opzione che si può scegliere se fare la ricerca oppure no della cinquina, alla terza domanda rispondere 1 se si vuole fare la ricerca della cinquina oppure con qualsiasi altro numero se non si vuole fare, per defoult ho predisposto di non farla.

Ho fatto un altro script che dal primo si differenzia dal fatto che la ricerca l'ho predisposto per tutte le combinazioni, cioè gli ambi possono essere anche non uniti e non isotopi, per il resto è uguale al primo.

Metodo ben II - M. Pace.jpg


Codice:
Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es1,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,Diam_A,Diam_B,S1,DAB,DCD,SI
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),RU(1)
   Dim Ambo4(2),Penta(5),Ruo(2),Po1(1),Po2(2),Po5(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9730))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
   SI = CInt(InputBox(" Vuoi giocare anche le cinquine? Per SI metti 1, per NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & "     METODO BEN II a cura di MICHELE PACE - SCRIPT SALVO50     ",1,,4,,3,,1
   Scrivi Space(12) & "         AMBO RIPETUTO, UNITO O ISOTOPI O DISTANZA 30          ",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po5(2) = 1
   Po5(3) = 1
   'Po5(4) = 1
   'Po5(5) = 1
   RU(1) = TU_
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For Es2 = Es1 + 1 To Es1 + 5
                  R2 = R1
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        'A---B
                        '|   |
                        'C---D
                        If(A = C And B = D) Or(A = D And B = C) Then
                           If(pari(A) And pari(B))Or(dispari(A) And dispari(B)) Then
                              If(P1 = P3 And P2 = P4) Or(P2 = P1 + 1 And P4 = P3 + 1)Or(Distanza(A,B) = 30) Then
                                 DAB = Distanza(A,B) : DCD = Distanza(C,D)
                                 Ruo(1) = R1
                                 SAB = A + B : SCD = C + D
                                 S1 = SAB / 2
                                 Ruo(1) = R1
                                 Ruo(2) = R2
                                 Amba(1) = S1
                                 If SerieFreqTurbo(Es2 - 6,Es2,Amba,Ruo,1) = 0 Then
                                    Diam_A = Diametrale(A) : Diam_B = Diametrale(B)
                                    '
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P5 = 1 To 5
                                       E1 = Estratto(Es1,R1,P5)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es2,R2,P6)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi Space(55) & " Abbinamenti all'ambata per ambo",1,,,1
                                    Scrivi Space(6) & " Estratti " & Space(9) & "Somme " & Space(8) & "Distanze ",1,0
                                    Scrivi Space(8) & "Abbinamento 1 " & Format2(A),1,,,2
                                    Scrivi Space(5) & "Evidenziati " & Space(5) & "Orizzontali" & Space(5) & "Orizzontali",1,0
                                    Scrivi Space(7) & "Abbinamento 2 " & Format2(B),1,,,1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B),1,0
                                    Scrivi Space(13) & FormattaStringa(SAB,"000") & Space(13) & Format2(DAB),1,0
                                    Scrivi Space(12) & "Abbinamento 3 " & Format2(Diam_A),1,,,2
                                    Scrivi Space(8) & Format2(C) & " " & Format2(D),1,0
                                    Scrivi Space(13) & FormattaStringa(SCD,"000") & Space(13) & Format2(DCD),1,0
                                    Scrivi Space(12) & "Abbinamento 4 " & Format2(Diam_B),1,,,1
                                    Scrivi
                                    Scrivi Space(17) & "Ambata " & Format2(S1) & " = " & Format2(SAB) & " / 2 ",1
                                    Scrivi
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                    Ambo1(1) = S1 : Ambo1(2) = A
                                    ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                    Ambo2(1) = S1 : Ambo2(2) = B
                                    ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                    Ambo3(1) = S1 : Ambo3(2) = Diam_A
                                    ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                    Ambo4(1) = S1 : Ambo4(2) = Diam_B
                                    ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp,2
                                    Penta(1) = S1 : Penta(2) = A : Penta(3) = B : Penta(4) = Diam_A : Penta(5) = Diam_B
                                    If SI = 1 Then
                                       EliminaRipetuti Penta
                                       ImpostaGiocata 6,Penta,Ruo,Po5,Clp
                                       ImpostaGiocata 7,Penta,RU,Po5,Clp
                                    End If
                                    Gioca Es2
                                 End If
                              End If
                           End If '
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub


Secondo script

Codice:
Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es1,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,Diam_A,Diam_B,S1,DAB,DCD,SI
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),RU(1)
   Dim Ambo4(2),Penta(5),Ruo(2),Po1(1),Po2(2),Po5(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9730))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
   SI = CInt(InputBox(" Vuoi giocare anche le cinquine? Per SI metti 1, per NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " METODO BEN II a cura di MICHELE PACE - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po5(2) = 1
   Po5(3) = 1
   'Po5(4) = 1
   'Po5(5) = 1
   RU(1) = TU_
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For Es2 = Es1 + 1 To Es1 + 5
                  R2 = R1
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        'A---B
                        '|   |
                        'C---D
                        If(A = C And B = D) Or(A = D And B = C) Then
                           If(pari(A) And pari(B))Or(dispari(A) And dispari(B)) Then
                              Ruo(1) = R1
                              SAB = A + B : SCD = C + D
                              S1 = SAB / 2
                              Ruo(1) = R1
                              Ruo(2) = R2
                              Amba(1) = S1
                              If SerieFreqTurbo(Es2 - 6,Es2,Amba,Ruo,1) = 0 Then
                                 Diam_A = Diametrale(A) : Diam_B = Diametrale(B)
                                 DAB = Distanza(A,B) : DCD = Distanza(C,D)
                                 '
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es1,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es2,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi Space(55) & " Abbinamenti all'ambata per ambo",1,,,1
                                 Scrivi Space(6) & " Estratti " & Space(9) & "Somme " & Space(8) & "Distanze ",1,0
                                 Scrivi Space(8) & "Abbinamento 1 " & Format2(A),1,,,2
                                 Scrivi Space(5) & "Evidenziati " & Space(5) & "Orizzontali" & Space(5) & "Orizzontali",1,0
                                 Scrivi Space(7) & "Abbinamento 2 " & Format2(B),1,,,1
                                 Scrivi Space(8) & Format2(A) & " " & Format2(B),1,0
                                 Scrivi Space(13) & FormattaStringa(SAB,"000") & Space(13) & Format2(DAB),1,0
                                 Scrivi Space(12) & "Abbinamento 3 " & Format2(Diam_A),1,,,2
                                 Scrivi Space(8) & Format2(C) & " " & Format2(D),1,0
                                 Scrivi Space(13) & FormattaStringa(SCD,"000") & Space(13) & Format2(DCD),1,0
                                 Scrivi Space(12) & "Abbinamento 4 " & Format2(Diam_B),1,,,1
                                 Scrivi
                                 Scrivi Space(17) & "Ambata " & Format2(S1) & " = " & Format2(SAB) & " / 2 ",1
                                 Scrivi
                                 ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                 Ambo1(1) = S1 : Ambo1(2) = A
                                 ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                 Ambo2(1) = S1 : Ambo2(2) = B
                                 ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                 Ambo3(1) = S1 : Ambo3(2) = Diam_A
                                 ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                 Ambo4(1) = S1 : Ambo4(2) = Diam_B
                                 ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp,2
                                 Penta(1) = S1 : Penta(2) = A : Penta(3) = B : Penta(4) = Diam_A : Penta(5) = Diam_B
                                 If SI = 1 Then
                                    EliminaRipetuti Penta
                                    ImpostaGiocata 6,Penta,Ruo,Po5,Clp
                                    ImpostaGiocata 7,Penta,RU,Po5,Clp
                                 End If
                                 Gioca Es2
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Genios, in questo topic non faccio script statistici, qui ho sempre fatto script cabalistici, ciclometrici, piramidi, triangoli, pentagoni, ecc... e come dice l'amico Nikor anche strisce per terra, purtroppo dal titolo del topic non si capisce, per non creare equivoci lo volevo cambiare in

SCRIPT SU METODI CABALISTICI, CICLOMETRICI & C.

ma non me lo fa fare, non riesco a cambiarlo

Lo staff di Lottoced, me l'ha cambiato in data 09-07-2020
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto