Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Ciao Pulce50

Ho modificato lo script come da te richiesto, mi è sembrato più corretto metterlo nel post 149, è il terzo script, non ho capito bene come dovevo impostare la giocata per l'Ambata Principale, comunque io ho messo Ambata Principale con Ambata Secondaria ed ho impostato la ricerca per ambata è ambo, se non dovesse essere cosi, mi è parso di capire che un po tu smanetti con gli script, quindi per te non sarà difficile impostare secondo le tue esigenze quel primo ambo
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao GioRyuKen72, in assenza di Salvo ti rispondo io
if Tern2 = Amba2 Or Tern2 = Amb2 Then
Tern2 = Fuori90(Co90Ge3 + Nz3 + 23) +9
end if

prova cosi
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
GioRyuKen72;n2156969 ha scritto:
Ciao Salvo, avrei bisogno del tuo aiuto.. quale istruzione posso dare per cambiare numero che si ripete, facendogli fare un'altra operazione?

esempio:
...
Amba2 = Fuori90(DdTo1 + Nz5 + 01)
Amb2 = Fuori90(Co90Nz4 + Na2 + 08)
Tern2 = Fuori90(Co90Ge3 + Nz3 + 23)

in questo caso Amb2 e Tern2 danno lo stesso numero.. io ho provato ad aggiungere questo, ma non mi lavora come dovrebbe:

If Tern2 = Amba2 Or Amb2 Then
Tern2 = Fuori90(Co90Ge3 + Nz3 + 23) +9
...
End If
...
anche se non sono uguali mi aggiunge il +9

Grazie per l'attenzione..

Dici in questo caso Amb2 e Tern2 danno lo stesso numero, quindi presumo che in altri casi può capitare i numeri uguali siano ad esempio tra amba2 e amb2, praticamente quello che chiedi è che se due qualsiasi di queste variabili siano uguali, ad una delle due devi aggiungere 9, quindi io farei così

If Amba2 = Amb2 Then Amb2 = Amb2 + 9
If Amba2 = Tern2 Then Tern2 = Tern2 + 9
If Amb2 = Tern2 Then Tern2 = Tern2 + 9

se non dovesse essere così, e l'aiuto si deve prolungare, ti chiedo per favore di aprire un nuovo 3D, se non sei pratico dimmelo che lo apro io al tuo posto, il titolo di questo 3D è

Script su Metodi Cabalistici Ciclometrici & C,

e nel limite del possibile vorrei attenermi il più possibile al titolo
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
In questo metodo ci sono 81 gruppi di 3 numeri che sono le basi delle piramidi,ero indeciso se mettere 81 IF-THEN oppure vedere se c'è un ordine progressivo tra un gruppo e l'altro, per poterlo sfruttare e mettere meno IF-THEN, l'ordine progressivo c'è ma è spezzato ogni 2 gruppi, quindi ho deciso di mettere 81 IF-THEN, 81 e non 90 perchè Padre Venanzio gli zerati non li calcola e quindi lo script, quando in una estrazione ci sono degli zerati, salta l'estrazione, poi aggiunge la chiave fissa 9 ad ogni cuspide di 2 cifre della piramide, e quindi automaticamente nel pronostico ci sono anche gli zerati, ma mancano i pronostici con cadenza 9, anche se il metodo non la richiede, riguardo alla chiave ho messo un InputBox per poterla cambiare a piacere, per la scelta delle ruote col numero 11 calcoli e ricerca sono per tutte le ruote, se si vuole fare calcoli e ricerca per una singola ruota, basta inserire il numero che rappresenta la ruota, da 1 a 10 e 12 per la nazionale, la ricerca lo fatto così anche per il metodo della seconda parte.

Nella seconda parte continua con un'altro metodo, qui ci sono 90 gruppi di 9 numeri, anche in questo ho cercato un ordine progressivo tra un gruppo e l'altro ed anche qui c'è, in questo metodo Padre Venanzio l'ordine progressivo lo spezza solo una volta e quindi ho usato solo 2 IF-THEN.

Le restrizioni di ogni figura - 1a parte - C. Tedesco.jpg

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,IniR
   Dim Chiave,Ok,Cad,Ruo,K,Salvo50,FinR
   Dim Ru(1),Posta(5),Penta(5)
   Dim Ba(5),A(5),P1(5),P2(5)
   Dim P3(5),P4(5),P5(5)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9560)
   Ruo = InputBox("Vuoi fare la ricerca Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12, Per Tutte le Ruote 11 ?",Salvo50,11)
   Chiave = CInt(InputBox(" Quale numero aggiungere alla cuspide delle piramidi?",Salvo50,9))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,3))
   Scrivi Space(1) & "Restrizione di ogni figura di PADRE VENANZIO CAPPUCCINO Primo metodo",1,,4,,3,,1
   Scrivi " A cura di CARMINE TEDESCO - SCRIPT Salvo50",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   If Ruo = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruo
      FinR = Ruo
   End If
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = IniR To FinR
         If R1 = 11 Then R1 = 12
         Ok = 0
         For K = 1 To 5
            A(K) = Estratto(Es,R1,K)
            Cad = 1
            Cad = Cadenza(A(K))
            If Cad = 0 Then Exit For
            If A(K) = 1 Then Ba(K) = 110193
            If A(K) = 2 Then Ba(K) = 210216
            If A(K) = 3 Then Ba(K) = 310329
            If A(K) = 4 Then Ba(K) = 410433
            If A(K) = 5 Then Ba(K) = 510546
            If A(K) = 6 Then Ba(K) = 610659
            If A(K) = 7 Then Ba(K) = 710763
            If A(K) = 8 Then Ba(K) = 810876
            If A(K) = 9 Then Ba(K) = 910989
            If A(K) = 11 Then Ba(K) = 121197
            If A(K) = 12 Then Ba(K) = 221211
            If A(K) = 13 Then Ba(K) = 321324
            If A(K) = 14 Then Ba(K) = 421437
            If A(K) = 15 Then Ba(K) = 521541
            If A(K) = 16 Then Ba(K) = 621654
            If A(K) = 17 Then Ba(K) = 721767
            If A(K) = 18 Then Ba(K) = 821871
            If A(K) = 19 Then Ba(K) = 921984
            If A(K) = 21 Then Ba(K) = 132192
            If A(K) = 22 Then Ba(K) = 232215
            If A(K) = 23 Then Ba(K) = 332328
            If A(K) = 24 Then Ba(K) = 432432
            If A(K) = 25 Then Ba(K) = 532545
            If A(K) = 26 Then Ba(K) = 632658
            If A(K) = 27 Then Ba(K) = 732762
            If A(K) = 28 Then Ba(K) = 832875
            If A(K) = 29 Then Ba(K) = 932988
            If A(K) = 31 Then Ba(K) = 143196
            If A(K) = 32 Then Ba(K) = 243219
            If A(K) = 33 Then Ba(K) = 343323
            If A(K) = 34 Then Ba(K) = 443436
            If A(K) = 35 Then Ba(K) = 543549
            If A(K) = 36 Then Ba(K) = 643653
            If A(K) = 37 Then Ba(K) = 743766
            If A(K) = 38 Then Ba(K) = 843879
            If A(K) = 39 Then Ba(K) = 943983
            If A(K) = 41 Then Ba(K) = 154191
            If A(K) = 42 Then Ba(K) = 254214
            If A(K) = 43 Then Ba(K) = 354327
            If A(K) = 44 Then Ba(K) = 454431
            If A(K) = 45 Then Ba(K) = 554544
            If A(K) = 46 Then Ba(K) = 654657
            If A(K) = 47 Then Ba(K) = 754761
            If A(K) = 48 Then Ba(K) = 854874
            If A(K) = 49 Then Ba(K) = 954987
            If A(K) = 51 Then Ba(K) = 165195
            If A(K) = 52 Then Ba(K) = 265218
            If A(K) = 53 Then Ba(K) = 365322
            If A(K) = 54 Then Ba(K) = 465435
            If A(K) = 55 Then Ba(K) = 565548
            If A(K) = 56 Then Ba(K) = 665652
            If A(K) = 57 Then Ba(K) = 765765
            If A(K) = 58 Then Ba(K) = 865878
            If A(K) = 59 Then Ba(K) = 965982
            If A(K) = 61 Then Ba(K) = 176199
            If A(K) = 62 Then Ba(K) = 276213
            If A(K) = 63 Then Ba(K) = 376326
            If A(K) = 64 Then Ba(K) = 476439
            If A(K) = 65 Then Ba(K) = 576543
            If A(K) = 66 Then Ba(K) = 676656
            If A(K) = 67 Then Ba(K) = 776769
            If A(K) = 68 Then Ba(K) = 876873
            If A(K) = 69 Then Ba(K) = 976986
            If A(K) = 71 Then Ba(K) = 187194
            If A(K) = 72 Then Ba(K) = 287217
            If A(K) = 73 Then Ba(K) = 387321
            If A(K) = 74 Then Ba(K) = 487434
            If A(K) = 75 Then Ba(K) = 587547
            If A(K) = 76 Then Ba(K) = 687651
            If A(K) = 77 Then Ba(K) = 787764
            If A(K) = 78 Then Ba(K) = 887877
            If A(K) = 79 Then Ba(K) = 987981
            If A(K) = 81 Then Ba(K) = 198198
            If A(K) = 82 Then Ba(K) = 298212
            If A(K) = 83 Then Ba(K) = 398325
            If A(K) = 84 Then Ba(K) = 498438
            If A(K) = 85 Then Ba(K) = 598542
            If A(K) = 86 Then Ba(K) = 698655
            If A(K) = 87 Then Ba(K) = 798768
            If A(K) = 88 Then Ba(K) = 898872
            If A(K) = 89 Then Ba(K) = 998985
            '
            P1(K) = Piramide(Ba(K),1)
            P2(K) = Piramide(Ba(K),2)
            P3(K) = Piramide(Ba(K),3)
            P4(K) = Piramide(Ba(K),4)
            P5(K) = Fuori90(P4(K))
            Ok = Ok + 1
         Next
         If Ok = 5 Then
            Penta(1) = Fuori90((P5(1)) + Chiave)
            Penta(2) = Fuori90((P5(2)) + Chiave)
            Penta(3) = Fuori90((P5(3)) + Chiave)
            Penta(4) = Fuori90((P5(4)) + Chiave)
            Penta(5) = Fuori90((P5(5)) + Chiave)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Scrivi Space(3) & FormattaStringa(Ba(1),"000000") & Space(3) & FormattaStringa(Ba(2),"000000"),1,0,,2
            Scrivi Space(3) & FormattaStringa(Ba(3),"000000") & Space(3) & FormattaStringa(Ba(4),"000000"),1,0,,2
            Scrivi Space(3) & FormattaStringa(Ba(5),"000000"),1,,,2
            Scrivi Space(3) & FormattaStringa(P1(1),"00000") & Space(4) & FormattaStringa(P1(2),"00000"),1,0,,1
            Scrivi Space(4) & FormattaStringa(P1(3),"00000") & Space(4) & FormattaStringa(P1(4),"00000"),1,0,,1
            Scrivi Space(4) & FormattaStringa(P1(3),"00000"),1,,,1
            Scrivi Space(3) & FormattaStringa(P2(1),"0000") & Space(5) & FormattaStringa(P2(2),"0000"),1,0,,2
            Scrivi Space(5) & FormattaStringa(P2(3),"0000") & Space(5) & FormattaStringa(P2(4),"0000"),1,0,,2
            Scrivi Space(5) & FormattaStringa(P2(5),"0000"),1,,,2
            Scrivi Space(3) & FormattaStringa(P3(1),"000") & Space(6) & FormattaStringa(P3(2),"000"),1,0,,1
            Scrivi Space(6) & FormattaStringa(P3(3),"000") & Space(6) & FormattaStringa(P3(4),"000"),1,0,,1
            Scrivi Space(6) & FormattaStringa(P3(5),"000"),1,,,1
            Scrivi Space(3) & FormattaStringa(P4(1),"00") & Space(7) & FormattaStringa(P4(2),"00"),1,0,,2
            Scrivi Space(7) & FormattaStringa(P4(3),"00") & Space(7) & FormattaStringa(P4(4),"00"),1,0,,2
            Scrivi Space(7) & FormattaStringa(P4(5),"00") & Space(7) & "<-- Cuspide ",1,,,2
            Scrivi Space(3) & Format2(Chiave) & Space(7) & Format2(Chiave) & Space(7) & Format2(Chiave),1,0,,1
            Scrivi Space(7) & Format2(Chiave) & Space(7) & Format2(Chiave) & Space(7) & "<-- Chiave ",1,,,1
            Scrivi Space(3) & Format2(Penta(1)) & Space(7) & Format2(Penta(2)) & Space(7) & Format2(Penta(3)),1,0,,2
            Scrivi Space(7) & Format2(Penta(4)) & Space(7) & Format2(Penta(5)) & Space(7) & "<-- Cuspide Più Chiave ",1,,,2
            Ru(1) = R1
            Scrivi
            ImpostaGiocata 1,Penta,Ru,Posta,Clp
            Gioca Es
         End If
      Next
   Next
   ScriviResoconto
End Sub

Le restrizioni di ogni figura - 2a parte - C. Tedesco.jpg


Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,VeP4,FInR
   Dim Chiave1,Chiave2,Ba,DeP4,CaP4,P1,P2,P3,P4
   Dim S1,S2,D1,D2,D3,D4,D5,Ruo,Abb1,PP,IniR
   Dim Ru(1),Poste(5),A(9),Salvo50
   'Poste(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9500)
   Ruo = InputBox("Vuoi fare la ricerca Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12, Per Tutte le Ruote 11 ?",Salvo50,11)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,3))
   Scrivi Space(1) & "Restrizione di ogni figura di PADRE VENANZIO CAPPUCCINO Secondo metodo",1,,4,,3,,1
   Scrivi " A cura di CARMINE TEDESCO - SCRIPT Salvo50",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   If Ruo = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruo
      FInR = Ruo
   End If
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         S1 = SommaEstratti(Es,R1)
         P1 = Piramide(S1,1)
         P1 = Fuori90(P1)

         If P1 > 0 And P1 < 46 Then
            A(1) = Fuori90(P1 + 51) : A(2) = Fuori90(P1 + 74) : A(3) = Fuori90(P1 + 75)
            A(4) = Fuori90(P1 + 25) : A(5) = Fuori90(P1 + 49) : A(6) = Fuori90(P1 + 09)
            A(7) = Fuori90(P1 + 47) : A(8) = Fuori90(P1 + 30) : A(9) = Fuori90(P1 + 58)
         End If
         If P1 > 45 And P1 < 91 Then
            A(1) = Fuori90(90 +((P1 - 45) + 27)) : A(2) = Fuori90(90 +((P1 - 45) + 65))
            A(3) = Fuori90(90 +((P1 - 45) + 78)) : A(4) = Fuori90(90 +((P1 - 45) + 50))
            A(5) = Fuori90(90 +((P1 - 45) + 82)) : A(6) = Fuori90(90 +((P1 - 45) + 70))
            A(7) = Fuori90(90 +((P1 - 45) + 55)) : A(8) = Fuori90(90 +((P1 - 45) + 73))
            A(9) = Fuori90(90 +((P1 - 45) + 72))
         End If
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
         Scrivi "  Somma estratti " & Format2(S1),1,,,1
         Scrivi Space(28) & " Piramide",1,,,2
         Scrivi Space(31) & FormattaStringa(S1,"000"),1
         Scrivi Space(31) & FormattaStringa(P1,"00"),1
         Scrivi
         Scrivi " La Chiave " & Format2(P1) & " Pronostica la novina " & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi " " & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)) & " " & Format2(A(6)),1,0
         Scrivi " " & Format2(A(7)) & " " & Format2(A(8)) & " " & Format2(A(9)),1
         Ru(1) = R1
         Scrivi
         '
         ImpostaGiocata 1,A,Ru,Poste,Clp
         Gioca Es
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Chiedo scusa, gli script sono da riprendere tutti e due, perchè avevo confuso FormattaStringa con FormatSpace.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
GLI AMBI SECCHI MENSILI di PADRE VENANZIO

Ciao a Tutti.

Padre Venanzio per questo metodo usa le triple in figura, con le triple in figura 1-4-7 e 2-5-8 tutto bene, non ho avuto problemi, ma con la tripla in figura 3-6-9 è nato il problema che quando il 9 è decina il numero risultante è maggiore di 90, quindi proseguendo col fuori 90, oltre a 3-6-9 viene pure lo zero, negli esempi Padre Venanzio non fa uso delle triple in figura 3-6-9 quindi non so se ci devono essere oppure no.

Alla fine ho deciso di farne 2 nel primo ci sono solo le triple in figura 1-4-7 e 2-5-8 e nel secondo anche 3-6-9 con lo zero, in tutti e due ho messo anche la scelta di una ruota o tutte, o anche messo i 10 numeri in una sola decina con la scelta tramite inputbox di giocarla o no.


Gli antichissimi 1.jpg

script con le triple in figura 1-4-7 e 2-5-8

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,A,B,Caso,Casi,Ruo,x,j,G
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,FA,FB,Reg1,Reg2
   Dim Ambo(2),Deca(10),Salvo50,Dec,IniR,FinR
   Dim Ru(1),Poste(2),Nu1(5),Nu2(5),Posta(5)
   Poste(2) = 1
   Posta(2) = 1
   Posta(3) = 1
   Posta(4) = 1
   'Posta(5) = 1
   Reg1 = 45 : Reg2 = 72
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",,6))
   Dec = CInt(InputBox(" Vuoi giocare la Decina? - SI = 1 - NO un qualsiasi altro numero",,0))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,4))
   Scrivi Space(12) & " GLI AMBI SECCHI MENSILI di PADRE VENANZIO 1 - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(22) & " CON TRIPLE IN FIGURA 1-4-7 - 2-5-8 ",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   If Ruo = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruo
      FinR = Ruo
   End If
   For Es = Ini To Fin
      If IndiceMensile(Es + 1) = 1 Then
         Caso = 0
         AvanzamentoElab Ini,Fin,Es
         For R1 = IniR To FinR
            A = Estratto(Es,R1,1)
            B = Estratto(Es,R1,2)
            FA = Figura(A) : FB = Figura(B)
            If FA <> FB Then
               A1 = Fuori90(A + 45) : B1 = Fuori90(B + 72)
               If A1 = 14 Or A1 = 17 Or A1 = 41 Or A1 = 47 Or A1 = 71 Or A1 = 74 _
                  Or A1 = 25 Or A1 = 28 Or A1 = 52 Or A1 = 58 Or A1 = 82 Or A1 = 85 Then
                  If A1 = 14 Then A2 = 77 : A3 = 41 : A4 = 50 : A5 = 59
                  If A1 = 41 Then A2 = 77 : A3 = 14 : A4 = 23 : A5 = 32
                  If A1 = 17 Then A2 = 44 : A3 = 71 : A4 = 80 : A5 = 89
                  If A1 = 71 Then A2 = 44 : A3 = 17 : A4 = 26 : A5 = 35
                  If A1 = 47 Then A2 = 11 : A3 = 74 : A4 = 83 : A5 = 02
                  If A1 = 74 Then A2 = 11 : A3 = 47 : A4 = 56 : A5 = 65
                  If A1 = 25 Then A2 = 88 : A3 = 52 : A4 = 61 : A5 = 70
                  If A1 = 52 Then A2 = 88 : A3 = 25 : A4 = 34 : A5 = 43
                  If A1 = 28 Then A2 = 55 : A3 = 82 : A4 = 01 : A5 = 10
                  If A1 = 82 Then A2 = 55 : A3 = 28 : A4 = 37 : A5 = 46
                  If A1 = 58 Then A2 = 22 : A3 = 85 : A4 = 04 : A5 = 13
                  If A1 = 85 Then A2 = 22 : A3 = 58 : A4 = 67 : A5 = 76
                  B2 = Fuori90(B1 + 9) : B3 = Fuori90(B2 + 9)
                  B4 = Fuori90(B3 + 9) : B5 = Fuori90(B4 + 9)
                  Nu1(1) = A1 : Nu1(2) = A2 : Nu1(3) = A3: Nu1(4) = A4: Nu1(5) = A5
                  Nu2(1) = B1 : Nu2(2) = B2 : Nu2(3) = B3: Nu2(4) = B4: Nu2(5) = B5
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                  Scrivi
                  Scrivi Space(17) & "Estratti --> " & Format2(A) & " " & Format2(B),1
                  Scrivi Space(15) & "Regolatori --> " & Format2(Reg1) & " " & Format2(Reg2),1
                  Scrivi Space(30) & "-- --"
                  Scrivi Space(04) & "Estratti + Regolatori --> " & Format2(A1) & " " & Format2(B1),1,,,2
                  Scrivi Space(30) & Format2(A2) & " " & Format2(B2),1
                  Scrivi Space(30) & Format2(A3) & " " & Format2(B3),1
                  Scrivi Space(30) & Format2(A4) & " " & Format2(B4),1
                  Scrivi Space(30) & Format2(A5) & " " & Format2(B5),1
                  Ru(1) = R1
                  G = 1
                  For x = 1 To 5
                     For j = 1 To 5
                        Ambo(1) = Nu1(x)
                        Ambo(2) = Nu2(j)
                        If Ambo(1) <> Ambo(2) Then
                           ImpostaGiocata G,Ambo,Ru,Poste,Clp
                           G = G + 1
                           Gioca Es
                        End If
                     Next
                  Next
                  If Dec = 1 Then
                     Deca(1) = A1 : Deca(2) = A2 : Deca(3) = A3 : Deca(4) = A4 : Deca(5) = A5
                     Deca(6) = B1 : Deca(7) = B2 : Deca(8) = B3 : Deca(9) = B4 : Deca(10) = B5
                     EliminaRipetuti Deca
                     ImpostaGiocata G,Deca,Ru,Posta,Clp
                     Gioca Es
                  End If
               End If
            End If
         Next
      End If
   Next
   ScriviResoconto
End Sub

script con tutte le triple in figura

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,A,B,Caso,Casi,Ruo,x,j,G
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,FA,FB,Reg1,Reg2
   Dim Ambo(2),Deca(10),Salvo50,Dec,IniR,FinR
   Dim Ru(1),Poste(2),Nu1(5),Nu2(5),Posta(5)
   Poste(2) = 1
   Posta(2) = 1
   Posta(3) = 1
   Posta(4) = 1
   'Posta(5) = 1
   Reg1 = 45 : Reg2 = 72
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",,6))
   Dec = CInt(InputBox(" Vuoi giocare la Decina? - SI = 1 - NO un qualsiasi altro numero",,0))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,4))
   Scrivi Space(12) & " GLI AMBI SECCHI MENSILI di PADRE VENANZIO 2 - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(20) & " CON TRIPLE IN FIGURA 1-4-7 - 2-5-8 - 3-6-9 ",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   If Ruo = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruo
      FinR = Ruo
   End If
   For Es = Ini To Fin
      If IndiceMensile(Es + 1) = 1 Then
         Caso = 0
         AvanzamentoElab Ini,Fin,Es
         For R1 = IniR To FinR
            A = Estratto(Es,R1,1)
            B = Estratto(Es,R1,2)
            FA = Figura(A) : FB = Figura(B)
            If FA <> FB Then
               A1 = Fuori90(A + 45) : B1 = Fuori90(B + 72)
               If A1 = 14 Or A1 = 17 Or A1 = 41 Or A1 = 47 Or A1 = 71 Or A1 = 74 _
                  Or A1 = 25 Or A1 = 28 Or A1 = 52 Or A1 = 58 Or A1 = 82 Or A1 = 85 _
                  Or A1 = 36 Or A1 = 63 Or A1 = 39 Or A1 = 03 Or A1 = 69 Or A1 = 06 Then
                  If A1 = 14 Then A2 = 77 : A3 = 41 : A4 = 50 : A5 = 59
                  If A1 = 41 Then A2 = 77 : A3 = 14 : A4 = 23 : A5 = 32
                  If A1 = 17 Then A2 = 44 : A3 = 71 : A4 = 80 : A5 = 89
                  If A1 = 71 Then A2 = 44 : A3 = 17 : A4 = 26 : A5 = 35
                  If A1 = 47 Then A2 = 11 : A3 = 74 : A4 = 83 : A5 = 02
                  If A1 = 74 Then A2 = 11 : A3 = 47 : A4 = 56 : A5 = 65
                  If A1 = 25 Then A2 = 88 : A3 = 52 : A4 = 61 : A5 = 70
                  If A1 = 52 Then A2 = 88 : A3 = 25 : A4 = 34 : A5 = 43
                  If A1 = 28 Then A2 = 55 : A3 = 82 : A4 = 01 : A5 = 10
                  If A1 = 82 Then A2 = 55 : A3 = 28 : A4 = 37 : A5 = 46
                  If A1 = 58 Then A2 = 22 : A3 = 85 : A4 = 04 : A5 = 13
                  If A1 = 85 Then A2 = 22 : A3 = 58 : A4 = 67 : A5 = 76
                  If A1 = 36 Then A2 = 09 : A3 = 63 : A4 = 72 : A5 = 81
                  If A1 = 63 Then A2 = 09 : A3 = 36 : A4 = 45 : A5 = 54
                  If A1 = 39 Then A2 = 66 : A3 = 03 : A4 = 12 : A5 = 21
                  If A1 = 03 Then A2 = 66 : A3 = 39 : A4 = 48 : A5 = 57
                  If A1 = 69 Then A2 = 33 : A3 = 06 : A4 = 15 : A5 = 24
                  If A1 = 06 Then A2 = 33 : A3 = 69 : A4 = 78 : A5 = 87
                  B2 = Fuori90(B1 + 9) : B3 = Fuori90(B2 + 9)
                  B4 = Fuori90(B3 + 9) : B5 = Fuori90(B4 + 9)
                  Nu1(1) = A1 : Nu1(2) = A2 : Nu1(3) = A3: Nu1(4) = A4: Nu1(5) = A5
                  Nu2(1) = B1 : Nu2(2) = B2 : Nu2(3) = B3: Nu2(4) = B4: Nu2(5) = B5
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                  Scrivi
                  Scrivi Space(17) & "Estratti --> " & Format2(A) & " " & Format2(B),1
                  Scrivi Space(15) & "Regolatori --> " & Format2(Reg1) & " " & Format2(Reg2),1
                  Scrivi Space(30) & "-- --"
                  Scrivi Space(04) & "Estratti + Regolatori --> " & Format2(A1) & " " & Format2(B1),1,,,2
                  Scrivi Space(30) & Format2(A2) & " " & Format2(B2),1
                  Scrivi Space(30) & Format2(A3) & " " & Format2(B3),1
                  Scrivi Space(30) & Format2(A4) & " " & Format2(B4),1
                  Scrivi Space(30) & Format2(A5) & " " & Format2(B5),1
                  Ru(1) = R1
                  G = 1
                  For x = 1 To 5
                     For j = 1 To 5
                        Ambo(1) = Nu1(x)
                        Ambo(2) = Nu2(j)
                        If Ambo(1) <> Ambo(2) Then
                        ImpostaGiocata G,Ambo,Ru,Poste,Clp
                        G = G + 1
                        Gioca Es
                        End If
                     Next
                  Next
                  If Dec = 1 Then
                     Deca(1) = A1 : Deca(2) = A2 : Deca(3) = A3 : Deca(4) = A4 : Deca(5) = A5
                     Deca(6) = B1 : Deca(7) = B2 : Deca(8) = B3 : Deca(9) = B4 : Deca(10) = B5
                     EliminaRipetuti Deca
                     ImpostaGiocata G,Deca,Ru,Posta,Clp
                     Gioca Es
                  End If
               End If
            End If
         Next
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Per questo metodo i calcoli si devono fare nell'estrazione alla prima del mese e poi giocare il mese successivo, ma quando è stato fatto questo metodo c'erano 4 o 5 estrazioni mensili,adesso ce ne sono 12, 13, o 14, quindi per default ne ho impostato 12 però nella terza domanda si può variare questo valore.

Poi il medodo chiede una verifica prima di giocare di 4, 5 colpi e di non giocare se in questo periodo è uscita l'ambata, in questo caso la verifica la faccio fare per i colpi impostati di giocare in ritardo, esempio se si sono impostati 8 estrazioni (alla terza domanda) prima di giocare, la verifica la faccio fare in quelle 8 estrazioni che si deve aspettare.

Alla quinta domanda ho messo la scelta di visualizzare o no le 6 piramidi complete, se si risponde 1 vengono visualizzate le 6 piramidi, se si risponde con un qualsiasi altro numero non vengono visualizzate.

Il metodo per defaut è nella ruota di Napoli, ma alla seconda domanda si può variare

Metodo delle 6 piramidi di padre Venanzio - C. Tedesco.jpg




Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,A,B,C,D,E,Caso,Casi
   Dim X1,X2,X3,X4,X5,X6,S123,S45,Ruo
   Dim S1,S2,S3,S4,S5,S6,P1,P2,P3,P4,P5,P6
   Dim ABC,BCD,CDE,ABCDE,Piram,Dopo
   Dim Ambata(1),Ru(1),Posta(1)
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   Ruo = InputBox(" In quale ruota vuoi giocare?",,6)
   Dopo = CInt(InputBox("Quanti colpi vuoi aspettare prima di giocare?",,12))
   Clp = InputBox("Per quanti colpi vuoi fare la ricerca?",,12)
   Piram = InputBox("Vuoi visualizzare le piramidi? Per SI metti 1, per NO metti qualsiasi altro numero ",,0)
   Scrivi Space(12) & " LA 6 PIRAMIDI DI PADRE VENANZIO - SCRIPT SALVO50",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
     If IndiceMensile(Es) = 1 Then


         Caso = 0
         AvanzamentoElab Ini,Fin,Es
         For R1 = Ruo To Ruo
            A = Estratto(Es,R1,1)
            B = Estratto(Es,R1,2)
            C = Estratto(Es,R1,3)
            D = Estratto(Es,R1,4)
            E = Estratto(Es,R1,5)
            ABC = A & B & C
            For X1 = 1 To Len(ABC) - 2
               P1 =(Piramide(ABC,X1))
            Next
            S1 =(Piramide(ABC,Len(ABC) - 2))
            BCD = B & C & D
            For X2 = 1 To Len(BCD) - 2
               P2 =(Piramide(BCD,X2))
            Next
            S2 =(Piramide(BCD,Len(BCD) - 2))
            CDE = C & D & E
            For X3 = 1 To Len(CDE) - 2
               P3 =(Piramide(CDE,X3))
            Next
            S3 =(Piramide(CDE,Len(CDE) - 2))
            S123 = S1 & S2 & S3
            For X4 = 1 To Len(S123) - 2
               P4 =(Piramide(S123,X4))
            Next
            S4 =(Piramide(S123,Len(S123) - 2))
            ABCDE = A & B & C & D & E
            For X5 = 1 To Len(ABCDE) - 2
               P5 =(Piramide(ABCDE,X5))
            Next
            S5 =(Piramide(ABCDE,Len(ABCDE) - 2))
            S45 = S4 & S5
            For X6 = 1 To Len(S45) - 2
               P6 =(Piramide(S45,X6))
            Next
            S6 =(Piramide(S45,Len(S45) - 2))
            S6 = Fuori90(S6)
            Ru(1) = R1
            Ambata(1) = S6
            If SerieFreqTurbo(Es,Es + Dopo,Ambata,Ru,1) = 0 Then
               '
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               Scrivi
               If Piram = 1 Then
                  Scrivi "PIRAMIDE 1",1,,,2
                  Scrivi ABC & "  <-- I Primi 3 Estratti",1,,,1
                  For X1 = 1 To Len(ABC) - 2
                     Scrivi(Piramide(ABC,X1))
                  Next
                  Scrivi
                  '
                  Scrivi "PIRAMIDE 2",1,,,1
                  Scrivi BCD & "  <-- I 3 Estratti Centrali",1,,,2
                  For X2 = 1 To Len(BCD) - 2
                     Scrivi(Piramide(BCD,X2))
                  Next
                  Scrivi
                  Scrivi "PIRAMIDE 3",1,,,2
                  Scrivi CDE & " <-- Gli Ultimi 3 Estratti",1,,,1
                  For X3 = 1 To Len(CDE) - 2
                     Scrivi(Piramide(CDE,X3))
                  Next
                  Scrivi
                  Scrivi "PIRAMIDE 4",1,,,1
                  Scrivi S123 & " <-- I 3 Cuspidi Delle Prime 3 Piramidi",1,,,2
                  For X4 = 1 To Len(S123) - 2
                     Scrivi(Piramide(S123,X4))
                  Next
                  Scrivi
                  Scrivi "PIRAMIDE 5",1,,,2
                  Scrivi ABCDE & "  <-- Tutti e 5 gli Estratti",1,,,1
                  For X5 = 1 To Len(ABCDE) - 2
                     Scrivi(Piramide(ABCDE,X5))
                  Next
                  Scrivi
                  Scrivi "PIRAMIDE 6",1,,,1
                  Scrivi S45 & " <-- I Cuspidi Delle Piramidi 4 e 5",1,,,2
                  For X6 = 1 To Len(S45) - 2
                     Scrivi(Piramide(S45,X6))
                  Next
               End If
               Scrivi
               Scrivi Format2(S6),1,0,,2
               Scrivi " è Il Cuspide Della Sesta Piramide Si Gioca Come Ambata",1,,,1
               Scrivi
               ImpostaGiocata 1,Ambata,Ru,Posta,Clp,1,Dopo
               Gioca Es
            End If
         Next
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Scusate, ma lo script è da riprendere perchè invece di fare i calcoli con l'estrazione la prima del mese, avevo impostato ultima del mese
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

METODO DI CAVAILLAC

In realtà sono 2 metodi, il primo fa le 5 somme isotope in 2 estrazioni consecutive, a queste somme aggiunge il numero del mese, il risultato lo divide per 5 e se c'è un eventuale resto lo aggiunge al quoziente e così alla fine risultano di pronostico 5 numeri, se ci sono ripetizioni, anche se l'articolo non lo dice, io li ho eliminati.

