R
Roby
Guest
CIAO ESSELOTTO
Sono a chiederti cortesemente la tua collaborazione su di uno script fatto parzialmente da un utente del forum per un mio procedimento, da terminare.
Dovrebbe essere a questo punto semplice, dimmi se puoi occupartene.
Ti spiego
Si analizzano le estrazioni utilizzando il prg spaziometria, scegliendone il numero, il programma deve rintracciare tre numeri appartenenti alla stessa terna figurale, due dei quali sono sulla stessa ruota vicini o a distanza di un unità, ed il terzo isotopo a uno dei due, nella ruota attigua o a distanza di una.
Rintracciate le formazioni, il programma le presenterà nell ordine così rintracciato, indicato appunto la formazione composta dalle ruote e i numeri rintracciati.
Metus ha costruito questo script:
Sub Main
tmp=InputBox("Quante estrazioni controllo?",,10)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
For r=2 To 9
For r1=1 To 10
For p=1 To 4
p1=p+1
a1=Estratto(es,r,p)
a2=Estratto(es,r,p1)
a3=Figura(a1)
a4=Figura(a2)
b1=Estratto(es,r1,p)
b2=Figura(b1)
If a4=(a3+3)And b2=(a3+6) Or a4=(a3+6)And b2=(a3+3)Or a3=(a4+3)And b2=(a4+6)Or a3=(a4+6)And b2=(a4+3) Then
If r1=r+1 Or r1=r-1 Then
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),2)&" "& StringaEstratti(es,r),True
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)
Scrivi Format2(a1)&"-"&Format2(a2)&" figure --> "&a3&"-"&a4&" ruota di "&NomeRuota(r)
Scrivi Format2(b1)&" figura --> "&b2&" ruota di "&NomeRuota(r1)
Scrivi"*****************************************************************"
End If
End If
Next
Next
Next
Next
End Sub
Adesso, lo script va incrementato in questo modo:
1) dall esame ricerche che il listato fornisce, ho visto che sono tutti casi di terne figurali con valore figura diverso, cioè 1-4-7, 2-5-8, 3-6-9. Il listato dovrebbe fornire anche i casi di terne figurali tipo 1-1-4, 1-1-7, 1-1-1, 4-4-7, 4-4-4, 7-7-1, 7-7-7, e cosi anche per le altre.
2)ho notato che i casi trovati sono tutti con il terzo numero isotopo sotto il primo della coppia. Il prg dobrebbe determinare anche quei casi dove il terzo numero isotopo si trova sotto il secondo numero della coppia.
Grazie, ciao
3) Infine, il listato deve fare la ricerca anche per i numeri di distanza di un unità avanti ed indietro, cosi come per le ruote sotto e sopra distanti una ruota, come spiegato all'inizio nella procedura generale del listato.
Dimmi se puoi procedere, questo listato fa capo ad un procedimento molto interessante per ambo su ruota, che ti spiegherò appena terminato il listato. Grazie
Sono a chiederti cortesemente la tua collaborazione su di uno script fatto parzialmente da un utente del forum per un mio procedimento, da terminare.
Dovrebbe essere a questo punto semplice, dimmi se puoi occupartene.
Ti spiego
Si analizzano le estrazioni utilizzando il prg spaziometria, scegliendone il numero, il programma deve rintracciare tre numeri appartenenti alla stessa terna figurale, due dei quali sono sulla stessa ruota vicini o a distanza di un unità, ed il terzo isotopo a uno dei due, nella ruota attigua o a distanza di una.
Rintracciate le formazioni, il programma le presenterà nell ordine così rintracciato, indicato appunto la formazione composta dalle ruote e i numeri rintracciati.
Metus ha costruito questo script:
Sub Main
tmp=InputBox("Quante estrazioni controllo?",,10)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
For r=2 To 9
For r1=1 To 10
For p=1 To 4
p1=p+1
a1=Estratto(es,r,p)
a2=Estratto(es,r,p1)
a3=Figura(a1)
a4=Figura(a2)
b1=Estratto(es,r1,p)
b2=Figura(b1)
If a4=(a3+3)And b2=(a3+6) Or a4=(a3+6)And b2=(a3+3)Or a3=(a4+3)And b2=(a4+6)Or a3=(a4+6)And b2=(a4+3) Then
If r1=r+1 Or r1=r-1 Then
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),2)&" "& StringaEstratti(es,r),True
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)
Scrivi Format2(a1)&"-"&Format2(a2)&" figure --> "&a3&"-"&a4&" ruota di "&NomeRuota(r)
Scrivi Format2(b1)&" figura --> "&b2&" ruota di "&NomeRuota(r1)
Scrivi"*****************************************************************"
End If
End If
Next
Next
Next
Next
End Sub
Adesso, lo script va incrementato in questo modo:
1) dall esame ricerche che il listato fornisce, ho visto che sono tutti casi di terne figurali con valore figura diverso, cioè 1-4-7, 2-5-8, 3-6-9. Il listato dovrebbe fornire anche i casi di terne figurali tipo 1-1-4, 1-1-7, 1-1-1, 4-4-7, 4-4-4, 7-7-1, 7-7-7, e cosi anche per le altre.
2)ho notato che i casi trovati sono tutti con il terzo numero isotopo sotto il primo della coppia. Il prg dobrebbe determinare anche quei casi dove il terzo numero isotopo si trova sotto il secondo numero della coppia.
Grazie, ciao
3) Infine, il listato deve fare la ricerca anche per i numeri di distanza di un unità avanti ed indietro, cosi come per le ruote sotto e sopra distanti una ruota, come spiegato all'inizio nella procedura generale del listato.
Dimmi se puoi procedere, questo listato fa capo ad un procedimento molto interessante per ambo su ruota, che ti spiegherò appena terminato il listato. Grazie
