PER MIKE58

[Alien.]

ciao Mike mi servirebbe uno script facile ,facile e veloce"spero"
prendere a scelta una estrazione 1°,2°,3° del mese ecc.
poi prendere tutti gli estratti di una estrazione per estrapolare la cinquina uscita/e...acc....cioè dopo max5/6 estrazione dei numeri già usciti" nell'estrazione prescelta" escono da una a 3 cinquine.(deve dirmi i 5 numeri usciti e la ruota della cinquina)
periodo a scelta un mese,3 mesi ,un'anno ecc.
per adesso basta cosi che dici è facile?
ciao

 

[Mike58]

Ciao Alien, mi spiace ma sono fuori in vacanza e senza mezzi per fare script,mi auguro che qualcun altro possa aiutarti.

 

[Mike58]

Ciao Alien, reperendo qualche mezzo e una linea wf affidabile, prova cosi, giusto per non lasciarti senza nulla.

Sub Main
 Dim nu(5),Ru(1)
 qt = InputBox("Quante estrazioni",,200)
 Ini = EstrazioneFin - qt
 fin = EstrazioneFin
 'r = InputBox("Quale Ruota analizzi",,1)
 Ind = CInt(InputBox("Quale indice Mensile",,1))
 sorte = CInt(InputBox("Quale sorte di verifica",,3))
 For r = 1 To 12
  If r = 11 Then r = 12
  Scrivi "Ruota in Esame.... " & SiglaRuota(r),1
  Scrivi "Indice Mensile.... " & IndiceMensile(Ind),1
  Scrivi "Sorte di verifica a Tutte = " & NomeSorte(sorte),1
  Scrivi
  T = Array(t,"Data Estrazione","Estratti","Verifica Esito","Colpo")
  Call InitTabella(T)
  For es = Ini To fin
   Ru(1) = 11
   For p = 1 To 5
    nu(p) = Estratto(es,r,p)
   Next
   If IndiceMensile(es) = Ind Then
    Call VerificaEsito(nu,Ru,es + 1,sorte,qt,,esito,clp,es1)
    V = Array(v,GetInfoEstrazione(es),StringaEstratti(es,r),es1,clp)
    Call AddRigaTabella(V)
   End If
  Next
  CreaTabella
 Next
End Sub

Ciao ciao....

 

[Alien.]

Bhe non ci sono aggettivi per ringraziarti............ma credo che non ci siamo ,compresi,o non ho ben capito io il tuo sviluppo.
1)Allora prendi tutti i numeri usciti in una estrazione es: prima del mese,fra tutti quei 55 numeri usciti dopo max 6 colpi esce una o più cinquine.
2) mi deve dire quali numeri sono usciti che formano la cinquina in quale ruota e a quale colpo.
3) stop per adesso-.
Capisco che quando uno è in vacanza è un suo diritto e non si deve disturbare ma io non lo sapevo
Quindi ci risentiamo quanto rientri...fai con calma.
Grazie della cortesia.
ALIEN.

 

[Alien.]

HA ,capito hai preso es:la prima estrazione del mese di bari,cagliari ecc(i suoi 5 estratti) ed hai cercato cosa è successo poi con quei 5 estratti di ogni ruota.
Semplicemente devi prendere gli estratti di tutte le ruote di una estrazione e vedere quante cinquine(eventualmente terni quaterne) sono uscite entro un tot di estrazione in genere sono entro 6/7. stop

 

[Mike58]

Alien, prova cosi e magari termina lo script con le risultanze che vuoi scrivere.
Io continuo la vacanza.

Sub Main
 Dim Nu(50),Ru(1),vetN,vetQ
 Ini = EstrazioneFin - 200
 fin = EstrazioneFin
 Ind = CInt(InputBox("Quale indice Mensile",,1))
 sorte = InputBox("Sorte di verifica",,4)
 colpi = InputBox("Colpi di verifica",,20)
 For es = Ini To fin
  If IndiceMensile(es) = Ind Then
   Ru(1) = 11
   For r = 1 To 10
    For x = 1 To 90
     If EstrattoFrequenza(r,x,es,es) = 1 Then
      k = k + 1
      ReDim Preserve an(k)
      an(k) = x
      Call VerificaEsito(an,Ru,es + 1,sorte,colpi,,esito,clp,es1)
     End If
    Next
   Next
   EliminaRipetuti(an)
   
   Scrivi GetInfoEstrazione(es),1,1,,2
   Scrivi StringaNumeri(an,,1),0,0
   Scrivi " ( " & k & " )",1
   Scrivi es1 & vbTab & " Colpo > " & clp,1,,,1,3
   k = 0
   Scrivi
  End If
 Next
End Sub

 

[Alien.]

ecco..bene continua le vacanze che quando torni devi fare le 7 fatiche di Ercole

a proposito quando torni? hahahahah ciao

 

[Alien.]

http://digilander.VIOLAZIONE: scambio email non consentito !/mirko.doc1/11/vacanza.jpg


ok al lavoro.hahahah senti ti è possibile inserire dei numeri progressivi sopra i numeri reali usciti? grazie per adesso......

 

[Mike58]

Alien,mi hai aspettato al varco !!! si, vacanze finite e come vedi dalla risposta a tarda ora, sono già operativo al lavoro a turni (ahimè anche tutto agosto).
Non ho compreso bene dei 35-50 numeri estrapolati cosa ti serve dei consecutivi, ad occhio trovo difficile la soluzione !!!

fammi degli esempi di cosa vorresti estrapolare.

Ciao.

 

[Alien.]

ho vediamo un pò

numeri progressivi:
1 2 3 4 5 6 7 8 9 10 11 12 ecc..fino a 50/55 numeri
sotto ad ogni numero progressivo ci va inserito il numero reale uscito nell'estrazione considerata.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ecc
1 7 12 14 17 20 21 23 27 31 41 51 ecc..
ovviamente qui vengono non allineati in modo giusto.

spero di essermi spiegato bene...............e buona giornata.....

 

[LuigiB]

Ehi Mike .. come va come procedono i tuoi studi sul .net .... ti regalo un 'immagine --ti aiutera a non farti distogliere eheheh Ciao !
hosting immagini

 

[Mike58]

Alien speriamo che è quello che vuoi, anche se non ne vedo l'utilità.
Mi piacerebbe che quando vogliate delle modifiche ad un qualche progetto si facesse anche menzione del fine circa l'utilizzo.

Sub Main
 Dim Nu(50),Ru(1),vetN,vetQ
 Ini = EstrazioneFin - 200
 fin = EstrazioneFin
 Ind = CInt(InputBox("Quale indice Mensile",,1))
 sorte = InputBox("Sorte di verifica",,4)
 colpi = InputBox("Colpi di verifica",,20)
 For es = Ini To fin
  If IndiceMensile(es) = Ind Then
   Ru(1) = 11
   For r = 1 To 10
    For x = 1 To 90
     If EstrattoFrequenza(r,x,es,es) > 0 Then
      k = k + 1
      ReDim Preserve an(k)
      
      an(k) = x
      
      
      If NumeriRipetutiRilevatiV(an,vetN,vetQ) Then kk = kk + 1
      EliminaRipetuti(an)
      ReDim Preserve kc(k)
      kc(k) = k-kk
      EliminaRipetuti(kc)
      'kk = kk + 1
      Call VerificaEsito(an,Ru,es + 1,sorte,colpi,,esito,clp,es1)
     End If
    Next
   Next
   
   
   Scrivi GetInfoEstrazione(es),1,1,,2
   Scrivi StringaNumeri(kc,,1)
   Scrivi StringaNumeri(an,,1),1,0,,7
   Scrivi " ( " & k - kk & " )",1
   Scrivi es1 & vbTab & " Colpo > " & clp,1,,,1,3
   k = 0
   kk = 0
   Scrivi
  End If
 Next
End Sub

 

[Mike58]

Grazie Luigi,ma il buon Alien è così simpatico, che non si può non aiutare con qualche script.
Si nel Vbnet ho cominciato a capirci qualcosa e ho fatto anche qualche buon script, ma è chiaro che non voglio perdere quello che ho imparato col Vbscript.
Il tutto come sempre è una palestra di allenamento.

 

[LuigiB]

Grazie Luigi,ma il buon Alien è così simpatico, che non si può non aiutare con qualche script.
Si nel Vbnet ho cominciato a capirci qualcosa e ho fatto anche qualche buon script, ma è chiaro che non voglio perdere quello che ho imparato col Vbscript.
Il tutto come sempre è una palestra di allenamento.

si io te l'ho messa per offrire una sponda generica... avendo letto che hai scritto piu volte che non hai tempo e che quello che hai al momento lo vorresti utilizzare per imparare cose nuove ...

Diciamo che sono solidale .. al lavoro mi capita( piacendomi programmare) di intripparmi su qualche
specifico programma e quando sopraggiunge il capo a dirmi no ora si fa questo che è piu uregnte non sai quanto mi fa incazz.. allora in un certo senso pensavo a te che con piacewre ti stavi concentrando su queste nuove attività e allo stesso tempo ti tampinano di richieste forse inopportune ...ciao !

 

[Mike58]

Purtroppo capita anche a me questo, ma poi passato il primo momento,al tutto si da l'importanza del caso.

Luigi un salutone e sempre un grazie per la pazienza e per tutto quello che chi a voluto ci hai insegnato.

Mike

 

[Alien.]

acc.....non credevo di essere simpatico. è difficile trovare un'alieno simpatico.....ma quando un'alieno trova la cortesia di un Mike....".l'unione" è perfetta..grazie.
Allora i numeri consecutivi sonole posizioni che in futuro saranno i numeri da prendere in esame,su 10/30 ecc posizioni con max frequenze.
Se ti è possibile,puoi inserire a lato delle cinquine i relativi numeri consecutivi?

 

[Alien.]

per le altre sopra no comet

 

[Mike58]

Alien, purtroppo le posizioni e i numeri raccolti nella scrittura non sono collegati fra loro e verificarne la posizione della cinquina in esito cosi non mi è possibile.

Non saprei neanche come raccoglierla e collegarla.

Puoi dall'output cliccare sul pulsante Edit e raccogliere i dati manualmente e provare a vedere le corrispondenze che devi tu raccogliere.

Con Il pulsante Edit puoi aggiungere righe varie e creare output stampabili.

Io ad adesso non saprei come altro raccoglirle.

Mi spiace ma devi andare in questa direzione e mi raccomando non uscire dal sistema solare resta con noi

 

[Alien.]

già immaginavo.....che non si poteva fare...ma il pulsante edit dove lo trovo?
è non posso andare ho l'astronave guasta....se non faccio la cinquina

grazie di tutto.

 

[Mike58]

già immaginavo.....che non si poteva fare...ma il pulsante edit dove lo trovo?

quando elabori uno script, hai un output o videata delle risultanze.
Il pulsante EDIT lo trovi in alto a destra nella scritta OUTPUT.
Serve a tante cosa ma anche ad immettere righe in manuali.

Si !!! con la cinquina l'astronava penso che la potresti pure aggiustare, nel caso chiamami per un passaggio.

Ciao carissimo e simpatico Alieno.