Il secondo assegna un numero ad ogni lettera che compone una qualsiasi parola, per questo metodo ho sfruttato lo script CABALADELFRATE che penso sia di LuigiB, con una piccola modifica, resa necessaria dal fatto che l'articolo alle lettere (I e J) e (X e Y) assegna a ciascun gruppo un solo numero invece nello script CABALADELFRATE ogni lettera ha un numero, quindi ho eliminato arbitrariamente le lettere J e Y, quindi quando una parola ha una o tutti e due le lettere eliminate, si deve inserire il rispettivo equivalente, che sono per J la I e per Y la X, esempio per inserire la parola FLOPPY si deve scrivere FLOPPX, per la parola JACKPOT scrivere IACKPOT.

Il risultato della somma viene moltiplicato per 90 e diviso per 5, con le cifre del risultato si ottengono 2 numeri, l'ultima parte dell'articolo dice che se dopo la divisione per 5 si verifica un eventuale resto, aggiungerlo ai due numeri e formare un terno, questo nello script non l'ho fatto perchè ho constatato che un qualsiasi numero moltiplicato per 90, l'ultima cifra del numero risultante è zero, e se non ricordo male un qualsiasi numero che termina con zero è sempre divisibile per 5, sarà un lapsus dell'autore oppure stò sbagliando io.

Per questo secondo metodo non ho impostato la ricerca automatica, perchè dato che si tratta sempre degli stessi numeri, alla fine vengono inevitabilmente doppiate le giocate, a meno che la ricerca si fa per un solo colpo.

Metodo Cavaillac.jpg

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,Caso,Casi
   Dim MeEs,P1,Ruo,Salvo50,IniR,FInR
   Dim AB(5),AB1(5),AB2(5),A(5),B(5)
   Dim Ru(1),Poste(5),Resto(5),ABR(5)
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1

   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9200)
   Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",Salvo50,4))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,13))
   Scrivi Space(12) & " METODO DI CAVAILLAC 1  SCRIPT SALVO50",1,,4,,3,,1
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   If Ruo = 11 Then
      IniR = 1
      FInR = 10
   Else
      IniR = Ruo
      FInR = Ruo
   End If
   For Es = Ini To Fin
      'If IndiceMensile(Es + 1) = 1 Then
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      MeEs = Mese(Es)
      For R1 = IniR To FInR
         R2 = R1
         For P1 = 1 To 5
            A(P1) = Estratto(Es - 1,R1,P1)
            B(P1) = Estratto(Es,R2,P1)
            AB(P1) = A(P1) + B(P1) +(Mese(Es))
            If AB(P1) > 5 Then
               AB1(P1) = AB(P1) \ 5
               AB2(P1) = AB1(P1) * 5
               Resto(P1) = AB(P1) - AB2(P1)
               ABR(P1) = AB1(P1) + Resto(P1)
            Else
               ABR(P1) = AB(P1)
            End If
         Next
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es - 1,R1),1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         Scrivi
         Scrivi Space(29) & SiglaRuota(R1) & "   " & Format2(A(1)) & "+" & Space(4) & Format2(A(2)),1,0
         Scrivi "+" & Space(4) & Format2(A(3)) & "+" & Space(4) & Format2(A(4)) & "+" & Space(4) & Format2(A(5)) & "+",1
         Scrivi Space(29) & SiglaRuota(R2) & "   " & Format2(B(1)) & Space(5) & Format2(B(2)),1,0
         Scrivi Space(5) & Format2(B(3)) & Space(5) & Format2(B(4)) & Space(5) & Format2(B(5)),1
         Scrivi Space(7) & "Numero mese " & FormatSpace(MeseNome(MeEs),15,0) & Format2(MeEs) & Space(5) & Format2(MeEs),1,0
         Scrivi Space(5) & Format2(MeEs) & Space(5) & Format2(MeEs) & Space(5) & Format2(MeEs),1
         Scrivi Space(33) & "---" & Space(4) & "---" & Space(4) & "---" & Space(4) & "---" & Space(4) & "---",1
         Scrivi Space(20) & "Somma " & Space(7) & FormattaStringa(AB(1),"000") & Space(4) & FormattaStringa(AB(2),"000"),1,0
         Scrivi Space(4) & FormattaStringa(AB(3),"000") & Space(4) & FormattaStringa(AB(4),"000"),1,0
         Scrivi Space(4) & FormattaStringa(AB(5),"000"),1
         Scrivi Space(1) & "Somma diviso 5 più resto " & Space(7) & FormattaStringa(ABR(1),"000"),1,0
         Scrivi Space(4) & FormattaStringa(ABR(2),"000") & Space(4) & FormattaStringa(ABR(3),"000"),1,0
         Scrivi Space(4) & FormattaStringa(ABR(4),"000") & Space(4) & FormattaStringa(ABR(5),"000"),1
         Scrivi
         Ru(1) = R1
         ImpostaGiocata 1,ABR,Ru,Poste,Clp
         Gioca Es
      Next
   Next
   ScriviResoconto
End Sub


Codice:
Option Explicit
Sub Main
   Dim sAlfabeto
   Dim sParola
   Dim nSomma,nSomma90,nSomma905
   Dim k,N
   Dim nLettere
   Dim id,nNum(2)
   sAlfabeto = "abcdefghiklmnopqrstuvwxz"
   sParola = InputBox("Inserire parola",,"BOX")
   nLettere = Len(sParola)
   ReDim aNumeri(nLettere)
   For k = 1 To nLettere
      id = InStr(sAlfabeto,LCase(Mid(sParola,k,1)))
      aNumeri(k) = id
      nSomma = nSomma + id
   Next
   nSomma90 = nSomma * 90
   nSomma905 = nSomma90 \ 5
   nNum(1) = nSomma905 \ 100
   nNum(1) = Fuori90(nNum(1))
   nNum(2) = nSomma905 -(nNum(1) * 100)
   nNum(2) = Fuori90(nNum(2))
   Scrivi Space(12) & " METODO LETTERE E NUMERI - CAVAILLAC - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi
   Scrivi Space(22) & "La Somma Delle " &(nLettere) & " Cifre Della Parola: " & sParola & " è " & nSomma,1
   Scrivi
   Scrivi Space(32) & Format2(nSomma) & " * 90 = " & Format2(nSomma90) & " \ 5 = " & Format2(nSomma905),1
   Scrivi
   Scrivi Space(30) & " I Numeri da Giocare Sono " & Format2(nNum(1)) & " " & Format2(nNum(2)),1,,,2
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Riepilogo degli script postati, in ordine di inserimento.


