Spaziometria

[roberti81]

Buona Domenica a tutto il Forum.
Ho scaricato da poco Spaziometria (complimentissimi a colui che lo ha creato...) e sto cercando di capire un pò come funziona...
ora,non mi prendete in giro p), ma mettiamo il caso che io volessi sapere in quali estrazioni sono usciti due numeri,uno su una ruota e uno su un'altra contemporaneamente...
lo sò,la domenica mattina ho qualche difficoltà ad esporre i concetti confused... mettiamo che io volessi sapere in quale estrazione sono usciti x esempio il 2 e il 20 uno su bari e uno su napoli,come si potrebbe fare??
Grazie a tutti e ancora buona Domenica
Stefano

 

[roberti81]

Nessuno può aiutarmi???

 

[Roby]

Su spaziometria apri la finestra degli script, cancella Sub Main e End Sub incolla lo script che ti metto sotto lo lanci, e rispondi alle 5 opzioni che ti vengono richieste.
Puoi rispondere cambiando sia i numeri da richiedere sia le ruote.
Per default è inserita la ricerca su 100 estrazioni, primo numero 2, prima ruota Bari, secondo numero 20, seconda ruota Cagliari, che puoi cambiare appunto rispondendo alle relative finestre.
Ciao

Sub main()
tmp=InputBox("Quante estrazioni controllo?",,100)
aa=CInt(InputBox("Inserire il primo numero",,2))
r=CInt(InputBox("Inserire la prima ruota",,1)) 
bb=CInt(InputBox("Inserire il secondo numero",,20)) 
r1=CInt(InputBox("Inserire la seconda ruota",,2))
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 12
If r1=11 Then r1=12
For n=1 To 5
For n1=1 To 5
a=Estratto(es,r,n) 
b=Estratto(es,r1,n1)
If aa=a And bb=b Then 'Or aa=b And bb=a Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "&Format2(a)
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" ---> "&Format2(b)
Scrivi"********************************" 
End If
Next
Next 
Next
Next
Next 
End Sub

 

[roberti81]

grazie mille Daniel,gentilissimo. solo una cosa: per determinare le due ruote basta mettere 1 per ba, 2 per ca e così via... però poi in realtà la ricerca non la fà solo sulle ruote selezionate... sbaglio qualcosa? cmq grazie mille ancora e buona serata..
Stefano

 

[rocco63]

Scusa Roberti81 visto che hai lanciato lo script mi puoi dire quale tasto hai usato per il lancio grazie, anch'io sto tentando di imparare qualcosa del programma.-

 

[80Sete]

mi permetto di intervenire, ti faccio vedere in chiaro quale tasto devi usare, e ricordati di salvarlo se ti potrà essere utile (tasto icona floppy)
ciao

 

[Roby]

grazie mille Daniel,gentilissimo. solo una cosa: per determinare le due ruote basta mettere 1 per ba, 2 per ca e così via... però poi in realtà la ricerca non la fà solo sulle ruote selezionate... sbaglio qualcosa? cmq grazie mille ancora e buona serata..
Stefano

Si hai ragione mi era sfuggito un dettaglio, avevo messo qualcosa in più.
E' esatto 1=ba 2=ca ecc. ecc per la Nazionale è 12
Se ci sono altri problemi chiedi pure.
Questo sotto quello nuovo.
Se poi vuoi che indistintamente i due numeri si possono trovare o sull'una o sull'altra ruota si corregge anche questo.
Ciao

Sub Main()
tmp=InputBox("Quante estrazioni controllo?",,100)
aa=CInt(InputBox("Inserire il primo numero",,2))
r=CInt(InputBox("Inserire la prima ruota",,1)) 
bb=CInt(InputBox("Inserire il secondo numero",,20)) 
r1=CInt(InputBox("Inserire la seconda ruota",,2))
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For n=1 To 5
For n1=1 To 5
a=Estratto(es,r,n) 
b=Estratto(es,r1,n1)
If aa=a And bb=b Then 'Or aa=b And bb=a Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "&Format2(a)
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" ---> "&Format2(b)
Scrivi"********************************" 
End If
Next
Next
Next 
End Sub

 

[roberti81]

grazie mille daniel... buona serata
Stefano

 

[rocco63]

Grazie tante per questione di lavoro non sono riuscito a risponderti prima, grazie di vero cuore

mi permetto di intervenire, ti faccio vedere in chiaro quale tasto devi usare, e ricordati di salvarlo se ti potrà essere utile (tasto icona floppy)
ciao
Vedi l'allegato 4731