Richiesta didattica x ESSELOTTO

[elephantbig]

Ciao Esse
previsione?!? Mah !
Io sono un BAFFISTA,e quindi
80-75-30-52 x Ambo,terno,ed 1 cent a quaterna GE-MI
in alternativa
30-52 Ambo di chiusura
80-30 Ambo di Base+chiusura
80-52 Ambo di Base+chiusura
75-30 Ambo di Base+chiusura
75-52 Ambo di Base+chiusura
80-75 Ambo di base
Ovviamente GE-MI.
Giocando pochi euro non vedo l'utilita x tutte.
con 6 euro a ruota(12 euro totale)
si rischia di vincere 235
con la stessa cifra a tutte
si rischia di vincere 23 euro o di perderne 12.
Conclusione:vincere a tutte in realta ho un utile di 11 euro (23-12)
Ne vale la pena??? secondo me no. E solo un mio pensiero!

Escludo il 79 perchè oltre ad essere uscito su ambedue le ruote
su GE ha 3 presenze negli ultimi 5 concorsi ,lo stesso dicasi per Milano 2 presenze in 5 concorsi quindi ritengo poco probabile la risortita.

Ciao Esse

 

[elephantbig]

Mi risuonano le raccomandazioni di Baffo.
Averlo visto ieri sera![V][V]

Pazienza ,vediamo di farne tesoro.[V][V]

 

[esselotto]

quote:Originally posted by elephantbig

Ciao Esse
previsione?!? Mah !
Io sono un BAFFISTA,e quindi
80-75-30-52 x Ambo,terno,ed 1 cent a quaterna GE-MI
in alternativa
30-52 Ambo di chiusura
80-30 Ambo di Base+chiusura
80-52 Ambo di Base+chiusura
75-30 Ambo di Base+chiusura
75-52 Ambo di Base+chiusura
80-75 Ambo di base
Ovviamente GE-MI.
Giocando pochi euro non vedo l'utilita x tutte.
con 6 euro a ruota(12 euro totale)
si rischia di vincere 235
con la stessa cifra a tutte
si rischia di vincere 23 euro o di perderne 12.
Conclusione:vincere a tutte in realta ho un utile di 11 euro (23-12)
Ne vale la pena??? secondo me no. E solo un mio pensiero!

Escludo il 79 perchè oltre ad essere uscito su ambedue le ruote
su GE ha 3 presenze negli ultimi 5 concorsi ,lo stesso dicasi per Milano 2 presenze in 5 concorsi quindi ritengo poco probabile la risortita.

Ciao Esse

grazie elephantbig
speriamo bene

 

[esselotto]

quote:Originally posted by fillotto

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

si ma non ambata, solo ambo sulle ruote interessate e 2^ giocata ambo su tutte max 10 estaz.

ATTENZIONE
Questo Script Gira Esclusivamente Su SPAZIOMETRIA
Ho inserito le Giocate

X filotto sulla giocata di ambata ho lasciato gli apici, se li togli
considera anche il gioco di ambata altrimenti gioca solo per ambo


prelevare solo parte blu

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



Sub main()
Dim rt(2)
Dim n(2)
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim nu(2),na(8),na1(8),NA2(8)
poambata(1) = 1 : poambo(2) = 1 :poterno(3) = 1:poquaterna(4) = 1
Dim ruote(1)

indietro = CInt(InputBox("Quante Estrazioni Controllo ?..","°°°esselotto°°°",50))
If indietro = False Then Exit Sub
clp = CInt(InputBox("Colpi di gioco?..","°°°esselotto°°°",10))
If clp = 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)  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
ruote(1) = 11
am = n(1):am1 = n(2)
nu(1) = am
nu(2) = am1
''''ImpostaGiocata 1,nu,rt,poambata,clp '' <--- per gioco Ambata Togliere i 4 apici all'inizio
na(1) = am
na(2) = am1
ImpostaGiocata 2,na,rt,poambo,clp
ImpostaGiocata 3,na,ruote,poambo,clp
Gioca es

End If
Next
Next
Next
ScriviResoconto

ColoreTesto 1
Scrivi "°°°esselotto°°°",1
End Sub

 

[fillotto]

Grazie ESSE per il lavoro fatto , purtroppo fatto delle prove e i risultati sono atalenanti, periodi buoni e altri no.
Ti ringrazio ancora perchè grazie a te ho imparato tante cose,tanto è vero che ero riuscito a fare quasi la stessa cosa di quest'ultimo script che hai postato da solo!
Quindi sempre a scopo didattico e per cercare di immedesimarmi nella parte potresti svelarmi perchè metti questi nomi di Dim lunghi tipo poambata ( sta per potenziale ambata?)
Mtxbackcolor ?
Inoltre non ho ancora chiara (al contrario di Dim) l'istruzione
ReDim
ad esempio nello script "ReDim Mtxbackcolor" esattamente che fa?
Buona giorata Fill

 

[esselotto]

quote:Originally posted by fillotto

Grazie ESSE per il lavoro fatto , purtroppo fatto delle prove e i risultati sono atalenanti, periodi buoni e altri no.
Ti ringrazio ancora perchè grazie a te ho imparato tante cose,tanto è vero che ero riuscito a fare quasi la stessa cosa di quest'ultimo script che hai postato da solo!
Quindi sempre a scopo didattico e per cercare di immedesimarmi nella parte potresti svelarmi perchè metti questi nomi di Dim lunghi tipo poambata ( sta per potenziale ambata?)
Mtxbackcolor ?
Inoltre non ho ancora chiara (al contrario di Dim) l'istruzione
ReDim
ad esempio nello script "ReDim Mtxbackcolor" esattamente che fa?
Buona giorata Fill

ReDim oppure Dim ??????????????

Dim dichiaro un'array fissa
mentre con il Redim dichiaro un'array in runtime(cioè in esecuzione).

Esempio:
dim N(2)
n(1)=14
n(2)= 15
n(3)------ mi da errore indice non compreso nell'intervallo perchè ho cercato di superare quanto avevo dichiarato con Dim N(2)


ReDim dichiaro la variabile in runtime cioè posso dire quanti numeri puo contenere un'array
in esecuzione

avvia i seguenti script e controlla gli errori

 

[esselotto]

'''''''''[b]Giusto[/b] perche n( prenderà solo due numeri)

Sub main()
Dim n(2)
es=EstrazioneFin 
For k= 1 To 2  '''--- gli faccio prendere 2 numeri 
n(k)=Estratto (es,1,k) 
Scrivi n(k)
Next
End Sub



'''''''''[b]Sbagliato[/b] perche n( cerca di prendere più numeri di quelli dichiarati)

Sub main()
Dim n(2)
es=EstrazioneFin 
For k= 1 To 5  '''--- gli faccio prendere 5 numeri al terzo si ferma  
n(k)=Estratto (es,1,k) 
Scrivi n(k)
Next
End Sub



'''''''''Con questo [b]non puo sbagliare [/b]  redim(n)
''''''''''dichiaro la variabile in esecuzione


Sub main()
es=EstrazioneFin 
For k= 1 To 5  '''--- gli faccio prendere 5 numeri 
Redim n(k)     '''' dichiaro la variabile in esecuzione
n(k)=Estratto (es,1,k) 
Scrivi n(k)
Next
End Sub

alla fine ho un'array con 5 elementi + lo zero 6



[b]Comunque ci sono molte applicazioni in cui un'array deve essere dichiarato a runtime.
E che per motivi di tempo non posso descriverli tutti. Leggi anche post successivo .

[/b]

 

[esselotto]

Per Finire

ReDim Mtxbackcolor Esselotto E ridajjje co stè spiegazioni


dichiara una matrice bidimensionale che contiene i dati per colorare i numeri
della tabella estratti (lo specchietto estrazioni per intederci) che appare solo se si usa Spaziometria.

dichiaro una matrice bidimensionale in esecuzione

ReDim Mtxbackcolor(2,1) 2 ruote e 1° estratto
Mtxbackcolor(1,0) = r --- prima ruota 
Mtxbackcolor(1,1) = p ---- estratto della prima ruota
Mtxbackcolor(2,0) = rr---seconda ruota
Mtxbackcolor(2,1) = pp---estratto della seconda ruota
[code]

 Per tornare al discorso di prima  dim e redim 

 [/b] [b]aH esse a ridajjjjje e mò fammo notte pè davvero  

nello script che ti ho spedito andava bene anche 

Dim Mtxbackcolor(2,1) scritto pero all'inizio prima dei cicli for next input box ecc. ecc...

il PERCHE' andava bene anche dim ??? Perchè sono sicuro che devo colorare 2 ruote 
e 1 numero per ruota 


Ma se le ruote in gioco variassero 2 o 3 o 4 a secondo della ricerca ????????????
allora REDIM Mtxbackcolor(numero ruote ,numeri da colorare)



spero di essere stato chiaro


esselotto

 

[esselotto]

SEMBRO UN PROFESSORE di INFORMATICA?????? [^]
MA NON LO SONO........................




Il fenomeno della luce sarebbe dovuto all'emissione da parte della sorgente, di
onde elettromagnetiche di particolare frequenza.

Le radiazioni ottiche
onde elettromagnetiche, la cui frequenza è contenuta entro i limiti di
4x10 alla 14esima e 8x10 alla 14esima Hz, sono definite radiazioni ottiche in quanto
l'occhio umano è capace a ricevere l'energia che esse trasportano, suscitando nel
cervello una reazione sensoria alla quale si da il nome di <<luce>>.

°°°esselotto°°°

 

[fillotto]

SEMPLICEMENTE GRAZIE !!!!che pazienza che ce vò

 

[esselotto]

2° parte spiegazioni

poambata stà per posta ambata
poambo posta ambo
Mtxbackcolor (questa lo abbreviata in inglese) mtx= matrix = matrice
backcolor= colore di fondo (se usi visual basic ti ritroverai sempre sto backcolor)

 

[esselotto]

3° Parte spiegazioni

Perche metto nomi cosi lunghi???????????
per ricordarmi in futuro cosa sono ( cosi lunghi solo per quelli che uso poche volte)

n() =numero( cortissimo perchè si usa spesso sommare n(1)+n(2) ecc.)


ed cos'è???????????
estdet ??????? la stessa cosa di ed
scrivo
estrattodeterminato


fi ???????????? se non è figura, cos'è????????[?]
fil???????????[?]
scrivo fillotto

es????????? se non è esempio cos'è????????[?]
esse?????????[?]
scrivo esselotto

ciao esselotto

 

[fillotto]

quote:Originally posted by esselotto

2° parte spiegazioni

poambata stà per posta ambata
poambo posta ambo
Mtxbackcolor (questa lo abbreviata in inglese) mtx= matrix = matrice
backcolor= colore di fondo (se usi visual basic ti ritroverai sempre sto backcolor)

Amcora Grazie ESSE!!!

 

[esselotto]

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

un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte

Bravo Oruam

58 2 a Cagliari alla 3^ giocata

il 67 si è trasformato in 64 peccato terno mancato.
Complimenti per la previsione

 

[esselotto]

oruam hai controllato la vincita?
Se fillotto ci trova un'altra figura......

ah fillotto. Anamo va, dacci dentro trova altra figura

Comunque rimangono ancora in gioco, le previsioni di
fillotto e elephantbig.

 

[oruam]

grazie Esse per i complimenti,ma aspettiamo l'ambo secco su ruota

 

[esselotto]

quote:Originally posted by oruam

grazie Esse per i complimenti,ma aspettiamo l'ambo secco su ruota

Pensi che ritornino a ruota??????

ho visto un'altra tua previsione 12 4 Na Pa