01) Il Quadrato Numerico di Urazio
02) Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe
03) Il Quadrato Diametrale di Paolo Carta (incompleto)
04) L'ambo Costante di Fedele Davenal
05) Metodo Byron di Lord Byron
06) Metodo Aurum di Roberto Pascale su appunti di Fabarri
07) Quattro Terzine Per Ambo di Domenico Manna
08) Il Trio Vincente (Prima Versione) di Antonio Di Paolo
09) Metodo Diametrale a cura di Luciana Giorgetti
10) Vincere a Colpo a cura di Vasapollo Cosma
11) Vincite Misteriose a cura di Alfio Tirenni
12) Metodo a Grande Richiesta (incompleto)
13) Il Quadrato Mirabile a cura di Carmine Tedesco
14) Un Ambo da Premio Oscar di Elisabetta Masi e Fabio Felici
15) Il Tesoro Nascosto di Domenico Manna (con modifica di Salvo50)
16) Byron: Il Calcolo Complementare di Paolo Carta
17) Quattro Lati Per Una Quaterna a cura di Gaetano Toti
18) Fra Cabala e Ciclometria a cura di Giacomo Scionti
19) L'Ambata Ciclometrica a di cura di Luciana Giorgetti
20) Doppia Ambata Su Una Ruota a cura di Benito Buzzon
21) La Distanza 7 di Angelo Gargiulo
22) Evoluzione Ben II a cura di Michele Pace
23) Il Quadrato D'oro - a cura di Petrazzoli Antonio
24) Le Restrizioni di Ogni Figura di Padre Venanzio (2 Metodi)
25) Gli Ambi Secchi Mensili di Padre Venanzio
26) Metodo Delle 6 Piramidi di Padre Venanzio
27) Metodo di Cavaillac (2 Metodi)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

METODO SCORPIO di MICHELE CRISCUOLO

Metodo Scorpio - M. Criscuolo.jpg


Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp,Caso,Casi
   Dim R1,R2,S1,S2,XS1,XS2,Salvo50
   Dim AR1,BR1,CR1,AR2,BR2,CR2
   Dim Num1,Num2,Num3,AmbaP
   Dim Amba(1),Quad(4),Ruo2(2),Ruo1(3)
   Dim posta(1),poste(3)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9550)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,5)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "METODO SCORPIO di MICHELE CRISCUOLO - Script Salvo50",1,,4,,3,,1
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         S1 = SommaEstratti(Es,R1)
         S2 = SommaEstratti(Es,R2)
         XS1 = S1 \ 10 : CR1 = S1 Mod 10 : BR1 = Cadenza(XS1) : AR1 = Decina(XS1)
         XS2 = S2 \ 10 : CR2 = S2 Mod 10 : BR2 = Cadenza(XS2) : AR2 = Decina(XS2)
         Num1 = CInt(AR1 & AR2)
         If BR1 < 9 Then Num2 = CInt(BR1 & BR2) Else Num2 = BR1 + BR2 ' se il numero BR1 è = a 9 si somma al sottostante (DECINE)
         If CR1 < 9 Then Num3 = CInt(CR1 & CR2) Else Num3 = CR1 + CR2 ' se il numero CR1 è = a 9 si somma al sottostante (DECINE)
         If Num1 = 00 Then Num1 = 90
         If Num2 = 00 Then Num2 = 90
         If Num3 = 00 Then Num3 = 90
         AmbaP = Fuori90(Num1 + Num2 + Num3)
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1,0
         Scrivi " Somma Estratti " & FormattaStringa(S1,"000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R2) & "  " & StringaEstratti(Es,R2),1,0
         Scrivi " Somma Estratti " & FormattaStringa(S2,"000"),1,,,1
         Scrivi
         Scrivi " Scomposizione della somma " & FormattaStringa(S1,"000") & " In " & AR1 & " " & BR1 & " " & CR1,1
         Scrivi " Scomposizione della somma " & FormattaStringa(S2,"000") & " In " & AR2 & " " & BR2 & " " & CR2,1
         Scrivi " Unione delle cifre in verticale a formare " & Format2(Num1) & " + " & Format2(Num2) & " + " & Format2(Num3),1,0
         Scrivi " = " & Format2(AmbaP) & " Ambata ",1
         Scrivi
         Ruo1(1) = R1
         Ruo1(2) = R2
         Ruo1(3) = TU_
         Ruo2(1) = R1
         Ruo2(2) = R2
         Amba(1) = AmbaP
         ImpostaGiocata 1,Amba,Ruo2,posta,Clp
         Quad(1) = AmbaP : Quad(2) = Num1
         Quad(3) = Num2 : Quad(4) = Num3
         ImpostaGiocata 2,Quad,Ruo1,poste,Clp
         Gioca Es
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

IL QUATERNO PERPETUO (prima parte) di FEDELE DAVENAL a cura di CARMINE TEDESCO




Il metodo è strutturato in 3 parti, però nonostante la base di partenza è sempre la stessa (l'esagono) alla fine risultano 3 metodi diversi, nelle estrazioni bisogna trovare un numero o più che appartenga a quei 48 numeri con sfondo verde nella prima immagine, e dice che bisogna scegliere l'estratto centrale cioè il terzo, solo se non cè questa condizione si possono prendere anche gli altri estratti, ma io nello script non ho seguito questa regola, praticamente li ho usati tutti non ho guardato se erano centrali o no, anche perchè ho notato che se devono uscire o no, avvengono in qualsiasi posizione.


Nel primo metodo vengono pronosticati 42 numeri, il DAVENAL dice che c'è sempre la QUATERNA, in questo script, dato che i numeri pronosticati sono moltissimi 42, io il controllo lo faccio solo per una estrazione (a colpo) e ho costatato che nonostante ci siano 42 numeri la quaterna non c'è sempre, i colpi negativi sono moltissimi, però dato che la CINQUINA paga molto di più della quaterna, ho inserito anche la ricerca della cinquina, e anche se si verificano molto meno casi della quaterna, diciamo che per quello che viene pagata la cinquina, non ce ne sono poche, 42 numeri sono troppi, però a volte dato che si verificano dei doppioni, questi 42 numeri si riducono anche a meno di 30, ho fatto un controllo visivo per vedere se qualche cinquina era uscita dove si erano i 42 numeri ridotti a meno di 30, ed ho trovato nella ruota di PALERMO estrazione 9024 del 02-07-2015, i 42 numeri ridotti (per via dei doppioni) a 27 numeri, ed era uscita la cinquina, non ho fatto altri controlli visivi.

Nello script alla seconda domanda si può inserire una sola ruota mettendo il rispettivo numero, 1 per Bari, 2 per Cagliari ecc... fino al 10, il numero 11 per tutte le ruote ed il numero 12 per la Nazionale.

Nell'output alla fine ho messo un resoconto per TERNI, QUATERNE E CINQUINE

La seconda e terza parte del metodo non li ho ancora fatti.


Quaterno perpetuo - Felice Daneval 1 - C. Tedesco.jpg


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
   Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
   Dim H(42),Ru(1)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " IL QUATERNO PERPETUO DI FEDELE DAVENAL PRIMA PARTE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiEst =(Figura(Est))
            DeEst =(Decina(Est))
            CaEst =(Cadenza(Est))
            If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
               G = FiEst
               A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
               F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
               'PRIMO GRUPPO
               H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
               H(7) = Vert(H(1)) : H(8) = Vert(H(2)): : H(9) = Vert(H(3)) : H(10) = Vert(H(4))
               H(11) = Vert(H(5)) : H(12) = Vert(H(6))
               'SECONDO GRUPPO
               H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(3))
               H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17))
               'TERZO GRUPPO
               H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
               H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
               'QUARTO GRUPPO
               H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
               'QUINTO GRUPPO
               H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
               'SESTO GRUPPO
               H(41) = E & F : H(42) = Vert(H(41))
               '
               Ru(1) = R1
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = Est Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               If Es < FIn Then
                  Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,,,1
               End If
               Scrivi
               Scrivi
               Scrivi Space(27) & "A=" & A & Space(3) & "B=" & B,1,,,1,3
               Scrivi
               Scrivi Space(24) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,,,2,3
               Scrivi
               Scrivi Space(27) & "C=" & C & Space(3) & "D=" & D,1,,,1,3
               Scrivi
               'Visualizzazione primo gruppo sopra
               Scrivi "Accoppiamento  delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
               Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
               'Visualizzazione secondo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
               Scrivi Sp & Format2(H(6)) & Sp & Format2(H(17)),1,0,,1
               'Visualizzazione terzo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
               Scrivi Sp & Format2(H(26)),1,0,,2
               'visualizzazione quarto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
               'visualizzazione quinto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
               'visualizzazione sesto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
               'Visualizzazione primo gruppo sotto
               Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
               Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
               'Visualizzazione secondo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
               Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
               'visualizzazione terzo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
               'visualizzazione quarto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
               'visualizzazione quinto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
               'visualizzazione sesto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
               Scrivi
               EliminaRipetuti H
               Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
               Scrivi StringaNumeri(H," "),1,,,1
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
                  L3 = L3 + 1
                  Scrivi Space(13) & "TERNO",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
                  L4 = L4 + 1
                  Scrivi Space(13) & "QUATERNA",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
                  L5 = L5 + 1
                  Scrivi Space(13) & "CINQUINA",1,,,2,6
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti   " & Format2(L3) & "  TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L4) & "  QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L5) & "  CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
IL QUATERNO PERPETUO (seconda parte) di FEDELE DAVENAL a cura di CARMINE TEDESCO

