Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

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

kira

Advanced Member >PLATINUM PLUS<
ciao Xeroxs volevo kiederti se x caso hai la pos. anke dell'81 di pal. ;) perdona se approfitto della tua bontà
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
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
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
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
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
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
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
    martedì 20 aprile 2021
    Bari
    48
    04
    61
    77
    26
    Cagliari
    72
    80
    64
    55
    30
    Firenze
    34
    87
    46
    04
    28
    Genova
    47
    35
    52
    89
    18
    Milano
    84
    56
    20
    07
    05
    Napoli
    89
    08
    10
    69
    77
    Palermo
    28
    43
    75
    23
    10
    Roma
    50
    57
    21
    69
    17
    Torino
    39
    43
    66
    41
    85
    Venezia
    21
    07
    48
    12
    80
    Nazionale
    81
    72
    39
    18
    37
    Estrazione Simbolotto
    Genova
    35
    34
    45
    11
    27
Alto