Lotto pfca Vers 03

[pfca]

Un saluto a tutti, non avendo ricevuto altre segnalazioni di errori, posto la vers. 03
x desperaux inserito statistica su Ricerca estratti frequenze, ho predisposto la
statistica con la ricerca di un estratto e gli abbinamenti relativi.
x pesciolina corretto l'inserimento manuale delle estrazioni.
Questo è il link da cui scaricare il file, è valido per tutte le versioni di Excel
Lotto pfca 2013 vers 03.zip
Vi aggiungo anche un'altro link in quanto nella sezione metodi o postato un file
con due metodi inseriti da due utenti, Luigi di Anzio e Blady che sono veramente
validi.
http://www.mediafire.com/?jr9kaecpymmiad0
pfca

 

[Roby]

Un grazie doveroso.

 

[desperaux]

Un grazie doveroso.

vale anche x me Pfca

oggi lo guardo

grazie ancora

 

[rabberto]

Ciao Francesco un grazie anche da parte mia .

 

[korokoro]

Ciao Francesco , geniale
grazie leo

P.S.: nel tuo carniere non hai qualcosa che possa cercare
dopo di un ambo spia , le varie uscite a ruota ?

 

[pfca]

Un saluto e un doveroso ringraziamento per i vostri interventi.
X korokoro, purtroppo penso con con excel i tempi sarebbero lunghi per quello che chiedi,
ti consiglio di chiedere a chi può realizzare qualche script, che sicuramente ha tempi accettabili.
Io non potendo più utilizzare spaziometria, funziona tutto meno la parte script, in effetti era
la parte che più mi interessava a livello di programmazione, (non essendo un appassionato del gioco),
era la mia soddisfazione realizzare qualcosa.
pfca

 

[Alien.]

CIAO disaronno,ho wind7 a 64 bit ,mi da errore lo script-500 variabile non definita:'n1'
linea 5
colonna 4
source errore di run time.
E un errore reale oppure non sopportato dal 64 bit?
grazie.


n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1)

 

[arcor]

ciao Francesco approfitto della tua disponibilità per chiederti se puoi aggiungere quando puoi al tuo bel programma questa ricerca in una delle 10 ruote istituzionali (quindi viene esclusa la Ruota Nazional) [FONT=Calibri,Calibri][FONT=Calibri,Calibri]la sortita di un terno in cui uno dei tre elementi sia la somma degli altri due[/FONT][/FONT]
.
esempio, la formazione 11-24-35 dove il [FONT=Calibri,Calibri][FONT=Calibri,Calibri]35 [/FONT][/FONT]è somma 11+24 = 35 degli altri due elementi.

Valida sarà anche una formazione del tipo 42-67-19 dove il numero [FONT=Calibri,Calibri][FONT=Calibri,Calibri]19 [/FONT][/FONT]è somma di 42+67 = 109-90 vorrei se possibile che mi segnali in verde le due caselline e in rosso la casella con il numero somma per tutte le ruote esclusa la nazionale ciao e grazie

 

[pfca]

Buongiorno, ringrazio disaronno per l'inserimento dello script richiesto da korokoro.

X Alien per la tua richiesta vale la stessa risposta data a korokoro, per excel fare
una ricerca così estesa è complicato, spero che disaronno possa realizzarti uno script.
pfca

 

[rabberto]

Ciao Francesco grazie ancora per i tuoi file e le tue modifiche sempre generoso con tutti , per arcor come dice pfca una ricerca così estesa è complicata ho trovato un listato che forse fa il caso tuo te lo posto spero possa esserti utile , ciao .

Sub Main()Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"** LA TRiADE DI SOMMA - FABARRI E MANARA **",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.F. ",1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),lg1(5)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1)=1
poste1(2)=1
poste(2)=3.50 : poste(3)=1 : poste(4)=.40 : poste(5)=.10
rs=InputBox(" Quante estrazioni vuoi controllare?","Florindi",20)
ini=EstrazioneFin-rs : fin=EstrazioneFin
For es=ini To fin
Messaggio(es)
For r1=1 To 10 : For p1=1 To 4 : For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For p3=1 To 5
If p3<>p1 And p3<>p2 Then
c=Estratto(es,r1,p3)
If Fuori90(a+b)=c And c<>90 Then
nu(1)=90-a : nu(2)=90-b : nu(3)=90-c
'Controlla la presenza dell'ambo in terzina su un'altra ruota.
For r2=1 To 10
If r2<>r1 Then
ru(1)=r2
sf=SerieFreq (es,es,nu,ru,2)
If sf>0 Then
'Trova l'ambo, che deve essere unico.
g=0: Erase nr
For q=1 To 5
nx=Estratto (es,r2,q)
For i=1 To 3
If nx=nu(i) Then g=g+1 : nr(g)=nx
Next
Next
If g=2 Then
'Cerca il numero mancante(cg)della terzina derivata.
ok=0
For y=1 To 3
If nu<>nr(1) And nu<>nr(2) Then cg=nu : ok=1
If ok=1 Then Exit For
Next
amb(1)=cg
ambo1(1)=cg : ambo1(2)=a
ambo2(1)=cg : ambo2(2)=b
ambo3(1)=cg : ambo3(2)=c
ambo4(1)=cg : ambo4(2)=nr(1)
ambo5(1)=cg : ambo5(2)=nr(2)
lg1(1)=a : lg1(2)=b : lg1(3)=c : lg1(4)=nr(1) : lg1(5)=nr(2)


ruote(1)=r1:ruote(2)=r2


casi=casi+1:Scrivi String(70,"="),1
ColoreTesto 2
Scrivi Space (30)& "Caso "&casi
ColoreTesto 0
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" ]" &_
" Terna di somma: "& Format2(a)&"."& Format2(b)&"."& Format2(c)& Chr (10)&_
Space (37)& "Terno Derivato: "& StringaNumeri (nu),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" ]" & Chr (10) &_
"Ambo trovato "& StringaNumeri (nr)&" su "& SiglaRuota (r2)& Chr (10)&_
"Num. mancante - CAPOGIOCO: "& (amb(1)),1
Scrivi String(70,"-")


ImpostaGiocata 1,amb,ruote,posta,14
ImpostaGiocata 2,ambo1,ruote,poste1,14
ImpostaGiocata 3,ambo2,ruote,poste1,14
ImpostaGiocata 4,ambo3,ruote,poste1,14
ImpostaGiocata 5,ambo4,ruote,poste1,14
ImpostaGiocata 6,ambo5,ruote,poste1,14
ImpostaGiocata 7,lg1,ruote,poste,14
'Gioca es
End If
End If
End If
Next
End If
End If
Next:Next : Next:Next:Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.Florindi. ",1
ColoreTesto 0
End Sub

 

[arcor]

grazie rabberto proprio quello che mi serviva ciao

 

[rabberto]

Ciao arcor di niente , e' sempre un piacere aiutare qualcuno , ciao.

 

[rabberto]

Ciao arcor questo e un altro listato sempre sulle terne di somma , ciao

Sub Main()'Cerca una terna di somma 90 & Listato da Enplein.
Dim nu(5),n(5)
SR=CInt (InputBox ("Quale Somma vuoi?",,90))
ee=CInt (InputBox ("Quali estrazioni vuoi esaminare? Ultime :",,100))
fin=EstrazioneFin
ini=fin-ee
t=0
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
For i=1 To 5
n(i)=Estratto (es,r,i)
Next
For p=1 To 3 : For p1=p+1 To 4 : For p2=p1+1 To 5
so=Fuori90 (n(p)+n(p1)+n(p2))
If so = Sr Then '----> stessa Somma
a=n(p) : b=n(p1) : c=n(p2)
Erase nu : g=0
For j=1 To 5
If n(j)<>a And n(j)<>b And n(j)<>c Then g=g+1 : nu(g)=n(j)
Next
If g=2 Then
t=t+1
Scrivi "---------------------------------------------------------------------------------------"
ColoreTesto 2 : Scrivi String(30,32)&" Pronostico n° " &t&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es)&" n° "& (es) &" su "& Left(NomeRuota(r ),2)& " " & StringaEstratti (es,r)& " Terna di somma "&(Sr)&" : "&_
Format2 (a)&" "& Format2 (b)&" "& Format2 (c),1
Scrivi Space (41)& " Numeri estranei : "& StringaNumeri (nu),1


End If
End If
Next : Next : Next
Next
Next
ColoreTesto 2 : Scrivi : Scrivi "•Enplein•",1
End Sub

 

[ppaaolox]

ciao francesco pfca,
avrei un paio di idee buone per il 10elotto 5 minuti,
saresti disponibile a fare un programmino in excel?

dovrebbe essere piuttosto semplice, mi basterebbe
l'aggiornamento con web delle estrazioni e 3 tabelloni analitici
e le frequenze dei numeri su 30 estrazioni

ti ringrazio per la tua disponibilità e cortesia

fammi sapere

ciao

 

[pfca]

Ciao ppaaolox,
si può fare tutto solo che il gioco del 10elotto ogni 5 minuti crea un mare di righe di dati che dopo un paio di giorni
hai il file già intasato, e non fai in tempo a scaricare gli aggiornamenti che sei dietro di 2 0 3 estrazioni.
Puoi chiedere a chi fà gli script è l'unica via per riuscire a fare qualcosa.
pfca

 

[Roby]

X DISARONNO

Buonasera, a tutti
mi intrometto nella discussione ,per korokoro,allego listato ,dopo ambo spia cerca numeri ed ambi più frequenti su ruota e Tutte,
con scelta ambo spia ,scelta ruota di sortita,scelta ruota di controllo,scelta estrazioni di controllo,scelta colpi.

Sub Main()
    Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
    Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
    n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
    n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",90))
    r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",1))
    rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",1))
    rt(1) = rut
    ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",8616))
    clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",3))
    ru1(1) = 11
    fin = EstrazioneFin
    ini = EstrazioneFin - ee
    For cc = 1 To 90
  For w = 1 To 2
   n(cc,w) = 0 : nt(cc,w) = 0 : nrr(cc,w) = 0
  Next
    Next
    co = 0 : casi = 0
    For es = ini To fin
    AvanzamentoElab Ini,fin,es
  Messaggio " Spia: " & n1 & "-" & n2 & " -Estrazione : " & es
  If(Posizione(es,r,n1) > 0 And Posizione(es,r,n2) > 0)Then
   Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & " " & n2
   casi = casi + 1
   ess = es + clp
   If ess > fin Then ess = fin End If
   For x = es + 1 To ess
    cc = 0
    For pp = 1 To 5
     d = Estratto(x,r,pp)
     e = Estratto(x,rut,pp)
     n(d,1) = d
     nrr(e,1) = e
     n(d,2) = n(d,2) + 1
     nrr(e,2) = nrr(e,2) + 1 '<<<
    Next
    For rr = 1 To 10
     For p1 = 1 To 5
      g = Estratto(x,rr,p1)
      nt(g,1) = g
      nt(g,2) = nt(g,2) + 1
     Next
    Next
   Next
   co = 0
   For x = 1 To 90
    For y = x + 1 To 90
     co = co + 1
     nn(1) = x : nn(2) = y : ru(1) = r
     ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
     yy = SerieFreq(es + 1,ess,nn,ru,2)
     ambi(co,4) = ambi(co,4) + yy
     If yy > 0 Then
      ambi(co,5) = ambi(co,5) + 1
     Else
      ambi(co,5) = ambi(co,5)
     End If
     nn1(1) = x : nn1(2) = y
     ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
     xx = SerieFreq(es + 1,ess,nn1,ru1,2)
     ambi1(co,4) = ambi1(co,4) + xx
     If xx > 0 Then
      ambi1(co,5) = ambi1(co,5) + 1
     Else
      ambi1(co,5) = ambi1(co,5)
     End If
     nr(1) = x : nr(2) = y
     ambrr(co,1) = co : ambrr(co,2) = x : ambrr(co,3) = y
     kk = SerieFreq(es + 1,ess,nr,rt,2)
     ambrr(co,4) = ambrr(co,4) + kk
     If kk > 0 Then
      ambrr(co,5) = ambrr(co,5) + 1
     Else
      ambrr(co,5) = ambrr(co,5)
     End If
    Next
   Next
  End If
    Next
    Scrivi
    Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
    Scrivi
    Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica",1
    Scrivi
    Scrivi NomeRuota(r),1
    Scrivi "N° casi: " & CInt(casi),1 : Scrivi
    Scrivi " Frequenti nei " & clp & " colpi successivi",1
    OrdinaMatrice n,- 1,2
    OrdinaMatrice ambi,- 1,5
    OrdinaMatrice ambi1,- 1,5
    OrdinaMatrice nt,- 1,2
    OrdinaMatrice nrr,- 1,2
    OrdinaMatrice ambrr,- 1,5
    ColoreTesto 2
    Scrivi
    Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte | Nu. Tutte "
    ColoreTesto 2
    Scrivi " N°.  Fr.| Ambo  Freq.| Ambo   Fr.| N°.  Fr. "
    ColoreTesto 0
    For x = 1 To 30
  Scrivi " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & Format2(nt(x,2))
  Scrivi ""
  Scrivi ""
    Next
    Scrivi String(65,"*")
    ColoreTesto 1
    Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))
    Scrivi "Nu.Ruota | Ambi a Ruota"
    ColoreTesto 2
    Scrivi " N°.  Fr.| Ambo  Freq "
    ColoreTesto 0
    For x = 1 To 10
  Scrivi " " & Format2(nrr(x,1)) & "..." & Format2(nrr(x,2)) & " | " & Format2(ambrr(x,2)) & "-" & Format2(ambrr(x,3)) & "..." & Format2(ambrr(x,5))
  Scrivi ""
  Scrivi ""
    Next
    Scrivi String(65,"*")
End Sub

Salve Disaronno, sarebbe possibile convertire questo listato per il 10elotto5minuti, ovvero dopo ambo spia cerca numeri e terni più frequenti nelle 10 estrazioni successive?????
Grazie in anticipo per la risposta

 

[PS61]

X PFCA..Ho scaricato il tuo programma niente da dire bellissimo e tutto gratis grazie..volevo chiederti visto che io uso molto le spie..se non ti crea problemi si potrebbe inserire nelle SPIE MANUALI ricerca 10 numeri invece di 5 numeri e anche per es. ricercare un numero le volte che si vuole 5/6/7/8/18 ecc ecc magari anche x posizione Grazie ancora ciao

 

[Zetrix]

ciao pfca ho scaricato il tuo programma mi interessa la sez ciclometria pero ce un problema quando vado per attivare il contenuto risponde tentativo da parte di microsoft office excel di recuperare le informazioni in corso passano minuti dopodiche risponde windos se verificato un problema che impedisce il funzionamento corretto la solita pappardella nn so cosa ho combinato con questo excel ma ritengo molto utile gli script al momento sono i migliori nn hanno dato mai problemi anke se vorrai disinstallare excel nn e possibile me lo deve tenere cosi risponde nn hai le autorizzazioni sufficienti cmqsia troppo complicato questo programma e forse anke tutti gli altri programmi questi sono i prodotti microsoft

 

[ppaaolox]

Ciao ppaaolox,
si può fare tutto solo che il gioco del 10elotto ogni 5 minuti crea un mare di righe di dati che dopo un paio di giorni
hai il file già intasato, e non fai in tempo a scaricare gli aggiornamenti che sei dietro di 2 0 3 estrazioni.
Puoi chiedere a chi fà gli script è l'unica via per riuscire a fare qualcosa.
pfca

ciao francesco pfca,
io attualmente uso il tuo programma che avevi fatto tempo fa per il 10elotto,
gli ho aggiunto io qualche foglio che aggiorno manualente con grande difficoltà.
ti riformulo ancora la mia richiesta per un programma in excel semplice ma
con comandi e pulsanti che agevolerebbe notevolmente quello che attualmente faccio.
ho provato ad aggiungere qui la foto degli analitici come attualmente faccio io ma non riesco ad allegarla...
sono gli ultimi 4 tabelloni analitici ed in ognuno ci sono in rosso i numeri usciti nell'estrazione precedente,
lasciando tra un tabellone e un'altro lo spazio di circa 5 colonne
se fosse un problema l'aggiornamento automatico sarebbe buono anche avere l'estrazione manualmente

forse faccio fatica a spiegarmi quello che vorrei, ma bisognerebbe almeno avere una base per poter poi
spiegare bene come e quello che ci sarebbe da fare

se vuoi ti invio il foglio di excel via mail e tu ci dai un'occhiata

ti ringrazio ancora della tua disponibilità e cortesia
sei una persona ammirevole per quello che fai per tutti noi

fammi sapere

ciao

 

[pfca]

X PFCA..Ho scaricato il tuo programma niente da dire bellissimo e tutto gratis grazie..volevo chiederti visto che io uso molto le spie..se non ti crea problemi si potrebbe inserire nelle SPIE MANUALI ricerca 10 numeri invece di 5 numeri e anche per es. ricercare un numero le volte che si vuole 5/6/7/8/18 ecc ecc magari anche x posizione Grazie ancora ciao

Ciao ti ringrazio, vedrò in futuro se sarà possibile realizzare un file apposito per fare queste ricerche, dovrai comunque avere pazienza in quanto
in questo periodo sono impegnato su altre cose.
pfca