Aiuto°°°°LISTATO°°°°

[thesergio752]

A me serve creare all'interno del listato delle progressioni con stile Fibonacci :

1
1
2
3
5
8
13
21
34
Il tutto x 9 colpi x 1 ambata su unica ruota

Dim ruote(10),n(1),poste(1),progress(......)
poste(1) =..........

progress(.......) =
progress (.......)=
progress (.......) =
progress (.......) =
progress (.......) =
progress (.......) =
progress (.......) =
progress (.......) =
progress (.......) =

Gioca es
Call ImpostaProgressione(1,progress)
Ringrazio chi mi aiuta.ciao ciao

 

[Mike58]

ciao hai quasi tutte le risposte, solo devi settare la dim progressioni con quale progressione ossia sorte x q.tà numero progressione.

Dim progress(1,9)
e poi settare le singole progressioni
progress(1,1) = 1
progress(1,2) = 1
.....
....
progress(1,9) = 34

il resto è corretto per come lo hai esposto.

Ciao

 

[thesergio752]

ciao hai quasi tutte le risposte, solo devi settare la dim progressioni con quale progressione ossia sorte x q.tà numero progressione.

Dim progress(1,9)
e poi settare le singole progressioni
progress(1,1) = 1
progress(1,2) = 1
.....
....
progress(1,9) = 34

il resto è corretto per come lo hai esposto.

Ciao

ho creato il listato con una sola vincita per guardare la tabella del resoconto per totalizzare il totale della vincita ma non dice il totale di perdita che avrei avuto giocando tutti i casi

Sub Main()
Dim ruote(10),num(1),progress(1,9),posta(1)
posta(1)=1
progress(1,1) = 1
progress (1,2)= 1
progress (1,3) = 2
progress(1,4) = 3
progress(1,5) = 5
progress(1,6) = 8
progress (1,7) = 13
progress(1,8) = 21
progress (1,9) = 34


ini = InputBox("INIZIO",,8756)
k = InputBox("COLPI",,9)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
co = co + 1
ruote(1) = BA_
Scrivi String(50,"*") & " Sergio_Cannizzaro" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
Scrivi DataEstrazione(es) & " " & SiglaRuota(VE_) & " " & StringaEstratti(es,VE_)
num(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,5))
ImpostaGiocata 1,num,ruote,posta,k,9
Call ImpostaProgressione(1,progress)
Gioca es
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

 

[Mike58]

Ciao Sergio, devi mettere anche la posta iniziale in quanto impostagiocata chiede il codice posta
osserva il mio listato con altri punti su cui studiarci.

Sub Main()
	Dim ruote(10),num(1),progress(1,9),posta(1)
	posta(1) = 1
	progress(1,1) = 1
	progress(1,2) = 1
	progress(1,3) = 2
	progress(1,4) = 3
	progress(1,5) = 5
	progress(1,6) = 8
	progress(1,7) = 13
	progress(1,8) = 21
	progress(1,9) = 34
	ini = InputBox("INIZIO",,8756)
	k = InputBox("COLPI",,9)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		co = co + 1
		ruote(1) = BA_
		Scrivi String(100,"*") & " Sergio_Cannizzaro " & Format2(co),1
		Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
		Scrivi DataEstrazione(es) & " " & SiglaRuota(VE_) & " " & StringaEstratti(es,VE_)
		'-----------------------------------------------------------
		For rg = 1 To 9
			riga = riga & Format2(progress(1,rg)) & " "
		Next
		Scrivi
		Scrivi "progressione : " &(riga),1
		For x = 1 To 9
			rigo = rigo & Format2(x) & " "
		Next
		Scrivi "Colpo......... " & Format2(rigo),True,True,,1,2
		Scrivi
		riga = ""
		rigo = ""
		'------------------------------------------------------------
		num(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,5))
		'-----------------------------------------------------------
		ImpostaGiocata 1,num,ruote,posta,k,1
		Call ImpostaProgressione(1,progress)
		'-------------------------------------------------------------------
		Gioca es
		'-------------------------------------------------------------------------
		Scrivi "Spesa Parziale......" & GetSpesa(True),True,False,,1,3
		Scrivi"     Spesa totale...." & GetSpesa(False),True,True,,2,3
		Scrivi "Vincita Parziale...." & GetVincita(True),True,False,,1,3
		Scrivi "    Vincita Totale.." & GetVincita(False),True,True,,2,3
		Scrivi "Guadagno Parziale..." & GetGuadagno(True),True,False,,1,3
		Scrivi "    Guagadno totale." & GetGuadagno(False),True,True,,2,3
		'-----------------------------------------------------------------------------
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
	Scrivi "Elenco giocate Tabella di Riepilogo ",1
	elencogiocate
End Sub
Function elencogiocate
	ReDim aT(8)
	aT(1) = "NumGiocata"
	aT(2) = "Colpo"
	aT(3) = "Spesa"
	aT(4) = "SpesaParz"
	aT(5) = "Vincita"
	aT(6) = "VincitaParz"
	aT(7) = " Utile totale "
	aT(8) = " Utile Parz "
	Call InitTabella(aT,1,,3,5)
	For k = 1 To GetQuantitaGiocateEffettuate
		If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
			aT(1) = k
			aT(2) = RetColpo
			aT(3) = RetSpesa
			aT(4) = RetSpesaParz
			aT(5) = RetVincita
			aT(6) = RetVincitaParz
			aT(7) = Round(aT(5) - aT(3),2)
			aT(8) = Round(aT(6) - aT(4),2)
			Call AddRigaTabella(aT,,,3)
			If retcolpo > 0 Then Call SetColoreCella(2,3,0)
			If aT(7) > 0 Then Call SetColoreCella(7,4,2)
			If aT(7) < 0 Then Call SetColoreCella(7,2,4)
			If aT(8) > 0 Then Call SetColoreCella(8,4,2)
			If aT(8) < 0 Then Call SetColoreCella(8,2,4)
		End If
	Next
	Call CreaTabella
End Function

 

[Mike58]

Sergio, purtroppo non capisco cosa devi ottenere, ma i codici sono quelli, devi solo gestirli ad ok tuo.
Io ti ho messo il resoconto giocata parziale e giocata progressiva e alla fine il riepilogo giocate, da questo se vuoi vedere altro devi solo gestirle come meglio credi, puoi mettere una condizione IF che se il il guadagno è superiore a "quello che vuoi" scrivere la dicitura "STAI VINCENTE", altrimenti "STAI PERDENDO", come ti dicevo puoi gestirla come + ti è utile.
Se poi vuoi interrompere tutte le giocate in corso in questo caso non è possibile, perché la giocata è solo 1, mentre se avessi + giocate puoi interrompere e farle interagire una con l'altra.

E' + facile a sperimentarla che spiegarla e solo sperimentando si arriva a quello che ognuno di noi vuole ottenere, chiaramente aiutandosi con l'uso dell'help vbscript.

Ciao

 

[thesergio752]

Sergio, purtroppo non capisco cosa devi ottenere, ma i codici sono quelli, devi solo gestirli ad ok tuo.
Io ti ho messo il resoconto giocata parziale e giocata progressiva e alla fine il riepilogo giocate, da questo se vuoi vedere altro devi solo gestirle come meglio credi, puoi mettere una condizione IF che se il il guadagno è superiore a "quello che vuoi" scrivere la dicitura "STAI VINCENTE", altrimenti "STAI PERDENDO", come ti dicevo puoi gestirla come + ti è utile.
Se poi vuoi interrompere tutte le giocate in corso in questo caso non è possibile, perché la giocata è solo 1, mentre se avessi + giocate puoi interrompere e farle interagire una con l'altra.

E' + facile a sperimentarla che spiegarla e solo sperimentando si arriva a quello che ognuno di noi vuole ottenere, chiaramente aiutandosi con l'uso dell'help vbscript.

Ciao

Ottimo ci siamo capiti.ti ringrazio della disponibilità accordatomi.ciao ciao

 

[thesergio752]

Se qualcuno può aiutarmi con listato adatto alle mie esigenze mi rende felice.ciao ciao

 

[Mike58]

ho creato il listato con una sola vincita per guardare la tabella del resoconto per totalizzare il totale della vincita ma non dice il totale di perdita che avrei avuto giocando tutti i casi

Sergio, magari non ti sei accorto ma se togli dalla imposta giocata il ,1 finale non interrompi le giocate al 1° esito e giochi la previsione per i colpi previsti = 9.
ImpostaGiocata 1,num,ruote,posta,k
Poi hai visto il resoconto in tabella finale ?
Elenco giocate Tabella di Riepilogo Elenco giocate Tabella di Riepilogo

[TABLE="width: 768"]
[TR]
[TD="align: center"]NumGiocata
[/TD]
[TD="align: center"]Colpo
[/TD]
[TD="align: center"]Spesa
[/TD]
[TD="align: center"]SpesaParz
[/TD]
[TD="align: center"]Vincita
[/TD]
[TD="align: center"]VincitaParz
[/TD]
[TD="align: center"] Utile totale
[/TD]
[TD="align: center"] Utile Parz
[/TD]
[/TR]
[TR]
[TD="align: center"]1
[/TD]
[TD="align: center"]5
[/TD]
[TD="align: center"]54
[/TD]
[TD="align: center"]54
[/TD]
[TD="align: center"]52,7904
[/TD]
[TD="align: center"]52,7904
[/TD]
[TD="align: center"]-1,21
[/TD]
[TD="align: center"]-1,21
[/TD]
[/TR]
[TR]
[TD="align: center"]2
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]87
[/TD]
[TD="align: center"]33
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"]137,255
[/TD]
[TD="align: center"]103,05
[/TD]
[TD="align: center"]104,26
[/TD]
[/TR]
[TR]
[TD="align: center"]3
[/TD]
[TD="align: center"]-6
[/TD]
[TD="align: center"]107
[/TD]
[TD="align: center"]20
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]83,05
[/TD]
[TD="align: center"]-20
[/TD]
[/TR]
[TR]
[TD="align: center"]4
[/TD]
[TD="align: center"]-5
[/TD]
[TD="align: center"]119
[/TD]
[TD="align: center"]12
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]71,05
[/TD]
[TD="align: center"]-12
[/TD]
[/TR]
[TR]
[TD="align: center"]5
[/TD]
[TD="align: center"]-4
[/TD]
[TD="align: center"]126
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]64,05
[/TD]
[TD="align: center"]-7
[/TD]
[/TR]
[TR]
[TD="align: center"]6
[/TD]
[TD="align: center"]-3
[/TD]
[TD="align: center"]130
[/TD]
[TD="align: center"]4
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]60,05
[/TD]
[TD="align: center"]-4
[/TD]
[/TR]
[TR]
[TD="align: center"]7
[/TD]
[TD="align: center"]-2
[/TD]
[TD="align: center"]132
[/TD]
[TD="align: center"]2
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]58,05
[/TD]
[TD="align: center"]-2
[/TD]
[/TR]
[TR]
[TD="align: center"]8
[/TD]
[TD="align: center"]-1
[/TD]
[TD="align: center"]133
[/TD]
[TD="align: center"]1
[/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]57,05
[/TD]
[TD="align: center"]-1
[/TD]
[/TR]
[TR]
[TD="align: center"]9
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]133
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]190,0454
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]57,05
[/TD]
[TD="align: center"][/TD]
[/TR]
[/TABLE]

 

[thesergio752]

Grazie mi sono accorto che in basso ai grafici hai aggiunto una tabella con resoconto escluso le perdite, io guardavo quello che sta in cima ai grafici che è inesatto.Sono soddisfatto di nuovo grazie per la pazienza.ciao ciao

 

[Mike58]

Ciao Sergio,nessun problema, mi sembrava strano, che non avevi visto la tabella finale.
Però mi dici che non ci sono le perdite,devo qui correggerti le perdite se esistenti sono la differenza tra vincita e spesa e sono rappresentate dall'utile che viene richiamato sia in modo parziale giocata x giocata che progressiva giocata + giocata.

In questo tuo caso non ci sono perdite e fino ad adesso con le giocate ancora in corso hai un utile positivo.
Poi almeno a me i dati della tabella corrispondono al resoconto elaborato con lo script.

Ciao

 

[thesergio752]

Ciao Mike avrei potuto vederlo e che lavoro su tante cose e mi sfuggito,poi ci sono listati che mi intricano e lascio per vedere cosa svolgono li elaboro a modo mio e li confeziono x utilizzarli. Spero che in futuro ci si possa aiutare.ciao ciao

 

[Mike58]

Ciao Sergio, come ti ho detto prima, non c'è problema, il consiglio che ti posso dare e usare la guida help e cercare di capire cosa producono i codici e sperimentare, sperimentare, vedrai che le soddisfazioni non tarderanno ad arrivare.
Poi per il resto quando c'è bisogno sia io che altri amici sapranno darti il loro aiuto.

Ciao