Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Per Mastrogino, ho fatto lo script richiesto, per avere una seguenza regolare negli script, l'ho inserito nel post 277

Per Genios, appena posso faccio anche il tuo.
 
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
Ciao a Tutti.

Per Mastrogino, ho fatto lo script richiesto, per avere una seguenza regolare negli script, l'ho inserito nel post 277

Per Genios, appena posso faccio anche il tuo.
Clicca per espandere...
grazie , grazie 1000 ....... se vuoi e appena puoi vi posso inserire altri metodi ciclometrici ottenuti dal libro
grazie anche per la modifica delle ruote ma si può anche inserire l 'estrazione di ricerca la 1°o qualsiasi del mese ? grazie anticipate
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Per Mastrogino, per la scelta dell'indice mensile ho fatto un'altro script, inserito dopo il primo.

Per l'inserimento dei metodi del libro, puoi metterli, però ti chiedo un favore, metti sempre le foto delle spiegazioni come hai fatto per questo metodo, ed un'altro favore inseriscili uno alla volta, cioè prima di inserirne un altro metodo aspetta che io abbia finito quello prima. Grazie.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Eugenio, le ruote non le ho fatte fisse, volendo si possono cambiare, quando i mesi sono con una sola cifra il metodo vuole che si aggiunga uno zero, io invece dello zero ho aggiunto un 9 (mi è venuto più semplice) ai fini del risultato non cambia niente perchè nelle piramidi lo zero viene calcolato come il 9, quindi ad esempio per il mese di di Luglio invece di 07 ho messo 97 e nel cuspide della piramide i numeri da 01 a 09 vengono visualizzati con 91,92,93ecc...