In questa seconda parte del metodo IL QUATERNO PERPETUO dei 6 triangoli disponibili, se ne scelgono solo 2 per poter ridurre i numeri da pronosticare ed infatti i 42 numeri vengono ridotti a 13 e dopo eventuali doppioni possono risultare anche di meno.

Quaterno perpetuo - Felice Daneval 2 - C. Tedesco.jpg


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,N,K,L3,L4,L5
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
   Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
   Dim L(13),H(13),Ru(1)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,8)
   Call ScegliRange(Ini,FIn,Ini,Fin)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " IL QUATERNO PERPETUO DI FEDELE DANEVAL 2a PARTE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            If Est > 0 Then
               FiEst =(Figura(Est))
               DeEst =(Decina(Est))
               CaEst =(Cadenza(Est))
               If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
                  G = FiEst
                  A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
                  F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
                  If G <> A And G <> B And G <> C And G <> D And G <> E And G <> F And G <> 9 Then
                     L(1) = G & E : L(2) = G & C : L(3) = E & C : L(4) = G & B : L(5) = G & F : L(6) = B & F
                     '
                     L(7) = Vert(L(1)) : L(8) = Vert(L(2)) : L(9) = Vert(L(3)) : L(10) = Vert(L(4)) : L(11) = Vert(L(5))
                     L(12) = Vert(L(6)) : L(13) = G
                     '
                     'For K = 1 To 13
                     '  H(K) = L(K)
                     'Next
                     Caso = Caso + 1
                     Casi = Casi + 1
                     ColoreTesto 1
                     Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                     ColoreTesto 2
                     Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P2 = 1 To 5
                        E1 = Estratto(Es,R1,P2)
                        If E1 = Est Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     If Es < FIn Then
                        Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,,,1
                     End If
                     Scrivi
                     Scrivi
                     Scrivi Space(11) & "ESAGONO" & Space(24) & "TRIANGOLI SCELTI",1,,,2
                     Scrivi Space(7) & "A=" & A & Space(3) & "B=" & B & Space(31) & "B=" & B,1,,,1,3
                     Scrivi
                     Scrivi Space(4) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,0,,2,3
                     Scrivi Space(8) & "E=" & E & Space(3) & "G=" & G & Space(8) & "G=" & G & Space(3) & "F=" & F,1,,,1,3
                     Scrivi
                     Scrivi Space(7) & "C=" & C & Space(3) & "D=" & D & Space(14) & "C=" & C,1,,,1,3
                     Scrivi
                     Scrivi "Accoppiamento  dei 2 triangoli",1,0,,1
                     Scrivi Sp & Format2(L(1)) & Sp & Format2(L(2)) & Sp & Format2(L(3)) & Sp & Format2(L(4)),1,0,,2
                     Scrivi Sp & Format2(L(5)) & Sp & Format2(L(6)),1,,,2
                     Scrivi "Vertibili Acc. dei 2 triangoli",1,0,,1
                     Scrivi Sp & Format2(L(7)) & Sp & Format2(L(8)) & Sp & Format2(L(9)) & Sp & Format2(L(10)),1,0,,2
                     Scrivi Sp & Format2(L(11)) & Sp & Format2(L(12)),1,,,2
                     Scrivi
                     Scrivi "Numeri in gioco  " & L(13) & Sp & L(1) & Sp & L(2) & Sp & L(3) & Sp & L(4) & Sp & L(5),1,0,,2
                     Scrivi Sp & L(6) & Sp & L(7) & Sp & L(8) & Sp & L(9) & Sp & L(10) & Sp & L(11) & Sp & L(12),1,,,2
                     EliminaRipetuti L
                     Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,1
                     Scrivi Space(17) & StringaNumeri(L," "),1,,,2
                     Ru(1) = Ruota
                     If SerieFreqTurbo(Es + 1,Es + 1,L,Ru,3) = 1 Then
                        L3 = L3 + 1
                        Scrivi Space(13) & "TERNO",1,,,2,6
                     End If
                     If SerieFreqTurbo(Es + 1,Es + 1,L,Ru,4) = 1 Then
                        L4 = L4 + 1
                        Scrivi Space(13) & "QUATERNA",1,,,2,6
                     End If
                     If SerieFreqTurbo(Es + 1,Es + 1,L,Ru,5) = 1 Then
                        L5 = L5 + 1
                        Scrivi Space(13) & "CINQUINA",1,,,2,6
                     End If
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti   " & Format2(L3) & "  TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L4) & "  QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L5) & "  CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub
 
Ultima modifica:

ghio

Super Member >PLATINUM<
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
prxhe mi da errore tipo non corrispondente scegli range
 

salvo50

Advanced Member >PLATINUM PLUS<
ghio;n2168767 ha scritto:
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
prxhe mi da errore tipo non corrispondente scegli range

Se non usi Spaziometria metti la spunta, lo script funziona anche senza quella riga
 

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

Ultimi Messaggi

Alto