Un semplice script

[giorgioantonio]

Salve a tutti gli scripters,

dovrebbe essere semplice scrivere uno script
per questa richiesta:

Titolo: Datemi 3 numeretti;
condizioni: se sulla estrazione sono presenti
3 e solo 3 numeretti (da 1 a 9)
comporre i 3 numeri per ambo
inizio estrazione es: 2-4-6-10-12-ecc ottenere
2-4
2-6
4-6
a questi 3 ambi abbinare l'unione (non la somma)
dei 2 numeretti
2-4 diventa 24; 2-6 diventa 26; 4-6 diventa 46
Otterremo le seguenti combinazioni:
Specchietto esito: data di partenza
est.ne: 01(data) 02(data) 03(data) 04(data) 05(data) 06(data)
2-4-24 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-4-26 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-4-46 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-6-24 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-6-26 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-6-46 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
4-6-24 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
4-6-26 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
4-6-46 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-4-24-26-46 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
2-6-26-46-24 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
4-6-46-24-26 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
Per default 5-6 (a scelta) estrazioni sulla giocata;

NB: preciso che se zero numeretti, se 1 numeretto, se 2 numeretti,
se 4 e più numeretti l'estrazione non va presa in considerazione.
NB: se nell'estrazione appena precedente ci sono 4 numeri l'estrazione
con 3 numeretti non va presa in considerazione.

Grazie a chi prenderà visione e impegno a questo script.

Salute e saluti.

 

[giorgioantonio]

Mi sono dimenticato di mettere il rullino nella macchina fotografica:
lo script riguarda il 10elotto serale.
Pardon

 

[Mike58]

Ciao carissimo giorgioantonio,solo una bozza a modo mio della tua richiesta, solo per non far cadere invano la richiesta.
Ti ho messo un po' di inputbox affinché puoi simulare la verifica, ma non intento suddividerla in giocate singole, tanto la verifica dice lo stesso gli esiti minimi.

Le altre condizioni non mi va di cercarle ci vorrebbero troppi controlli.

se ti accontenti è questo.

Sub Main
 Dim Nu(20),aNum(20),TL,VL
 ImpostaArchivio10ELotto(1)
 Scrivi"Cerca nella estrazione 10 e Lotto Serale solo 3 Numeretti e giocali con le rispettive Unioni",1
 Scrivi
 qt = InputBox("Quante estrazioni ? ",,100)
 Ini = EstrazioniArchivioDL - qt
 fin = EstrazioniArchivioDL
 sorte = CInt(InputBox("Quale sorte di verifica MINIMA",,3))
 cl = CInt(InputBox("Quanti colpi la verifica",,20))
 TL = Array(TL,"Id Data Trovata","stringa Estratti","Numeretti ","Sestina Pronostico","Esito","verifica primo esito valido","Colpo")
 Call InitTabella(TL)
 For es = Ini To fin
  k = 0
  For p = 1 To 20
   Nu(p) = EstrattoDL(es,p)
   If Nu(p) < 10 Then
    k = k + 1
    ReDim Preserve Num(qt)
    Num(1) = Nu(1)
    Num(2) = Nu(2)
    Num(3) = Nu(3)
   End If
   aNum(1) = Num(1)
   aNum(2) = Num(2)
   aNum(3) = Num(3)
   aNum(4) = Num(1) & Num(2)
   aNum(5) = Num(1) & Num(3)
   aNum(6) = Num(2) & Num(3)
  Next
  If k = 3 Then
   Call VerificaEsitoDL(aNum,es + 1,sorte,cl,esito,clp,es1,Id)
   VL = Array(VL,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(Num),StringaNumeri(aNum),esito,es1,clp)
   Call AddRigaTabella(VL)
   k = ""
  End If
 Next
 Call SetTableWidth("100%")
 CreaTabella
End Sub

 

[giorgioantonio]

Ciao Mike, ti ringrazio dell'aiuto, ossia dell'interessamento.
Spero che apporterai dei cambiamenti in seguito e senza darti fretta. So che devi far quadrato sull'argomento.
Vorrei chiederti che se puoi tenere conto che vorrei l'esito completo sui colpi richiesti.
Non ho, non è facile, verificare per esempio la seconda condizione cioè quella che
se all'estrazione (esempio) 10 si trovano 3 numeretti e all'estrazione 9 si trovano 4 o più
numeri, il pronostico è nullo.
Il resto essendo di 2 sole condizioni la prima va bene.

A tuo comodo aspetto qualche cambiamento.

Ciao

 

[Alien.]

ok MIKE ,per fare na verifica della validità ci vorrebbe dei pronostici antecedenti da gen 2015 in poi...che per caso.......

 

[k2108]

salve sono un nuovo iscritto al forum e da un po di tempo che mi sto dedicando a questo metodo e mi ha dato molte soddisfazioni con qualche vincita. nel listato si potrebbe aggiungere i vertibili,
un esempio escono i 3 numeretti 1-3-5 unione dei numeretti 13-15-35 e i loro vertibili sono 31-51-53 cosi da prendere solo l'unione dei numeretti e i loro vertibili
in questo modo i numeri da tenere in considerazione saranno 13-15-35-31-51-53

 

[giorgioantonio]

. nel listato si potrebbe aggiungere i vertibili,
un esempio escono i 3 numeretti 1-3-5 unione dei numeretti 13-15-35 e i loro vertibili sono 31-51-53 cosi da prendere solo l'unione dei numeretti e i loro vertibili
in questo modo i numeri da tenere in considerazione saranno 13-15-35-31-51-53

Salve K2108,
ti dispiace se questa aggiunta la può fare dopo?
Il motivo è presto detto: a quanto ho chiesto si aggiungerebbero altri 3 numeri che diventa più difficle
come gestirli.
Vediamo prima Mike58 se ci accontenta e poi eventualmente gli chiedi l'aggiunta e come imostarli.

Ciao

 

[k2108]

ciao giorgioantonio per me va bene posso aspettare.

 

[Mike58]

Ciao k2108, la tua modifica è semplicissima da fare e poi si comporta anche meglio.

eccoti lo script

Sub Main
 Dim Nu(20),aNum(20),TL,VL
 ImpostaArchivio10ELotto(1)
 Scrivi"Cerca nella estrazione 10 e Lotto Serale solo 3 Numeretti e giocali con le rispettive Unioni e vertibili",1
 Scrivi
 qt = InputBox("Quante estrazioni ? ",,100)
 Ini = EstrazioniArchivioDL - qt
 fin = EstrazioniArchivioDL
 sorte = CInt(InputBox("Quale sorte di verifica MINIMA",,3))
 cl = CInt(InputBox("Quanti colpi la verifica",,20))
 TL = Array(TL,"Id Data Trovata","stringa Estratti","Numeretti ","Sestina Pronostico","Esito","verifica primo esito valido","Colpo")
 Call InitTabella(TL)
 For es = Ini To fin
  k = 0
  For p = 1 To 20
   Nu(p) = EstrattoDL(es,p)
   If Nu(p) < 10 Then
    k = k + 1
    ReDim Preserve Num(qt)
    Num(1) = Nu(1)
    Num(2) = Nu(2)
    Num(3) = Nu(3)
   End If
   
   aNum(1) = Num(1) & Num(2)
   aNum(2) = Num(1) & Num(3)
   aNum(3) = Num(2) & Num(3)
   aNum(4) = Vert (aNum(1))
   aNum(5) = Vert (aNum(2))
   aNum(6) = Vert (aNum(3))
  Next
  If k = 3 Then
   Call VerificaEsitoDL(aNum,es + 1,sorte,cl,esito,clp,es1,Id)
   VL = Array(VL,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(Num),StringaNumeri(aNum),esito,es1,clp)
   Call AddRigaTabella(VL)
   k = ""
  End If
 Next
 Call SetTableWidth("100%")
 CreaTabella
End Sub

mentre le correzioni x giorgioantonio richiedono impegno e valutazioni vari fra confronti e non sono sicuro di arrivarci in tempi brevi.

non prometto nulla.

 

[Mike58]

ok MIKE ,per fare na verifica della validità ci vorrebbe dei pronostici antecedenti da gen 2015 in poi...che per caso.......

Alien basta maggiorare il numero di estrazione e arrivi alle risultanze che vuoi vedere, io do delle indicazioni di base ma poi spetta a voi utilizzatori trovare il miglior compromesso.

Ciao

 

[giorgioantonio]

Ciao Mike58,
noi (io) siamo dietro la finestra ad aspettare che esce il bel tempo (scherzo);
Voevo dire sulla aggiunta che l'apparenza inganna: Per esempio ho lanciato lo script e in base
agli input consigliati ho lascito fare, risultato negativo.
Mi spiego, sule 20 estrazioni o casi conseguiti ho ottenuto una sola vincita. Infatti
all'input di quale combinazione ottenere ne troviamo solo una: 5:
Si è tenuto in considerazione la giocata di 8 numeri, 5 si è avuta una sola vincita
cioè 20 €.

ciao.

 

[k2108]

grazie mike58 per la modifica

 

[giorgioantonio]

Ciao Mike58,
se ti va di apportare qualche perfezionamento sullo script, come per esempio la ricerca per tutto il periodo
chiesto: su ogni 5 oppure 6 anche se trova qualche vincita, pregandoti, se sei intenzionato, di fare modifiche/
aggiunte sul primo script che hai messo a disposizione.
Non aggiungo altro o meglio
saluti e grazie per la disponibilità.

Ciao

 

[Remoto]

Ciao Mike58 ho provato a scaricare lo script del 5-3-2016 ma mi da questo errore: errore script !
500 variabile non definita: 'qt'
linea : 7
colonna : 1
source : errore di run-time di Microsoft vbs cript
puoi vedere di cosa si tratta? Grazie.
SALUTI REMOTO

 

[k2108]

ciao giorgioantonio posso provare questo metodo nella sezione metodi per vedere come si comporta in futuro con qualche variazione al tuo postato ovvero mettere i vertibili e in più il -1 ed il +1 vediamo come si comporta.

 

[giorgioantonio]

Ciao K2108, non ho niente in contrario resta sempre che Mike58 sia disponibile
ad accontentarci e ringraziarlo/i per quello che ci fanno (GRATIS).
Poi non ho capito a quali numeri devi fare il più 1 e meno 1.
Francamente dopo tanti anni di esperienza nei giochi, ad esempio
mi fissavo al totocalcio di quante più triple poter utilizzare ma alla fine
non riuscivo a ricavare niente di buono e via dicendo sugli altri giochi.
La quantità enorme di numeri non la condivido più.
Nell'altro script sui numeri primi ad esempio non mi illudo che giocando
molti numeri possa vincere, intanto devo affrontare la spesa del sistema
che 14-15-16 numeri non è una cosa da niente a sviluppare il sistema
pur vincendo con una quaterna su un sistema di 5-6-7 numeri a combinazione
ci ho rimesso cmq.
Parto sempre che non vinco tutte le estrazioni di conseguenza e giocando
su pochi numeri quando vinco ho almeno la certezza di recuperare quanto
giocato ma meglio dire quanto perso.
L'impostazione dello specchietto da me realizzato e postato in questo ha implicito
questo concetto, perchè questo metodo che l'abbiamo copiato dallo stesso
sito, il metodo va preso che i dovuti accorgimenti.
Perchè avrei chiesto a Mike58 di processare il metodo per tutto il periodo
che si intende provare.
Il fatto di aggiungere anche i vertibili a questo script non sarei daccordo
perchè i numeri vanno a 9 e per giocarli tutti devi sviluppare più combinazioni.
Facci caso nel senso di conti alla mano come è stato impostato lo specchietto
andando a ritroso ci starebbe la probabilità che a vincita almeno vai a pareggio.

Perciò K2108 fai e chiedi ciò che ritieni più opportuno.
Ciao.

 

[k2108]

giorgioantonio ti ringrazio per la risposta capisco quello che dici anche io giocavo al totocalcio ed e proprio per questo che ho capito che ci vuole un buon pronostico prima di tutto con il totocalcio cera un po di logica con i numeri zero logica e tutto causale ma se si riesce a prendere molti numeri del pronostico si può azzardare a qualcosa se si prendono pochi numeri non si arriva a nulla ma se non si prova per niente uno non può dire almeno ci ho provato.
Si e vero la mole di numeri sara molto circa 18 per questo ho cercato su internet un sistema da primato di 18 numeri per giocarlo e vedere come si comporta.
alla prima uscita dei 3 numeretti lo metto in atto vediamo che succede .

 

[Alien.]

Alien basta maggiorare il numero di estrazione e arrivi alle risultanze che vuoi vedere, io do delle indicazioni di base ma poi spetta a voi utilizzatori trovare il miglior compromesso.

Ciao

OK fatto grazie.

 

[claudio8]

Ciao Mike58 ho provato a scaricare lo script del 5-3-2016 ma mi da questo errore: errore script !
500 variabile non definita: 'qt'
linea : 7
colonna : 1
source : errore di run-time di Microsoft vbs cript
puoi vedere di cosa si tratta? Grazie.
SALUTI REMOTO

Lo spazio script, l'ambiente in cui girano gli script, ti richiede di dimensionare la variabile "qt" questo si fa scrivendo tra le prime righe Dim qt o aggiungendo ad altre variabili (testo colore rosa) presenti, la "virgola" e il nome della variabile.
Tu hai sicuramnte il programma settato con "option explicit" sul "Si", questo implica che tutte le veriabili debbano essere dimensionate x essere accettate nello script, ma spesso noi scripter, per questioni di tempo non le Dim...ensioniamo
La scritta "Option Explicit" ti appare all'apertura della pagina vuota dello script prima di Sub Main, quindi o la cancelli tutte le volte o deselezioni l'opzione nella sezione configurazione ( percorso: altrimenu' > configura > opzioni > e seleziona "no" su opzioni explicit).

 

[Remoto]

Grazie Claudio8 tutto ok
​SALUTI REMOTO