Un'Ambata Certa di Patruno
Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,Casi,K,Ok
   Dim MeEs,GiEs,AnEs,Salvo50,Bas,P1,N
   Dim Ru(2),Posta(1),Amba(1),S1
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,3))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,4))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,10))
   Scrivi Space(6) & NomeRuota(R1) & " " & NomeRuota(R2) & " UN'AMBATA CERTA di PATRUNO - Script Salvo50",1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Ru(1) = R1 : Ru(2) = R2
   For Es = Ini To Fin
      If IsUltimaDelMese(Es) Then
         AvanzamentoElab Ini,Fin,Es
         GiEs = giorno(Es)
         MeEs = Mese(Es)
         If MeEs < 10 Then MeEs = MeEs + 90
         AnEs = Anno(Es)
         Bas = GiEs & MeEs & AnEs
         For K = 1 To Len(Bas) - 2
            P1 =(Piramide(Bas,K))
         Next
         Ok = 0
         S1 = ""
         If P1 = 91 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 91, l'ambata è 57 "
         If P1 = 92 Then N = 51 : Ok = 1 : S1 = S1 & " Se il cuspide = 92, l'ambata è 51 "
         If P1 = 93 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 93, l'ambata è 19 "
         If P1 = 94 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 94, l'ambata è 71 "
         If P1 = 95 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 95, l'ambata è 19 "
         If P1 = 96 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 96, l'ambata è 13 "
         If P1 = 97 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 97, l'ambata è 02 "
         If P1 = 98 Then N = 70 : Ok = 1 : S1 = S1 & " Se il cuspide = 98, l'ambata è 70 "
         If P1 = 99 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 99, l'ambata è 57 "
         If P1 = 11 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 11, l'ambata è 20 "
         If P1 = 12 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 12, l'ambata è 82 "
         If P1 = 13 Then N = 41 : Ok = 1 : S1 = S1 & " Se il cuspide = 13, l'ambata è 41 "
         If P1 = 14 Then N = 65 : Ok = 1 : S1 = S1 & " Se il cuspide = 14, l'ambata è 65 "
         If P1 = 15 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 15, l'ambata è 69 "
         If P1 = 16 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 16, l'ambata è 12 "
         If P1 = 17 Then N = 80 : Ok = 1 : S1 = S1 & " Se il cuspide = 17, l'ambata è 80 "
         If P1 = 18 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 18, l'ambata è 18 "
         If P1 = 19 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 19, l'ambata è 14 "
         If P1 = 21 Then N = 72 : Ok = 1 : S1 = S1 & " Se il cuspide = 21, l'ambata è 72 "
         If P1 = 22 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 22, l'ambata è 22 "
         If P1 = 23 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 23, l'ambata è 20 "
         If P1 = 24 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 24, l'ambata è 08 "
         If P1 = 25 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 25, l'ambata è 22 "
         If P1 = 26 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 26, l'ambata è 57 "
         If P1 = 27 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 27, l'ambata è 69 "
         If P1 = 28 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 28, l'ambata è 21 "
         If P1 = 29 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 29, l'ambata è 18 "
         If P1 = 31 Then N = 83 : Ok = 1 : S1 = S1 & " Se il cuspide = 31, l'ambata è 83 "
         If P1 = 32 Then N = 33 : Ok = 1 : S1 = S1 & " Se il cuspide = 32, l'ambata è 33 "
         If P1 = 33 Then N = 31 : Ok = 1 : S1 = S1 & " Se il cuspide = 33, l'ambata è 31 "
         If P1 = 34 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 34, l'ambata è 45 "
         If P1 = 35 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 35, l'ambata è 50 "
         If P1 = 36 Then N = 36 : Ok = 1 : S1 = S1 & " Se il cuspide = 36, l'ambata è 36 "
         If P1 = 37 Then N = 23 : Ok = 1 : S1 = S1 & " Se il cuspide = 37, l'ambata è 23 "
         If P1 = 38 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 38, l'ambata è 13 "
         If P1 = 39 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 39, l'ambata è 40 "
         If P1 = 41 Then N = 56 : Ok = 1 : S1 = S1 & " Se il cuspide = 41, l'ambata è 56 "
         If P1 = 42 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 42, l'ambata è 82 "
         If P1 = 43 Then N = 73 : Ok = 1 : S1 = S1 & " Se il cuspide = 43, l'ambata è 73 "
         If P1 = 44 Then N = 89 : Ok = 1 : S1 = S1 & " Se il cuspide = 44, l'ambata è 89 "
         If P1 = 45 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 45, l'ambata è 71 "
         If P1 = 46 Then N = 25 : Ok = 1 : S1 = S1 & " Se il cuspide = 46, l'ambata è 25 "
         If P1 = 47 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 47, l'ambata è 21 "
         If P1 = 48 Then N = 90 : Ok = 1 : S1 = S1 & " Se il cuspide = 48, l'ambata è 90 "
         If P1 = 49 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 49, l'ambata è 45 "
         If P1 = 51 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 51, l'ambata è 12 "
         If P1 = 52 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 52, l'ambata è 14 "
         If P1 = 53 Then N = 85 : Ok = 1 : S1 = S1 & " Se il cuspide = 53, l'ambata è 85 "
         If P1 = 54 Then N = 77 : Ok = 1 : S1 = S1 & " Se il cuspide = 54, l'ambata è 77 "
         If P1 = 55 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 55, l'ambata è 16 "
         If P1 = 56 Then N = 55 : Ok = 1 : S1 = S1 & " Se il cuspide = 56, l'ambata è 55 "
         If P1 = 57 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 57, l'ambata è 08 "
         If P1 = 58 Then N = 29 : Ok = 1 : S1 = S1 & " Se il cuspide = 58, l'ambata è 29 "
         If P1 = 59 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 59, l'ambata è 19 "
         If P1 = 61 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 61, l'ambata è 02 "
         If P1 = 62 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 62, l'ambata è 19 "
         If P1 = 63 Then N = 75 : Ok = 1 : S1 = S1 & " Se il cuspide = 63, l'ambata è 75 "
         If P1 = 64 Then N = 09 : Ok = 1 : S1 = S1 & " Se il cuspide = 64, l'ambata è 09 "
         If P1 = 65 Then N = 27 : Ok = 1 : S1 = S1 & " Se il cuspide = 65, l'ambata è 27 "
         If P1 = 66 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 66, l'ambata è 50 "
         If P1 = 67 Then N = 61 : Ok = 1 : S1 = S1 & " Se il cuspide = 67, l'ambata è 61 "
         If P1 = 68 Then N = 68 : Ok = 1 : S1 = S1 & " Se il cuspide = 68, l'ambata è 68 "
         If P1 = 69 Then N = 10 : Ok = 1 : S1 = S1 & " Se il cuspide = 69, l'ambata è 10 "
         If P1 = 71 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 71, l'ambata è 84 "
         If P1 = 72 Then N = 38 : Ok = 1 : S1 = S1 & " Se il cuspide = 72, l'ambata è 38 "
         If P1 = 73 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 73, l'ambata è 20 "
         If P1 = 74 Then N = 74 : Ok = 1 : S1 = S1 & " Se il cuspide = 74, l'ambata è 74 "
         If P1 = 75 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 75, l'ambata è 40 "
         If P1 = 76 Then N = 63 : Ok = 1 : S1 = S1 & " Se il cuspide = 76, l'ambata è 63 "
         If P1 = 77 Then N = 87 : Ok = 1 : S1 = S1 & " Se il cuspide = 77, l'ambata è 87 "
         If P1 = 78 Then N = 03 : Ok = 1 : S1 = S1 & " Se il cuspide = 78, l'ambata è 03 "
         If P1 = 79 Then N = 07 : Ok = 1 : S1 = S1 & " Se il cuspide = 79, l'ambata è 07 "
         If P1 = 81 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 81, l'ambata è 13 "
         If P1 = 82 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 82, l'ambata è 21 "
         If P1 = 83 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 83, l'ambata è 16 "
         If P1 = 84 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 84, l'ambata è 84 "
         If P1 = 85 Then N = 06 : Ok = 1 : S1 = S1 & " Se il cuspide = 85, l'ambata è 06 "
         If P1 = 86 Then N = 86 : Ok = 1 : S1 = S1 & " Se il cuspide = 86, l'ambata è 86 "
         If P1 = 87 Then N = 42 : Ok = 1 : S1 = S1 & " Se il cuspide = 87, l'ambata è 42 "
         If P1 = 88 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 88, l'ambata è 57 "
         If P1 = 89 Then N = 52 : Ok = 1 : S1 = S1 & " Se il cuspide = 89, l'ambata è 52 "
         If Ok = 1 Then
            Amba(1) = N
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1
            Scrivi
            Scrivi Space(17) & GiEs & MeEs & AnEs,1
            For K = 1 To Len(Bas) - 2
               Scrivi Space(17) &(Piramide(Bas,K)),1
            Next
            Scrivi S1,1,,,2
            Scrivi
            ImpostaGiocata 1,Amba,Ru,Posta,Clp
            Gioca Es
         End If
      End If
   Next
   ScriviResoconto
End Sub


Con scelta IndiceMensile

Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,Casi,K,Ok,Ind_Me
   Dim MeEs,GiEs,AnEs,Salvo50,Bas,P1,N
   Dim Ru(2),Posta(1),Amba(1),S1,Caso
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,3))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,4))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,10))
   Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,2))
  
   Scrivi Space(6) & NomeRuota(R1) & " " & NomeRuota(R2) & " UN'AMBATA CERTA di PATRUNO - Script Salvo50",1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Ru(1) = R1 : Ru(2) = R2
   For Es = Ini To Fin
   Caso = 0
      If IndiceMensile(Es) = Ind_Me Then
         AvanzamentoElab Ini,Fin,Es
         GiEs = giorno(Es)
         MeEs = Mese(Es)
         If MeEs < 10 Then MeEs = MeEs + 90
         AnEs = Anno(Es)
         Bas = GiEs & MeEs & AnEs
         For K = 1 To Len(Bas) - 2
            P1 =(Piramide(Bas,K))
         Next
         Ok = 0
         S1 = ""
         If P1 = 91 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 91, l'ambata è 57 "
         If P1 = 92 Then N = 51 : Ok = 1 : S1 = S1 & " Se il cuspide = 92, l'ambata è 51 "
         If P1 = 93 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 93, l'ambata è 19 "
         If P1 = 94 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 94, l'ambata è 71 "
         If P1 = 95 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 95, l'ambata è 19 "
         If P1 = 96 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 96, l'ambata è 13 "
         If P1 = 97 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 97, l'ambata è 02 "
         If P1 = 98 Then N = 70 : Ok = 1 : S1 = S1 & " Se il cuspide = 98, l'ambata è 70 "
         If P1 = 99 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 99, l'ambata è 57 "
         If P1 = 11 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 11, l'ambata è 20 "
         If P1 = 12 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 12, l'ambata è 82 "
         If P1 = 13 Then N = 41 : Ok = 1 : S1 = S1 & " Se il cuspide = 13, l'ambata è 41 "
         If P1 = 14 Then N = 65 : Ok = 1 : S1 = S1 & " Se il cuspide = 14, l'ambata è 65 "
         If P1 = 15 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 15, l'ambata è 69 "
         If P1 = 16 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 16, l'ambata è 12 "
         If P1 = 17 Then N = 80 : Ok = 1 : S1 = S1 & " Se il cuspide = 17, l'ambata è 80 "
         If P1 = 18 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 18, l'ambata è 18 "
         If P1 = 19 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 19, l'ambata è 14 "
         If P1 = 21 Then N = 72 : Ok = 1 : S1 = S1 & " Se il cuspide = 21, l'ambata è 72 "
         If P1 = 22 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 22, l'ambata è 22 "
         If P1 = 23 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 23, l'ambata è 20 "
         If P1 = 24 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 24, l'ambata è 08 "
         If P1 = 25 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 25, l'ambata è 22 "
         If P1 = 26 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 26, l'ambata è 57 "
         If P1 = 27 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 27, l'ambata è 69 "
         If P1 = 28 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 28, l'ambata è 21 "
         If P1 = 29 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 29, l'ambata è 18 "
         If P1 = 31 Then N = 83 : Ok = 1 : S1 = S1 & " Se il cuspide = 31, l'ambata è 83 "
         If P1 = 32 Then N = 33 : Ok = 1 : S1 = S1 & " Se il cuspide = 32, l'ambata è 33 "
         If P1 = 33 Then N = 31 : Ok = 1 : S1 = S1 & " Se il cuspide = 33, l'ambata è 31 "
         If P1 = 34 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 34, l'ambata è 45 "
         If P1 = 35 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 35, l'ambata è 50 "
         If P1 = 36 Then N = 36 : Ok = 1 : S1 = S1 & " Se il cuspide = 36, l'ambata è 36 "
         If P1 = 37 Then N = 23 : Ok = 1 : S1 = S1 & " Se il cuspide = 37, l'ambata è 23 "
         If P1 = 38 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 38, l'ambata è 13 "
         If P1 = 39 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 39, l'ambata è 40 "
         If P1 = 41 Then N = 56 : Ok = 1 : S1 = S1 & " Se il cuspide = 41, l'ambata è 56 "
         If P1 = 42 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 42, l'ambata è 82 "
         If P1 = 43 Then N = 73 : Ok = 1 : S1 = S1 & " Se il cuspide = 43, l'ambata è 73 "
         If P1 = 44 Then N = 89 : Ok = 1 : S1 = S1 & " Se il cuspide = 44, l'ambata è 89 "
         If P1 = 45 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 45, l'ambata è 71 "
         If P1 = 46 Then N = 25 : Ok = 1 : S1 = S1 & " Se il cuspide = 46, l'ambata è 25 "
         If P1 = 47 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 47, l'ambata è 21 "
         If P1 = 48 Then N = 90 : Ok = 1 : S1 = S1 & " Se il cuspide = 48, l'ambata è 90 "
         If P1 = 49 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 49, l'ambata è 45 "
         If P1 = 51 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 51, l'ambata è 12 "
         If P1 = 52 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 52, l'ambata è 14 "
         If P1 = 53 Then N = 85 : Ok = 1 : S1 = S1 & " Se il cuspide = 53, l'ambata è 85 "
         If P1 = 54 Then N = 77 : Ok = 1 : S1 = S1 & " Se il cuspide = 54, l'ambata è 77 "
         If P1 = 55 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 55, l'ambata è 16 "
         If P1 = 56 Then N = 55 : Ok = 1 : S1 = S1 & " Se il cuspide = 56, l'ambata è 55 "
         If P1 = 57 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 57, l'ambata è 08 "
         If P1 = 58 Then N = 29 : Ok = 1 : S1 = S1 & " Se il cuspide = 58, l'ambata è 29 "
         If P1 = 59 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 59, l'ambata è 19 "
         If P1 = 61 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 61, l'ambata è 02 "
         If P1 = 62 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 62, l'ambata è 19 "
         If P1 = 63 Then N = 75 : Ok = 1 : S1 = S1 & " Se il cuspide = 63, l'ambata è 75 "
         If P1 = 64 Then N = 09 : Ok = 1 : S1 = S1 & " Se il cuspide = 64, l'ambata è 09 "
         If P1 = 65 Then N = 27 : Ok = 1 : S1 = S1 & " Se il cuspide = 65, l'ambata è 27 "
         If P1 = 66 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 66, l'ambata è 50 "
         If P1 = 67 Then N = 61 : Ok = 1 : S1 = S1 & " Se il cuspide = 67, l'ambata è 61 "
         If P1 = 68 Then N = 68 : Ok = 1 : S1 = S1 & " Se il cuspide = 68, l'ambata è 68 "
         If P1 = 69 Then N = 10 : Ok = 1 : S1 = S1 & " Se il cuspide = 69, l'ambata è 10 "
         If P1 = 71 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 71, l'ambata è 84 "
         If P1 = 72 Then N = 38 : Ok = 1 : S1 = S1 & " Se il cuspide = 72, l'ambata è 38 "
         If P1 = 73 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 73, l'ambata è 20 "
         If P1 = 74 Then N = 74 : Ok = 1 : S1 = S1 & " Se il cuspide = 74, l'ambata è 74 "
         If P1 = 75 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 75, l'ambata è 40 "
         If P1 = 76 Then N = 63 : Ok = 1 : S1 = S1 & " Se il cuspide = 76, l'ambata è 63 "
         If P1 = 77 Then N = 87 : Ok = 1 : S1 = S1 & " Se il cuspide = 77, l'ambata è 87 "
         If P1 = 78 Then N = 03 : Ok = 1 : S1 = S1 & " Se il cuspide = 78, l'ambata è 03 "
         If P1 = 79 Then N = 07 : Ok = 1 : S1 = S1 & " Se il cuspide = 79, l'ambata è 07 "
         If P1 = 81 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 81, l'ambata è 13 "
         If P1 = 82 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 82, l'ambata è 21 "
         If P1 = 83 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 83, l'ambata è 16 "
         If P1 = 84 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 84, l'ambata è 84 "
         If P1 = 85 Then N = 06 : Ok = 1 : S1 = S1 & " Se il cuspide = 85, l'ambata è 06 "
         If P1 = 86 Then N = 86 : Ok = 1 : S1 = S1 & " Se il cuspide = 86, l'ambata è 86 "
         If P1 = 87 Then N = 42 : Ok = 1 : S1 = S1 & " Se il cuspide = 87, l'ambata è 42 "
         If P1 = 88 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 88, l'ambata è 57 "
         If P1 = 89 Then N = 52 : Ok = 1 : S1 = S1 & " Se il cuspide = 89, l'ambata è 52 "
         If Ok = 1 Then
            Amba(1) = N
            Casi = Casi + 1
            Caso = Caso + 1
            Scrivi String(89,"*") & " 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 "   Indice Mensile Scelto " & Ind_Me,1,,,2
            Scrivi
            Scrivi Space(17) & GiEs & MeEs & AnEs,1
            For K = 1 To Len(Bas) - 2
               Scrivi Space(17) &(Piramide(Bas,K)),1
            Next
            Scrivi S1,1,,,2
            Scrivi
            ImpostaGiocata 1,Amba,Ru,Posta,Clp
            Gioca Es
         End If
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
Ciao a Tutti.

Ciao Eugenio, le ruote non le ho fatte fisse, volendo si possono cambiare, quando i mesi sono con una sola cifra il metodo vuole che si aggiunga uno zero, io invece dello zero ho aggiunto un 9 (mi è venuto più semplice) ai fini del risultato non cambia niente perchè nelle piramidi lo zero viene calcolato come il 9, quindi ad esempio per il mese di di Luglio invece di 07 ho messo 97 e nel cuspide della piramide i numeri da 01 a 09 vengono visualizzati con 91,92,93ecc...

Un'Ambata Certa di Patruno
Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,R2,Casi,K,Ok
   Dim MeEs,GiEs,AnEs,Salvo50,Bas,P1,N
   Dim Ru(2),Posta(1),Amba(1),S1
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,3))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,4))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,10))
   Scrivi Space(6) & NomeRuota(R1) & " " & NomeRuota(R2) & " UN'AMBATA CERTA di PATRUNO - Script Salvo50",1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Ru(1) = R1 : Ru(2) = R2
   For Es = Ini To Fin
      If IsUltimaDelMese(Es) Then
         AvanzamentoElab Ini,Fin,Es
         GiEs = giorno(Es)
         MeEs = Mese(Es)
         If MeEs < 10 Then MeEs = MeEs + 90
         AnEs = Anno(Es)
         Bas = GiEs & MeEs & AnEs
         For K = 1 To Len(Bas) - 2
            P1 =(Piramide(Bas,K))
         Next
         Ok = 0
         S1 = ""
         If P1 = 91 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 91, l'ambata è 57 "
         If P1 = 92 Then N = 51 : Ok = 1 : S1 = S1 & " Se il cuspide = 92, l'ambata è 51 "
         If P1 = 93 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 93, l'ambata è 19 "
         If P1 = 94 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 94, l'ambata è 71 "
         If P1 = 95 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 95, l'ambata è 19 "
         If P1 = 96 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 96, l'ambata è 13 "
         If P1 = 97 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 97, l'ambata è 02 "
         If P1 = 98 Then N = 70 : Ok = 1 : S1 = S1 & " Se il cuspide = 98, l'ambata è 70 "
         If P1 = 99 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 99, l'ambata è 57 "
         If P1 = 11 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 11, l'ambata è 20 "
         If P1 = 12 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 12, l'ambata è 82 "
         If P1 = 13 Then N = 41 : Ok = 1 : S1 = S1 & " Se il cuspide = 13, l'ambata è 41 "
         If P1 = 14 Then N = 65 : Ok = 1 : S1 = S1 & " Se il cuspide = 14, l'ambata è 65 "
         If P1 = 15 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 15, l'ambata è 69 "
         If P1 = 16 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 16, l'ambata è 12 "
         If P1 = 17 Then N = 80 : Ok = 1 : S1 = S1 & " Se il cuspide = 17, l'ambata è 80 "
         If P1 = 18 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 18, l'ambata è 18 "
         If P1 = 19 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 19, l'ambata è 14 "
         If P1 = 21 Then N = 72 : Ok = 1 : S1 = S1 & " Se il cuspide = 21, l'ambata è 72 "
         If P1 = 22 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 22, l'ambata è 22 "
         If P1 = 23 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 23, l'ambata è 20 "
         If P1 = 24 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 24, l'ambata è 08 "
         If P1 = 25 Then N = 22 : Ok = 1 : S1 = S1 & " Se il cuspide = 25, l'ambata è 22 "
         If P1 = 26 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 26, l'ambata è 57 "
         If P1 = 27 Then N = 69 : Ok = 1 : S1 = S1 & " Se il cuspide = 27, l'ambata è 69 "
         If P1 = 28 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 28, l'ambata è 21 "
         If P1 = 29 Then N = 18 : Ok = 1 : S1 = S1 & " Se il cuspide = 29, l'ambata è 18 "
         If P1 = 31 Then N = 83 : Ok = 1 : S1 = S1 & " Se il cuspide = 31, l'ambata è 83 "
         If P1 = 32 Then N = 33 : Ok = 1 : S1 = S1 & " Se il cuspide = 32, l'ambata è 33 "
         If P1 = 33 Then N = 31 : Ok = 1 : S1 = S1 & " Se il cuspide = 33, l'ambata è 31 "
         If P1 = 34 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 34, l'ambata è 45 "
         If P1 = 35 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 35, l'ambata è 50 "
         If P1 = 36 Then N = 36 : Ok = 1 : S1 = S1 & " Se il cuspide = 36, l'ambata è 36 "
         If P1 = 37 Then N = 23 : Ok = 1 : S1 = S1 & " Se il cuspide = 37, l'ambata è 23 "
         If P1 = 38 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 38, l'ambata è 13 "
         If P1 = 39 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 39, l'ambata è 40 "
         If P1 = 41 Then N = 56 : Ok = 1 : S1 = S1 & " Se il cuspide = 41, l'ambata è 56 "
         If P1 = 42 Then N = 82 : Ok = 1 : S1 = S1 & " Se il cuspide = 42, l'ambata è 82 "
         If P1 = 43 Then N = 73 : Ok = 1 : S1 = S1 & " Se il cuspide = 43, l'ambata è 73 "
         If P1 = 44 Then N = 89 : Ok = 1 : S1 = S1 & " Se il cuspide = 44, l'ambata è 89 "
         If P1 = 45 Then N = 71 : Ok = 1 : S1 = S1 & " Se il cuspide = 45, l'ambata è 71 "
         If P1 = 46 Then N = 25 : Ok = 1 : S1 = S1 & " Se il cuspide = 46, l'ambata è 25 "
         If P1 = 47 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 47, l'ambata è 21 "
         If P1 = 48 Then N = 90 : Ok = 1 : S1 = S1 & " Se il cuspide = 48, l'ambata è 90 "
         If P1 = 49 Then N = 45 : Ok = 1 : S1 = S1 & " Se il cuspide = 49, l'ambata è 45 "
         If P1 = 51 Then N = 12 : Ok = 1 : S1 = S1 & " Se il cuspide = 51, l'ambata è 12 "
         If P1 = 52 Then N = 14 : Ok = 1 : S1 = S1 & " Se il cuspide = 52, l'ambata è 14 "
         If P1 = 53 Then N = 85 : Ok = 1 : S1 = S1 & " Se il cuspide = 53, l'ambata è 85 "
         If P1 = 54 Then N = 77 : Ok = 1 : S1 = S1 & " Se il cuspide = 54, l'ambata è 77 "
         If P1 = 55 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 55, l'ambata è 16 "
         If P1 = 56 Then N = 55 : Ok = 1 : S1 = S1 & " Se il cuspide = 56, l'ambata è 55 "
         If P1 = 57 Then N = 08 : Ok = 1 : S1 = S1 & " Se il cuspide = 57, l'ambata è 08 "
         If P1 = 58 Then N = 29 : Ok = 1 : S1 = S1 & " Se il cuspide = 58, l'ambata è 29 "
         If P1 = 59 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 59, l'ambata è 19 "
         If P1 = 61 Then N = 02 : Ok = 1 : S1 = S1 & " Se il cuspide = 61, l'ambata è 02 "
         If P1 = 62 Then N = 19 : Ok = 1 : S1 = S1 & " Se il cuspide = 62, l'ambata è 19 "
         If P1 = 63 Then N = 75 : Ok = 1 : S1 = S1 & " Se il cuspide = 63, l'ambata è 75 "
         If P1 = 64 Then N = 09 : Ok = 1 : S1 = S1 & " Se il cuspide = 64, l'ambata è 09 "
         If P1 = 65 Then N = 27 : Ok = 1 : S1 = S1 & " Se il cuspide = 65, l'ambata è 27 "
         If P1 = 66 Then N = 50 : Ok = 1 : S1 = S1 & " Se il cuspide = 66, l'ambata è 50 "
         If P1 = 67 Then N = 61 : Ok = 1 : S1 = S1 & " Se il cuspide = 67, l'ambata è 61 "
         If P1 = 68 Then N = 68 : Ok = 1 : S1 = S1 & " Se il cuspide = 68, l'ambata è 68 "
         If P1 = 69 Then N = 10 : Ok = 1 : S1 = S1 & " Se il cuspide = 69, l'ambata è 10 "
         If P1 = 71 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 71, l'ambata è 84 "
         If P1 = 72 Then N = 38 : Ok = 1 : S1 = S1 & " Se il cuspide = 72, l'ambata è 38 "
         If P1 = 73 Then N = 20 : Ok = 1 : S1 = S1 & " Se il cuspide = 73, l'ambata è 20 "
         If P1 = 74 Then N = 74 : Ok = 1 : S1 = S1 & " Se il cuspide = 74, l'ambata è 74 "
         If P1 = 75 Then N = 40 : Ok = 1 : S1 = S1 & " Se il cuspide = 75, l'ambata è 40 "
         If P1 = 76 Then N = 63 : Ok = 1 : S1 = S1 & " Se il cuspide = 76, l'ambata è 63 "
         If P1 = 77 Then N = 87 : Ok = 1 : S1 = S1 & " Se il cuspide = 77, l'ambata è 87 "
         If P1 = 78 Then N = 03 : Ok = 1 : S1 = S1 & " Se il cuspide = 78, l'ambata è 03 "
         If P1 = 79 Then N = 07 : Ok = 1 : S1 = S1 & " Se il cuspide = 79, l'ambata è 07 "
         If P1 = 81 Then N = 13 : Ok = 1 : S1 = S1 & " Se il cuspide = 81, l'ambata è 13 "
         If P1 = 82 Then N = 21 : Ok = 1 : S1 = S1 & " Se il cuspide = 82, l'ambata è 21 "
         If P1 = 83 Then N = 16 : Ok = 1 : S1 = S1 & " Se il cuspide = 83, l'ambata è 16 "
         If P1 = 84 Then N = 84 : Ok = 1 : S1 = S1 & " Se il cuspide = 84, l'ambata è 84 "
         If P1 = 85 Then N = 06 : Ok = 1 : S1 = S1 & " Se il cuspide = 85, l'ambata è 06 "
         If P1 = 86 Then N = 86 : Ok = 1 : S1 = S1 & " Se il cuspide = 86, l'ambata è 86 "
         If P1 = 87 Then N = 42 : Ok = 1 : S1 = S1 & " Se il cuspide = 87, l'ambata è 42 "
         If P1 = 88 Then N = 57 : Ok = 1 : S1 = S1 & " Se il cuspide = 88, l'ambata è 57 "
         If P1 = 89 Then N = 52 : Ok = 1 : S1 = S1 & " Se il cuspide = 89, l'ambata è 52 "
         If Ok = 1 Then
            Amba(1) = N
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1
            Scrivi
            Scrivi Space(17) & GiEs & MeEs & AnEs,1
            For K = 1 To Len(Bas) - 2
               Scrivi Space(17) &(Piramide(Bas,K)),1
            Next
            Scrivi S1,1,,,2
            Scrivi
            ImpostaGiocata 1,Amba,Ru,Posta,Clp
            Gioca Es
         End If
      End If
   Next
   ScriviResoconto
End Sub
Clicca per espandere...


ciao Salvo 50
1° domanda perche nelle decine non cè la prev. tipo 10,20,30,
2° si potrebbe inserire l'indice dell'estrazione?
grazie anticipato
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
mastrogino ha scritto:
ciao Salvo 50
1° domanda perche nelle decine non cè la prev. tipo 10,20,30,
Clicca per espandere...
La previsione non c'è perche il metodo non la vuole, guarda la prima foto nota 7
zerati no.PNG

2° si potrebbe inserire l'indice dell'estrazione?
Clicca per espandere...
Se intendi l'indicemensile l'ho messo dove è variabile perchè appunto varia
nel primo script è sempre l'ultimo è la funzione non lo segna.

Se non è l'indice mensile, spiegati meglio con più dettagli, magari fai un esempio, perchè in questo momento non mi viene in mente altro.
 
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
La previsione non c'è perche il metodo non la vuole, guarda la prima foto nota 7
Vedi l'allegato 2202102


Se intendi l'indicemensile l'ho messo dove è variabile perchè appunto varia
nel primo script è sempre l'ultimo è la funzione non lo segna.

Se non è l'indice mensile, spiegati meglio con più dettagli, magari fai un esempio, perchè in questo momento non mi viene in mente altro.
Clicca per espandere...
CIAO SALVO50 LE DOMANDE E PROPOSTE NON ERANO INDIRIZZATE AL METODO POSTATO DA ME MA AL METODO

