Novità

Script su Metodi Cabalistici, Ciclometrici & C.

toon

Member
Messaggi
49
Punti reazione
14
Punti
8
Grazie Salvo, non dico niente di nuovo, gentilezza e Grande disponibilità.
Grazie.:):) (y)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Questo è un vecchio metodo trovato in rete e spiegato oralmente da un video, quindi spero di averlo trascritto nella maniera più chiara possibile, purtroppo non ne conosco l'autore, ma era detto AmboBinario.

Dovremo trovare nella stessa estrazione un ambo uguale in due ruote,sommare i due numeri e fare la differenza a 90, Dalla differenza sottrarre ognuno dei due numeri ed i risultanti due numeri saranno da giocare sulle due ruote.
Esempio: su Bari e agliari troviamo l'ambo 60 e 06, sommati avremo 66, differenza a 90, 24, da 60 a 24 =54, da 06 a 24= 18, Metteremo in gioco 60-54 e 06-18 su BA-CA. Per recupero spese possiamo giocare la quartina.
L'Ambo Binario di FABARRI

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6
   Dim Sab,Com90,Caso,Casi,E1,E2
   Dim Ambo1(2),Ambo2(2),Quat(4)
   Dim Ruo(2),Po1(2),Po2(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760)
   Clp1 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la quartina?",,8)
   Call ScegliRange(Ini,FIn,Ini,Fin)
   Scrivi Space(18) & " L'AMBO BINARIO di FABARRI - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Po1(2) = 1
   Po2(2) = 1
   Po2(3) = 1
   'Post3(4) = 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) : If A > 0 Then
               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) : If C > 0 Then
                        D = Estratto(Es,R2,P4)
                        If(A = C Or A = D) And(B = C Or B = D) Then
                           Sab = Fuori90(A + B) : Com90 = ComplAdX(Sab)
                           Ambo1(2) = A : Ambo1(1) = Fuori90(90 +(Com90 - A))
                           Ambo2(2) = B : Ambo2(1) = Fuori90(90 +(Com90 - B))
                           Quat(1) = A : Quat(2) = Ambo1(1) : Quat(3) = B : Quat(4) = Ambo2(1)
                           Ruo(1) = R1 : Ruo(2) = R2
                           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 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(35) & Format2(A) & " + " & Format2(B) & " = " & Format2(Sab),1
                           Scrivi Space(35) & 90 & " - " & Format2(Sab) & " = " & Format2(Com90),1
                           Scrivi Space(35) & Format2(Com90) & " - " & Format2(A) & " = " & Format2(Ambo1(1)),1
                           Scrivi Space(35) & Format2(Com90) & " - " & Format2(B) & " = " & Format2(Ambo2(1)),1
                           Scrivi Space(34) & " Ambo1  " & Format2(Ambo1(1)) & " " & Format2(A),1,,,2
                           Scrivi Space(34) & " Ambo2  " & Format2(Ambo2(1)) & " " & Format2(B),1,,,2
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           ImpostaGiocata 1,Ambo1,Ruo,Po1,Clp1
                           ImpostaGiocata 2,Ambo2,Ruo,Po1,Clp1
                           ImpostaGiocata 3,Quat,Ruo,Po2,Clp2
                           Gioca Es
                        End If
                     End If
                  Next
               Next
            Next
         End If
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 

toon

Member
Messaggi
49
Punti reazione
14
Punti
8
Ggrazie, Salvo, hai dissipato la mia ignoranza, non immaginavo fosse un metodo ispirato all Grande Fabarri.
Non sei solo gentile, ma la tua conoscenza del Lotto è più grande di quanto immaginassi.
Grazie.. (y) :D;)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Ciao a Tutti.

Sax71, Toon, Rudivall

Grazie.
------------------------------------------
Il Pentagono Armonico di M. Rosaria Falbo

Questo metodo cerca in 2-3 ruote quattro numeri della cinquina pentagonale e gioca per ambata il numero mancante, l'autrice per sorti superiore non l'ha specificato anche se menziona di un ambo uscito, quindi per le sorti superiori ho deciso io come fare, in ogni ruota gioco tutti i numeri, meno quello/i usciti nella stessa ruota, avevo fatto 2 script uno per 2 ruote e l'altro per 3 ruote, poi ho pensato vediamo se mi riesce come ha fatto Enplein nello script chiesto da Asuniverso, quindi un solo script per 2-3 ruote.

Il pentagono armonico - M. R. Falbo.jpg


