Novità

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

kira

Premium Member
ciao Xeroxs volevo kiederti se x caso hai la pos. anke dell'81 di pal. ;) perdona se approfitto della tua bontà
xdFtmFH.png
di cuore
 

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
 

Xeroxs

Advanced Member >GOLD<
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

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(n) 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

Advanced Member >GOLD<
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

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 (y)
 

Xeroxs

Advanced Member >GOLD<
Ciao, se vuoi compleatre il tutto aggiungi
dolpo il

Next

questa riga

ScriviResoconto

ti da l'analisi del periodo analizzato
 

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??:unsure: 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

Advanced Member >GOLD<
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

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.
BA-CA.jpg
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

Advanced Member >GOLD<
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

Advanced Member >PLATINUM PLUS<
ottimo avere la possibilità, di scegliere da quale estrazione partire.
Questo mi dà l'errore che ti allego. dopo aver inserito le tue dritte.BA-CA Penultima.jpg
 

Xeroxs

Advanced Member >GOLD<
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

Advanced Member >PLATINUM PLUS<
Ecco lo stesso inserito in precedenza......ma :unsure: .....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,​

Ced.jpg
 

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto