PER ESSELOTTO

[Roby]

Ciao Esselotto,
ho trovato uno script che mi serviva,se non erro è tuo,
potresti farmi un paio di modifiche,lo script mi chiede "quante estrazioni voui controllare?" e invece a me servirebbe "quante volte vuoi controllare il n° spia?",inoltre nell'output i numeri sono in ordine di presenza,a me servirebbe che li ordinasse in decine o cmq in ordine naturale dal 1 al 90 e di fianco le presenze.
Ti posto lo script e ti ringrazio anticipatamente.

Sub Main
Dim mt(90,4),n(2),ru(1)

r = CInt(InputBox(" Ruota di ricerca?","SPY FREQUENZA LONES",1))
sp = CInt(InputBox(" Spia?","SPY FREQUENZA BY LONES",46))
p = CInt(InputBox(" POSIZIONE SPIA","POSIZONE SPY FREQUENZA BY LONES 1 a 5 ",1))
ei = CInt(InputBox("Quante estrazioni vuoi controllare?","SPY FREQUENZA BY LONES",650))
cl = CInt(InputBox("Ottimizzazione o colpi? [1-10]","SPY FREQUENZA BY LONES",9))

rr = r ''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso,io qui' al posto di r ho messo 2 cioe' Cagliari


ru(1) = r
Scrivi
casi = 0
For es = EstrazioneFin - ei To EstrazioneFin

a = Estratto(es,r,p)
If a = sp Then
casi = casi + 1
co = 0

For j = 1 To 90
n(1) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = SiglaRuota(rr)
fr = SerieFreq(es + 1,es + cl,n,ru,1)
mt(co,4) = mt(co,4) + fr
Next

'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)
'Next
'----------------------------------------------------
ColoreTesto 0
End If
Next

OrdinaMatrice mt,- 1,4
Scrivi "SPIA ->" & Format2(sp) & " posizione ->" & p & "° casi ->" & casi & " sulla ruota di " & SiglaRuota(r)
For xx = 1 To 30'<<<<<<<<<<<<<nel caso che vuoi tutti e 90 numeri cambia il 30 con ....90
Scrivi Format2(mt(xx,2)) & " " & mt(xx,3) & " " & mt(xx,4)
Next
End Sub

 

[esselotto]

X Debora73

il listato sopra non è mio.. perchè non porta il mio nome....
io sooo esse, e per il lotto sooo esselotto.......


Ritornando a Noi.
Script sui Numeri spia, ne ho postati 1 o 2 due al max.
Comunque mi sono ricordato di aver spedito qualcosa del genere, e ho trovato,
il seguente listato. Fatto per Solare nell'Area metodi di Lottoced se leggi c'è anche la data.

ho solo aggiunto
qp=CInt(InputBox("quante volte vuoi controllare il n° spia?","°°°esselotto°°°",27))
If qp="" Then Exit Sub

IL mio consiglio finale è di scaricare Spaziometria di Luigi in quest'area download
se clicchi sull'icona "Numeri spia" puoi fare ottime ricerche.
Su numero spia e Formazioni spia.

esselotto

 

[esselotto]

Sub main()
Scrivi String (75,"*"),1
ColoreTesto 1
Scrivi " Simpatici - migliori ambate sortite " & Chr(10),1
Scrivi "(***esselotto*** per ***Solare*** lottoced 11/10/2010)" & Chr(10),1
ColoreTesto 0
Scrivi String (75,"*"),1
Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

nn=CInt(InputBox("Quale numero spia ?","°°°esselotto°°°",9))
If nn="" Then Exit Sub
qp=CInt(InputBox("quante volte vuoi controllare il n° spia?","°°°esselotto°°°",27))
If qp="" Then Exit Sub

r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?","°°°esselotto°°°",1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 89?","°°°esselotto°°°",89))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=EstrazioneIni 

For es=fin To ini step -1 
If Posizione(es,r1,nn)>0 Then 
ru1(1)=r2
If SerieFreq(es,es,nn1,ru1,1)=1 Then
co=0
For i=1 To 90
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,es,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
n(co,4)=rt
Next
End If
End If
If (n(nn,3))=qp Then Exit For 
Next

Scrivi
ColoreTesto 1
Scrivi " Migliori Simpatici con Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10),1
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am+1
If (n(w,2))=nn Then
Scrivi " "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1) &" ----> Numero spia",1
End If
If (n(w,2))<> nn Then 
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)& String(8," ")
End If
Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[Debora73]

Ciao Esselotto,
scusami tanto,ma dove ho trovato lo script mi avevano detto che era il tuo,cmq a parte questo,lo script che ti ho mostrato è ottimo,l'unico inconveniente è che i numeri sono ordinati per frequenza e a me interessava che fossero in ordine naturale.Come mi hai consigliato,ho provato a fare una ricerca con Spaziometria ma i risultati non sono gli stessi.Ti ringrazio sei stato cmq molto gentile
Ciao

 

[esselotto]

quote:Originally posted by Debora73

Ciao Esselotto,
scusami tanto,ma dove ho trovato lo script mi avevano detto che era il tuo,cmq a parte questo,lo script che ti ho mostrato è ottimo,l'unico inconveniente è che i numeri sono ordinati per frequenza e a me interessava che fossero in ordine naturale.Come mi hai consigliato,ho provato a fare una ricerca con Spaziometria ma i risultati non sono gli stessi.Ti ringrazio sei stato cmq molto gentile
Ciao

Forse deve essere mio. Ho voluto scherzare perche non vedevo il mio nome.
(cerchero tra i miei listati, vediamo se salta fuori)

vuoi che modifichi quello spedito?
con numeri ordinati in ordine naturale
numeri freq
1 8
2 3
3 12
4 5

ecc. ecc.
giusto?

esselotto

 

[Debora73]

Ciao Esselotto,
ad es se fai girare il listato che ti ho postato mi escono in ordine di frequenza,a me servirebbe in ordine naturale;ti faccio un es numero spia sulla ruota di Ro 77 in 5° posizione mi da questo:
SPIA ->77 posizione ->5° casi ->8 sulla ruota di RM
18 RM 9
69 RM 8
56 RM 8
38 RM 8
66 RM 7
74 RM 7
90 RM 7
34 RM 6
24 RM 6
22 RM 6
20 RM 6
72 RM 6
80 RM 6
84 RM 6
42 RM 6
46 RM 6
49 RM 6
09 RM 6
06 RM 6
13 RM 6
75 RM 5
04 RM 5
39 RM 5
64 RM 5
63 RM 5
45 RM 5
53 RM 5
27 RM 5
23 RM 5
17 RM 5
89 RM 5
15 RM 5
07 RM 4
44 RM 4
10 RM 4
67 RM 4
19 RM 4
61 RM 4
59 RM 4
01 RM 4
65 RM 4
51 RM 4
52 RM 4
05 RM 4
71 RM 4
02 RM 4
73 RM 4
14 RM 4
11 RM 4
43 RM 4
41 RM 4
81 RM 4
62 RM 3
60 RM 3
79 RM 3
70 RM 3
68 RM 3
78 RM 3
87 RM 3
26 RM 3
40 RM 3
47 RM 3
37 RM 3
29 RM 3
28 RM 3
35 RM 3
55 RM 3
57 RM 3
54 RM 3
16 RM 3
30 RM 2
03 RM 2
82 RM 2
86 RM 2
85 RM 2
25 RM 2
83 RM 2
12 RM 2
36 RM 2
48 RM 2
58 RM 2
08 RM 2
76 RM 2
32 RM 2
88 RM 1
21 RM 1
77 RM 1
31 RM 1
50 RM 1
33 RM 1

a me servirebbe che me li ordinasse cosi'
1=4
2=4
ecc
Ti ringrazio per la disponibilità

 

[esselotto]

Ciao debora73 ho modificato
il listato che hai spedito ( il primo sopra).

ho aggiunto questi due input box.

om=CInt(InputBox("Ordinazione ? 1 naturale 4 per frequenza ","°°°esselotto°°°",1))
dp=CInt(InputBox("Ordinazione ? 1 crescente 2 decrescente ","°°°esselotto°°°",1))
sul primo input box inserisci 1 per ordine naturale, inserisci 4 per ordine di frequenza
il secondo ordina la scelta sopra in modo crescente e decrescente
1 2 3 4...ecc.
90 89 88 87 ecc.....

e o siglato il listato alla fine
°°°esselotto°°°

per ulteriori modifiche su questo script scrivi pure.

esselotto

 

[esselotto]

Sub Main
Dim mt(90,4),n(2),ru(1)

r = CInt(InputBox(" Ruota di ricerca?","SPY FREQUENZA LONES",1))
sp = CInt(InputBox(" Spia?","SPY FREQUENZA BY LONES",46))
p = CInt(InputBox(" POSIZIONE SPIA","POSIZONE SPY FREQUENZA BY LONES 1 a 5 ",1))
ei = CInt(InputBox("Quante estrazioni vuoi controllare?","SPY FREQUENZA BY LONES",650))
cl = CInt(InputBox("Ottimizzazione o colpi? [1-10]","SPY FREQUENZA BY LONES",9))
om=CInt(InputBox("Ordinazione ?  1 naturale  4 per frequenza ","°°°esselotto°°°",1))
dp=CInt(InputBox("Ordinazione ?  1 crescente 2 decrescente ","°°°esselotto°°°",1))

rr = r ''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso,io qui' al posto di r ho messo 2 cioe' Cagliari


ru(1) = r
Scrivi
casi = 0
For es = EstrazioneFin - ei To EstrazioneFin

a = Estratto(es,r,p)
If a = sp Then
casi = casi + 1
co = 0

For j = 1 To 90
n(1) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = SiglaRuota(rr)
fr = SerieFreq(es + 1,es + cl,n,ru,1)
mt(co,4) = mt(co,4) + fr
Next

'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)
'Next
'----------------------------------------------------
ColoreTesto 0
End If
Next
Ifdp=sg
If dp=2 Then sg=-1
OrdinaMatrice mt, sg,om
Scrivi "SPIA ->" & Format2(sp) & " posizione ->" & p & "° casi ->" & casi & " sulla ruota di " & SiglaRuota(r)
For xx = 1   To 90'<<<<<<<<<<<<<nel caso che vuoi tutti e 90 numeri cambia il 30 con ....90
Scrivi Format2(mt(xx,2)) & " " & mt(xx,3) & " " & mt(xx,4)
Next
scrivi
ColoreTesto 1
Scrivi "°°°esselotto°°°",1

End Sub

 

[Debora73]

Persone gentili e disponibili come te ce ne sono poche...
grazie mille
Ti auguro una buona giornata ciao

 

[Debora73]

Ciao Esselotto,
se posso vorrei approfittare ancora della tua disponibilità per chiederti un'altra modifica,dopo il n° spia lo script rileva tutti i n° presenti nelle successive 9 estrazioni(per 8 volte a ritroso),
a me servirebbe che prendesse in considerazione anche i numeri nell'estrazione di rilevamento del n° spia(sempre per 8 volte).
Siccome non so se mi sono spiegata bene ti faccio un es:
11/12/'10
12 è 1° estratto di BA
secondo lo script abbiamo:

01 BA 6
02 BA 7
03 BA 9
04 BA 6
05 BA 7
06 BA 6
07 BA 4
08 BA 6
09 BA 4
10 BA 3
11 BA 8
12 BA 6
ecc
ad es il 12 è uscito 6 volte nelle 9 estr successive ma dobbiamo considerare anche l'estr di rilevamento per cui 6+8=14 volte in tutto.
Spero sia stata chiara.
Ti ringrazio ancora
ciao e buona giornata

 

[esselotto]

quote:Originally posted by Debora73

Ciao Esselotto,
se posso vorrei approfittare ancora della tua disponibilità per chiederti un'altra modifica,dopo il n° spia lo script rileva tutti i n° presenti nelle successive 9 estrazioni(per 8 volte a ritroso),
a me servirebbe che prendesse in considerazione anche i numeri nell'estrazione di rilevamento del n° spia(sempre per 8 volte).
Siccome non so se mi sono spiegata bene ti faccio un es:
11/12/'10
12 è 1° estratto di BA
secondo lo script abbiamo:

01 BA 6
02 BA 7
03 BA 9
04 BA 6
05 BA 7
06 BA 6
07 BA 4
08 BA 6
09 BA 4
10 BA 3
11 BA 8
12 BA 6
ecc
ad es il 12 è uscito 6 volte nelle 9 estr successive ma dobbiamo considerare anche l'estr di rilevamento per cui 6+8=14 volte in tutto.
Spero sia stata chiara.
Ti ringrazio ancora
ciao e buona giornata

ciao modifico appena posso]
esselotto

 

[Debora73]

Ok grazie...
sapevo che potevo contare ulteriormente sul tuo aiuto
ciao

 

[esselotto]

scusami solare che bisogno c'è di prendere i numeri delle stesse estrazioni
se è un numero spia?????????

esce il 12
dopo l'uscita del 12 cosa gioco?
Questo per me è un numero spia.
che c'entra la stessa estrazione???


comunque se vuoi anche la stessa estrazione
portati su questa riga e cambia
fr = SerieFreq(es + 1,es + cl,n,ru,1)
con questa
fr = SerieFreq(es,es + cl,n,ru,1)




Oppure puoi usare lo script sopra dei simpatici
Quello si che deve rilevare numeri sortiti anche nella stessa estrazione.



l'angolo di riflessione r è uguale all'angolo di incidenza.
°°°esselotto°°°

 

[Debora73]

quote:Originally posted by esselotto

scusami solare che bisogno c'è di prendere i numeri delle stesse estrazioni
se è un numero spia?????????

esce il 12
dopo l'uscita del 12 cosa gioco?
Questo per me è un numero spia.
che c'entra la stessa estrazione???


comunque se vuoi anche la stessa estrazione
portati su questa riga e cambia
fr = SerieFreq(es + 1,es + cl,n,ru,1)
con questa
fr = SerieFreq(es,es + cl,n,ru,1)




Oppure puoi usare lo script sopra dei simpatici
Quello si che deve rilevare numeri sortiti anche nella stessa estrazione.



l'angolo di riflessione r è uguale all'angolo di incidenza.
°°°esselotto°°°

Ti ringrazio,era quello che cercavo