Un'Ambata Certa di Patruno
SCUSAMI SE NON LO AVEVO ACCENATO ...........MA AVEVO FATTO COPIA INCOLLA DEL LISTATO
GRAZIE ANCORA
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Mastrgino, nello script chiesto da Genios, di zerati ne mancano solo 2, il 30 e il 60, ma siccome ci sono anche molti doppioni, di numeri ne mancano molti di più, oltre ai 2 zerati ne mancano altri 33 che sono, 1-4-5-11-15-17-24-26-28-32-34-35-37-37-43-44-46-47-48-49-53-54-58-59-62-64-66-67-76-78-79-81e 88 non chiedere a me perchè mancano, bisognerebbe chiederlo all'autore del metodo.
 
Ultima modifica:
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
Ciao a Tutti.
Ciao Mastrgino, nello script chiesto da Genios, di zerati ne mancano solo 2, il 30 e il 60, ma siccome ci sono molti doppioni di numeri ne mancano molti di più, oltre ai 2 zerati ne mancano altri 33 che sono, 1-4-5-11-15-17-24-26-28-32-34-35-37-37-43-44-46-47-48-49-53-54-58-59-62-64-66-67-76-78-79-81e 88 non chiedere a me perchè mancano, bisognerebbe chiederlo all'autore del metodo.
Clicca per espandere...

