Novità

Gemello

giorgioantonio

Super Member >PLATINUM<
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
 
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.
 
Ultima modifica:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 30 maggio 2025
    Bari
    72
    07
    04
    37
    54
    Cagliari
    15
    27
    54
    33
    16
    Firenze
    35
    54
    20
    80
    02
    Genova
    25
    76
    44
    21
    87
    Milano
    59
    44
    88
    77
    63
    Napoli
    35
    90
    85
    60
    12
    Palermo
    49
    61
    08
    32
    11
    Roma
    37
    40
    03
    06
    58
    Torino
    21
    46
    55
    24
    25
    Venezia
    58
    28
    42
    19
    35
    Nazionale
    74
    42
    32
    87
    60
    Estrazione Simbolotto
    Milano
    16
    22
    33
    36
    32

Ultimi Messaggi

Indietro
Alto