Million DAY
- Creatore Discussione jure
- Data di inizio
cedol8roby
Advanced Member >GOLD<
Ciao,
io non sono scripter ma ho trovato vari script in questa discussione Lotteria MillionDay
Spero ti sia utile
io non sono scripter ma ho trovato vari script in questa discussione Lotteria MillionDay
Spero ti sia utile
cedol8roby
Advanced Member >GOLD<
Ciao,
per quanto riguarda l'archivio un grazie, anzi supergrazie va a silop che lo tiene aggiornato e in formato compatibile con spaziometria - ovviamente una volta fatto il download del file in formato txt puoi tenerlo aggiornato tu senza andar ogni volta a scaricarlo.
l'indirizzo e' Archivio Ordinato MillionDay
Ora che hai l'archivio l'unica altra possibile barriera per il funzionamento degli script si trova sulla riga seguente
sfile = ScegliFile("C:\Mike58\Desktop\.txt")
Devi inserire il percorso di dove sta il tuo file.
Altro scoglio il possibile formato delle estrazioni che magari non vuole le estrazioni con separatore , o , ma ; ma qui scelta tua se prendere il file archivio e con il classico trova e sostituisci renderlo compatibile oppure interagire con questa riga dello script
Call ApriBaseDatiFT(sfile,5,",",55) ed inserire il separatore che utilizza il tuo archivio (zona rossa in grassetto)
Senza script altro modo per trovare lunghette per Mday e' seguire la spiegazione di Nikor che si trova qui
post su vincicasa ma valido per Mday
Vedrai che riuscirai a far funzionare tutto, + difficile spiegarlo che farlo
per quanto riguarda l'archivio un grazie, anzi supergrazie va a silop che lo tiene aggiornato e in formato compatibile con spaziometria - ovviamente una volta fatto il download del file in formato txt puoi tenerlo aggiornato tu senza andar ogni volta a scaricarlo.
l'indirizzo e' Archivio Ordinato MillionDay
Ora che hai l'archivio l'unica altra possibile barriera per il funzionamento degli script si trova sulla riga seguente
sfile = ScegliFile("C:\Mike58\Desktop\.txt")
Devi inserire il percorso di dove sta il tuo file.
Altro scoglio il possibile formato delle estrazioni che magari non vuole le estrazioni con separatore , o , ma ; ma qui scelta tua se prendere il file archivio e con il classico trova e sostituisci renderlo compatibile oppure interagire con questa riga dello script
Call ApriBaseDatiFT(sfile,5,",",55) ed inserire il separatore che utilizza il tuo archivio (zona rossa in grassetto)
Senza script altro modo per trovare lunghette per Mday e' seguire la spiegazione di Nikor che si trova qui
post su vincicasa ma valido per Mday
Vedrai che riuscirai a far funzionare tutto, + difficile spiegarlo che farlo
*blacklotto*
Super Member >PLATINUM<
Ciao,
cosa ti potrebbe interessare per Millionday, che genere di ricerca ?
prova a scrivere, poi vedremo ...
cosa ti potrebbe interessare per Millionday, che genere di ricerca ?
prova a scrivere, poi vedremo ...
Grazie Cedol8roby ho preso l'Archivio Ordinato MillionDay
e ho scaricato un programma Ritardi e Frequenze di Mike58
adesso con questo accorgimento dell'Archivio posizionato
sul dektop mi Funziona.Hai per caso uno script sulle spie o
posizioni.Avendo quasi sempre seguito il 10elotto in attesa
del ripristino del Lotto seguo tutt'ora il MillionDay se mi
piacera' potro' anche proseguire di utilizzarlo.
e ho scaricato un programma Ritardi e Frequenze di Mike58
adesso con questo accorgimento dell'Archivio posizionato
sul dektop mi Funziona.Hai per caso uno script sulle spie o
posizioni.Avendo quasi sempre seguito il 10elotto in attesa
del ripristino del Lotto seguo tutt'ora il MillionDay se mi
piacera' potro' anche proseguire di utilizzarlo.
*blacklotto*
Super Member >PLATINUM<
Quello che " frega " è l'estrazione giornaliera.
Tieni presente questo fatto prima di buttarti nel vortice di questa lotteria.
Se danno premio di un milione di euro, ripeto : un milione di euro, ci sarà un perché.
A mio avviso ci sono solo due opzioni per giocare a questo gioco :
giocare solo e sempre la stessa cinquina, oppure giocare una cinquina a caso, o studiata per un solo colpo, cambiandola sempre in modo da non ricordarne i numeri, e vivere sereno.
Solo che giocando la stessa cinquina hai possibilità di giocare per più concorsi andando solo una volta alla settimana al botteghino, in altro modo dovrai andarci tutti i giorni, e se salti un giorno non avrai rimorsi.
Pensare di giocare una cinquina diversa a settimana o al mese lo ritengo un passo falso che potrebbe far ... molto male, ma ognuno farà, giustamente come crede.
Comunque sia le mie ricerche le faccio comunque, ma sapendo che sono e resteranno solo ricerche.
Ma se prosegue questa discussione, ci sono.
ciao
Tieni presente questo fatto prima di buttarti nel vortice di questa lotteria.
Se danno premio di un milione di euro, ripeto : un milione di euro, ci sarà un perché.
A mio avviso ci sono solo due opzioni per giocare a questo gioco :
giocare solo e sempre la stessa cinquina, oppure giocare una cinquina a caso, o studiata per un solo colpo, cambiandola sempre in modo da non ricordarne i numeri, e vivere sereno.
Solo che giocando la stessa cinquina hai possibilità di giocare per più concorsi andando solo una volta alla settimana al botteghino, in altro modo dovrai andarci tutti i giorni, e se salti un giorno non avrai rimorsi.
Pensare di giocare una cinquina diversa a settimana o al mese lo ritengo un passo falso che potrebbe far ... molto male, ma ognuno farà, giustamente come crede.
Comunque sia le mie ricerche le faccio comunque, ma sapendo che sono e resteranno solo ricerche.
Ma se prosegue questa discussione, ci sono.
ciao
Ciao blacklotto hai ragione io di regola giocavo 3 euro a estrazione
mese 36 euro adesso gioco 1 euro al giorno Tot. 30 euro, la Cinquina la studio
con qualche programmino o qualche mia intuizione e mi passo
il tempo anche risparmio 6 euro.E Spero. Al 10elotto mi giocavo
la decina con i 2 Jolly. tot 3 euro.
mese 36 euro adesso gioco 1 euro al giorno Tot. 30 euro, la Cinquina la studio
con qualche programmino o qualche mia intuizione e mi passo
il tempo anche risparmio 6 euro.E Spero. Al 10elotto mi giocavo
la decina con i 2 Jolly. tot 3 euro.
*blacklotto*
Super Member >PLATINUM<
..... non ho idea da cosa possa dipendere la vincita, perché tutto dipende da quanto si è disponibili a spendere.
E facendo semplici calcoli è meglio davvero non giocare, se non tentando la fortuna ogni tanto facendosi fare le schedine dal ricevitore stampandole con numeri casuali, che sembra avere più fortuna.
Una volta in possesso di un archivio aggiornabile è quasi divertente sbizzarrirsi con i listati, e una volta compreso il procedimento " ft " si potranno convertire i listati lotto per millionday, non tutti, ma in gran parte.
Le migliaia di possibilità d'estrapolare metodologie e previsioni alla fine non portano a nulla, cioè, si dovrà sempre " scremare " le colonne per l'impossibilità di una spesa di gioco che non è possibile a nessuno.
Fosse anche solo 5 colonne con spesa di 5€ al giorno sarebbe una follia.
Se non si sceglierà il gioco di un unica cinquina senza cambiarla mai, si dovrà studiare una metodologia che fornisca cinque numeri con validità per un solo colpo, in questo caso ci si potrà pensar su.
Tieni conto che, speranza a parte, se io gioco una cinquina, sempre quella, per sperare in una vincita ho mille estrazioni per tentare d'acciuffare la quaterna nel tempo stabilito, tralasciando gli ambi possibili e qualche speranza per il terno.
Quindi se, e dico se iniziassi a giocare una cinquina da domani senza cambiarla mai devo sperare che entro i mille colpi riesca ad acciuffare una quaterna, che non mi porterà vincita ma andrei solo a pari spesa.
Le entrate degli ambi e di qualche terno saranno solo qualche euro che mi aiuterà a tirar fuori meno soldi durante il gioco. Da questo c'è da capire che non c'è vincita se non della sola cinquina, ambo, terno e purtroppo la quaterna non sono il vero obiettivo, ma fanno solo caos.
Lo studio va rivolto solo alla cinquina. A una sola cinquina che si possa ottenere magari da più metodologie messe insieme, ti faccio un esempio, solo per farti capire quello che intendo :
ogni numero della cinquina bisognerà cercarlo per posizione, cioè, al primo estratto userò un tal procedimento, al secondo estratto altro procedimento, e così anche per gli altri 3 estratti, diversi procedimento di ricerca.
Ognuno farà da se, poi si uniranno i numeri ottenuti dalle 5 diverse ricerche, si lavorerà se ci saranno numeri uguali e alla fine si otterrà una sola cinquina, però ricorda che nel caso citato ci si concentrerà solo ed unicamente all'ultima estrazione estratta per elaborare il tutto.
In questo caso, per esempio, ci si potrà concentrare in questo modo :
al 1° estratto vedrò la miglior somma che se per esempio è 18 sommandolo ai 54 numeri vede miglior comparsa il +27 userò, senza indicare posizioni che non servono a nulla, il numero 45, con eventualmente il Fuori55.
al 2° estratto, ipotizziamo il numero 34, andrò a vedere quale miglior numero isotopo compare in archivio nell ' estrazione successiva, ipotizziamo il 7.
07 - 45 ecco abbiamo già i primi due numeri che andranno a formare la cinquina per giocare un solo colpo.
ciao
E facendo semplici calcoli è meglio davvero non giocare, se non tentando la fortuna ogni tanto facendosi fare le schedine dal ricevitore stampandole con numeri casuali, che sembra avere più fortuna.
Una volta in possesso di un archivio aggiornabile è quasi divertente sbizzarrirsi con i listati, e una volta compreso il procedimento " ft " si potranno convertire i listati lotto per millionday, non tutti, ma in gran parte.
Le migliaia di possibilità d'estrapolare metodologie e previsioni alla fine non portano a nulla, cioè, si dovrà sempre " scremare " le colonne per l'impossibilità di una spesa di gioco che non è possibile a nessuno.
Fosse anche solo 5 colonne con spesa di 5€ al giorno sarebbe una follia.
Se non si sceglierà il gioco di un unica cinquina senza cambiarla mai, si dovrà studiare una metodologia che fornisca cinque numeri con validità per un solo colpo, in questo caso ci si potrà pensar su.
Tieni conto che, speranza a parte, se io gioco una cinquina, sempre quella, per sperare in una vincita ho mille estrazioni per tentare d'acciuffare la quaterna nel tempo stabilito, tralasciando gli ambi possibili e qualche speranza per il terno.
Quindi se, e dico se iniziassi a giocare una cinquina da domani senza cambiarla mai devo sperare che entro i mille colpi riesca ad acciuffare una quaterna, che non mi porterà vincita ma andrei solo a pari spesa.
Le entrate degli ambi e di qualche terno saranno solo qualche euro che mi aiuterà a tirar fuori meno soldi durante il gioco. Da questo c'è da capire che non c'è vincita se non della sola cinquina, ambo, terno e purtroppo la quaterna non sono il vero obiettivo, ma fanno solo caos.
Lo studio va rivolto solo alla cinquina. A una sola cinquina che si possa ottenere magari da più metodologie messe insieme, ti faccio un esempio, solo per farti capire quello che intendo :
ogni numero della cinquina bisognerà cercarlo per posizione, cioè, al primo estratto userò un tal procedimento, al secondo estratto altro procedimento, e così anche per gli altri 3 estratti, diversi procedimento di ricerca.
Ognuno farà da se, poi si uniranno i numeri ottenuti dalle 5 diverse ricerche, si lavorerà se ci saranno numeri uguali e alla fine si otterrà una sola cinquina, però ricorda che nel caso citato ci si concentrerà solo ed unicamente all'ultima estrazione estratta per elaborare il tutto.
In questo caso, per esempio, ci si potrà concentrare in questo modo :
al 1° estratto vedrò la miglior somma che se per esempio è 18 sommandolo ai 54 numeri vede miglior comparsa il +27 userò, senza indicare posizioni che non servono a nulla, il numero 45, con eventualmente il Fuori55.
al 2° estratto, ipotizziamo il numero 34, andrò a vedere quale miglior numero isotopo compare in archivio nell ' estrazione successiva, ipotizziamo il 7.
07 - 45 ecco abbiamo già i primi due numeri che andranno a formare la cinquina per giocare un solo colpo.
ciao
Dai calcoli statistici probabilmente ho probabilita' zero di vincere
qualcosa di importante.Ho preventivato una piccola spesa di speranza
che se perdo piango con un occhio se spenderei di piu' piangerei con
tutti i due occhi. Studio i numeri gioco i 5 numeri e spero se non vinco
penso alla prossima estrazione e cosi via.Nel forzato isolamento di
tutti gli italiani avendo la passione per il gioco del lotto passo il tempo a fare calcoli infiniti
arrivo alla sera che non me ne accorgo. Per adesso preparo la piccola previsione
in base alla statistica dei ritardi e frequenze su 28 estrazioni retroattive.A ogni estrazione
ne tolgo una e ne aggiungo una nuova. Rimangono sempre 28.
Ciao
qualcosa di importante.Ho preventivato una piccola spesa di speranza
che se perdo piango con un occhio se spenderei di piu' piangerei con
tutti i due occhi. Studio i numeri gioco i 5 numeri e spero se non vinco
penso alla prossima estrazione e cosi via.Nel forzato isolamento di
tutti gli italiani avendo la passione per il gioco del lotto passo il tempo a fare calcoli infiniti
arrivo alla sera che non me ne accorgo. Per adesso preparo la piccola previsione
in base alla statistica dei ritardi e frequenze su 28 estrazioni retroattive.A ogni estrazione
ne tolgo una e ne aggiungo una nuova. Rimangono sempre 28.
Ciao
*blacklotto*
Super Member >PLATINUM<
Questo è un buon listato eseguito da Punto&Virgola, su mia richiesta d'aiuto,
ottimo scrippter d'altra sede ( 21/12/2018 )
'Option Explicit
'CERCHIO MILLIONDAY CON DETTAGLIO COMPLETO by Punto&Virgola
Class clsCerchioCiclometrico
Dim aPos(55,02) ' memorizza le coordinate relative ai 99 Numeri
Dim aNumeri(55) ' 55 Numeri
Private CollCorde
Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
Dim nRaggio ' raggio ddel cerchio
Dim cX,cY ' centro del cerchio x e y
Dim Base,Altezza ' dimensioni area disegno
Dim Angolo ' gestisce il ciclo per disegnare il cerchio
Dim pi ' pigreco
Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
Dim cLung ' distanza per stampare i gradi
Dim k ' ciclo generico
Dim n
Dim z
Call PicClear()
Set CollCorde = GetNewCollection
cLung = 2
pi = 3.14
Base = 150
Altezza = 150
nRaggio = 60
' preimposto le dimensioni dell'area
Call PicSetDimensioni(Base,Altezza,Base,Altezza)
' calcolo il centro del cerchio
cX = Base / 2
cY = Altezza / 2
Call PicCerchio(cX,cY,nRaggio)
Angolo = 90
n = 56
For z = 1 To 55
n = n - 01
x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
' memorizzo nell'array globale le coordinate appena calcolate
' cosi potranno essere riusate per disegnare le corde
aPos(n,1) = x1
aPos(n,2) = y1
If n Mod 5 = 00 Then
x2 = cX +((nRaggio + cLung * 03) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung * 03) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung * 04) * Cos(-(Angolo + 02) *(pi / 180)))
y2 = cY +((nRaggio + cLung * 04) * Sin(-(Angolo + 02) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo,,,,,10)
Else
' disegno il semiraggio
x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 02) *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 02) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo)
End If
Angolo = FuoriX(90 + Int(360 -((360/55)*(n - 1))),360)
Next
Call DisegnaFigura(aNumeri)
Call DisegnaDistanze(aCorde)
' mostro la figura in output
Call PicEsegui
End Sub
Private Sub DisegnaFigura(aNum)
Dim k
For k = 01 To UBound(aNum)
Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 01,UBound(aNum))),vbRed,True,False)
Next
End Sub
Private Sub DisegnaDistanze(aCorde)
Dim k
For k = 01 To UBound(aCorde)
Call DisegnaCorda(aCorde(k,01),aCorde(k,02),vbBlue,True,True)
Next
End Sub
Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
Dim nX,nY,sDist
If AddCorda(p1,p2) Then
If bLineaTratt Then
Call PicLineaTratteggiata(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
Else
Call PicLinea(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
End If
Call PicPunto(aPos(p1,01),aPos(p1,02),06,colore)
Call PicPunto(aPos(p2,01),aPos(p2,02),06,colore)
If bDisegnaDist Then
If aPos(p1,01) > aPos(p2,01) Then
nX =(aPos(p1,01) - aPos(p2,01)) / 02 + aPos(p2,01)
Else
nX =(aPos(p2,01) - aPos(p1,01)) / 02 + aPos(p1,01)
End If
If aPos(p1,02) > aPos(p2,02)Then
nY =(aPos(p1,02) - aPos(p2,02)) / 02 + aPos(p2,02)
Else
nY =(aPos(p2,02) - aPos(p1,02)) / 02 + aPos(p1,02)
End If
Call PicCerchio(nX,nY,03,vbWhite,,True,vbWhite)
nX = nX - 1.5
nY = nY - 1.5
sDist = Format2(DiffCiclometrica55(p1,p2))
Call PicStampaTesto(nX,nY,sDist)
End If
End If
End Sub
Function DiffCiclometrica55(NumA,NumB)
Dim r
If NumA > NumB Then
r = NumA - NumB
Do While r >= 28
r = 55 - r
Loop
ElseIf NumB > NumA Then
r = NumB - NumA
Do While r >= 28
r = 55 - r
Loop
End If
DiffCiclometrica55 = r
End Function
Private Function AddCorda(n01,n02)
Dim sKey
If n01 <= n02 Then
sKey = "k" & Format2(n01) & Format2(n02)
Else
sKey = "k" & Format2(n02) & Format2(n01)
End If
On Error Resume Next
CollCorde.Add sKey,sKey
If Err = 00 Then
AddCorda = True
End If
End Function
End Class
Sub Main
Dim clsCerchio
Dim k
Dim aCorde
'Dim TipoEsempio
ReDim aNum(00)
Dim sfile
Dim est,fin,Ini,dr(5),db(5),d(5),a(5),T,V,posta(2)
posta(2) = 1
Ini = CInt(InputBox("QUANTE ESTRAZIONI VUOI VISUALLIZZARE"," N° ESTRAZIONI ",1))
sfile = GetDirectoryAppData & "ArchiviTx ........... inserire propria stringa........."
Call ApriBaseDatiFT(sfile,5,",",55)
Ini =(EstrazioniArchivioFT - Ini + 1)
fin = EstrazioniArchivioFT
For est = Ini To fin
T = Array(T,"Data Estrazione.","Estratti","Somma( F55 )","1-2","2-3","3-4","4-5","5-1","Dr1","Dr2","Dr3","Dr4","Dr5","Db1","Db2","Db3","Db4","Db5")
Call InitTabella(T)
Call GetEstrazioneCompletaFT(est,aNum)
'--------------------------------------
a(1) = aNum(1): a(2) = aNum(2) : a(3) = aNum(3): a(4) = aNum(4) : a(5) = aNum(5) ' <-- Estratti
'---------------------------------------
d(1) = Dista55(aNum(1),aNum(2)): d(2) = Dista55(aNum(2),aNum(3)): d(3) = Dista55(aNum(3),aNum(4)): d(4) = Dista55(aNum(4),aNum(5)): d(5) = Dista55(aNum(5),aNum(1))' <-- Distanza estratti
Call OrdinaMatrice(aNum,01)
'--------------------------------------
dr(1) = Dista55(aNum(1),aNum(2)): dr(2) = Dista55(aNum(2),aNum(3)): dr(3) = Dista55(aNum(3),aNum(4)): dr(4) = Dista55(aNum(4),aNum(5)): dr(5) = Dista55(aNum(5),aNum(1))' <-- Distanza rosse
'--------------------------------------
db(1) = Dista55(aNum(1),aNum(3)): db(2) = Dista55(aNum(1),aNum(4)): db(3) = Dista55(aNum(2),aNum(5)): db(4) = Dista55(aNum(2),aNum(4)) : db(5) = Dista55(aNum(3),aNum(5))' <-- Distanza blu
'-------------------------------------
se = SommaEstrattiFT(est) : sef = FuoriX(se,55) '<-- Somma estratti e fuori55
'--------------------------------------
Scrivi : Scrivi
' le corde sono le distanze interne e sono
' considerate tutte le coppie di vertic
V = Array(V,GetInfoEstrazioneFT(est),StringaNumeri(a,,1),se & " ( " & sef & " )",d(1),d(2),d(3),d(4),d(5),dr(1),dr(2),dr(3),dr(4),dr(5),db(1),db(2),db(3),db(4),db(5))
Call AddRigaTabella(V)
Call SetColoreCella(9,,2)
Call SetColoreCella(10,,2)
Call SetColoreCella(11,,2)
Call SetColoreCella(12,,2)
Call SetColoreCella(13,,2)
'----------------------------
Call SetColoreCella(14,,1)
Call SetColoreCella(15,,1)
Call SetColoreCella(16,,1)
Call SetColoreCella(17,,1)
Call SetColoreCella(18,,1)
ImpostaGiocataFT 1,dr,posta,5
Call CreaTabella
Scrivi "Estratti estrazione " & a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & String(6," "),0,0
Scrivi "Distanze estrazione " & d(1) & " " & d(2) & " " & d(3) & " " & d(4) & " " & d(5) & String(6," "),0,0
Scrivi "Somma estratti e [F55] " & se & " [" & sef & "]"
Scrivi
Scrivi "Estratti ordinati " & aNum(1) & " " & aNum(2) & " " & aNum(3) & " " & aNum(4) & " " & aNum(5) & String(7," "),0,0
Scrivi "Distanze corde rosse " & dr(1) & " " & dr(2) & " " & dr(3) & " " & dr(4) & " " & dr(5) & String(6," "),0,0,,2
Scrivi "Distanze corde Blu " & db(1) & " " & db(2) & " " & db(3) & " " & db(4) & " " & db(5),,,,1
Scrivi : Scrivi
aCorde = SviluppoIntegrale(aNum,02)
Set clsCerchio = New clsCerchioCiclometrico
Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
GiocaFT est
Next
End Sub
Function Dista55(numa,numb)
Dim r
If numa > numb Then
r = numa - numb
Do While r >= 28
r = 55 - r
Loop
ElseIf numb > numa Then
r = numb - numa
Do While r >= 28
r = 55 - r
Loop
End If
Dista55 = r
End Function
ottimo scrippter d'altra sede ( 21/12/2018 )
'Option Explicit
'CERCHIO MILLIONDAY CON DETTAGLIO COMPLETO by Punto&Virgola
Class clsCerchioCiclometrico
Dim aPos(55,02) ' memorizza le coordinate relative ai 99 Numeri
Dim aNumeri(55) ' 55 Numeri
Private CollCorde
Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
Dim nRaggio ' raggio ddel cerchio
Dim cX,cY ' centro del cerchio x e y
Dim Base,Altezza ' dimensioni area disegno
Dim Angolo ' gestisce il ciclo per disegnare il cerchio
Dim pi ' pigreco
Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
Dim cLung ' distanza per stampare i gradi
Dim k ' ciclo generico
Dim n
Dim z
Call PicClear()
Set CollCorde = GetNewCollection
cLung = 2
pi = 3.14
Base = 150
Altezza = 150
nRaggio = 60
' preimposto le dimensioni dell'area
Call PicSetDimensioni(Base,Altezza,Base,Altezza)
' calcolo il centro del cerchio
cX = Base / 2
cY = Altezza / 2
Call PicCerchio(cX,cY,nRaggio)
Angolo = 90
n = 56
For z = 1 To 55
n = n - 01
x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
' memorizzo nell'array globale le coordinate appena calcolate
' cosi potranno essere riusate per disegnare le corde
aPos(n,1) = x1
aPos(n,2) = y1
If n Mod 5 = 00 Then
x2 = cX +((nRaggio + cLung * 03) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung * 03) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung * 04) * Cos(-(Angolo + 02) *(pi / 180)))
y2 = cY +((nRaggio + cLung * 04) * Sin(-(Angolo + 02) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo,,,,,10)
Else
' disegno il semiraggio
x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 02) *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 02) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo)
End If
Angolo = FuoriX(90 + Int(360 -((360/55)*(n - 1))),360)
Next
Call DisegnaFigura(aNumeri)
Call DisegnaDistanze(aCorde)
' mostro la figura in output
Call PicEsegui
End Sub
Private Sub DisegnaFigura(aNum)
Dim k
For k = 01 To UBound(aNum)
Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 01,UBound(aNum))),vbRed,True,False)
Next
End Sub
Private Sub DisegnaDistanze(aCorde)
Dim k
For k = 01 To UBound(aCorde)
Call DisegnaCorda(aCorde(k,01),aCorde(k,02),vbBlue,True,True)
Next
End Sub
Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
Dim nX,nY,sDist
If AddCorda(p1,p2) Then
If bLineaTratt Then
Call PicLineaTratteggiata(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
Else
Call PicLinea(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
End If
Call PicPunto(aPos(p1,01),aPos(p1,02),06,colore)
Call PicPunto(aPos(p2,01),aPos(p2,02),06,colore)
If bDisegnaDist Then
If aPos(p1,01) > aPos(p2,01) Then
nX =(aPos(p1,01) - aPos(p2,01)) / 02 + aPos(p2,01)
Else
nX =(aPos(p2,01) - aPos(p1,01)) / 02 + aPos(p1,01)
End If
If aPos(p1,02) > aPos(p2,02)Then
nY =(aPos(p1,02) - aPos(p2,02)) / 02 + aPos(p2,02)
Else
nY =(aPos(p2,02) - aPos(p1,02)) / 02 + aPos(p1,02)
End If
Call PicCerchio(nX,nY,03,vbWhite,,True,vbWhite)
nX = nX - 1.5
nY = nY - 1.5
sDist = Format2(DiffCiclometrica55(p1,p2))
Call PicStampaTesto(nX,nY,sDist)
End If
End If
End Sub
Function DiffCiclometrica55(NumA,NumB)
Dim r
If NumA > NumB Then
r = NumA - NumB
Do While r >= 28
r = 55 - r
Loop
ElseIf NumB > NumA Then
r = NumB - NumA
Do While r >= 28
r = 55 - r
Loop
End If
DiffCiclometrica55 = r
End Function
Private Function AddCorda(n01,n02)
Dim sKey
If n01 <= n02 Then
sKey = "k" & Format2(n01) & Format2(n02)
Else
sKey = "k" & Format2(n02) & Format2(n01)
End If
On Error Resume Next
CollCorde.Add sKey,sKey
If Err = 00 Then
AddCorda = True
End If
End Function
End Class
Sub Main
Dim clsCerchio
Dim k
Dim aCorde
'Dim TipoEsempio
ReDim aNum(00)
Dim sfile
Dim est,fin,Ini,dr(5),db(5),d(5),a(5),T,V,posta(2)
posta(2) = 1
Ini = CInt(InputBox("QUANTE ESTRAZIONI VUOI VISUALLIZZARE"," N° ESTRAZIONI ",1))
sfile = GetDirectoryAppData & "ArchiviTx ........... inserire propria stringa........."
Call ApriBaseDatiFT(sfile,5,",",55)
Ini =(EstrazioniArchivioFT - Ini + 1)
fin = EstrazioniArchivioFT
For est = Ini To fin
T = Array(T,"Data Estrazione.","Estratti","Somma( F55 )","1-2","2-3","3-4","4-5","5-1","Dr1","Dr2","Dr3","Dr4","Dr5","Db1","Db2","Db3","Db4","Db5")
Call InitTabella(T)
Call GetEstrazioneCompletaFT(est,aNum)
'--------------------------------------
a(1) = aNum(1): a(2) = aNum(2) : a(3) = aNum(3): a(4) = aNum(4) : a(5) = aNum(5) ' <-- Estratti
'---------------------------------------
d(1) = Dista55(aNum(1),aNum(2)): d(2) = Dista55(aNum(2),aNum(3)): d(3) = Dista55(aNum(3),aNum(4)): d(4) = Dista55(aNum(4),aNum(5)): d(5) = Dista55(aNum(5),aNum(1))' <-- Distanza estratti
Call OrdinaMatrice(aNum,01)
'--------------------------------------
dr(1) = Dista55(aNum(1),aNum(2)): dr(2) = Dista55(aNum(2),aNum(3)): dr(3) = Dista55(aNum(3),aNum(4)): dr(4) = Dista55(aNum(4),aNum(5)): dr(5) = Dista55(aNum(5),aNum(1))' <-- Distanza rosse
'--------------------------------------
db(1) = Dista55(aNum(1),aNum(3)): db(2) = Dista55(aNum(1),aNum(4)): db(3) = Dista55(aNum(2),aNum(5)): db(4) = Dista55(aNum(2),aNum(4)) : db(5) = Dista55(aNum(3),aNum(5))' <-- Distanza blu
'-------------------------------------
se = SommaEstrattiFT(est) : sef = FuoriX(se,55) '<-- Somma estratti e fuori55
'--------------------------------------
Scrivi : Scrivi
' le corde sono le distanze interne e sono
' considerate tutte le coppie di vertic
V = Array(V,GetInfoEstrazioneFT(est),StringaNumeri(a,,1),se & " ( " & sef & " )",d(1),d(2),d(3),d(4),d(5),dr(1),dr(2),dr(3),dr(4),dr(5),db(1),db(2),db(3),db(4),db(5))
Call AddRigaTabella(V)
Call SetColoreCella(9,,2)
Call SetColoreCella(10,,2)
Call SetColoreCella(11,,2)
Call SetColoreCella(12,,2)
Call SetColoreCella(13,,2)
'----------------------------
Call SetColoreCella(14,,1)
Call SetColoreCella(15,,1)
Call SetColoreCella(16,,1)
Call SetColoreCella(17,,1)
Call SetColoreCella(18,,1)
ImpostaGiocataFT 1,dr,posta,5
Call CreaTabella
Scrivi "Estratti estrazione " & a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & String(6," "),0,0
Scrivi "Distanze estrazione " & d(1) & " " & d(2) & " " & d(3) & " " & d(4) & " " & d(5) & String(6," "),0,0
Scrivi "Somma estratti e [F55] " & se & " [" & sef & "]"
Scrivi
Scrivi "Estratti ordinati " & aNum(1) & " " & aNum(2) & " " & aNum(3) & " " & aNum(4) & " " & aNum(5) & String(7," "),0,0
Scrivi "Distanze corde rosse " & dr(1) & " " & dr(2) & " " & dr(3) & " " & dr(4) & " " & dr(5) & String(6," "),0,0,,2
Scrivi "Distanze corde Blu " & db(1) & " " & db(2) & " " & db(3) & " " & db(4) & " " & db(5),,,,1
Scrivi : Scrivi
aCorde = SviluppoIntegrale(aNum,02)
Set clsCerchio = New clsCerchioCiclometrico
Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
GiocaFT est
Next
End Sub
Function Dista55(numa,numb)
Dim r
If numa > numb Then
r = numa - numb
Do While r >= 28
r = 55 - r
Loop
ElseIf numb > numa Then
r = numb - numa
Do While r >= 28
r = 55 - r
Loop
End If
Dista55 = r
End Function
*blacklotto*
Super Member >PLATINUM<
ahi !!!! questo è un tasto dolente ... ah ah ah
certo che dice " il file di testo non esiste " se hai visto ad un certo punto del listato trovavi :
Ini = CInt(InputBox("QUANTE ESTRAZIONI VUOI VISUALLIZZARE"," N° ESTRAZIONI ",1))
sfile = GetDirectoryAppData & "ArchiviTx ........... inserire propria stringa........." <--- <---
Call ApriBaseDatiFT(sfile,5,",",55)
Ini =(EstrazioniArchivioFT - Ini + 1)
fin = EstrazioniArchivioFT
dove trovi la scritta in verde ci devi inserire la tua Directory personale che prende il nome che darai tu al tuo archivio estrazioni del millionday, ma a quanto credo di capire non lo hai ? oppure lo hai salvato con punteggiatura diversa da quella che ho io.
Se non hai l'archivio in spaziometria devi per forza crearlo, se non sai da dove scaricarlo vai nel sito del buon Silop oppure vedrò d'inserirtele io, ma se non conosci il procedimento cerca i messaggi di Mike, grande amico e buona persona, dove troverai tutto ciò che ti serve, eventualmente provvederemo nel tuo aiuto.
Stavo per inserire un listato niente male per la ricerca degli estratti per millionday, un listato che il notissimo e grandissimo amico Djnomade mi compose qualche anno fa su mia richiesta, poi ho letto il tuo messaggio.
Dai, vedi se ci riesci che poi inserirò alcuni listati che potrebbero interessarti.
ciao
certo che dice " il file di testo non esiste " se hai visto ad un certo punto del listato trovavi :
Ini = CInt(InputBox("QUANTE ESTRAZIONI VUOI VISUALLIZZARE"," N° ESTRAZIONI ",1))
sfile = GetDirectoryAppData & "ArchiviTx ........... inserire propria stringa........." <--- <---
Call ApriBaseDatiFT(sfile,5,",",55)
Ini =(EstrazioniArchivioFT - Ini + 1)
fin = EstrazioniArchivioFT
dove trovi la scritta in verde ci devi inserire la tua Directory personale che prende il nome che darai tu al tuo archivio estrazioni del millionday, ma a quanto credo di capire non lo hai ? oppure lo hai salvato con punteggiatura diversa da quella che ho io.
Se non hai l'archivio in spaziometria devi per forza crearlo, se non sai da dove scaricarlo vai nel sito del buon Silop oppure vedrò d'inserirtele io, ma se non conosci il procedimento cerca i messaggi di Mike, grande amico e buona persona, dove troverai tutto ciò che ti serve, eventualmente provvederemo nel tuo aiuto.
Stavo per inserire un listato niente male per la ricerca degli estratti per millionday, un listato che il notissimo e grandissimo amico Djnomade mi compose qualche anno fa su mia richiesta, poi ho letto il tuo messaggio.
Dai, vedi se ci riesci che poi inserirò alcuni listati che potrebbero interessarti.
ciao
cedol8roby
Advanced Member >GOLD<
ciao Jure,
non ho listati su Millionday riguardanti la tua richiesta ma nella discussione aperta a suo tempo da Mike58 vi sono molti script interessanti ed anche dei plug-in da aggiungere a spaziometria. esempio questo script Frequenze in Posizioni
Inoltre credo che se hai qualche script per il lotto sulle spie che ti piacerebbe implementare per Md troverai sicuramente gente gentile che ti viene incontro.
Buona domenica
non ho listati su Millionday riguardanti la tua richiesta ma nella discussione aperta a suo tempo da Mike58 vi sono molti script interessanti ed anche dei plug-in da aggiungere a spaziometria. esempio questo script Frequenze in Posizioni
Inoltre credo che se hai qualche script per il lotto sulle spie che ti piacerebbe implementare per Md troverai sicuramente gente gentile che ti viene incontro.
Buona domenica
druid
Super Member >PLATINUM<
Ciao Jure,
il formato dell' archivio e' corretto.
Il problema e' dovuto agli spazi in piu' dopo l'ultima riga, pertanto con un editor di testo (es. notepad++ (gratuito)) , ma anche il blocco note di windows va bene) elimina tutti gli spazi dopo l'ultima riga, in modo che il cursore, si posizioni alla fine, a ridosso dell' ultimo numero, in questo caso il 54.
Ciao
il formato dell' archivio e' corretto.
Il problema e' dovuto agli spazi in piu' dopo l'ultima riga, pertanto con un editor di testo (es. notepad++ (gratuito)) , ma anche il blocco note di windows va bene) elimina tutti gli spazi dopo l'ultima riga, in modo che il cursore, si posizioni alla fine, a ridosso dell' ultimo numero, in questo caso il 54.
Ciao
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 23 aprile 2024Bari4722342050Cagliari3314860262Firenze6122441926Genova2112578255Milano6605117030Napoli0523255273Palermo2344497165Roma8237593471Torino2642661558Venezia5706685484Nazionale2179490301Estrazione Simbolotto
Genova
2402190327
