Novità

PER MIKE58

Alien.

Advanced Premium Member
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
 
Ciao Alien, mi spiace ma sono fuori in vacanza e senza mezzi per fare script,mi auguro che qualcun altro possa aiutarti.
 
Ciao Alien, reperendo qualche mezzo e una linea wf affidabile, prova cosi, giusto per non lasciarti senza nulla.

Codice:
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....
 
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:p
Quindi ci risentiamo quanto rientri...fai con calma.
Grazie della cortesia.
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
 
Alien, prova cosi e magari termina lo script con le risultanze che vuoi scrivere.
Io continuo la vacanza.

Codice:
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
 
1361796074-901.jpg


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

a proposito quando torni? hahahahah ciao
 
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......:p
 
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.
 
:p

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.....:cool:





Buongiorno-immagini-divertenti1-320x160.jpg
 
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
 
Ultima modifica di un moderatore:
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.

Codice:
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
 
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.
 
Mike58;n1993852 ha scritto:
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 !
 
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
 
acc.....non credevo di essere simpatico. è difficile trovare un'alieno simpatico.....:pma 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?

animated-alien-and-extraterrestrial-image-0163.gif
 
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 :D
 
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



risate-gif_2.jpg



grazie di tutto.
 
Ultima modifica:
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto