Novità

Richiesta didattica x ESSELOTTO

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Perfetta specularità
Ciao ESSE a scopo didattico potresti farmi un semplice script che rilevi le seguenti condizioni(sembra facile ma fra cicli FOR , ruote diametrali e altro non ci riesco):

se il 1° di BA è = vertibile del 5° di VE
se il 2° di BA è = vertibile del 4° di VE
se il 3° di BA è = vertibile del 3° di VE
se il 4° di BA è = vertibile del 2° di VE
se il 5° di BA è = vertibile del 1° di VE

se il 1° di CA è = vertibile del 5° di TO
se il 2° di CA è = vertibile del 4° di TO
se il 3° di CA è = vertibile del 3° di TO
se il 4° di CA è = vertibile del 2° di TO
se il 5° di CA è = vertibile del 1° di TO

idem C. s. per FI - RO
idem C. s. per GE – PA
idem C. s. per MI – NA per un totale quindi di 25 condizioni rilevabili

lo script dovrebbe avere un input box tipo questo
ex = InputBox("Quante estrazioni controllo?",,50)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es

A questo punto lo script mi dovrebbe scrivere (attenzione solo scrivere)
1)la data dove si è avverata una delle 25 condizioni
2)le ruote (che sono sempre 2 e necessariamente diametrali)
3) i due num vertibili

Mi interessa questo per migliorare un mio metodo e per capire pochi passaggi alla volta
Grazie ... quando vuoi !! fill
 
ATTENZIONE
Questo Script Gira Esclusivamente Su SPAZIOMETRIA
non usare l8 o ld
per usare l8 e ld bisogna modificare lo script.

prelevare solo parte blu



Codice: 
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(25," ") & "Esempio Fillotto ",1
ColoreTesto 1
Scrivi String(15," ") & "°°°esselotto°°° per ***Fillotto *** LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
Codice: 
Sub main()
Dim rt(2)
Dim n(2)

indietro = CInt(InputBox("Quante Estrazioni Controllo ?..","°°°esselotto°°°",50))
If indietro = False Then Exit Sub
co = 0
ini = EstrazioneFin - indietro
fin = EstrazioneFin

For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)
For r = 1 To 5  '''' prendo solo le prime 5 ruote
rt(1) = r    
rr = 11 - r     ''' assegno a rr la seconda ruota 11-la prima ruota  
rt(2) = rr      ''' ti ritrovi Bari venezia  cagliari torino ecc
For p = 1 To 5 ''' considero gli estratti
pp = 6 - p     ''' estratti in opposizione 6-p  =  1  5    2  4   3  3    4  2   5  1  
n(1) = Estratto(es,r,p) '' prendo l'estratto della prima ruota
n(2) = Estratto(es,rr,pp) '' prendo l'estratto della seconda ruota

If Vert(n(1)) = n(2) Or Vert(n(2)) = n(1) Then '''controllo se vertibili uno dell'altro 

