Antonino,Intanto Bravo in quanto hai utilizzato ed estrapolato gli abbinamenti senza ciclo for (anche se allargherei il range inizio).
Per la raccolta numeri basta metterli in un nuovo vettore aN e poi facciamo una lunghetta ,purtroppo in tabella e complicato fare tante operazioni.
Poi facciamo la verifica in tabella, giusto per vedere il comportamento.
Intanto si è raccolto un altro modus per mettere insieme + istruzioni.
La bravura non ti manca per preseguire con le tue idee.
Buona sera mike58,
ti ringrazio per le belle parole, ma il merito è soprattutto tuo in quanto lo script proviene da una tua idea.
Se posso ancora approfittare della tua disponibilità, vorrei chiederti un aiuto su come modificare lo script in allegato, con cui vorrei effettuare la ricerca di un ambo che si ripete in due estrazioni consecutive. Grazie ancora per la tua disponibilità.
Sub Main
Dim Nu(2),aN(2),Num(2),NumA(4),NumB(4), Ru(2) As Integer
Dim T(),V() , aUscite() , esito, esitoA, aUsciteA(),esitoB, aUsciteB() As String
Dim posta(3) As Single
Dim es , r1 , r2 , p1 , p2 , p3 , p4 ,a,b,c,d ,k,aa,es1,nclp,nclpA,nclpB As Integer
Dim spesa , vincita As Decimal
Dim aRetAbb() As STRUCT_ABBINAMENTO
Dim aRetAbbA() As STRUCT_ABBINAMENTO
posta(2) = 1
'posta(3) = .5
Dim Ini As Integer = 9868
Dim fin As Integer = EstrazioniArchivio
T = {" infoData "," Ruote "," Ambo_Uguale ", " Numeri In Gioco "," Abbinamento 1 "," Abbinamento 2 "," Verifica Ambo ", " Verifica Abbinamento 1 "," Verifica Abbinamento 2 "," Colpo Ambo "," Colpo Lungh 1 "," Colpo Lungh 2 "}
Call InitTabella(T)
For es = Ini To fin
For r1 = 1 To 10
For r2 = r1 + 1 To 11
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
For p3 = 1 To 5
For p4 = p3+1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
If a = c And b = d And r2-r1 = 1 Or a = d And b = c And r2-r1 = 1 Or a = d And b = c And r2-r1 = 1 Then
k = k + 1
'Call Messaggio("Elaboro...... " )
Call AvanzamentoElab(Ini,fin,es)
Nu(1) = a
Nu(2) = b
aN(1) = c
aN(2) = d
Ru(1) = r1
Ru(2) = r2
If Nu(1) > Nu(2) Then
Num(1) = FuoriX(Nu(1)+Nu(2),90)
Num(2) = DiametraleInDecina(FuoriX(Nu(1) + 45,90))
Else
Num(1) = FuoriX(Nu(2)+Nu(1),90)
Num(2) = DiametraleInDecina(FuoriX(Nu(2) + 45,90))
Call Abbinamenti(Num(1),aRetAbb,Ini,fin,Ru(1))
Call Abbinamenti(Num(2),aRetAbbA,Ini,fin,Ru(1))
'---------------------------------------------------------
NumA(1) = Num(1)
NumA(2) = Num(2)
NumA(3) = aRetAbb(1).numero
NumA(4) = aRetAbb(2).numero
'---------------------------------------------------------
NumB(1) = Num(1)
NumB(2) = Num(2)
NumB(3) = aRetAbbA(1).numero
NumB(4) = aRetAbbA(2).numero
'---------------------------------------------------------
ImpostaGiocata(1,Num,Ru,posta,,10,2)
Gioca (es+1,True,True,True,False,False)
GetSpesaVincita(spesa,vincita)
'---------------------------------------------------------
esito = " -- "
If VerificaEsito(Num,Ru,2,es+1,,10,nclp,aUscite)
For k1 As Integer = 0 To aUscite.GetUpperBound(0)
If aUscite(k1) <> "" Then esito = aUscite(k1)
Next
End If
'---------------------------------------------------------
esitoA = " -- "
If VerificaEsito(NumA,Ru,2,es+1,,10,nclpA,aUsciteA)
For k2 As Integer = 0 To aUsciteA.GetUpperBound(0)
If aUsciteA(k2) <> "" Then esitoA = aUsciteA(k2)
Next
End If
'----------------------------------------------------------
esitoB = " -- "
If VerificaEsito(NumB,Ru,2,es+1,,10,nclpB,aUsciteB)
For k3 As Integer = 0 To aUsciteB.GetUpperBound(0)
If aUsciteB(k3) <> "" Then esitoB = aUsciteB(k3)
Next
End If
'----------------------------------------------------------
V = {GetInfoEstrazione(es),ArrayRuoteToString (Ru),StringaNumeri(Nu),StringaNumeri (Num),aRetAbb(1).numero & " - " & aRetAbb(2).numero,aRetAbbA(1).numero & " - " & aRetAbbA(2).numero, _
esito ,esitoA,esitoB,nclp,nclpA,nclpB}
Call AddRigaTabella(V)
End If
End If
Next
Next
Next
Next
Next
Next
Next
CreaTabella
ScriviResoconto
Scrivi ("Tempo Di Elaborazione " & FormattaSecondi(SecondiTrascorsi))
End Sub
