Per salvo50

[Matematico]

Ciao salvo50, buongiorno a tutti... mi è venuta in mente ieri sera sul tardi questo calcolo che si potrà fare su qualsiasi ruota , porto sotto un solo esempio:

3/12/2019

NA-80-27-17-83-45 figure:8-9-8-2-9
PA-60-87-31-85-59 figure:6-6-4-4-5

Previsione :uniamo le figure di NA con le figure di PA
86-96-84-24-95 prima cinquina a/t/
68-69-48-42-59 seconda cinquina a/t

Dal terno in sù :86-96-84-24-95-68-69-48-42-59

n.b se si supera il 90 si deve fare -90
96-90=6 e 95-90=5

al 3 colpo 86-6 ambo in cinquina e terno in decina 86-6-42!na

La seconda cosa che deve fare lo scritp è di andare a ritroso nel tempo a partire dal 1939 per ricercare la stessa sequenza delle figure(in questo caso:NA-8-9-8-2-9 e PA-6-6-4-4-5

Onde verficarne l'esito della stessa condizione per poter restringere il pronostico e le potenzialità del metodo ....sempre che si trovino le stesse sequenze uguali .

Grazie x l'attenzione e spero si possa fare

 

[salvo50]

Ciao Matematico, ci provo appena posso

 

[Matematico]

Ciao Matematico, ci provo appena posso

Grazie salvo50

 

[Alien.]

è troppo bello.....................se lottomatica non ci mette lo zampino

 

[salvo50]

Ciao a Tutti.

La ricerca dal 1939 non l'ho fatta perchè lo script è molto lento, ho impostato infinito e dopo 28 minuti si è bloccato tutto, ho ripristinato con Control-Alt-Canc, non riesco a trovare un modo più veloce, quindi direi di chiedere aiuto agli altri scripters, uno dei motivi (della lentezza) che mi è venuto in mente potrebbe essere il fatto che non ci sono condizioni, quindi per ogni estrazione ci sono 45 coppie di ruote in cui fare i calcoli.

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim FIn,Es,Es1,Ini,Ini1,Clp,Salvo50
Dim R1,R2,P1,P2,k,k2,Caso,Casi,Sp
Dim A(5),B(5),FiA(5),FiB(5),Ruo(2),num3(10)
Dim Posta(5),Poste(5),Num1(5),Num2(5)
Posta(2) = 1
Posta(3) = 1
Poste(3) = 1
Poste(4) = 1
'Poste(5) = 1
Sp = " "
FIn = EstrazioneFin
Ini = CInt(InputBox("INSERISCI L'ESTRAZIONE CHE VUOI INIZIARE",Salvo50,9700))'3575
Clp = CInt(InputBox(" PER QUANTI COLPI VUOI GIOCARE?",Salvo50,10))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(6) & "PER MATEMATICO FIGURE IN 2 RUOTE - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Caso = 0
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 9
For P1 = 1 To 5
A(P1) = Estratto(Es,R1,P1)
FiA(P1) = Figura(A(P1))
Next
For R2 = R1 + 1 To 10
For P2 = 1 To 5
B(P2) = Estratto(Es,R2,P2)
FiB(P2) = Figura(B(P2))
Next
For k = 1 To 5
Num1(k) = FiA(k) & FiB(k)
Fuori90(Num1(k))
Num2(k) = Vert(Num1(k))
Fuori90(Num2(k))
Next
For k2 = 1 To 10
If k2 < 6 Then num3(k2) = Num1(k2)
If k2 > 5 Then num3(k2) = Num2(k2 - 5)
Next
Ruo(1) = R1
Ruo(2) = R2

Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & Sp & StringaEstratti(Es,R1) & " Figure Estratti " & StringaNumeri(FiA," ",False),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & Sp & StringaEstratti(Es,R2) & " Figure Estratti " & StringaNumeri(FiB," ",False),1
Scrivi
Scrivi " Numeri Gruppo 1 " & StringaNumeri(Num1," ",True),1
Scrivi " Numeri Gruppo 2 " & StringaNumeri(Num2," ",True),1
Scrivi " Numeri Gruppo 3 " & StringaNumeri(num3," ",True),1
Scrivi
ImpostaGiocata 1,Num1,Ruo,Posta,Clp
ImpostaGiocata 2,Num2,Ruo,Posta,Clp
ImpostaGiocata 3,num3,Ruo,Poste,Clp
Gioca Es
Next
Next
Next
ScriviResoconto
End Sub

 

[Matematico]

Grazie di cuore salvo50, lo script è perfetto e pare interessante visti gli esiti!Ma me lo aspettavo

Per quanto riguarda la ricerca a ritroso della stessa sequenza delle 5 figure per ogni ruota, si potrebbe fare uno script a parte del tipo :
Inserisco manualmente tramite imput box ad esempio :5/12/2019
Ba-figure :6.8.3.6.9
Ca-figure:6.9.1.6.4

E lo script andrà a ricercare a ritroso la stessa sequenza ...sempre se la trova, se no si passa ad altre figure di altre ruote ed estrazioni..

Buon San Silvestro a te e a tutti!

 

[salvo50]

Per quanto riguarda la ricerca a ritroso della stessa sequenza delle 5 figure per ogni ruota, si potrebbe fare uno script a parte del tipo :
Inserisco manualmente tramite imput box ad esempio :5/12/2019
Ba-figure :6.8.3.6.9
Ca-figure:6.9.1.6.4

E lo script andrà a ricercare a ritroso la stessa sequenza ...sempre se la trova, se no si passa ad altre figure di altre ruote ed estrazioni..

Buon San Silvestro a te e a tutti!

Ci avevo pensato anchio, prima però volevo vedere se ILegend o qualcun altro/a riuscivano a fare qualcosa di più veloce, comunque vedo cosa posso fare

 

[Matematico]

Grazi carissimo ...appena puoi

 

[salvo50]

Mentre cercavo una soluzione mi è venuto un dubbio le 5 figure devono essere in colonna uguali oppure no?

Mi spiego meglio con un esempio fittizio

diciamo che devo trovare queste 5 figure

figure : 6 7 3 5 8

devo trovarle così

figure : 6 7 3 5 8

oppure possono essere sempre le stesse figure, ma incolonnate diversamente, tipo:

figure : 3 7 5 6 8

 

[Matematico]

Anche diversamente vanno benissimo le stesse figure in qualsiasi posizione siano graziee salvo50..

 

[salvo50]

Ciao a Tutti.

Finiti i bagordi, si riprende
--------------------------------------------------------
Ba-figure :6.8.3.6.9
Ca-figure:6.9.1.6.4

E lo script andrà a ricercare a ritroso la stessa sequenza ...sempre se la trova, se no si passa ad altre figure di altre ruote ed estrazioni..
-------------------------------------------------------------
lo script andrà a ricercare a ritroso la stessa sequenza, ma quale sequenza quella di BA oppure quella di CA, oppure tutte e due, ma cercandole tutte e due, ci devono essere contemporaneamente, oppure trovata una non importa che ci sia anche l'altra?

 

[Matematico]

Ciao salvo50 e buona serata a tutti, e si finiti i bagordi

Ci devono essere contemporaneamente GRAZIE...

 

[salvo50]

Ciao a Tutti.

L'estrapolazione delle figure l'ho fatto solo in quelle estrazioni dove non ci sono figure uguali,
perchè anche solo con 2 figure uguali, la comparazione sballa i risultati con PuntiSuArray,
ho provato anche con altri algoritmi ma l'errore persiste, in un'altra occasione Joe mi aveva
messo in guardia di stare attento con la funzione PuntiSuArray, ma se la comparazione la faccio
con 5 figure tutte diverse, la funzione PuntiSuArray non da errori.

Script ne ho fatti 2
Uno script l'ho impostato in questo modo, da InputBox si decide l'estrazione (una) dove estrapolare le figure da 2 ruote che in automatico prende tutte le 45 combinazioni che si formano con 10 ruote e la ricerca delle 5 figure uguali la fa dall'estrazione 3575 (che corrisponde all'otto luglio 1939) fino all'ultima estrazione che si ha in archivio

Nell'altro script cambia il fatto che da inputbox si decidono anche quali devono essere le 2 ruote dove estrapolare le figure da cercare.
Quando si lancia lo script se non appaiono risultati i motivi possono essere:

1) nelle 2 ruote impostate, per ogni ruota le figure non sono tutte diverse
2) che non ci sono riscontri

Alla prima domanda dei 2 script si deve rispondere con 4 se si usa la versione di Spaziometria 1.6.34

Primo script solo estrazione da InputBox

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim FIn,Es,Ini,Ini1,Salvo50,K,K1,X,Y,Ver
Dim R1,R2,R3,R4,P1,P2,Casi,Sp,Estr,Z,Ok,Ok2
Dim A(5),B(5),C(5),D(5),FiA(5),FiB(5),FiC(5),FiD(5)

Sp = " "
FIn = EstrazioneFin
Ini = 3575
Ver = CInt(InputBox("INSERISCI IL NUMERO 4 SE USI LA VERSIONE DI SPAZIOMETRIA 1.6.34 ",Salvo50,5))
Estr = CInt(InputBox("INSERISCI L'ESTRAZIONE CHE VUOI ESTRAPOLARE LE FIGURE",Salvo50,9700))
Scrivi Space(6) & "PER MATEMATICO FIGURE IN 2 RUOTE - SCRIPT SALVO50",1,,4,,3,,1
Scrivi Space(1) & " ESTRAPOLAZIONE FIGURE DA RUOTE VARIABILI ED ESTRAZIONE FISSA",1,,4,,3,,1
For R1 = 1 To 9
For R2 = R1 + 1 To 10
For P1 = 1 To 5
A(P1) = Estratto(Estr,R1,P1)
B(P1) = Estratto(Estr,R2,P1)
FiA(P1) = Figura(A(P1))
FiB(P1) = Figura(B(P1))
Next
If FiA(1) <> FiA(2) And FiA(1) <> FiA(3)And FiA(1) <> FiA(4)And FiA(1) <> FiA(5)And FiA(2) <> FiA(3)_
And FiA(2) <> FiA(4) And FiA(2) <> FiA(5)And FiA(3) <> FiA(4)And FiA(3) <> FiA(5)And FiA(4) <> FiA(5)_
And FiB(1) <> FiB(2) And FiB(1) <> FiB(3)And FiB(1) <> FiB(4)And FiB(1) <> FiB(5)And FiB(2) <> FiB(3)_
And FiB(2) <> FiB(4) And FiB(2) <> FiB(5)And FiB(3) <> FiB(4)And FiB(3) <> FiB(5)And FiB(4) <> FiB(5) Then
For Es = Ini To FIn
Messaggio Es & " " & Estr
AvanzamentoElab Ini,FIn,Es
For R3 = 1 To 9
For R4 = R3 + 1 To 10
For P2 = 1 To 5
C(P2) = Estratto(Es,R3,P2)
D(P2) = Estratto(Es,R4,P2)
FiC(P2) = Figura(C(P2))
FiD(P2) = Figura(D(P2))
Next
Ok = 0
If Estr = Es And R1 = R3 And R2 = R4 Then Ok = 1
If Ok = 0 Then
If FiC(1) <> FiC(2) And FiC(1) <> FiC(3)And FiC(1) <> FiC(4)And FiC(1) <> FiC(5)And FiC(2) <> FiC(3)_
And FiC(2) <> FiC(4) And FiC(2) <> FiC(5)And FiC(3) <> FiC(4)And FiC(3) <> FiC(5)And FiC(4) <> FiC(5)_
And FiD(1) <> FiD(2) And FiD(1) <> FiD(3)And FiD(1) <> FiD(4)And FiD(1) <> FiD(5)And FiD(2) <> FiD(3)_
And FiD(2) <> FiD(4) And FiD(2) <> FiD(5)And FiD(3) <> FiD(4)And FiD(3) <> FiD(5)And FiD(4) <> FiD(5)Then
If(PuntiSuArray(FiA,FiC) = Ver)And(PuntiSuArray(FiB,FiD) = Ver)_
Or(PuntiSuArray(FiA,FiD) = Ver)And(PuntiSuArray(FiB,FiC) = Ver)Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi " ESTRAPOLAZIONE FIGURE DA ESTRAZIONE " & Estr & " E RUOTE " & NomeRuota(R1) & " " & NomeRuota(R2),1,,,1
Scrivi(" Estrazione n." & Format2(Estr) & " del " & DataEstrazione(Estr)),1,0
Scrivi " " & SiglaRuota(R1) & Sp & StringaEstratti(Estr,R1) & " Figure Estratti " & StringaNumeri(FiA," ",False),1
Scrivi(" Estrazione n." & Format2(Estr) & " del " & DataEstrazione(Estr)),1,0
Scrivi " " & SiglaRuota(R2) & Sp & StringaEstratti(Estr,R2) & " Figure Estratti " & StringaNumeri(FiB," ",False),1
Scrivi
Scrivi " TROVATE FIGURE ESTRAPOLATE IN ESTRAZIONE " & Es & " E RUOTE " & NomeRuota(R3) & " " & NomeRuota(R4),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & Sp & StringaEstratti(Es,R3) & " Figure Estratti " & StringaNumeri(FiC," ",False),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R4) & Sp & StringaEstratti(Es,R4) & " Figure Estratti " & StringaNumeri(FiD," ",False),1
Scrivi
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi TempoTrascorso
End Sub

Secondo script Estrazione e ruote da InputBox

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim FIn,Es,Ini,Ini1,Salvo50,K,K1,X,Y,Ver
Dim R1,R2,R3,R4,P1,P2,Casi,Sp,Estr,Z,Ok,Ok2
Dim A(5),B(5),C(5),D(5),FiA(5),FiB(5),FiC(5),FiD(5)
Sp = " "
FIn = EstrazioneFin
Ini = 3575
Ver = CInt(InputBox("INSERISCI IL NUMERO 4 SE USI LA VERSIONE DI SPAZIOMETRIA 1.6.34 ",Salvo50,5))
Estr = CInt(InputBox("INSERISCI L'ESTRAZIONE CHE VUOI ESTRAPOLARE LE FIGURE",Salvo50,9700))
R1 = CInt(InputBox("INSERISCI IL NUMERO DELLA PRIMA RUOTA DOVE VUOI ESTRAOPOLARE LE FIGURE",Salvo50,2))
R2 = CInt(InputBox("INSERISCI IL NUMERO DELLA SECONDA RUOTA DOVE VUOI ESTRAOPOLARE LE FIGURE",Salvo50,5))
Scrivi Space(6) & "PER MATEMATICO FIGURE IN 2 RUOTE - SCRIPT SALVO50",1,,4,,3,,1
Scrivi Space(1) & " ESTRAPOLAZIONE FIGURE DA RUOTE ED ESTRAZIONE VARIABILE da INPUTBOX",1,,4,,3,,1
For P1 = 1 To 5
A(P1) = Estratto(Estr,R1,P1)
B(P1) = Estratto(Estr,R2,P1)
FiA(P1) = Figura(A(P1))
FiB(P1) = Figura(B(P1))
Next
If FiA(1) <> FiA(2) And FiA(1) <> FiA(3)And FiA(1) <> FiA(4)And FiA(1) <> FiA(5)And FiA(2) <> FiA(3)_
And FiA(2) <> FiA(4) And FiA(2) <> FiA(5)And FiA(3) <> FiA(4)And FiA(3) <> FiA(5)And FiA(4) <> FiA(5)_
And FiB(1) <> FiB(2) And FiB(1) <> FiB(3)And FiB(1) <> FiB(4)And FiB(1) <> FiB(5)And FiB(2) <> FiB(3)_
And FiB(2) <> FiB(4) And FiB(2) <> FiB(5)And FiB(3) <> FiB(4)And FiB(3) <> FiB(5)And FiB(4) <> FiB(5) Then
For Es = Ini To FIn
Messaggio Es & " " & Estr
AvanzamentoElab Ini,FIn,Es
For R3 = 1 To 9
For R4 = R3 + 1 To 10
For P2 = 1 To 5
C(P2) = Estratto(Es,R3,P2)
D(P2) = Estratto(Es,R4,P2)
FiC(P2) = Figura(C(P2))
FiD(P2) = Figura(D(P2))
Next
Ok = 0
If Estr = Es And R1 = R3 And R2 = R4 Then Ok = 1
If Ok = 0 Then
If FiC(1) <> FiC(2) And FiC(1) <> FiC(3)And FiC(1) <> FiC(4)And FiC(1) <> FiC(5)And FiC(2) <> FiC(3)_
And FiC(2) <> FiC(4) And FiC(2) <> FiC(5)And FiC(3) <> FiC(4)And FiC(3) <> FiC(5)And FiC(4) <> FiC(5)_
And FiD(1) <> FiD(2) And FiD(1) <> FiD(3)And FiD(1) <> FiD(4)And FiD(1) <> FiD(5)And FiD(2) <> FiD(3)_
And FiD(2) <> FiD(4) And FiD(2) <> FiD(5)And FiD(3) <> FiD(4)And FiD(3) <> FiD(5)And FiD(4) <> FiD(5)Then
If(PuntiSuArray(FiA,FiC) = Ver)And(PuntiSuArray(FiB,FiD) = Ver)_
Or(PuntiSuArray(FiA,FiD) = Ver)And(PuntiSuArray(FiB,FiC) = Ver)Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi " ESTRAPOLAZIONE FIGURE DA ESTRAZIONE " & Estr & " E RUOTE " & NomeRuota(R1) & " " & NomeRuota(R2),1,,,1
Scrivi(" Estrazione n." & Format2(Estr) & " del " & DataEstrazione(Estr)),1,0
Scrivi " " & SiglaRuota(R1) & Sp & StringaEstratti(Estr,R1) & " Figure Estratti " & StringaNumeri(FiA," ",False),1
Scrivi(" Estrazione n." & Format2(Estr) & " del " & DataEstrazione(Estr)),1,0
Scrivi " " & SiglaRuota(R2) & Sp & StringaEstratti(Estr,R2) & " Figure Estratti " & StringaNumeri(FiB," ",False),1
Scrivi
Scrivi " TROVATE FIGURE ESTRAPOLATE IN ESTRAZIONE " & Es & " E RUOTE " & NomeRuota(R3) & " " & NomeRuota(R4),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & Sp & StringaEstratti(Es,R3) & " Figure Estratti " & StringaNumeri(FiC," ",False),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R4) & Sp & StringaEstratti(Es,R4) & " Figure Estratti " & StringaNumeri(FiD," ",False),1
Scrivi
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End If
Scrivi TempoTrascorso
End Sub

 

[i legend]

ciao salvo
credo di aver capito qual è il problema che hai riscontrato
ho fatto la funzione che potrebbe tornarti utile, ma non so se è esatta o ha delle sbavature da aggiustare , per favore controlla se va bene altrimenti si ripensa ad un altra soluzione
ecco lo script
SOLO TEST

Option Explicit
' controllare se lo script è coretto non si garantisce l esatezza
Sub Main
   Dim i
   ReDim aFb(5),aFc(5)
   Dim R1,R2,IdEstrBase
   R1 = 1
   R2 = 2
   IdEstrBase = 9717
   ' prelevo la sequenza di figure che devo cercare
   ' è importante farla fuori dal ciclo di ricerca
   Call GetFigureEstr(IdEstrBase,R1,R2,aFb,aFc)
   ReDim a1(9)
   Dim sBaseBa:
   sBaseBa = GetStringaFigura(aFb,a1)
   Scrivi "Figure di" & nomeruota(r1)
Scrivi StringaNumeri(aFb)
   Scrivi "123456789 figure"
   Scrivi sBaseBa
   ReDim a2(9)
   Dim sBaseCa:
   Scrivi
   Scrivi "Figure di  i"&nomeruota(r2)
   Scrivi StringaNumeri(aFc)
   Scrivi"123456789 figure"
   sBaseCa = GetStringaFigura(aFc,a2)
   Scrivi sBaseCa
   Dim IdEstr,sBari,sCagliari
   Scrivi "anche se disposte diversamente trova le stesse figure"
   For IdEstr = 3950 To EstrazioneFin
      Call GetFigureEstr(IdEstr,R1,R2,aFb,aFc)
      sBari = GetStringaFigura(aFb,a1)
      sCagliari = GetStringaFigura(aFc,a2)
      If sBaseBa = sBari Then Scrivi IdEstr & "  " & StringaNumeri(aFb),,,vbRed
      If sBaseCa = sCagliari Then Scrivi IdEstr & "  " & StringaNumeri(aFc)
   Next
End Sub
Sub GetFigureEstr(iDestr,R1,R2,aF1,aF2)
   Dim i
   For i = 1 To 5
      aF1(i) = Figura(Estratto(iDestr,R1,i))
      aF2(i) = Figura(Estratto(iDestr,R2,i))
   Next
End Sub
' la logica delle funzione è: scrivi quante figure 1 sono presenti nell estrazione , quante figure 2 ecc ...
' se la quantita delle figure coincide allora sono uguali
Function GetStringaFigura(aF,a1)
   Dim i
   ' carico l array delle figure a zero
   For i = 1 To 9
      a1(i) = 0
   Next
   ' conto quante figure da 1 a 9 sono presenti
   For i = 1 To UBound(aF)
      a1(aF(i)) = a1(aF(i)) + 1
   Next
   Dim s:s = ""
   For i = 1 To 9
      s = s & a1(i)
   Next
   GetStringaFigura = s
End Function

praticamente lo script è inchiodato al caso fisso
ho cercato nelle estrazioni quando sortisce una sequenza slegata l una dall altra
ciao

 

[i legend]

x matematico
ciao prova a vedere se è come volevi tu la ricerca storica

 

[roy]

Ciao a tutti,si potrebbe fare questo script senza storico e mettere in gioco i numeri?con inputbox delle ruote ed estrazione a scelta?Grazie

 

[salvo50]

ciao salvo
credo di aver capito qual è il problema che hai riscontrato
ho fatto la funzione che potrebbe tornarti utile, ma non so se è esatta o ha delle sbavature da aggiustare , per favore controlla se va bene altrimenti si ripensa ad un altra soluzione
ecco lo script
SOLO TEST

Option Explicit
' controllare se lo script è coretto non si garantisce l esatezza
Sub Main
   Dim i
   ReDim aFb(5),aFc(5)
   Dim R1,R2,IdEstrBase
   R1 = 1
   R2 = 2
   IdEstrBase = 9717
   ' prelevo la sequenza di figure che devo cercare
   ' è importante farla fuori dal ciclo di ricerca
   Call GetFigureEstr(IdEstrBase,R1,R2,aFb,aFc)
   ReDim a1(9)
   Dim sBaseBa:
   sBaseBa = GetStringaFigura(aFb,a1)
   Scrivi "Figure di" & nomeruota(r1)
Scrivi StringaNumeri(aFb)
   Scrivi "123456789 figure"
   Scrivi sBaseBa
   ReDim a2(9)
   Dim sBaseCa:
   Scrivi
   Scrivi "Figure di  i"&nomeruota(r2)
   Scrivi StringaNumeri(aFc)
   Scrivi"123456789 figure"
   sBaseCa = GetStringaFigura(aFc,a2)
   Scrivi sBaseCa
   Dim IdEstr,sBari,sCagliari
   Scrivi "anche se disposte diversamente trova le stesse figure"
   For IdEstr = 3950 To EstrazioneFin
      Call GetFigureEstr(IdEstr,R1,R2,aFb,aFc)
      sBari = GetStringaFigura(aFb,a1)
      sCagliari = GetStringaFigura(aFc,a2)
      If sBaseBa = sBari Then Scrivi IdEstr & "  " & StringaNumeri(aFb),,,vbRed
      If sBaseCa = sCagliari Then Scrivi IdEstr & "  " & StringaNumeri(aFc)
   Next
End Sub
Sub GetFigureEstr(iDestr,R1,R2,aF1,aF2)
   Dim i
   For i = 1 To 5
      aF1(i) = Figura(Estratto(iDestr,R1,i))
      aF2(i) = Figura(Estratto(iDestr,R2,i))
   Next
End Sub
' la logica delle funzione è: scrivi quante figure 1 sono presenti nell estrazione , quante figure 2 ecc ...
' se la quantita delle figure coincide allora sono uguali
Function GetStringaFigura(aF,a1)
   Dim i
   ' carico l array delle figure a zero
   For i = 1 To 9
      a1(i) = 0
   Next
   ' conto quante figure da 1 a 9 sono presenti
   For i = 1 To UBound(aF)
      a1(aF(i)) = a1(aF(i)) + 1
   Next
   Dim s:s = ""
   For i = 1 To 9
      s = s & a1(i)
   Next
   GetStringaFigura = s
End Function

praticamente lo script è inchiodato al caso fisso
ho cercato nelle estrazioni quando sortisce una sequenza slegata l una dall altra
ciao

Ciao ILegend, il tuo esempio me lo devo guardare con calma

per Roy

Lo script che mette in gioco i numeri l'ho già fatto ed è al post 5 di questo 3D, solo che per ogni estrazione ci sono 45 pronostici, quale scegliere?

 

[roy]

Grazie e scusa della richiesta, ma non avevo notato lo script.

 

[salvo50]

ciao salvo
credo di aver capito qual è il problema che hai riscontrato
ho fatto la funzione che potrebbe tornarti utile, ma non so se è esatta o ha delle sbavature da aggiustare , per favore controlla se va bene altrimenti si ripensa ad un altra soluzione
ecco lo script
SOLO TEST

Option Explicit
' controllare se lo script è coretto non si garantisce l esatezza
Sub Main
   Dim i
   ReDim aFb(5),aFc(5)
   Dim R1,R2,IdEstrBase
   R1 = 1
   R2 = 2
   IdEstrBase = 9717
   ' prelevo la sequenza di figure che devo cercare
   ' è importante farla fuori dal ciclo di ricerca
   Call GetFigureEstr(IdEstrBase,R1,R2,aFb,aFc)
   ReDim a1(9)
   Dim sBaseBa:
   sBaseBa = GetStringaFigura(aFb,a1)
   Scrivi "Figure di" & nomeruota(r1)
Scrivi StringaNumeri(aFb)
   Scrivi "123456789 figure"
   Scrivi sBaseBa
   ReDim a2(9)
   Dim sBaseCa:
   Scrivi
   Scrivi "Figure di  i"&nomeruota(r2)
   Scrivi StringaNumeri(aFc)
   Scrivi"123456789 figure"
   sBaseCa = GetStringaFigura(aFc,a2)
   Scrivi sBaseCa
   Dim IdEstr,sBari,sCagliari
   Scrivi "anche se disposte diversamente trova le stesse figure"
   For IdEstr = 3950 To EstrazioneFin
      Call GetFigureEstr(IdEstr,R1,R2,aFb,aFc)
      sBari = GetStringaFigura(aFb,a1)
      sCagliari = GetStringaFigura(aFc,a2)
      If sBaseBa = sBari Then Scrivi IdEstr & "  " & StringaNumeri(aFb),,,vbRed
      If sBaseCa = sCagliari Then Scrivi IdEstr & "  " & StringaNumeri(aFc)
   Next
End Sub
Sub GetFigureEstr(iDestr,R1,R2,aF1,aF2)
   Dim i
   For i = 1 To 5
      aF1(i) = Figura(Estratto(iDestr,R1,i))
      aF2(i) = Figura(Estratto(iDestr,R2,i))
   Next
End Sub
' la logica delle funzione è: scrivi quante figure 1 sono presenti nell estrazione , quante figure 2 ecc ...
' se la quantita delle figure coincide allora sono uguali
Function GetStringaFigura(aF,a1)
   Dim i
   ' carico l array delle figure a zero
   For i = 1 To 9
      a1(i) = 0
   Next
   ' conto quante figure da 1 a 9 sono presenti
   For i = 1 To UBound(aF)
      a1(aF(i)) = a1(aF(i)) + 1
   Next
   Dim s:s = ""
   For i = 1 To 9
      s = s & a1(i)
   Next
   GetStringaFigura = s
End Function

praticamente lo script è inchiodato al caso fisso
ho cercato nelle estrazioni quando sortisce una sequenza slegata l una dall altra
ciao

Ciao ILegend, purtroppo in questo tuo script, più lo guardo e più non ci capisco niente, non riesco a capire come fa la function GetStringaFigura a calcolare le figure degli estratti, e poi ho visto che le hai usato < Sub > per GetFigureEstr e < Function > per GetStringaFigura, domanda, che differenza c'è tra < Sub > e < Function > ?

 

[i legend]

ciao salvo
la differenza principale , tra function e sub è che la prima restituisca un risultato esempio un numero una stringa ecc
se invece devi calcolare o caricare ad esempio un array io utilizzo la sub riportando i risultati ,nelle parentesi.
se non erro seriefreqturbo è una funzione mentre elencoritarditurbo,verificaesito sono sub
in pratica
GetStringaFigura, è una function , una stringa per la precisione, che utilizzo per confrontare con quella scelta all inizio,
ho fatto lo script con la febbre , mi sono accorto che

Sub GetFigureEstr(iDestr,R,aF)
   Dim i
   For i = 1 To 5
      aF(i) = Figura(Estratto(iDestr,R,i))
     
   Next
End Sub

cosi la sub è piu generale prima era legata a raccogliere due ruote,ora pero bisogna lanciarla ogni volta che occorre
spero che le altre cose funzionino.
è una settimana che sto poco bene,e molto stanco, quindi è facile incappare in orrori
ciao