richiesta script da blackmore

[51miky]

Ciao blackmore, nuova avventura con i numeri vertibili da infilare nel calderone e cucinarli x estrarre la previsione.
Cortesemente se puoi postarmi uno script in cui si possono rintracciare i numeri vertibili in posizione isotopa e solo in senso verticale.
lo script dovrebbe darmi la possibilità di inserire dal.....al e a conclusione della ricerca a video mostrare la data dell'estrazione di ricavo, i 5 estratti dell'estrazione che contiene il vertibile isotopo insieme alla e/o alle ruote rintracciate se ci sono.
es. estrazione del 3 guigno 2014
ruota venezia, estratti; 22-55-24-90-23
ruota nazionale, estratti: 6-84-42-35-50
questo rende velocissima la ricerca che con i software che ho usato;
lotto analyzer+spaziometria mi ha permesso di ricavare da questi due vertibili una previsione di soli 4 numeri da giocare x ambo e terno: 22-86-80-9 = esito ambo 86-9 al 4° colpo.....ottimo direi
Grazie

[Blackmore]

Guarda se così va bene...

Codice: Seleziona tutto

===================================================================
14.06.2014  GENOVA       54.33.53.40.68  >>>  NUMERO  : 54 IN 1°POS.
14.06.2014  VENEZIA      45.71.13.56.17  >>>  VERT ISO: 45 IN 1°POS.
===================================================================
12.06.2014  NAPOLI       80.15.30.78.49  >>>  NUMERO  : 49 IN 5°POS.
12.06.2014  PALERMO      89.04.82.64.44  >>>  VERT ISO: 44 IN 5°POS.
===================================================================
12.06.2014  NAPOLI       80.15.30.78.49  >>>  NUMERO  : 49 IN 5°POS.
12.06.2014  NAZIONALE    06.18.38.73.44  >>>  VERT ISO: 44 IN 5°POS.
===================================================================
10.06.2014  BARI         50.21.19.02.54  >>>  NUMERO  : 02 IN 4°POS.
10.06.2014  PALERMO      24.03.43.20.31  >>>  VERT ISO: 20 IN 4°POS.
===================================================================

Codice: Seleziona tutto

Sub Main()
Dim ruote(10)
ca=CInt(InputBox("QUANTI CASI VUOI TROVARE ?","BLACKMORE",30))
ini = EstrazioneFin - ca
fin = EstrazioneFin
casi=0
For es= fin To 1 Step - 1
If casi < ca Then
For r1 = 1 To 10
For r2 = r1+1 To 12
If r2 = 11 Then r2 = 12
For pos = 1 To 5
ruote(1)=r1
ruote(2)=r2
a=Estratto(es,r1,pos)
b=Estratto(es,r2,pos)
If b = Vert(a) Then
casi=casi+1
Scrivi String(67,"="),1
Scrivi DataEstrazione(es)&"  "& Ucase(FormatSpace(nomeRuota(r1),11))&"  "& StringaEstratti(es,r1)&"  >>>  NUMERO  : "& Format2(a)&" IN "& pos &"°POS."
Scrivi DataEstrazione(es)&"  "& Ucase(FormatSpace(nomeRuota(r2),11))&"  "& StringaEstratti(es,r2)&"  >>>  VERT ISO: "& Format2(b)&" IN "& pos &"°POS."
End If
Next
Next
Next
End If
Next
Scrivi String(67,"="),1
End Sub

[51miky]

Un grazie di cuore x l'ottimo script , e un grazie per la tua disponibilità.

[zagor]

grazie a blackmore per lo script provato e funziona,se possibile chiederei a 51miky come ha ottenuto i quattro numeri che spiega.
ovviamente se possibile aggiornare lo script in modo da poter tentare la fortuna.grazie

[giorgioantonio46]

richiesta annullata

[giorgioantonio46]

argomento spostato in script come richiesta personale