L' Ambata Frequente - Su Palermo - Vincente Da 14 Mesi (Ultima Del Mese)

[Patriscia]

Si bravissimo

 

[kira]

ciao Xeroxs volevo kiederti se x caso hai la pos. anke dell'81 di pal. perdona se approfitto della tua bontà

di cuore

 

[Xeroxs]

Ciao Kira,

Per L'81 le posizioni migliori sembrano la 3 e la 4 quale prevale non saprei, segui il tuo istinto

 

[nehelenia]

Ciao ha che estrazione si calcola

 

[Xeroxs]

Ciao,
Ultima del mese

 

[80Sete]

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

 

[Xeroxs]

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)

 

[80Sete]

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

 

[Xeroxs]

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

 

[80Sete]

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

 

[Xeroxs]

Ciao, se vuoi compleatre il tutto aggiungi
dolpo il

Next

questa riga

ScriviResoconto

ti da l'analisi del periodo analizzato

 

[80Sete]

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.

 

[Xeroxs]

Ciao, per testarlo ho bisogno che mi posti degli esempi di calcolo relativi alla penultima del mese, tipo la tabella che hai postato al #30

 

[80Sete]

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

 

[Xeroxs]

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

 

[80Sete]

ottimo avere la possibilità, di scegliere da quale estrazione partire.
Questo mi dà l'errore che ti allego. dopo aver inserito le tue dritte.

 

[Xeroxs]

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...

 

[80Sete]

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

ma esce l'errore,​

 

[Xeroxs]

Alla fine manca End Sub così sembra

 

[80Sete]

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