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
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto