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
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto