Gemello

[giorgioantonio]

Per Mike58
sposto l'argomento gemello da sistemistica,

salve ecco lo script di cui parlavo
chiedevo se a fine elaborazione i dati possono venire raggruppati per ruota.
Il motivo è: se sulla stessa ruota si trovano due casi si potrebbero utilizzare
come sestina in unico evento per il conseguimento di un ambo.

Sub Main()
Dim anum(4),ruota(1),posta(5)
Dim ambetti,sretnumeri,nvincita
ini = EstrazioneFin - 10
fin = EstrazioneFin
ca = fin - Ini
Scrivi String(120,"="),1
Scrivi" Ricerca Gemello Radicale e gioca Numeri mancanti della quartina Radicale ",1,0,3
Scrivi" su totali " & ca & " estrazioni ",1,0,2
Scrivi " " & Chr(174) & " Scripted by Mike58 " & Chr(169) & " ",1,- 1,6
Scrivi
'Scrivi String(120,"="),1
ReDim AT(15)
AT(1) = " Casi "
AT(2) = " Data "
AT(3) = " Ruota "
AT(4) = " Estratti "
AT(5) = " Gemello "
AT(6) = " Posiz. "
AT(7) = " Num Rad. Mancanti "
AT(8) = " Esito "
AT(9) = " Colpi "
AT(10) = " Estratti"
AT(11) = " Data ID "
AT(12) = " nGuadagno "
AT(13) = " Qtà "
AT(14) = " s_Ambetti "
AT(15) = " n_Vincita "
Call InitTabella(AT,1,,3,5)
For es = fin To Ini Step - 1
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
ruota(1) = r1
posta(1) = 4
posta(2) = 1

For p1 = 1 To 5
'For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
'b = Estratto(es,r1,p2)
If Radicale(a) And Gemello(a)Then
c = Radicale(a)
d = Vert(c)
e =(11*c)
f = Vert(e)
casi = casi + 1
anum(1) = c
anum(2) = d
anum(3) = e
anum(4) = f
For idestr = es + 1 To fin
ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
Next
For x = 1 To 4
'---------- calcolo x escludere i numeri trovati ------------------
If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
'-----------------------------------------------------------------
Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)

Next
ReDim AV(15)
AV(1) = casi
AV(2) = DataEstrazione(es)
AV(3) = SiglaRuota(r1)
AV(4) = StringaEstratti(es,r1)
AV(5) = a
AV(6) = p1
AV(7) = StringaNumeri(anum)
AV(8) = esito
AV(9) = colpi
AV(10) = estratti
If esito <> "" Then AV(11) = DataEstrazione(id)
If esito = "" Then AV(11) = " -- "
AV(12) = nguad
AV(13) = ambetti
AV(14) = sretnumeri
AV(15) = nvincita
Call AddRigaTabella(AV,,,3)
If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
End If
Next
Next
Next
Call SetTableWidth("100%")
'Call CreaTabella()
Call CreaTabellaOrdinabile()
End Sub
P.S. se possibile aggiungere anche gli abbinamenti per 2 coppie di terzine radicali.
Sempre che non ti stravolgo lo script.
Saluti

 

[Mike58]

Ciao giorgioantonio(ma quale è il tuo nome Giorgio o antonio) nella fattispecie questo script dato che implementa la funzione creaTabellaOrdinabile ha già la possibilità di filtrare e ordinare lo script con la colonna che vuoi, basta posizionarsi sulla colonna e colonne che credi e la tabella sarà ordinata di conseguenza.

Visto che il Prof Luigi ci ha creato la funzione ad oc sarebbe giusto sfruttarla esiste poi anche il pulsantino filtro cosi da vedere solo quello che vogliamo vedere nonché la possibilità anche di esportarla in Excel, vedi un po' Tu.

Nel caso la modifica è anche semplice da fare basta spostare il ciclo delle ruote prima del ciclo delle estrazioni, ma nella fattispecie è initile visto che possiamo noi gestirla con i filtri e ordinamenti colonnari.

P.s. abbinamenti si potrebbe anche fare ma quali abbinamenti e con quali criteri(però non parlarmi di + frequenti in quanto è 1 script nello script)

Prova come ti ho detto e vedrai che otterrai il risultato voluto.

 

[giorgioantonio]

Ciao Mike58,
666 grande, chiamami come vuoi intanto i nomi sono tutti e due veri.
Con la questione degli script sono appena alle prime armi quindi...
Ancora Grazie

 

[Alien.]

è quindi....Mike58 butta giù la pasta...acc..volevo dire lo script