Codice:
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,R1,R2,R3,P1,P2,P3,P4,P5,P6
   Dim A,B,C,D,K1,K2,Casi,Caso,E1,E2,Salvo50,Clp1,Clp2
   Dim Num(5),Nu(5),R1R2(2),Ru1(1),Ru2(1),Ru3(1)
   Dim Posta(1),Poste(3),Amba(1),Ter1(3),ter2(3)
   Dim E3,P7,QuaR2(4),QuaR3(4),R123(3),TerR1(3)
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)'ESEMPIO NELL'ARTICOLO 6487
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,18)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Il Pentagono Armonico di Rosaria Falbo - Script Salvo50" & Space(10),1,,4,,3,,1
   For Es = Ini To Fin: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)
               If Distanza(A,B) = 18 Or Distanza(A,B) = 36 Then
                  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 <> C And B <> C And A <> D And B <> D) Then
                              If(Distanza(A,C) = 18 Or Distanza(A,C) = 36) And(Distanza(B,C) = 18 Or Distanza(B,C) = 36) _
                                 And(Distanza(A,D) = 18 Or Distanza(A,D) = 36) And(Distanza(B,D) = 18 Or Distanza(B,D) = 36)Then '<<<<<
                                 Num(1) = A
                                 Nu(1) = A
                                 For K1 = 2 To 5
                                    Num(K1) = Fuori90(Num(K1 - 1) + 18)
                                    Nu(K1) = Num(K1)
                                 Next
                                 For K2 = 1 To 5
                                    If Num(K2) = A Or Num(K2) = B Or Num(K2) = C Or Num(K2) = D Then Num(K2) = 0
                                 Next
                                 OrdinaMatrice Nu,1
                                 OrdinaMatrice Num,- 1
                                 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 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 " Cinquina Pentagonale Completa ",1,0
                                 Scrivi StringaNumeri(Nu," ",True),1,0,,1
                                 Scrivi "  Per La Cinquina Pentagonale Manca  ",1,0
                                 Scrivi Format2(Num(1)),1,,,2
                                 Scrivi
                                 R1R2(1) = R1 : R1R2(2) = R2 : Ru1(1) = R1 : Ru2(1) = R2
                                 ImpostaGiocata 1,Num,R1R2,Posta,Clp1
                                 Ter1(1) = Num(1) : Ter1(2) = C : Ter1(3) = D
                                 ImpostaGiocata 2,Ter1,Ru1,Poste,Clp2
                                 ter2(1) = Num(1) : ter2(2) = A : ter2(3) = B
                                 ImpostaGiocata 3,ter2,Ru2,Poste,Clp2
                                 Gioca Es,1,,1
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Distanza(A,B) = 18 Or Distanza(A,B) = 36 Then
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R1 <> R2 Then
                        For P3 = 1 To 4
                           For P4 = P3 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              For R3 = 1 To 12
                                 If R3 = 11 Then R3 = 12
                                 If R3 <> R1 And R3 <> R2 Then
                                    D = Estratto(Es,R3,P4)
                                    If A <> C And B <> C And A <> D And B <> D And C <> D Then
                                       If(Distanza(A,C) = 18 Or Distanza(A,C) = 36) And(Distanza(B,C) = 18 Or Distanza(B,C) = 36) _
                                          And(Distanza(A,D) = 18 Or Distanza(A,D) = 36) And(Distanza(B,D) = 18 Or Distanza(B,D) = 36)Then '<<<<<
                                          Num(1) = A
                                          Nu(1) = A
                                          For K1 = 2 To 5
                                             Num(K1) = Fuori90(Num(K1 - 1) + 18)
                                             Nu(K1) = Num(K1)
                                          Next
                                          For K2 = 1 To 5
                                             If Num(K2) = A Or Num(K2) = B Or Num(K2) = C Or Num(K2) = D Then Num(K2) = 0
                                          Next
                                          OrdinaMatrice Nu,1
                                          OrdinaMatrice Num,- 1
                                          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 Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E2) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R3) & "  ",1,0
                                          For P7 = 1 To 5
                                             E3 = Estratto(Es,R3,P7)
                                             If E3 = D Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E3) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi
                                          Scrivi " Cinquina Pentagonale Completa ",1,0
                                          Scrivi StringaNumeri(Nu," ",True),1,0,,1
                                          Scrivi "  Per La Cinquina Pentagonale Manca  ",1,0
                                          Scrivi Format2(Num(1)),1,,,2
                                          Scrivi
                                          R123(1) = R1 : R123(2) = R2 : R123(3) = R3
                                          Ru1(1) = R1 : Ru2(1) = R2 : Ru3(1) = R3
                                          ImpostaGiocata 1,Num,R123,Posta,Clp1
                                          TerR1(1) = Num(1) : TerR1(2) = C : TerR1(3) = D
                                          ImpostaGiocata 2,TerR1,Ru1,Poste,Clp2
                                          QuaR2(1) = Num(1) : QuaR2(2) = A : QuaR2(3) = B : QuaR2(4) = D
                                          ImpostaGiocata 3,QuaR2,Ru2,Poste,Clp2
                                          QuaR3(1) = Num(1) : QuaR3(2) = A : QuaR3(3) = B : QuaR3(4) = C
                                          ImpostaGiocata 4,QuaR3,Ru3,Poste,Clp2
                                          Gioca Es,1
                                       End If
                                    End If
                                 End If
                              Next
                           Next
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Ciao a Tutti.

Rudivall
Grazie.

LA CHIAVE D'ORO - LA FORTUNA NEI SECOLI

Le immagini per questo metodo li ho presi dal topic - TUTTOLOTTO - post 2 immagine 5 e 6, postate da Cerberus.


La Chiave D'Oro - La Fortuna Nei Secoli - parte 1.jpg

La Chiave D'Oro - La Fortuna Nei Secoli - parte 2.jpg


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,IniR
   Dim R1,R2,P1,Caso,Casi,Ruota,FInR
   Dim A(5),N(5),Ruote(1),Poste(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9800)'
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,5)
   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,12)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " La Chiave D'Oro - La Fortuna Nei Secoli - SCRIPT SALVO50" & Space(14),1,,4,,3,,1
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 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
            A(P1) = Estratto(Es,R1,P1)
            If A(P1) = 1 Then N(1) = 24 : N(2) = 59 : N(3) = 54 : N(4) = 78 : N(5) = 85
            If A(P1) = 2 Then N(1) = 26 : N(2) = 70 : N(3) = 77 : N(4) = 40 : N(5) = 59
            If A(P1) = 3 Then N(1) = 18 : N(2) = 81 : N(3) = 41 : N(4) = 70 : N(5) = 77
            If A(P1) = 4 Then N(1) = 55 : N(2) = 61 : N(3) = 20 : N(4) = 01 : N(5) = 79
            If A(P1) = 5 Then N(1) = 71 : N(2) = 40 : N(3) = 38 : N(4) = 68 : N(5) = 90
            If A(P1) = 6 Then N(1) = 42 : N(2) = 57 : N(3) = 63 : N(4) = 44 : N(5) = 21
            If A(P1) = 7 Then N(1) = 31 : N(2) = 82 : N(3) = 54 : N(4) = 37 : N(5) = 22
            If A(P1) = 8 Then N(1) = 50 : N(2) = 46 : N(3) = 86 : N(4) = 65 : N(5) = 23
            If A(P1) = 9 Then N(1) = 36 : N(2) = 17 : N(3) = 78 : N(4) = 84 : N(5) = 60
            If A(P1) = 10 Then N(1) = 85 : N(2) = 16 : N(3) = 43 : N(4) = 48 : N(5) = 71
            If A(P1) = 11 Then N(1) = 08 : N(2) = 68 : N(3) = 17 : N(4) = 49 : N(5) = 62
            If A(P1) = 12 Then N(1) = 78 : N(2) = 24 : N(3) = 58 : N(4) = 50 : N(5) = 72
            If A(P1) = 13 Then N(1) = 07 : N(2) = 64 : N(3) = 51 : N(4) = 36 : N(5) = 28
            If A(P1) = 14 Then N(1) = 71 : N(2) = 52 : N(3) = 28 : N(4) = 74 : N(5) = 62
            If A(P1) = 15 Then N(1) = 81 : N(2) = 66 : N(3) = 53 : N(4) = 79 : N(5) = 30
            If A(P1) = 16 Then N(1) = 47 : N(2) = 54 : N(3) = 31 : N(4) = 90 : N(5) = 13
            If A(P1) = 17 Then N(1) = 20 : N(2) = 05 : N(3) = 72 : N(4) = 41 : N(5) = 86
            If A(P1) = 18 Then N(1) = 42 : N(2) = 12 : N(3) = 49 : N(4) = 21 : N(5) = 24
            If A(P1) = 19 Then N(1) = 31 : N(2) = 07 : N(3) = 85 : N(4) = 71 : N(5) = 53
            If A(P1) = 20 Then N(1) = 26 : N(2) = 38 : N(3) = 50 : N(4) = 83 : N(5) = 53
            If A(P1) = 21 Then N(1) = 34 : N(2) = 53 : N(3) = 42 : N(4) = 43 : N(5) = 06
            If A(P1) = 22 Then N(1) = 16 : N(2) = 60 : N(3) = 73 : N(4) = 41 : N(5) = 80
            If A(P1) = 23 Then N(1) = 40 : N(2) = 20 : N(3) = 89 : N(4) = 61 : N(5) = 37
            If A(P1) = 24 Then N(1) = 09 : N(2) = 57 : N(3) = 62 : N(4) = 72 : N(5) = 64
            If A(P1) = 25 Then N(1) = 12 : N(2) = 55 : N(3) = 63 : N(4) = 45 : N(5) = 82
            If A(P1) = 26 Then N(1) = 65 : N(2) = 83 : N(3) = 50 : N(4) = 68 : N(5) = 74
            If A(P1) = 27 Then N(1) = 39 : N(2) = 77 : N(3) = 78 : N(4) = 03 : N(5) = 66
            If A(P1) = 28 Then N(1) = 71 : N(2) = 61 : N(3) = 26 : N(4) = 34 : N(5) = 52
            If A(P1) = 29 Then N(1) = 43 : N(2) = 62 : N(3) = 23 : N(4) = 18 : N(5) = 74
            If A(P1) = 30 Then N(1) = 04 : N(2) = 86 : N(3) = 68 : N(4) = 47 : N(5) = 69
            If A(P1) = 31 Then N(1) = 07 : N(2) = 61 : N(3) = 64 : N(4) = 82 : N(5) = 49
            If A(P1) = 32 Then N(1) = 40 : N(2) = 17 : N(3) = 11 : N(4) = 47 : N(5) = 66
            If A(P1) = 33 Then N(1) = 21 : N(2) = 09 : N(3) = 35 : N(4) = 66 : N(5) = 28
            If A(P1) = 34 Then N(1) = 01 : N(2) = 70 : N(3) = 48 : N(4) = 20 : N(5) = 38
            If A(P1) = 35 Then N(1) = 58 : N(2) = 44 : N(3) = 29 : N(4) = 90 : N(5) = 86
            If A(P1) = 36 Then N(1) = 03 : N(2) = 61 : N(3) = 21 : N(4) = 42 : N(5) = 88
            If A(P1) = 37 Then N(1) = 16 : N(2) = 07 : N(3) = 49 : N(4) = 25 : N(5) = 47
            If A(P1) = 38 Then N(1) = 26 : N(2) = 14 : N(3) = 71 : N(4) = 23 : N(5) = 65
            If A(P1) = 39 Then N(1) = 68 : N(2) = 87 : N(3) = 15 : N(4) = 18 : N(5) = 55
            If A(P1) = 40 Then N(1) = 79 : N(2) = 06 : N(3) = 37 : N(4) = 52 : N(5) = 28
            If A(P1) = 41 Then N(1) = 17 : N(2) = 35 : N(3) = 74 : N(4) = 23 : N(5) = 39
            If A(P1) = 42 Then N(1) = 19 : N(2) = 66 : N(3) = 18 : N(4) = 30 : N(5) = 45
            If A(P1) = 43 Then N(1) = 01 : N(2) = 48 : N(3) = 22 : N(4) = 85 : N(5) = 28
            If A(P1) = 44 Then N(1) = 66 : N(2) = 17 : N(3) = 29 : N(4) = 76 : N(5) = 65
            If A(P1) = 45 Then N(1) = 21 : N(2) = 27 : N(3) = 74 : N(4) = 62 : N(5) = 66
            If A(P1) = 46 Then N(1) = 01 : N(2) = 14 : N(3) = 17 : N(4) = 21 : N(5) = 49
            If A(P1) = 47 Then N(1) = 26 : N(2) = 50 : N(3) = 41 : N(4) = 56 : N(5) = 80
            If A(P1) = 48 Then N(1) = 36 : N(2) = 15 : N(3) = 82 : N(4) = 54 : N(5) = 78
            If A(P1) = 49 Then N(1) = 19 : N(2) = 34 : N(3) = 51 : N(4) = 70 : N(5) = 37
            If A(P1) = 50 Then N(1) = 03 : N(2) = 17 : N(3) = 59 : N(4) = 38 : N(5) = 67
            If A(P1) = 51 Then N(1) = 21 : N(2) = 72 : N(3) = 46 : N(4) = 27 : N(5) = 09
            If A(P1) = 52 Then N(1) = 08 : N(2) = 13 : N(3) = 55 : N(4) = 27 : N(5) = 83
            If A(P1) = 53 Then N(1) = 05 : N(2) = 83 : N(3) = 62 : N(4) = 80 : N(5) = 26
            If A(P1) = 54 Then N(1) = 03 : N(2) = 69 : N(3) = 78 : N(4) = 23 : N(5) = 75
            If A(P1) = 55 Then N(1) = 57 : N(2) = 13 : N(3) = 64 : N(4) = 79 : N(5) = 85
            If A(P1) = 56 Then N(1) = 71 : N(2) = 14 : N(3) = 62 : N(4) = 41 : N(5) = 34
            If A(P1) = 57 Then N(1) = 18 : N(2) = 61 : N(3) = 31 : N(4) = 06 : N(5) = 38
            If A(P1) = 58 Then N(1) = 45 : N(2) = 29 : N(3) = 07 : N(4) = 27 : N(5) = 89
            If A(P1) = 59 Then N(1) = 45 : N(2) = 89 : N(3) = 20 : N(4) = 46 : N(5) = 55
            If A(P1) = 60 Then N(1) = 13 : N(2) = 37 : N(3) = 57 : N(4) = 23 : N(5) = 75
            If A(P1) = 61 Then N(1) = 49 : N(2) = 55 : N(3) = 74 : N(4) = 23 : N(5) = 90
            If A(P1) = 62 Then N(1) = 41 : N(2) = 56 : N(3) = 60 : N(4) = 23 : N(5) = 66
            If A(P1) = 63 Then N(1) = 40 : N(2) = 51 : N(3) = 48 : N(4) = 07 : N(5) = 81
            If A(P1) = 64 Then N(1) = 82 : N(2) = 04 : N(3) = 43 : N(4) = 86 : N(5) = 21
            If A(P1) = 65 Then N(1) = 24 : N(2) = 59 : N(3) = 26 : N(4) = 14 : N(5) = 75
            If A(P1) = 66 Then N(1) = 54 : N(2) = 15 : N(3) = 69 : N(4) = 84 : N(5) = 02
            If A(P1) = 67 Then N(1) = 09 : N(2) = 02 : N(3) = 38 : N(4) = 46 : N(5) = 79
            If A(P1) = 68 Then N(1) = 29 : N(2) = 54 : N(3) = 11 : N(4) = 32 : N(5) = 83
            If A(P1) = 69 Then N(1) = 63 : N(2) = 27 : N(3) = 03 : N(4) = 18 : N(5) = 81
            If A(P1) = 70 Then N(1) = 13 : N(2) = 55 : N(3) = 74 : N(4) = 35 : N(5) = 58
            If A(P1) = 71 Then N(1) = 11 : N(2) = 49 : N(3) = 14 : N(4) = 59 : N(5) = 31
            If A(P1) = 72 Then N(1) = 33 : N(2) = 48 : N(3) = 82 : N(4) = 15 : N(5) = 56
            If A(P1) = 73 Then N(1) = 15 : N(2) = 04 : N(3) = 47 : N(4) = 61 : N(5) = 01
            If A(P1) = 74 Then N(1) = 12 : N(2) = 82 : N(3) = 23 : N(4) = 42 : N(5) = 57
            If A(P1) = 75 Then N(1) = 60 : N(2) = 18 : N(3) = 51 : N(4) = 70 : N(5) = 39
            If A(P1) = 76 Then N(1) = 01 : N(2) = 52 : N(3) = 37 : N(4) = 15 : N(5) = 25
            If A(P1) = 77 Then N(1) = 74 : N(2) = 22 : N(3) = 40 : N(4) = 35 : N(5) = 47
            If A(P1) = 78 Then N(1) = 15 : N(2) = 54 : N(3) = 44 : N(4) = 01 : N(5) = 30
            If A(P1) = 79 Then N(1) = 40 : N(2) = 18 : N(3) = 85 : N(4) = 03 : N(5) = 73
            If A(P1) = 80 Then N(1) = 25 : N(2) = 68 : N(3) = 05 : N(4) = 83 : N(5) = 84
            If A(P1) = 81 Then N(1) = 42 : N(2) = 84 : N(3) = 19 : N(4) = 87 : N(5) = 20
            If A(P1) = 82 Then N(1) = 67 : N(2) = 41 : N(3) = 16 : N(4) = 53 : N(5) = 04
            If A(P1) = 83 Then N(1) = 14 : N(2) = 62 : N(3) = 09 : N(4) = 61 : N(5) = 31
            If A(P1) = 84 Then N(1) = 42 : N(2) = 81 : N(3) = 78 : N(4) = 11 : N(5) = 37
            If A(P1) = 85 Then N(1) = 16 : N(2) = 67 : N(3) = 82 : N(4) = 73 : N(5) = 34
            If A(P1) = 86 Then N(1) = 02 : N(2) = 60 : N(3) = 34 : N(4) = 56 : N(5) = 71
            If A(P1) = 87 Then N(1) = 30 : N(2) = 72 : N(3) = 63 : N(4) = 12 : N(5) = 42
            If A(P1) = 88 Then N(1) = 13 : N(2) = 46 : N(3) = 73 : N(4) = 12 : N(5) = 69
            If A(P1) = 89 Then N(1) = 47 : N(2) = 50 : N(3) = 60 : N(4) = 56 : N(5) = 87
            If A(P1) = 90 Then N(1) = 44 : N(2) = 13 : N(3) = 78 : N(4) = 39 : N(5) = 52
            If P1 = 1 Then
               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
               Scrivi StringaEstratti(Es,R1),1,,,1
            End If
            Scrivi
            Scrivi " L'Estratto " & Format2(A(P1)) & "  Genera i Simpatici ",1,0,,1
            Scrivi StringaNumeri(N," ",True),1,,,2
            Scrivi
            Ruote(1) = R1
            ImpostaGiocata P1,N,Ruote,Poste,Clp,2
            Gioca Es,1,,1
            Scrivi
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Ciao a Tutti

Ruduvall
Grazie

Il 7 Un Vero Artista... di Maria Rosaria Falbo

Il 7 Un Vero Artista.jpg

Arcobaleno.PNG


Codice:
Option Explicit
Sub Main
   Dim Es,Ini,Fin,R1,P1,P2,P5,DiAB,Clp
   Dim A,B,S,K1,Casi,Caso,E1,Salvo50
   Dim Num(13),Ruo(2),X1,X2,IndM
   Dim Posta(2),Ambo1(2),Ambo2(2)
   Posta(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",,12)
   IndM = CInt(InputBox("Inserisci il numero dell'indice mensile",,2))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(11) & "Il 7 Un Vero Artista... di Maria Rosaria Falbo - Script Salvo50" & Space(11),1,,4,,3,,1
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      If IndiceMensile(Es) = IndM Then
         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(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  S = ""
                  DiAB = Differenza(A,B)
                  If DiAB = 7 Or DiAB = 14 Or DiAB = 21 Or DiAB = 28 Or DiAB = 35 Or DiAB = 42 Or DiAB = 49 _
                     Or DiAB = 56 Or DiAB = 63 Or DiAB = 70 Or DiAB = 77 Or DiAB = 84 Then
                     Num(1) = A
                     For K1 = 2 To 13
                        Num(K1) = FuoriX((Num(K1 - 1) + 7),91)
                     Next
                     OrdinaMatrice Num,1
                     If Num(1) = 1 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore ROSSO   -> "
                     If Num(1) = 2 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore ARANCIO -> "
                     If Num(1) = 3 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore GIALLO  -> "
                     If Num(1) = 4 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore VERDE   -> "
                     If Num(1) = 5 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore BLEU    -> "
                     If Num(1) = 6 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore INDACO  -> "
                     If Num(1) = 7 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore VIOLA   -> "
                     Ambo1(1) = Fuori90(A + 7) : Ambo1(2) = Fuori90(B + 7)
                     Ambo2(1) = Fuori90(90 +(A - 7)) : Ambo2(2) = Fuori90(90 +(B - 7))
                     Ruo(1) = TU_
                     X1 = 0 : X2 = 0
                     If SerieFreq(Es - 8,Es,Ambo1,Ruo,2) = 0 Then X1 = 1
                     If SerieFreq(Es - 8,Es,Ambo2,Ruo,2) = 0 Then X2 = 1
                     If(X1 = 1 Or X2 = 1) Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        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) & " ",True,False
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi S & " ",True,False
                        Scrivi StringaNumeri(Num," ",True),True,,,1
                        Scrivi
                        If X1 = 1 Then ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                        If X2 = 1 Then ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                        Gioca Es,True,,1
                     End If
                  End If
               Next
            Next
            If ScriptInterrotto Then Exit Sub
         Next
      End If
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18

Ultimi Messaggi

Alto