Novità

Aiuto°°°°LISTATO°°°°

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

Codice:
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
 
Ultima modifica:
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
 
Ultima modifica:
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
 
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]
 
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
 
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
 
Ultima modifica:
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08
Indietro
Alto