buona Domenica grazie x la spiegazione ..........in questo metodo si puo inserire l'indice del mese?
grazie in anticipo
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
pasqualino c ha scritto:
X Salvo.Non riesco a mandare le foto dei metodi cartacei.

Se sai altri modi per farteli avere dimmelo pure farò in modo di farteli arrivare.
Clicca per espandere...
pa 1.PNG

1) Clicca dove ho fatto il circoletto
2) appare questa schermata

pa 2.PNG

clicca dove ho fatto il circoletto
ti porta nelle cartelle del tuo computer, scegli l'immagine che devi mandare e premi apri,
quando a caricato l'immagine premi invia risposta e l'immagine è postata
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
pasqualino c ha scritto:
Buongiorno Salvo non me li fa caricare ( dicitura ) file troppo grande.
Clicca per espandere...
Ciao
Con qualche programma di immagini devi ridimensionarli, devono essere massimo di 1000kb, io uso ACDSee, comunque puoi usare il programma PAINT di windows per ridimensionarli
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
LA VINCITA IN TASCA a cura di LUCIANA GIORGETTI

L'autrice specifica che è importante ma non essenziale che gli estratti appartengono alle figure 3-6-9, quindi dato che non è essenziale l'ho fatto per tutte le figure, ho fatto 2 script, nel primo ho rispettato il metodo come da articolo, nel secondo ho aggiunto una variante.

Nello script ci sono 2 ruote, come variante ho messo che una ruota si può scegliere, quindi nel secondo script, una ruota a scelta e le altre a rotazione.

La vincita - Luciana Giorgetti.jpg


Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,Salvo50,E1,E2
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B
   Dim SAB,DA,DB,SADA,SBDB,SADB,SBDA
   Dim Ruo(2),Poste(5),Ter1(3),Ter2(3),Sett(7)
   Dim Amba(1),Ambo1(2),Ambo2(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)'6543 Primo esempio nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare le altre combinazioni?",,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "LA VINCITA IN TASCA a cura di LUCIANA GIORGETTI - SCRIPT Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 5
               For P2 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P2)
                  SAB = A + B
                  If(A And B > 0) And(SAB = 90) Then
                     DA = Diametrale(A) : DB = Diametrale(B)
                     SADA = Fuori90(A + DA) ' Abbinamento 1
                     SBDB = Fuori90(B + DB) ' Abbinamento 2
                     SADB = Fuori90(A + DB) ' Diagonale   A
                     SBDA = Fuori90(B + DA) ' Diagonale   B
                     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 P3 = 1 To 5
                        E1 = Estratto(Es,R1,P3)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & " ",1,0
                     For P4 = 1 To 5
                        E2 = Estratto(Es,R2,P4)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi Space(20) & " Somma Estratti Evidenziati = " & Format2(SAB),1,0,,1
                     Scrivi " Ambata e Capogioco",1,,,2
                     Scrivi
                     Scrivi Space(10) & Format2(A) & " + " & Format2(DA) & " = " & Format2(SADA),1,0
                     Scrivi " Abbinamento 1",1,,,2
                     Scrivi Space(10) & Format2(B) & " + " & Format2(DB) & " = " & Format2(SBDB),1,0
                     Scrivi " Abbinamento 2 ",1,0,,2
                     Scrivi Space(28) & Format2(A) & Space(4) & Format2(B),1
                     Scrivi Space(10) & Format2(A) & " + " & Format2(DB) & " = " & Format2(SADB),1,0
                     Scrivi " Diagonale   A",1,0,,2
                     Scrivi Space(32) & Format2(SADB),1
                     Scrivi Space(10) & Format2(B) & " + " & Format2(DA) & " = " & Format2(SBDA),1,0
                     Scrivi " Diagonale   B ",1,0,,2
                     Scrivi " Diametrali Estratti  -->" & Space(3) & Format2(DA) & Space(4) & Format2(DB),1
                     Scrivi Space(38) & " Somme verticali     -->   " & Format2(SADA) & Space(4) & Format2(SBDB),1
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     Amba(1) = SAB
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                     Ambo1(1) = SAB : Ambo1(2) = SADA
                     ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2
                     Ambo2(1) = SAB : Ambo2(2) = SBDB
                     ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2
                     Ter1(1) = SAB : Ter1(2) = A : Ter1(3) = B
                     ImpostaGiocata 4,Ter1,Ruo,Poste,Clp2
                     Ter2(1) = SAB : Ter2(2) = DA : Ter2(3) = DB
                     ImpostaGiocata 5,Ter2,Ruo,Poste,Clp2
                     Sett(1) = SADB : Sett(2) = DA : Sett(3) = A : Sett(4) = B
                     Sett(5) = DB : Sett(6) = SADA : Sett(7) = SBDB
                     ImpostaGiocata 6,Sett,Ruo,Poste,Clp2
                     Gioca Es
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub


Con variante scelta ruota
Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,Salvo50,E1,E2
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B
   Dim SAB,DA,DB,SADA,SBDB,SADB,SBDA
   Dim Ruo(2),Poste(5),Ter1(3),Ter2(3),Sett(7)
   Dim Amba(1),Ambo1(2),Ambo2(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare le altre combinazioni?",,7)
   R2 = InputBox("Inserisci il numero della ruota (Ruote da 1 a 10)(Nazionale 12)?",,6)
   If R2 = 11 Then R2 = 12
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & "LA VINCITA IN TASCA a cura di LUCIANA GIORGETTI - Con Scelta Ruota - SCRIPT Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         If R1 <> R2 Then
            For P1 = 1 To 5
               For P2 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P2)
                  SAB = A + B
                  If(A And B > 0) And(SAB = 90) Then
                     DA = Diametrale(A) : DB = Diametrale(B)
                     SADA = Fuori90(A + DA) ' Abbinamento 1
                     SBDB = Fuori90(B + DB) ' Abbinamento 2
                     SADB = Fuori90(A + DB) ' Diagonale   A
                     SBDA = Fuori90(B + DA) ' Diagonale   B
                     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 P3 = 1 To 5
                        E1 = Estratto(Es,R1,P3)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & " ",1,0
                     For P4 = 1 To 5
                        E2 = Estratto(Es,R2,P4)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi Space(20) & " Somma Estratti Evidenziati = " & Format2(SAB),1,0,,1
                     Scrivi " Ambata e Capogioco",1,,,2
                     Scrivi
                     Scrivi Space(10) & Format2(A) & " + " & Format2(DA) & " = " & Format2(SADA),1,0
                     Scrivi " Abbinamento 1",1,,,2
                     Scrivi Space(10) & Format2(B) & " + " & Format2(DB) & " = " & Format2(SBDB),1,0
                     Scrivi " Abbinamento 2 ",1,0,,2
                     Scrivi Space(28) & Format2(A) & Space(4) & Format2(B),1
                     Scrivi Space(10) & Format2(A) & " + " & Format2(DB) & " = " & Format2(SADB),1,0
                     Scrivi " Diagonale   A",1,0,,2
                     Scrivi Space(32) & Format2(SADB),1
                     Scrivi Space(10) & Format2(B) & " + " & Format2(DA) & " = " & Format2(SBDA),1,0
                     Scrivi " Diagonale   B ",1,0,,2
                     Scrivi " Diametrali Estratti  -->" & Space(3) & Format2(DA) & Space(4) & Format2(DB),1
                     Scrivi Space(38) & " Somme verticali     -->   " & Format2(SADA) & Space(4) & Format2(SBDB),1
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     Amba(1) = SAB
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                     Ambo1(1) = SAB : Ambo1(2) = SADA
                     ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2
                     Ambo2(1) = SAB : Ambo2(2) = SBDB
                     ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2
                     Ter1(1) = SAB : Ter1(2) = A : Ter1(3) = B
                     ImpostaGiocata 4,Ter1,Ruo,Poste,Clp2
                     Ter2(1) = SAB : Ter2(2) = DA : Ter2(3) = DB
                     ImpostaGiocata 5,Ter2,Ruo,Poste,Clp2
                     Sett(1) = SADB : Sett(2) = DA : Sett(3) = A : Sett(4) = B
                     Sett(5) = DB : Sett(6) = SADA : Sett(7) = SBDB
                     ImpostaGiocata 6,Sett,Ruo,Poste,Clp2
                     Gioca Es
                  End If
               Next
            Next
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
 
Ultima modifica:
toon

toon

Advanced Member
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.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto