Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
mastrogino
Advanced Premium Member
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
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.
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
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
Con scelta IndiceMensile
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 SubCon 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
Advanced Premium Member
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
Advanced Member >PLATINUM PLUS<
La previsione non c'è perche il metodo non la vuole, guarda la prima foto nota 7
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
Advanced Premium Member
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
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.
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
Advanced Premium Member
buona Domenica grazie x la spiegazione ..........in questo metodo si puo inserire l'indice del mese?
grazie in anticipo
pasqualino c
Member
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.
Se sai altri modi per farteli avere dimmelo pure farò in modo di farteli arrivare.
salvo50
Advanced Member >PLATINUM PLUS<
1) Clicca dove ho fatto il circoletto
2) appare questa schermata
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:
pasqualino c
Member
Buongiorno Salvo non me li fa caricare ( dicitura ) file troppo grande.
salvo50
Advanced Member >PLATINUM PLUS<
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
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.
Con variante scelta ruota
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.
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 SubCon 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:
Sakti
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.
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.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
