X LuigiB - (il sig rich è pregato di astenersi)

[Roby]

Sono un nuovo iscritto, buonagiornata, complimenti x il suo programma

Ho un problema con VerificaEsito, pare che non funzioni sulla nazionale.
Inoltre, come Lei potrà vedere nel post lincato, avrei bisogno di estrapolare i singoli estratti per sommarli. E' possibile farlo?

http://forum.lottoced.com/topic.asp?whichpage=1&TOPIC_ID=132488#1034031

grazie
buonagiornata

 

[esselotto]

quote:Originally posted by claudio8

Sono un nuovo iscritto, buonagiornata, complimenti x il suo programma

Ho un problema con VerificaEsito, pare che non funzioni sulla nazionale.
Inoltre, come Lei potrà vedere nel post lincato, avrei bisogno di estrapolare i singoli estratti per sommarli. E' possibile farlo?

http://forum.lottoced.com/topic.asp?whichpage=1&TOPIC_ID=132488#1034031

grazie
buonagiornata

Ciao Claudio8 Buona giornata e benvenuto su lottoced

 

[LuigiB]

Ah che peccato nonostante le porga il mio caloroso benvenuto
devo purtroppo dirle che non intendo darle confidenza
in quanto il numero dei suoi messaggi cosi esiguo non testimonia
un'intensa attività nel forum inoltre da quanto mi risulta non mi sembra
che Lei abbia effettuato alcun tipo di donazione , non ha acquistato
nonuno dei miei programmi non commercializzabili e dal sicuro esito catastrofico ...ne adamantino ne titano ne apocaliptus ne tornado ne tsunami ne il famoso Eyjafjallajökul (programma dalla potenza eruttiva) ne tantomeno l'ultimo uscito proprio stanotte Bin Laden ...
tutti i miei programmi sono inoltre famosi per essere pieni di opZional.. si ravveda ed esegua la piu presto una donazione facoltativa di 500 euro ...
In alternativa Le consiglio pertanto di farsi fare una bella lettera di presentazione
da parte di qualche utente acccreditato e di indubbia fiducia ...
le porgo i miei oZZEqui e il mio Zaluto

 

[claudio8]

Mi scusi Faraone, ma non conosco altro programmatore fuori che Lei.

Inoltro Le rivolgo questa mia seria richiesta poichè il CAPOCLASSE non saprebbe aiutarmi.

http://forum.lottoced.com/topic.asp?whichpage=1&TOPIC_ID=132488#1034031

Se mi risolve il BUG Le invio una cospiqua offerta (avanzo in giro qualche cappuccino, Le può andar bene ?) altrimenti devo rivolgermi al mio cric & cracker personale.

Per quanto riguarda i programmi, l'unico di mio intresse potrebbe essere il famoso Eyjafjallajökul (eruttivo), ma a suo sfavore vi è il costo, in farmacia me la caverei con 50 euro.

Grazie ... non tiri fuori le solite bombolette di Ele altrimenti mi mangio la torta del suo compleanno.

 

[LuigiB]

ciao Cloud allora per il problema della nazionale devo risolvere io da programma , se vuoi risolvere tu invece di NZ_ passa il valore 11
ma comunque devo risolverlo io.
Riguardo l'estrapolazione dei numeri la cosa è semplice ,
la funzioen ha un parametro che si chiama RetEstratti
e che è cosi formattata

2 caratteri per la ruota
blank (uno spazio)
2 caratteri per il primo estratto
blank (uno spazio)
2 caratteri per il secondo estratto
blank (uno spazio)
2 caratteri per il terzo estratto
blank (uno spazio)
2 caratteri per il quarto estratto
blank (uno spazio)
2 caratteri per il quinto estratto

essendo tutti i valori separati da spazio puoi facilmente
fali tornare in un vettore con la funzione SplitByChar
come dimostrato nell'esempio sottostante ...

Sub Main
	ReDim aNum(4) ' array contenente il pronostico
	ReDim aRt(2) ' array contenente le ruote
	Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
	Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
	Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
	Dim RetEstratti ' torna i numeri estratti
	Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
	Dim  k 
	Dim Somma
	
		
		
	'imposto il pronostico da verificare
	aNum(1) = 4
	aNum(2) = 8
	aNum(3) = 12
	aNum(4) = 16
	' imposto le ruote su cui giocare
	aRt(1) = BA_
	aRt(2) = RO_
	' imposto l'estrazione da dove parte la verifica
	idEstrInizio = 5000
		
	
	'gioco per AMBO  senza un numero di colpi limite
	If VerificaEsito(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
		Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
		
		
		' come si fa a leggere in un array gli estratti usciti e sommarli ?
		ReDim aV(0)
		Call SplitByChar( RetEstratti , " " ,aV)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				Somma = Somma + CInt(aV(k))
			End If
		Next
		Call Scrivi ("Somma estratti : " & Somma)
		
	Else
		Call Scrivi("Esito negativo")
	End If
End Sub

 

[claudio8]

Grazie Luigi

X la somma è tutto OK.

X la Nazionale pensaci Tu perche con 11 considera Tutte.

Ciao.. e grazie a te, non al CAPOCLASSE