co = co + 1 
Scrivi String(75,"*") & "Caso " & co,1
Scrivi String(75,"-"),1
ReDim Mtxbackcolor(2,1) '''' da qui inserisco parametri per colorare i numeri estratti
Mtxbackcolor(1,0) = r   '''' quindi solo per Spaziometria
Mtxbackcolor(1,1) = p
Mtxbackcolor(2,0) = rr
Mtxbackcolor(2,1) = pp
Call DisegnaEstrazione(es,Mtxbackcolor) ''' Chiamo la routine che disegna l'estrazione
End If
Next
Next
Next


ColoreTesto 1
Scrivi "°°°esselotto°°°",1
End Sub
 
ciao Fillotto
script abbondantemente commentato
Nella speranza, che trovi qualche buon metodo, con un ottimo rendimento.

esselotto
 
PS
non ti dimenticare di postare qualche previsione del tuo nuovo metodo.
(su lottoced) sempre in quest' Area Download.

Perchè ho notato che nella sezione Metodi e in LottoCED Forum (lottoced). Ogni giorno, ci sono troppi nuovi topic. E dopo 24 ore si ritrovano in 2^ o 3^ pagina.

Dato che i miei collegamenti sono sporadici (a modo singhiozzo):).
Non riesco neanche a leggerli.;)
 
quote:Originally posted by esselotto

PS
non ti dimenticare di postare qualche previsione del tuo nuovo metodo.
(su lottoced) sempre in quest' Area Download.

Perchè ho notato che nella sezione Metodi e in LottoCED Forum (lottoced). Ogni giorno, ci sono troppi nuovi topic. E dopo 24 ore si ritrovano in 2^ o 3^ pagina.

Dato che i miei collegamenti sono sporadici (a modo singhiozzo):).
Non riesco neanche a leggerli.;)
Clicca per espandere...
Ti ringrazio esse vado a provare, a dopo !!
 
Ciao Esselotto :)
devo rinnovarti i miei complimenti per il tuo modo di porti in questo Forum.
Sei sempre disponibile,preparato,moderato,e non fai mistero dei tuoi saperi.
Bravo,hai i titoli per stare sul podio insieme a Luigi.
Con l'aria che tira ultimamente sul forum ci auguriamo che amici come te proliferino sempre piu.:)
Buon Lavoro e non perdere l'abitudine delle infopillole di Fisica anzi magari vedi di ampliare l'offerta ad altre branche (chimica,matematica etcc..):D
 
quote:Originally posted by esselotto

ciao Fillotto
script abbondantemente commentato
Nella speranza, che trovi qualche buon metodo, con un ottimo rendimento.

esselotto
Clicca per espandere...
Ehh ..qualche buon metodo, magari[8D] io sono partito da questo script che fra l'altro è stato il mio primo script e subito è stato
un successo provate a farlo girare e poi mi direte !!!
Per onestà però devo dire che cambiando posizione i risultati sono
altalenanti ciò non toglie che a prima acchitto da un osservazione
che avevo notato tempo fa mi era uscito questo script .
Ho pensato a te per avere una visione più completa della situazione
come al solito gentilmente mi hai accontentato e ho notato alcune cose : intanto con lo script che hai postato con 50 estrazioni da
controllare sono usciti 18 casi uno di questi ha dato l'ambo secco
a ruota subito dopo 1 colpo, secondo o esce l'ambo subito diciamo 10 estrazioni o esce sine die quindi è meglio fissare in 10 estrazioni
i colpi , terzo quando i numeri (vertibili) sono gemelli ,numeretti
o zerati e facile che escano i numeri della quartina radicale curiosamente però stanno nella stessa estrazione generatrice([?]) stesse ruote, è una cosa che bisognerebbe sruttare in qualche modo però mi sfugge come fare (questo è venuto fuori avendo a disposizione la visione che gestisce il tuo script), quarto ho notato anche che esce spesso l'ambo su tutte che essendo formato da due num è buono.
In definitiva chiedo agli amici del forum se hanno qualche idea per sfruttare ancora di più queste sensazioni e ovviamente a ESSE di collaborare modificando loscript con la giocata dell'ambo sulle due ruote e su tutte .. comunque ecco lo script che vi dicevo:
Sub main()
'vede se il 4° di bari è = vertibile del 2° di venezia
Dim rt(2),pta(2),nr(2) ' le ruote sono 2
'pta significa faccio la puntata "Ambo"(2) ,nr significa che i numeri sono 2
ex = InputBox("Quante estrazioni controllo?",,3000)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es

rt(1) = 1 'Bari
rt(2) = 10 'Venezia
pta(2) = 1 '2puntate da 1 euro
k = 10 'per 10 colpi

nr(1) = Estratto(es,1,4) '2° di BA
nr(2) = Estratto(es,10,2)'4°VE
If nr(2) = Vert(nr(1)) Then 'se il num 1 è il vertibile del nnum 2 allora
ImpostaGiocata 1,nr,rt,pta,k,2'questultimo parametro(2) significa che stoppa se esce l'ambo
casi = casi + 1
'comincia a scrivere a distanza di 70 spazi " Caso n° "
Scrivi String(70," = ") & " Caso n° " & casi,1
Scrivi

Gioca es
End If
Next
Scrivi
Scrivi "Casi totali(" & casi & ")",1
ScriviResoconto
End Sub
 
X elephantbig

La Frequenza è il numero di oscillazioni complete descritte in un secondo nel S.I: si misura
in Hertz (Hz). Un Hz corrisponde ad una oscillazione ogni secondo.
°°°esselotto°°°
 
X elephantbig e Fillotto

chebellasimmetria.jpg
 
per filotto

vuoi modifichi lo script???
inserendo, i due numeri(ricercati cioè i vertibili) per ambata e ambo su ruota
e ambo su tutte????

ciao
 
quote:Originally posted by esselotto

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie
Clicca per espandere...
un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte
 
quote:Originally posted by esselotto

per filotto

vuoi modifichi lo script???
inserendo, i due numeri(ricercati cioè i vertibili) per ambata e ambo su ruota
e ambo su tutte????

ciao
Clicca per espandere...
si ma non ambata, solo ambo sulle ruote interessate e 2^ giocata ambo su tutte max 10 estaz.
 
quote:Originally posted by oruam

quote:Originally posted by esselotto

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie
Clicca per espandere...
un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte
Clicca per espandere...
Scusa oruam come hai ragionato prevedendo la terzina 58-67-2?
non è più logico chiudere con la quartina 54 - 3 e 30 - 52
dove tutte i num ripetuti hanno il loro speculare tranne il 79
con appunto la quartina 54 - 3 e 30 - 52
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto