Ricerca script L8 distanza 2 in verticale

CocoNut · 20 Aprile 2015

Come da titolo:

Cercasi volontario per script L8 con i seguenti requisiti:

Ricerca Ambi di distanza 2 in verticale su due ruote anche non isotopi.

Riporto due esempi per facilitare il tutto:

Ba xx 23 45 xx xx
Ca xx 25 47 xx xx

23 - 25 distanti a passo 2 tra loro

45 - 47 distanti a passo 2 tra loro

Mi 86 xx xx 58 xx
Ve 88 xx xx 60 xx

Stesso discorso con 86 - 88 e 58 - 60

Ringrazio in anticipo e spero che non sia di difficile realizzazione...

Mike58 · 20 Aprile 2015

Ciao Coco, innanzitutto un piacere ritrovarti, poi lo script non è affatto complicato anche se ci possono essere tante variabili.
Per il momento ti ho messo gli ambi trovati distanza = 2 iso e non iso ma con le posizioni 1-3 & 2-4 cosi come da tuo schema.

prova cosi se ci sono variazioni non ci sono problemi per aggiustamenti.

Codice:

Sub Main
	Dim ru(2),ambo1(2),ambo2(2)
	est = InputBox("QUANTE ESTRAZIONI CONTROLLO",,10)
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						ambo1(1) = Estratto(es,r1,p1)
						ambo1(2) = Estratto(es,r1,p2)
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								ambo2(1) = Estratto(es,r2,p3)
								ambo2(2) = Estratto(es,r2,p4)
								'If p1 = p3 And p2 = p4 Then ' codice x posizioni iso
								If Distanza(ambo1(1),ambo2(1)) = 2 And Distanza(ambo1(2),ambo2(2)) = 2 Then
									k = k + 1
									Scrivi "Caso N. " & k,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaNumeri(ambo1,,1) & " Pos. " & p1 & p2
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaNumeri(ambo2,,1) & " Pos. " & p3 & p4
									Scrivi
								End If
								'End If ' end iso
							Next
						Next
					Next
				Next
			Next
		Next
	Next
End Sub

CocoNut · 20 Aprile 2015

Ciao Mike....
Il piacere di ritrovarti è tutto mio

Grazie per la risposta tempestiva innanzitutto, ma riscontro un problema con le righe 22 - 23: errore 450
Inoltre, se puoi, basando la ricerca su tutti e 5 campi estrattivi ( caselle ).

Grazie ancora per la tua disponibilità.

franca46 · 20 Aprile 2015

ciao coconut

ho questo se ti va bene

Codice:

Sub main()
Dim am(2),ab(3) , ruote(3),ruota(4),posta(1),poste(2),post(3)
posta(1)= 1 : poste(2)=1 : post(2)=1 : post(3)=1

quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",100)) 
If quante= False Then Exit Sub

For es = (EstrazioneFin - quante) To EstrazioneFin 
Messaggio "["&es&"]ª" 

For r1=1 To 10 
For p1=1 To 4 
For p2=p1+1 To 5 
a=Estratto(es,r1,p1) 
b=Estratto(es,r1,p2) 

For r2=r1+1 To 11
c=Estratto(es,r2,p1) 
d=Estratto(es,r2,p2) 
If r2=11 Then r2=12

If Distanza(a,c)=2 And Distanza(b,d)=2 Then

cont=cont+1 : Scrivi
ColoreTesto 2 : Scrivi String(41,32)&" Pronostico n° " &cont&"",1 : ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1)&""&Space(2)&"["&es&"]ª"&Space(7)&""& Left(NomeRuota(r1),3)&"."&Space(5)&_
""& StringaEstratti (es,r1)&""&Space(5)&"" & Left(NomeRuota(r1),3)&"."&Space(3)&""& Format2(a)&_
""&Space(1)&""& Format2(b)&""&Space(6)&"("&p1&"-"&p2&")",1
Scrivi DataEstrazione(es,1)&""&Space(2)&"["&es&"]ª"&Space(7)&""& Left(NomeRuota(r2),3)&"."&Space(5)&_
""& StringaEstratti (es,r2)&""&Space(5)&""& Left(NomeRuota(r2),3)&"."&Space(3)&""& Format2(c)&_
""&Space(1)&""& Format2(d)&""&Space(6)&"("&p1&"-"&p2&")",1 : Scrivi 



Gioca es  
Scrivi String(58,151)

End If
'End If :
 Next : 
Next : 
Next : 
Next : 
Next
'ScriviResoconto  
ColoreTesto 2  
End Sub

ciaooooooooooo

Mike58 · 20 Aprile 2015

Ciao Coco, purtroppo non uso L'8 (uso spaziometria) ma avendone una copia l'ho provato su lottodesk e non legge bene il codice stringaNumeri(ambo1,,1)
Cambiandolo in StringaNumeri(ambo1) lo legge e lo esegue correttamente, provalo cosi.

Codice:

Sub Main
	Dim ru(2),ambo1(2),ambo2(2)
	est = InputBox("QUANTE ESTRAZIONI CONTROLLO",,10)
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						ambo1(1) = Estratto(es,r1,p1)
						ambo1(2) = Estratto(es,r1,p2)
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								ambo2(1) = Estratto (es,r2,p3)
								ambo2(2) = Estratto (es,r2,p4)
								'If p1 = p3 And p2 = p4 Then ' codice x posizioni iso
								If Distanza (ambo1(1),ambo2(1)) = 2 And Distanza(ambo1(2),ambo2(2)) = 2 Then
									k = k + 1
									Scrivi "Caso N. " & k,1
									Scrivi DataEstrazione (es) & "  " & StringaEstratti (es,r1) & "  " & SiglaRuota (r1) & "  " & StringaNumeri (ambo1) & " Pos. " & p1 & p2
									Scrivi DataEstrazione (es) & "  " & StringaEstratti (es,r2)& "  " & SiglaRuota (r2) & "  " & StringaNumeri (ambo2) & " Pos. " & p3 & p4
									Scrivi
								End If
								'End If ' end iso
							Next
						Next
					Next
				Next
			Next
		Next
	Next
End Sub

Mike58 · 20 Aprile 2015

X Franca, il tuo script ricerca solo le posizioni isotope esattamente come lo schema di CocoNut, anche se lei ha richiesto anche tutte le posizioni.
Per ovviare a questo visto che ti piace apprendere basta un altro ciclo for doppio per le posizioni dell'altro ambo.
Come da mio script.

Ciao

CocoNut · 20 Aprile 2015

Ben riletta Francuzza

Una piccola precisazione...
Per "tutti i campi" intendevo che gli ambi possono essere stati estratti in qualsiasi casella,
non necessariamente come lo schema da me riportato, importante però che ci sia isotopia tra loro.
Dando un'occhiata a quello di Franca quindi, mi sembra che possa andare bene.

Grazie ad entrambi ....
Un abbraccio forte

Mike58 · 20 Aprile 2015

OK allora si trattava di ambi isotopi stessa posizione, nel mio basta attivare le righe togliendo l'apice ed anche li troverà solo gli ambi condizione di distanza 2 verticale ed isotopi.

Ciao.

CocoNut · 20 Aprile 2015

Sì, grazie Mike.
Analizzerò un pochino meglio queste condizioni,
vediamo se riusciamo a ricavare qualche risultato caruccio e in seguito magari avere qualche statistica...
tieniti pronto che ti ricontatterò !

Mike58 · 21 Aprile 2015

Ciao Coco, per quello che si può, disponibile, le statistiche sono una mia passione e gli script sono una buona palestra per allenare la mente.

Mat · 21 Aprile 2015

x CocoNut
Se con L8+ vai in "Ricerca Statistica", poi per "Tipo di Ricerca" seleziona nella finestra corrispondente l'opzione "Ambi particolari su due ruote".
Puoi scegliere gli ambi isotopi spuntando la casella relativa, con stessa somma, distanza ciclometrica oppure Stessa differenza matematica in orizzontale, in verticale oppure in diagonale e stabilire anche un valore prefissato a tua scelta.
Puoi divertirti come vuoi in tantissime combinazioni possibili senza uso di script almeno per questa volta.
Ciao,

Matteo

Zetrix · 22 Aprile 2015

E vero con l8 puoi fare (quasi) tutto ..lo uso anch'io ..saluto mike58 che si rende ad ogni modo sempre disponibile per gli script ...

Zetrix · 22 Aprile 2015

xcocunut ..l'ultima condz che se verificata con la d2 e su fi-na

i legend · 22 Aprile 2015

Ciao Mike,Ben Tornato

Ciao a tutti non so se giri su L8 perchè non lo possiedo,
x chi puo, potrebbe verificare se lo script Restituisce valori corretti?
quindi salvo Errori ,Ecco lo script
P.S: più aumentano i casi più è lento lo script
Sicuramente è ottimizzabile, si accettano suggerimenti per migliorare la velocita ed il codice:
Codice:

Codice:

Option Explicit
Sub Main
    'script By I Legend per lottoCed Utenti
    'Controllare e segnalare eventuali Bugs
    'Lo script non da previsioni
    'Lo script potrebbe restituire Errori statistici
    'controllare e verificare sempre.
    Dim idEstr,Ini,Fin
    Dim id_GTR,id_GVR
    Ini = CInt(InputBox("SelezionaInizioRicerca","ConcorsoInizioRicerca",EstrazioneFin - 100))
    Fin = EstrazioneFin
    id_GTR = GetTipoRicerca
    id_GVR = GetValoreRicerca(id_GTR)
    Call GetIntestazione(Ini,Fin,id_GTR,id_GVR)

        If id_GTR <= 6 Then
        Call SommeDistanze(Ini,Fin,id_GTR,id_GVR)
    ElseIf id_GTR >= 7 Then
        Call SommeDistanzeIsotope(Ini,Fin,id_GTR,id_GVR)
    End If
    
End Sub
Sub AlimentaTab(aRis,idCs,strData,strRu,strE1,strE2,E1,E2,E3,E4)
    aRis(1) = idCs
    aRis(2) = strData
    aRis(3) = strRu
    aRis(4) = strE1
    aRis(5) = strE2
    aRis(6) = E1
    aRis(7) = E2
    aRis(8) = E3
    aRis(9) = E4
End Sub
Function GetIntestazione(Ini,Fin,id_GTR,id_Gvr)
Scrivi "Il GIOCO E' VIETATO AI MINORI DI ANNI 18,PUO' COMPORTARE GRAVE DIPENDENZA PATOLOGICA           ",True,,vbRed
    Scrivi "script By I Legend per lottoCed Utenti"

    Scrivi "Ricerca Statistica    :                                                                        ",True,,RGB(152,231,254)
    Scrivi "DataInizioRicerca     : ",True,False
    Scrivi DataEstrazione(Ini),,,,vbBlue
    Scrivi "DataFineRicerca       : ",True,False
    Scrivi DataEstrazione(Fin),,,,vbBlue

    Scrivi "Estrazioni Analizzate : ",True,False
    Scrivi Fin - Ini,,,,vbBlue

    Scrivi "TipoRicerca           : ",True,False
    Scrivi GetStrRicerca(id_GTR),,,,vbBlue

    Scrivi "Valore di Ricerca     : ",True,False
    Scrivi id_Gvr,,,,vbBlue

    Scrivi
End Function
Function GetTipoRicerca
    Dim aRic,bRet
    aRic = Array("","Som.Oriz","Som.Vert","Som.Diag",_
    "Dist.Oriz","Dist.Vert","Dist.Diag",_
    "Som.Oriz.Iso","Som.Vert.Iso","Som.Diag.Iso",_
    "Dist.Oriz.Iso","Dist.Vert.Iso","Dist.Diag.Iso")
    bRet = ScegliOpzioneMenu(aRic,1,"SelezionaTipoDiRicerca")
    GetTipoRicerca = bRet
End Function
Function GetStrRicerca(id_gtr)
    Dim aRic,bRet
    aRic = Array("","Som.Oriz","Som.Vert","Som.Diag",_
    "Dist.Oriz","Dist.Vert","Dist.Diag",_
    "Som.Oriz.Iso","Som.Vert.Iso","Som.Diag.Iso",_
    "Dist.Oriz.Iso","Dist.Vert.Iso","Dist.Diag.Iso")
    bRet = aRic(id_gtr)
    GetStrRicerca = bRet
End Function
Function GetValoreRicerca(id_Gtr)
    Dim i,bRet
    If id_Gtr <= 3 Or id_Gtr >= 7 And id_Gtr <= 9 Then
        ReDim aNum(90)
    Else
        ReDim aNum(45)
    End If
    For i = 1 To UBound(aNum)
        aNum(i) = i
    Next
    bRet = ScegliOpzioneMenu(aNum,1,"SelezionaValoreRicerca")
    GetValoreRicerca = bRet
End Function
Function SommeDistanze(Ini,Fin,id_Gtr,id_Gvr)
    Dim idestr,R1,R2,P1,P2,P3,P4,E1,E2,E3,E4,nCasi
    Dim strRu,strE1,StrE2,strData
    Dim aTitolo
    aTitolo = Array("","nCs","Data_Condizione","Ruote","EstrattiR1","EstrattiR2","E1","E2","E3","E4")
    Call InitTabella(aTitolo,RGB(152,231,254),,3,RGB(157,79,0))
    nCasi = 0
    For idestr = Ini To Fin
        If ScriptInterrotto Then Exit For


        Call Messaggio("Analisi Estrazione: " & GetInfoEstrazione(idestr))
        Call AvanzamentoElab(Ini,Fin,idestr)
        For R1 = 1 To 10
            For R2 = R1 + 1 To 12
                If R2 = 11 Then R2 = 12
                For P1 = 1 To 4
                    For P2 = P1 + 1 To 5
                        For P3 = 1 To 4
                            For P4 = P3 + 1 To 5
                                E1 = Estratto(idestr,R1,P1)
                                E2 = Estratto(idestr,R1,P2)
                                E3 = Estratto(idestr,R2,P3)
                                E4 = Estratto(idestr,R2,P4)
                                If id_Gtr = 1 And Fuori90(E1 + E2) = id_Gvr And Fuori90(E3 + E4) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                ElseIf id_Gtr = 2 And Fuori90(E1 + E3) = id_Gvr And Fuori90(E2 + E4) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                ElseIf id_Gtr = 3 And Fuori90(E1 + E4) = id_Gvr And Fuori90(E2 + E3) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                ElseIf id_Gtr = 4 And Distanza(E1,E2) = id_Gvr And Distanza(E3,E4) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                ElseIf id_Gtr = 5 And Distanza(E1,E3) = id_Gvr And Distanza(E2,E4) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                ElseIf id_Gtr = 6 And Distanza(E1,E4) = id_Gvr And Distanza(E2,E3) = id_Gvr Then
                                    nCasi = nCasi + 1
                                    strData = GetInfoEstrazione(idestr)
                                    strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                                    strE1 = StringaEstratti(idestr,R1)
                                    StrE2 = StringaEstratti(idestr,R2)
                                    ReDim aRis(9)
                                    Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                                    Call AddRigaTabella(aRis)
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    Call CreaTabella
    Scrivi "Totale Casi Rintracciati: " & nCasi
End Function
Function SommeDistanzeIsotope(Ini,Fin,id_Gtr,id_Gvr)
    Dim idestr,R1,R2,P1,P2,P3,P4,E1,E2,E3,E4,nCasi
    Dim strRu,strE1,StrE2,strData
    Dim aTitolo
    aTitolo = Array("","nCs","Data_Condizione","Ruote","EstrattiR1","EstrattiR2","E1","E2","E3","E4")
    Call InitTabella(aTitolo,RGB(152,231,254),,3,RGB(157,79,0))
    nCasi = 0
    For idestr = Ini To Fin
        If ScriptInterrotto Then Exit For


        Call Messaggio("Analisi Estrazione: " & GetInfoEstrazione(idestr))
        Call AvanzamentoElab(Ini,Fin,idestr)
        For R1 = 1 To 10
            For R2 = R1 + 1 To 12
                If R2 = 11 Then R2 = 12
                For P1 = 1 To 4
                    For P2 = P1 + 1 To 5
                        E1 = Estratto(idestr,R1,P1)
                        E2 = Estratto(idestr,R1,P2)
                        E3 = Estratto(idestr,R2,P1)
                        E4 = Estratto(idestr,R2,P2)
                        If id_Gtr = 7 And Fuori90(E1 + E2) = id_Gvr And Fuori90(E3 + E4) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        ElseIf id_Gtr = 8 And Fuori90(E1 + E3) = id_Gvr And Fuori90(E2 + E4) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        ElseIf id_Gtr = 9 And Fuori90(E1 + E4) = id_Gvr And Fuori90(E2 + E3) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        ElseIf id_Gtr = 10 And Distanza(E1,E2) = id_Gvr And Distanza(E3,E4) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        ElseIf id_Gtr = 11 And Distanza(E1,E3) = id_Gvr And Distanza(E2,E4) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        ElseIf id_Gtr = 12 And Distanza(E1,E4) = id_Gvr And Distanza(E2,E3) = id_Gvr Then
                            nCasi = nCasi + 1
                            strData = GetInfoEstrazione(idestr)
                            strRu = SiglaRuota(R1) & "-" & SiglaRuota(R2)
                            strE1 = StringaEstratti(idestr,R1)
                            StrE2 = StringaEstratti(idestr,R2)
                            ReDim aRis(9)
                            Call AlimentaTab(aRis,nCasi,strData,strRu,strE1,StrE2,E1,E2,E3,E4)
                            Call AddRigaTabella(aRis)
                        End If
                    Next
                Next
            Next
        Next
    Next
    Call CreaTabella
    Scrivi "Totale Casi Rintracciati: " & nCasi
End Function

Zetrix · 22 Aprile 2015

ciao i legend ..grazie molto per il listato ..su spaziometria gira benissimo ..su l8+ no ..da errore ... ma cmq a me nn interessa su l8+
perche in parte lo fa questo lavoro ...volevo chiederti visto che a me interessa come sono posizionati i num estratti ma solo num iso. e possibile che il listato me li fa vedere sul quadro estratti ..invece della classica tabella attuale che fa vedere solo il resoconto della ricerca degli ambi ..

Mike58 · 22 Aprile 2015

Ciao a tutti.
Per I legend ben ritrovato, è ovvio che il tuo script non giri su l8 in quanto le tabelle cosi come le compiliamo sono prerogativa solo di spazioMetria, che il prof LuigiB con tanta bravura e tanta pazienza e con le richieste di noi tutti, ha creato ad oc.

Per Zetrix, si possono anche evidenziare anche i numeri cercati su quadro estrazionale, prova a vedere se questa ricerca ambi di distanza 2 di Coconut con ambi non isotopi fa quello che chiedi.

Codice:

Sub Main
	Dim ru(2),ambo1(2),ambo2(2)
	Dim MatriceCaselleDaEvidx(4,1)
	est = InputBox("QUANTE ESTRAZIONI CONTROLLO",,20)
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						ambo1(1) = Estratto(es,r1,p1)
						ambo1(2) = Estratto(es,r1,p2)
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								ambo2(1) = Estratto(es,r2,p3)
								ambo2(2) = Estratto(es,r2,p4)
								'If p1 = p3 And p2 = p4 Then ' codice x posizioni iso
								If Distanza(ambo1(1),ambo2(1)) = 2 And Distanza(ambo1(2),ambo2(2)) = 2 Then
									k = k + 1
									MatriceCaselleDaEvidx(1,0) = r1
									MatriceCaselleDaEvidx(1,1) = p1
									MatriceCaselleDaEvidx(2,0) = r1
									MatriceCaselleDaEvidx(2,1) = p2
									MatriceCaselleDaEvidx(3,0) = r2
									MatriceCaselleDaEvidx(3,1) = p3
									MatriceCaselleDaEvidx(4,0) = r2
									MatriceCaselleDaEvidx(4,1) = p4
									Scrivi "Caso N. " & k,1
									Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,r1) & "  " & SiglaRuota(r1) & "  " & StringaNumeri(ambo1) & " Pos. " & p1 & p2
									Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,r2) & "  " & SiglaRuota(r2) & "  " & StringaNumeri(ambo2) & " Pos. " & p3 & p4
									Call DisegnaEstrazione(es,MatriceCaselleDaEvidx)
									Scrivi
								End If
								'End If ' end iso
							Next
						Next
					Next
				Next
			Next
		Next
	Next
End Sub

Zetrix · 22 Aprile 2015

ciao Mike ho provato il listato e come lo volevo io ..grazie Mike per tua disponibilita .. hai citato spazioMetria un grazie va soprattutto a LuigiB .. programmi cosi nn ne ho visti molti in giro e nn si possono nemmeno paragonare a spazioMetria .. e il punto di forza sono proprio i listati script per le ricerche ..ma anche la sez ciclometrica nn e da meno per come e fatto e curato nei minimi dettagli ..e l'aspetto grafico e molto elegante ..
poi ci sono altri settori statistica e via dicendo insomma un programma completo ...
ho fatto questa richiesta cosi posso valutare quale condz di gioco sia migliore ..in base ai num estratti sul quadro..

i legend · 22 Aprile 2015

Ciao zetrix,grazie per la conferma,
Ciao mike questa funzione MatriceCaselle non la conoscevo

Grazie

CocoNut · 23 Aprile 2015

Intanto un grazie particolare a Mike58 e successivamente a tutti gli intervenuti.

Mat, in tempi passati avevo una certa dimestichezza con L8,
mentre ultimamente x questioni di tempo e pigrizia sto usando solo gli script salvati e di conseguenza faccio i vari aggiornamenti,
tanto da aver dimenticato persino alcuni notevoli vantaggi che questo programmino include dal momento dell'utilizzo.
Grazie ancora a tutti !

Ricerca script L8 distanza 2 in verticale

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<