Aiuto listato! Sono nuovo!!!

[LuigiB]

puoi iniziare sia dagli script di spaziometria si da quelli d i lottodesk la logica e la stessa .. Ciao !

 

[esselotto]

quote:Originally posted by mazinga73

CIao Luigi.

Non vorrei risultare ruffiano!!! Ma il tuo output è sicuramente piu comprensibile, soprattutto per un neofita come come.

Sto seguendo i tuoi video tutorial, sei bravissimo nella spiegazione.

Se ci arrivo a capire io, allora fidati che sei proprio bravo!

Visto che se seguo te, è giusto esercitarmi con il pèrogramma spaziometria, altrimenti entro in confusione.

Ma gari quando sarò piu pratico, passero a lottodesk.

Grazie a tutti coloro mi hanno dato la possobilità di capire e di intraprendere lo studio.

Nessuno di noi mette in dubbio che l'output di Spaziometria
è migliore, e << esteticamente più comprensibile>>.
Specialmente, se usi Funzioni che anch'io ignoravo,
e che stò scoprendo a poco a poco.

Io chiedevo l'errore del risultato............?[?]

Se mi dici che Giocando un'ambata esempio 16
Su Spaziometria la rileva
mentre su Ld No.

Vuol dire che sbagli in qualcosa.

Ripeto Ld e commerciale quindi prima di metterlo in commercio.
avranno certamente fatto tutte le dovute prove e test vari.

Io non tengo parti a nessuno.
Dico solo, chi sviluppa programmi(software) fa un lavoro, che non può essere disprezzato.

Quindi ne Spaziometria di Luigi e neanche Ld (di cui non conosco l'autore)

esselotto

 

[imported_n/a]

CIao Esselotto.
Non riesco a capire a chi ti riferisci. Se ti riferisci a me, io non ho disprezzato ne l'uno ne l'altro,

Non ne ho le competemze ne l'intenzione.

Da perfetto ignorante in materia chiedevo solo una delucidazione.

Fermo restando che proprio perchè sono del tutt ignorante in materia, dico che quando vedo l'output di spaziometria riesco a capirci, mentre su lottodesk no.

Magari quando mi sarò "impratichito" non notero la differenze tra l'uno e l'altro.

Solo questo.

Buona giornata a tutti.

 

[esselotto]

quote:Originally posted by mazinga73

CIao Esselotto.
Non riesco a capire a chi ti riferisci. Se ti riferisci a me, io non ho disprezzato ne l'uno ne l'altro,

Non ne ho le competemze ne l'intenzione.

Da perfetto ignorante in materia chiedevo solo una delucidazione.

Fermo restando che proprio perchè sono del tutt ignorante in materia, dico che quando vedo l'output di spaziometria riesco a capirci, mentre su lottodesk no.

Magari quando mi sarò "impratichito" non notero la differenze tra l'uno e l'altro.

Solo questo.

Buona giornata a tutti.

Certo che mi riferisco a te Mazinga73

non si stà parlando di offendere .

Nel post dove hai inserito l'immagini chiedi

Tuo Scritto
<<<<<<<<<<<<<<<<
Ma perchè se incollo un listato su spaziometria, l'output è corretto, e se lo incollo su lottodesk ( che non è altro che la nuova versione di L8) l'output è completamente diverso?
Ma usano linguaggi diversi?
>>>>>>>>>>>>>>>>>>>>>>>>


Hai chiesto Aiuto Ma se non indichi lo sbaglio come facciamo a risolvere il tuo problema????????

esselotto

 

[imported_n/a]

quote:Originally posted by esselotto

quote:Originally posted by mazinga73

CIao Esselotto.
Non riesco a capire a chi ti riferisci. Se ti riferisci a me, io non ho disprezzato ne l'uno ne l'altro,

Non ne ho le competemze ne l'intenzione.

Da perfetto ignorante in materia chiedevo solo una delucidazione.

Fermo restando che proprio perchè sono del tutt ignorante in materia, dico che quando vedo l'output di spaziometria riesco a capirci, mentre su lottodesk no.

Magari quando mi sarò "impratichito" non notero la differenze tra l'uno e l'altro.

Solo questo.

Buona giornata a tutti.

Certo che mi riferisco a te Mazinga73

non si stà parlando di offendere .

Nel post dove hai inserito l'immagini chiedi

Tuo Scritto
<<<<<<<<<<<<<<<<
Ma perchè se incollo un listato su spaziometria, l'output è corretto, e se lo incollo su lottodesk ( che non è altro che la nuova versione di L8) l'output è completamente diverso?
Ma usano linguaggi diversi?
>>>>>>>>>>>>>>>>>>>>>>>>


Hai chiesto Aiuto Ma se non indichi lo sbaglio come facciamo a risolvere il tuo problema????????

esselotto

Eeee...!!! mi sa che Esselotto ha ragione !!![][][]
E una mia opinione pero a tutto c'è un rimedio basta spiegarsi meglio, su ragazzi la collaborazione e una "Forza"
Bye Bye

 

[imported_n/a]

Ragazzi ho bisogno di aiuto.
COme faccio a fare uno script che prenda come riferimento l'ultima del mese?
Ho provato a cambiare questo:
IndiceMensile(es) = ma qui non so che mettere
l'ultima del mese non corrisponde mai allo stesso n° di estrazione.

Ho provato a mettere :
IndiceMensile(es) = EstrazioneFin
ma non funge. L'output è bianco

Chi mi aiuta?

 

[LuigiB]

ciao Mazinga , non devi fare a caso senno è ovvio che esce bianco ...
EstrazioneFin serve per ottenere l'estrazione masssima nel range impostato nel programma , non centra niente con quello che serve a te !
Provate a consultare l'help dello script per capire come si usa no le funzioni , cioe vedete una funzione nello script di qualcuno , bene aprite l'help e andate a vedere la spiegazione cosi piano piano imparate.
Per il tuo caso bisogna fare una funzioncina , questa che ti posto
ha solo un problema potrebbe scambiare per ultima del mese anche l'ultima estrazione presente in archivio che se ci pensio essendo l'ultima per il momento è anche lei l'ultima del mese bando alle ciance ecco lo script

Sub Main
	
	dim k
        for k = 8000 to 8100 ' ESTRAZIONI da 8000 a 8100 per ese.
           if IsUltimaDelMese (k) then ' se è l'ultima del mese ...
                 ' QUI METTI QUELLO CHE DEVI FARE TU

           end if 

	next
End Sub

Function IsUltimaDelMese (idEstr)
	If  Mese( idEstr ) <> Mese(idEstr+1) Then
		IsUltimaDelMese = True
	End If

		
End Function

 

[imported_n/a]

Sub Main()
Dim ruota(4),ruote(11),posta(1),poste(3)
Dim nu(3)

ruota(1) = 1 ' ruota di bari
ruota(2) = 2 ' ruota di cagliari
ruota(3) = 3 ' ruota di firenze
ruota(4) = 10 ' ruota di Venezia
posta(1) = 5 ' posta x ambata
poste(2) = 1 ' posta x ambo
poste(3) = 1 'posta x TERNO

ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))

fin = EstrazioneFin ' ultima estrazione
ini = fin - ee 'inizio estrazione ( ultima - n° di estrazione da analizzare(input box 100)

For es = ini To fin


Dim kk
For kk = 8000 To 8100 ' ESTRAZIONI da 8000 a 8100 per ese.
If IsUltimaDelMese (kk) Then ' se è l'ultima del mese ...

'-----calcolo numeri--------------------------------

nu(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1))' I° estratto di CA + I° estratto di FI
nu(2) = Fuori90 (Estratto(es,1,5)+ Vert(nu(2))) ' 5° estratto di BA+ Vertibile

nu(3) = Fuori90(Estratto(es,10,5) + Estratto(es,7,5))' V° estratto di VE+ V° estratto di PALERMO


End If

Next



ImpostaGiocata 1,nu,ruota,posta,k,1 ' imposta giocata per ambata fino all'esito
ImpostaGiocata 2,nu,ruota,poste,k,2 ' giocata per ambo a ruota

Gioca es

Next
ScriviResoconto
End Sub
Function IsUltimaDelMese (idEstr)
If Mese( idEstr ) <> Mese(idEstr+1) Then
IsUltimaDelMese = True
End If

End Function

Ragazzi mi date una mano?
Io vorrei che all'ultiuma del mese l script prendesse i seguenti estratti li sommasse e li rimette in gioco per max 10 colpi.

Gli abbinamenti sono questi
I° estratto di CA + I° estratto di FI
5° estratto di BA + il suo stesso Vertibile
V° estratto di VE+ V° estratto di PALERMO

C'è sicuro qualcosa che non va.
Se io gli dico che all afine del mese deve prendere i numeri di sopra con le eventuali somme, perchè poi mi escono fuori date che non deve controllare?
Inoltre quando gli dico di prendere il V estr e di sommarlo al suo stesso vertibile,il numero non è giusto. l'ho fatto con carta e penna per vedere se era giusto ma non lo è.
Grazie a chi vorra darmi una mano.

 

[LuigiB]

Ciao Mazinga , c'è un errore in questa riga


nu(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1))' I° estratto di CA + I° estratto di FI

tu fai un ciclo con la variabile KK ed è quella che scorre da 8000 a 8100 !! nel tuo script l'errore è proprio quello che invece di usare kk
usi la variabile es .. comunque sono al lavoro non ho visto bene , ci potrebbero essere altri errori

 

[imported_n/a]

Ciao Luigi, grazie per avermi risposto.

Io sono alle prime armi, e vado scoppiazzando!!!! E alcune cose le faccio ma non le capisco!!!!

Spero tu mi possa aiutare appena hai tempo.

 

[imported_n/a]

quote:
nu(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1))' I° estratto di CA + I° estratto di FI

Luigi ho porvato a sostituire "es" con "kk" ma non riesco a capire perchè mi prende in cosiderazione anche estrazioni che non sono l'ultima del mese.

Se io voglio fare una ricerca a ritroso solo prendendo come riferimento l'ultima del mese, lo script dovrebbe riconoscere l'estrazione che richiedo, prendere i numeru dell ruotre che dico io, e rimetterle in gioco.

Ma lo script fa quello che dice lui, non mi segue!

 

[imported_n/a]

Qualcuno di buon cuore mi da una mano???

 

[LuigiB]

Ciao Mazinga , tira fuori la mente di tetsuya e tutto il resto va da se !!!
eehh con questa battuta presa dalal sigla del famoso cartone animato
voglio consigliarti di studiare bene questo script che ti posto ,
tu sai cosa deve fare lo script , analizzalo per vedere come si fa e vedrai che piano piano impari a scriverli da solo !
Ciao

Option Explicit
Sub Main()
	Dim ruota(4),ruote(11),posta(1),poste(3)
	Dim nu(3)
	Dim es,ee,k,fin,Ini,kk
	ruota(1) = 1 ' ruota di bari
	ruota(2) = 2 ' ruota di cagliari
	ruota(3) = 3 ' ruota di firenze
	ruota(4) = 10 ' ruota di Venezia
	posta(1) = 5 ' posta x ambata
	poste(2) = 1 ' posta x ambo
	poste(3) = 1 'posta x TERNO
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
	k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))
	fin = EstrazioneFin ' ultima estrazione
	Ini = fin - ee 'inizio estrazione ( ultima - n° di estrazione da analizzare(input box 100)
	For es = Ini To fin
		If IsUltimaDelMese(es) Then ' se è l'ultima del mese ...
			'-----calcolo numeri--------------------------------
			nu(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1))' I° estratto di CA + I° estratto di FI
			nu(2) = Fuori90(Estratto(es,1,5) + Vert(nu(2))) ' 5° estratto di BA+ Vertibile
			nu(3) = Fuori90(Estratto(es,10,5) + Estratto(es,7,5))' V° estratto di VE+ V° estratto di PALERMO
			ImpostaGiocata 1,nu,ruota,posta,k,1 ' imposta giocata per ambata fino all'esito
			ImpostaGiocata 2,nu,ruota,poste,k,2 ' giocata per ambo a ruota
			Gioca es
		End If
	Next
	ScriviResoconto
End Sub
Function IsUltimaDelMese(idEstr)
	If Mese(idEstr) <> Mese(idEstr + 1) Then
		IsUltimaDelMese = True
	End If
End Function

 

[imported_n/a]

Grazie Luigi.
COrro subito a studiarlo. Non vedo l'ìora di essere autonomo.
Ce la sto mettendo tutta.

 

[imported_n/a]

Ho notato che lo script in questa riga non fa il suo dovere:
nu(2) = Fuori90(Estratto(es,1,5) + Vert(nu(2))) ' 5° estratto di BA+ Vertibile

dovrebbe prendere il quinto estratto di bari e sommarlo al suo vertibile....

WHY?[xx(]

 

[LuigiB]

è chiaro che c'è un errore , quelle righe io le ho lasciate com'erano
senza manco guardarle ...

nu(2) = Fuori90(Estratto(es,1, 5) + Vert(nu(2)))

è sbagliato perche la variabile nu(2) è quella che deve diventare
il numero da porre in gioco non la puoi usare per ottenre il vertibil eche dici tu

nu(2) = Fuori90(Estratto(es,1, 5) + Vert(Estratto(es,1, 5)))

se hai capito verifica se hai commmesso altri errori

 

[imported_n/a]

Luigi grazie.

Verifico subito.