Novità

richiesta script

arcor

arcor

Advanced Member
un saluto agli amici scripter volevo chiedere se è possibile realizzarmi questa rountime.in pratica devo ricercare in ogni singola ruota una terna fra i 5 numeri estratti che abbia comprese queste 3 distanze 45-30-15.esempio di ricerca trovata terna coi numeri 1-31-46
1-31 distanza 30 ok
1-46 distanza 45 ok
31-46 distanza 15 ok
grazie
saluti arcor
 
Ultima modifica:
vedi un po' Arcor

Codice: 
Sub Main

Dim nu(3),ru(1),nn(2),manc(5),posta(2),T,V

posta(2) = 1

Ini = EstrazioneFin - 1000

fin = EstrazioneFin

Scrivi "La Triade di Arcor ",1,1,,1,4,,1

Scrivi "Cerca una Terna con distanza 15.30.45 "

Scrivi

T = Array(T,"CASI","RUOTA","INFO ESTRAZIONE","ESTRATTI","TERNA","NUMERI MANCANTI")

Call InitTabella(T,1,,3,5)

For es = Ini To fin

For r1 = 1 To 10

For p1 = 1 To 3

For p2 = p1 + 1 To 4

For p3 = p2 + 1 To 5

nu(1) = Estratto(es,r1,p1)

nu(2) = Estratto(es,r1,p2)

nu(3) = Estratto(es,r1,p3)

Call OrdinaMatrice(nu,1)

'............. numeri mancanti ............................................

For p = 1 To 5

manc(p) = Estratto(es,r1,p)

If manc(p) = nu(1) Or manc(p) = nu(2) Or manc(p) = nu(3) Then manc(p) = 0

Next

'..........................................................................

Call OrdinaMatrice(manc,- 1)

If Differenza(nu(1),nu(2)) = 15 Then

If Differenza(nu(2),nu(3)) = 30 Then

k = k + 1

ru(1) = r1

V = Array(V,k,SiglaRuota(r1),GetInfoEstrazione(es),StringaEstratti(es,r1),StringaNumeri(nu,,1),StringaNumeri(manc,,1))

Call AddRigaTabella(V,,,3,,"cambria")

Call SetColoreCella(5,7,5)

End If

End If

Next

Next

Next

Next

Next

CreaTabella

End Sub


Ciao
 
Ciao Arcor

un saluto a Mike ed a tutte/i.

Buon ferragosto.

Non è semplice ... prima comprendere e poi codificare la tua richesta.

L'interpretazione che Mike ha dato di essa, è molto restrittiva ... quindi trova pochi casi.

Ma la tua impressione può non essere sbagliata, se interpretata diversamente.

Mi spiego con un esempio concreto:

Codice: 
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 1] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]06.09.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]VE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.12.53.08.68 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]53.08.68[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 2] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]20.09.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]VE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]78.73.48.03.79 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]78.48.03[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 3] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]23.09.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]24.26.54.17.69 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]24.54.69[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 4] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]07.10.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]MI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]80.01.61.16.55 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]01.61.16[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 5] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]07.10.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]RO [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]70.83.56.38.53 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]83.38.53[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 6] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]16.10.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]GE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]21.78.48.33.72 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]78.48.33[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 7] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]15.11.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]FI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]31.71.03.76.61 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]31.76.61[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 8] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.12.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]FI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]80.46.35.50.02 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]80.35.50[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][ 9] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.12.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]MI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]52.07.83.23.68 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]83.23.68[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][10] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]11.12.2014 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]MI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]68.83.38.40.37 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]68.83.38[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][11] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]13.01.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]74.89.45.60.15 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]45.60.15[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][12] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]13.01.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]14.65.38.83.53 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]38.83.53[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][13] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]17.01.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]NA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]14.74.29.43.71 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]14.74.29[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][14] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]12.03.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]MI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]81.17.36.05.21 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]81.36.21[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][15] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]26.03.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]20.79.34.49.42 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]79.34.49[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][16] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]02.04.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]70.17.71.56.11 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]71.56.11[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][17] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.04.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]20.56.28.11.41 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]56.11.41[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][18] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.04.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]FI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]73.28.13.72.45 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]73.28.13[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][19] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]11.04.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]NA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]14.25.74.34.29 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]14.74.29[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][20] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]30.04.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]CA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]70.61.25.74.85 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]70.25.85[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][21] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]16.05.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]47.65.59.35.80 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]65.35.80[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][22] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]23.05.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]NA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]12.76.72.57.60 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]12.72.57[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][23] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18.07.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]NZ [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]48.33.78.86.43 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]48.33.78[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][24] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]06.08.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]25.38.70.10.01 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]25.70.10[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][25] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]06.08.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]GE [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09.30.84.54.25 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]09.84.54[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][26] [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]11.08.2015 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]FI [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]27.76.72.12.74 << [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]27.72.12[/B][/COLOR][/SIZE][/FONT]

:)
 
Ultima modifica:
Ciao Joe, Arcor, leggendo e rivedento il mio script, ho cercato di capire dove intervenire ed un possibile intervento è possibile cambiando il codice DIFFERENZA con DISTANZA in questo modo i casi salgono da 27 a 45.

Anche cosi facendo l'estrazione ad esempio di joe non la ritrovo con i numeri
8-53 = dist 45
53-68 = dis 15
68-8 = dis 30
sicuramente c'è un qualche errore di impostazione iniziale.
penso che ordinando la matrice dal + piccolo al + grande non è possibile rilevare la distanza 30 = 68-8 a meno che non rivedo la condizione if restrittiva.

Chiaro gli script vengono costruiti da un concetto ( molte volte poco chiaro ) e da una interpretazione in codici e non tutto a volte è perfetto nelle risultanze, per questo motivo chi richiede dovrebbe avere chiaro e aiutare a capire la perfettibilità nelle risultanze.

meno male che l'intervento e l'aiuto di joe stimola e fa riflettere anche in questo.

Joe tutto serve posta pure la tua versione.

Ciao
 
Ultima modifica:
Ciao Mike.

Per dire la verità lo script che avevo elaborato è troppo complicato ... persino per il sottoscritto ...

sicchè ho preferito ragionarci un pò su ... riorganizzando le idee ho trovato una soluzione più efficiente.

All'esito di questo, visto che è soluzione, molto semplice ... l'ho applicata direttamente al tuo script.

Naturalmente ... se passa il controllo di Arcor, che avrà esperienze al riguardo,

meriterebbe di essere ancora qualce rifinitura.

Ma per ora, pare, faccia, ciò che dovrebbe.


Codice: 
Sub Main
Dim Nu(3),ru(1),nn(2),Di(3),manc(5),posta(2),T,V
posta(2) = 1
Ini = EstrazioneFin - 155
Fin = EstrazioneFin
Scrivi "La Triade di Arcor ",1,1,,1,4,,1
Scrivi "Cerca una Terna con distanza 15.30.45 "
Scrivi
T = Array(T,"CASI","RUOTA","INFO ESTRAZIONE","ESTRATTI","TERNA","NUMERI MANCANTI")
Call InitTabella(T,1,,3,5)
For es = Ini To fin
For r1 = 1 To 12 : If R = 11 Then R = 112
For p1 = 1 To 3 : Nu(1) = Estratto(es,r1,p1)
For p2 = p1 + 1 To 4 : Nu(2) = Estratto(es,r1,p2)
For p3 = p2 + 1 To 5 : Nu(3) = Estratto(es,r1,p3)
Di(1) = Distanza(Nu(1),Nu(2)) : Di(2) = Distanza(Nu(1),Nu(3)) : Di(3) = Distanza(Nu(2),Nu(3))
Call OrdinaMatrice(Di,False)
If Di(1) = 15 And Di(2) = 30 And Di(3) = 45 Then
'............. numeri mancanti ............................................
For p = 1 To 5
manc(p) = Estratto(es,r1,p)
If manc(p) = Nu(1) Or manc(p) = Nu(2) Or manc(p) = Nu(3) Then manc(p) = 0
Next
'................................................. .........................
k = k + 1
ru(1) = r1
V = Array(V,k,SiglaRuota(r1),GetInfoEstrazione(es),Str ingaEstratti(es,r1),StringaNumeri(Nu,,1),StringaNu meri(manc,,1))
Call AddRigaTabella(V,,,3,,"cambria")
Call SetColoreCella(5,7,5)
End If
Next
Next
Next
Next
Next
CreaTabella
'Rev By Joe
End Sub
 
Ottimo Joe, come tutti possono vedere basta un minimo di ragionamento e si arriva alla soluzione ottimale.

Per mia giustificazione sono partito da un altro corpo script e ho portato dietro la condizione + restrittiva.

Anche cosi si cresce e si impara.

Grazie dell'intervento.

Mike
 
Joe91;n1908723 ha scritto:
Ciao Mike.

Per dire la verità lo script che avevo elaborato è troppo complicato ... persino per il sottoscritto ...

sicchè ho preferito ragionarci un pò su ... riorganizzando le idee ho trovato una soluzione più efficiente.

All'esito di questo, visto che è soluzione, molto semplice ... l'ho applicata direttamente al tuo script.

Naturalmente ... se passa il controllo di Arcor, che avrà esperienze al riguardo,

meriterebbe di essere ancora qualce rifinitura.

Ma per ora, pare, faccia, ciò che dovrebbe.


Codice: 
Sub Main
Dim Nu(3),ru(1),nn(2),Di(3),manc(5),posta(2),T,V
posta(2) = 1
Ini = EstrazioneFin - 155
Fin = EstrazioneFin
Scrivi "La Triade di Arcor ",1,1,,1,4,,1
Scrivi "Cerca una Terna con distanza 15.30.45 "
Scrivi
T = Array(T,"CASI","RUOTA","INFO ESTRAZIONE","ESTRATTI","TERNA","NUMERI MANCANTI")
Call InitTabella(T,1,,3,5)
For es = Ini To fin
For r1 = 1 To 12 : If R = 11 Then R = 112
For p1 = 1 To 3 : Nu(1) = Estratto(es,r1,p1)
For p2 = p1 + 1 To 4 : Nu(2) = Estratto(es,r1,p2)
For p3 = p2 + 1 To 5 : Nu(3) = Estratto(es,r1,p3)
Di(1) = Distanza(Nu(1),Nu(2)) : Di(2) = Distanza(Nu(1),Nu(3)) : Di(3) = Distanza(Nu(2),Nu(3))
Call OrdinaMatrice(Di,False)
If Di(1) = 15 And Di(2) = 30 And Di(3) = 45 Then
'............. numeri mancanti ............................................
For p = 1 To 5
manc(p) = Estratto(es,r1,p)
If manc(p) = Nu(1) Or manc(p) = Nu(2) Or manc(p) = Nu(3) Then manc(p) = 0
Next
'................................................. .........................
k = k + 1
ru(1) = r1
V = Array(V,k,SiglaRuota(r1),GetInfoEstrazione(es),Str ingaEstratti(es,r1),StringaNumeri(Nu,,1),StringaNu meri(manc,,1))
Call AddRigaTabella(V,,,3,,"cambria")
Call SetColoreCella(5,7,5)
End If
Next
Next
Next
Next
Next
CreaTabella
'Rev By Joe
End Sub
Clicca per espandere...

ciao,scusami mi da errore
Scrivi "La Triade di Arcor ",1,1,,1,4,,1
 
Ciao Alien.

È uno script ... tassativamente ... per spaziometria.

Quindi non lo puoi esguire in una altra shell.

Naturalmente dovresti correggere le incompatibilità tra i differenti dialetti.

Nel caso bastrerebbe eliminare tutti i parametri di scrivi, altrove sconosciuti.

Ma questo script non funzionerebbe ugualmente.

Poi non ti serve.

Esegue solo una ricerca ... di casi ... che se poi non si sa cosa farne,

Sarebbe come leggere l'archivio verificando delle condizioni ..

in esso presenti.. senza darne una interpretazione.

:)
 
Ultima modifica:
ottimo joe tu e mike avete fatto un buon lavoro di squadra.grazie ora ci sono molti più casi da verificare.devo testare un metodo poi vi faccio sapere se conviene o no provare a giocarlo.ciao;)
 
Ciao non avevo visto che mike e joe avevano gia realizzato lo script visto che ho provato a fare anch'io lo script lo posto ugualmente Ovviamente è completamente diverso, Si puo arrivare alla soluzione del prolema anche con strade diverse:) P.s : L a mia ovviamente è piu semplice di quella di mike e joe, ma tra qualche anno raggiungero la loro bravura:)

Codice: 
Option Explicit
Sub Main
'Controllare sempre gli output se sono correti
    Dim idEstr
    Dim Ini,Fin
    Dim Ruota
    Dim p1,p2
    Dim qEstr
    Dim M,casoTro
    ReDim aDist(0),aTitoli(13)
    qEstr = CInt(InputBox("Inserisci num Concorsi :","Quante Estrazioni devo elaborare?",300))
    Do While   qEstr>EstrazioneFin
    MsgBox"Il numero di concorsi inserito è maggiore del numero concorsi reali"
    qEstr = CInt(InputBox("Inserisci num Concorsi :","Quante Estrazioni devo elaborare?",300))
      Loop
    Ini = EstrazioneFin - qEstr
    Fin = EstrazioneFin
    Call alimentaTitoli(aTitoli)
    Call InitTabella(aTitoli,RGB(240,240,240))
    For idEstr = Ini To Fin
        For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12
            M = 0
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    M = M + 1
                    ReDim Preserve aDist(M)
                    Call Messaggio("Calcolo idEstr :" & DataEstrazione(idEstr))
                    Call AvanzamentoElab(Ini,Fin,idEstr)
                    If ScriptInterrotto Then Exit For
                    aDist(M) = Distanza(Estratto(idEstr,Ruota,p1),Estratto(idEstr,Ruota,p2))
                    

                Next
            Next
            ReDim aTab(14)
            Call alimentaTab(aTab,idEstr,Ruota,aDist)
            If aTab(14) = 3 Then Call AddRigaTabella(aTab)
            If aTab(14) = 3 Then casoTro = casoTro + 1
            Call coloreCella(aTab)
        Next
    Next
    Call Intestazione(Ini,Fin,casoTro)
    Call SetTableWidth("50%")
    Call CreaTabellaOrdinabile
End Sub
Sub alimentaTitoli(aTitoli)
    Dim p1,p2,i,Ris
    aTitoli(1) = "IdEstr"
    aTitoli(2) = "Ruota"
    aTitoli(3) = "Estratti"
    i = 3
    For p1 = 1 To 4
        For p2 = p1 + 1 To 5
            i = i + 1
            aTitoli(i) = p1 & "." & p2
        Next
    Next
    
End Sub
Sub alimentaTab(aTab,idEstr,Ruota,aDist)
    Dim i,k
    Dim a,b,c,Ris
    aTab(1) = DataEstrazione(idEstr)
    aTab(2) = NomeRuota(Ruota)
    aTab(3) = StringaEstratti(idEstr,Ruota)
    i = 3
    For k = 1 To UBound(aDist)
        i = i + 1
        aTab(i) = aDist(k)
        If aDist(k) = 15 Then a = 1
        If aDist(k) = 30 Then b = 1
        If aDist(k) = 45 Then c = 1
        Ris = a + b + c
    Next
    aTab(14) = Ris
End Sub
Sub coloreCella(aTab)
    Dim k,i
    i = k + 3
    For k = 4 To 13
        If aTab(14) = 3 And aTab(k) = 15 Then Call SetColoreCella(CInt(k),RGB(204,250,188))
        If aTab(14) = 3 And aTab(k) = 30 Then Call SetColoreCella(CInt(k),RGB(204,250,188))
        If aTab(14) = 3 And aTab(k) = 45 Then Call SetColoreCella(CInt(k),RGB(204,250,188))
    Next
End Sub
Sub Intestazione(Ini,Fin,CasiTro)
    Call Scrivi("Inizio Ricerca    : " & DataEstrazione(Ini))
    Call Scrivi("Fine   Ricerca    : " & DataEstrazione(Fin))
    Call Scrivi("Casi Rintracciati : " & CasiTro)
    Call Scrivi
End Sub
 
ciao legend grazie anche a te la tua visualizzazione è interessante.ho salvato entrambi gli script.;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto