L' Ambata Frequente - Su Palermo - Vincente Da 14 Mesi (Ultima Del Mese)
- Creatore Discussione Xeroxs
- Data di inizio
80Sete
Advanced Member >PLATINUM PLUS<
Ciao Xeroxs, sto cercando di capire un po' di più gli script, ti volevo chiedere
quando invece di un' Ambata X se volessi far risultare SOLO il Vertibile di X
come e cosa dovrei aggiungere alla scritta
da tuo es. ......
Ambata = Fuori90(Estratto(es,NZ_,1) - Estratto(es,BA_,1) + 64) =
(non riguarda questo script)
per quando ti sarà possibile.
Grazie1000 e buon week end.
Ciao
quando invece di un' Ambata X se volessi far risultare SOLO il Vertibile di X
come e cosa dovrei aggiungere alla scritta
da tuo es. ......
Ambata = Fuori90(Estratto(es,NZ_,1) - Estratto(es,BA_,1) + 64) =
(non riguarda questo script)
per quando ti sarà possibile.
Grazie1000 e buon week end.
Ciao
Ciao, 80Sete
Se ad esempio vuoi giocare o verificare gli esiti di un vertibile di un calcolo o altro, usi il codice o funzione del vertibile
Quindi chiamandolo A o Ambata 2 o se le vuoi entrambe ti consiglio A(1) prima ambata e A(2) seconda ambata
A = Vert(X)
Poi richiami la giocata da imposta giocata perché hai A com nuovo valore, devi anche impostare la variabile A nelle Dim con
Dim A(2) oppure Dim Ambata(2)
Se ad esempio vuoi giocare o verificare gli esiti di un vertibile di un calcolo o altro, usi il codice o funzione del vertibile
Quindi chiamandolo A o Ambata 2 o se le vuoi entrambe ti consiglio A(1) prima ambata e A(2) seconda ambata
A = Vert(X)
Poi richiami la giocata da imposta giocata perché hai A com nuovo valore, devi anche impostare la variabile A nelle Dim con
Dim A(2) oppure Dim Ambata(2)
80Sete
Advanced Member >PLATINUM PLUS<
Grazie Xeroxs, troppo gentile per la celerità..... purtroppo ho provato fino ad ora, ma non combino con le tue modifiche.
Ecco lo script, non ricordo di chi sia, ho solo cambiato gli estratti e le ruote, ma vorrei considerare il "Vertibile" di tutto questo.
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9000 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese
Then
ruote(1) = 3
ruote(2) = 7
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n
End If
End If
Next
Scusami x la mia poca esperienza, e per il tempo che ti porto via, risolvo solo con il tuo intervento di modifiche.
Grazie ancora
Ecco lo script, non ricordo di chi sia, ho solo cambiato gli estratti e le ruote, ma vorrei considerare il "Vertibile" di tutto questo.
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9000 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese
Thenruote(1) = 3
ruote(2) = 7
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n
End If
End If
Next
Scusami x la mia poca esperienza, e per il tempo che ti porto via, risolvo solo con il tuo intervento di modifiche.
Grazie ancora
Ciao, dipende cosa vuoi una sola ambata o due?
Se due ambate fai così dopo ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
Aggiungi
Ambata(2) = Vert(Ambata(1))
E modifichi Dim ambata(1) con Dim ambata(2)
Se invece vuoi aggiungere per ambo devi modificare o aggiungere numeri
Lo script lo hai copiato così ho modificato tu perché non vedo i numeri per ambo ora non posso provarlo perché non ho il PC prova intanto con la prima modifica
Se due ambate fai così dopo ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
Aggiungi
Ambata(2) = Vert(Ambata(1))
E modifichi Dim ambata(1) con Dim ambata(2)
Se invece vuoi aggiungere per ambo devi modificare o aggiungere numeri
Lo script lo hai copiato così ho modificato tu perché non vedo i numeri per ambo ora non posso provarlo perché non ho il PC prova intanto con la prima modifica
80Sete
Advanced Member >PLATINUM PLUS<
Grazie, grazie Xeroxs, ho combinato il tutto, come chiedevo all'inizio, mi serve solo con il Vertibile, ed ecco il calcolo che avevo fatto con carta e penna, e che ha dato il 9 a PA al 2° colpo di marzo, che avevo postato nelle Previsioni.
Questa Ambata 9 per tutto Marzo, su FI e PA può essere abbinata ad altre previsioni.
Buon Marzo a tutti.
Vedi l'allegato 2211365
Ora potrò fare confronti nel passato, con altre ricerche differenti.
grazie ancora.
Ciao
Questa Ambata 9 per tutto Marzo, su FI e PA può essere abbinata ad altre previsioni.
Buon Marzo a tutti.
Vedi l'allegato 2211365
Ora potrò fare confronti nel passato, con altre ricerche differenti.
grazie ancora.
Ciao
80Sete
Advanced Member >PLATINUM PLUS<
Fantastico Xeroxs, ho messo già da parte altre ricerche con ruote ed estratti diversi, mi manca un'altra cosa
....posso?? come faccio a fare la ricerca con la "Penultima del Mese" se alcune volte le estrazioni sono 12 o 13?
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese Then
senza fretta, nei prossimi giorni ai "domiciliari Rossi" avrò da divertirmi. 🤣🤣
....posso??
come faccio a fare la ricerca con la "Penultima del Mese" se alcune volte le estrazioni sono 12 o 13?If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese Then
senza fretta, nei prossimi giorni ai "domiciliari Rossi" avrò da divertirmi. 🤣🤣
80Sete
Advanced Member >PLATINUM PLUS<
Ecco un esempio.... un po' scarsetto, ma con uno script, avrò modo di cercare condizioni migliori.
Questo somma alla Penultima del mese il 4° di BA con il 2° di CA, Ambata fissa su entrambe, senza Vertibile.
P.s. riprendo a giocare al Lotto, dopo lunga pausa con:
il tuo 81 Forte su PA che abbino al mio 2
2 - 81 Ambo Fisso
e poi
2 - 81 - 86 A.T
2 - 81 - 87 A.T
non sono da ricerche sommative, ma da osservazione visiva delle estrazioni.
Ciao e buona domenica
Questo somma alla Penultima del mese il 4° di BA con il 2° di CA, Ambata fissa su entrambe, senza Vertibile.
P.s. riprendo a giocare al Lotto, dopo lunga pausa con:
il tuo 81 Forte su PA che abbino al mio 2
2 - 81 Ambo Fisso
e poi
2 - 81 - 86 A.T
2 - 81 - 87 A.T
non sono da ricerche sommative, ma da osservazione visiva delle estrazioni.
Ciao e buona domenica
Ciao, Non comprendo gli esiti, ma le ambate sono giusti vedrai dallo script se combaciano.
Intanto devi fare così
a queste due righe
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese Then
da sostituire con
'If IndiceMensile(es) = 1 Then 'Prima del mese
'If IsUltimaDelMese(es) Then ' Ultima del mese
If IsUltimaDelMese(n + 1) Then ' Penultima del mese
cancelli un End If alla fine
dopo Gioca n
non serve lasciare attivi due indici mensili e poi togliendo o mettendo l'apice questo simbolo '
lascerai la condizione che vuoi attivata
Intanto devi fare così
a queste due righe
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese Then
da sostituire con
'If IndiceMensile(es) = 1 Then 'Prima del mese
'If IsUltimaDelMese(es) Then ' Ultima del mese
If IsUltimaDelMese(n + 1) Then ' Penultima del mese
cancelli un End If alla fine
dopo Gioca n
non serve lasciare attivi due indici mensili e poi togliendo o mettendo l'apice questo simbolo '
lascerai la condizione che vuoi attivata
Ciao,
L errore e legato ad altro non alle righe che hai inserito, o le hai inserite con altre righe io mi riferisco di inserirle allo script che hai inserito questo è diverso, le righe di codice da me scritte vanno su uno script come quello, ma vedo che lo hai modificato...
Per capire devi postarlo...
L errore e legato ad altro non alle righe che hai inserito, o le hai inserite con altre righe io mi riferisco di inserirle allo script che hai inserito questo è diverso, le righe di codice da me scritte vanno su uno script come quello, ma vedo che lo hai modificato...
Per capire devi postarlo...
80Sete
Advanced Member >PLATINUM PLUS<
Ecco lo stesso inserito in precedenza......ma .....mi può andar bene anche uno script con la sola ricerca sulla Penultima.
Grazie....e scusami per l'inconveniente.
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9000 To EstrazioneFin
'If IndiceMensile(es)= 1 Then 'Prima del mese
'If IsUltimaDelMese(es) Then 'Ultima del mese
If IsUltimaDelMese(n + 1) Then 'Penultima del mese
ruote(1) = 3
ruote(2) = 7
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n
End If
Next
.....mi può andar bene anche uno script con la sola ricerca sulla Penultima.Grazie....e scusami per l'inconveniente.
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9000 To EstrazioneFin
'If IndiceMensile(es)= 1 Then 'Prima del mese
'If IsUltimaDelMese(es) Then 'Ultima del mese
If IsUltimaDelMese(n + 1) Then 'Penultima del mese
ruote(1) = 3
ruote(2) = 7
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ma esce l'errore,
80Sete
Advanced Member >PLATINUM PLUS<
Tutto Ok Xeroxs, ora ci siamo, dopo averti ..... "impegnato" x un po'.
Dalle tue istruzioni ho aggiunto ScriviResoconto così vedrò anche l'andamento delle Ambate.
grazie veramente, manca solo di far affondare il tuo 81 a PA, chissà con qualche mio abbinamento.
Ciao
Dalle tue istruzioni ho aggiunto ScriviResoconto così vedrò anche l'andamento delle Ambate.
grazie veramente, manca solo di far affondare il tuo 81 a PA, chissà con qualche mio abbinamento.
Ciao
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 16 aprile 2024Bari4910766226Cagliari4280163965Firenze5822118640Genova7914365144Milano2527167779Napoli7004514971Palermo6165765343Roma7086688047Torino1771647240Venezia2242397230Nazionale8337815778Estrazione Simbolotto
Genova
1014281815
