Aiuto su vettore Progressioni

[gennaro]

Salve, ho capito che non ho capito come usare il vettore delle progressioni....

Qlke anima gentile ha uno script funzionante che usi le progressioni, cosi me lo studio. Mi manca un tassello.

Grazie a prescindere

 

[LuigiB]

Option Explicit
Sub Main

	' ESEMPIO PER IMPOSTAPROGRESSIONE 
	' LANCIARE COSI COM'è SENZA MODIFICHE
	
	Dim nColpo ,Posta ,idGiocata
	Dim nSorte 
	ReDim aImportiProgressione(10 ,255)
	
	nSorte = 1 ' estratto
	Posta = 1 ' primo colpo gioca 1 euro
	
	Call Scrivi ("Importi per la progressione")
	
	For nColpo =  1 To 10
		
		aImportiProgressione (nSorte,nColpo ) = Posta
		Call Scrivi ("Colpo " & FormatSpace(nColpo ,2,True ) & " : " &  FormatSpace( Posta , 10 ,True ) & " Euro")
		Posta = Posta *2 ' ad ogni nuovo colpo raddoppia la posta
		
	Next
	Call Scrivi 
	
	ReDim aRuota(1)
	ReDim aNum(1)
	ReDim aP(0)
	
	aNum(1) =10 ' gioco il 10 
	aRuota(1) = BA_ ' su bari 
	idGiocata = 1 ' identificativo numerico della giocata
	
	' immetto la giocata
	Call ImpostaGiocata (idGiocata ,aNum,aRuota,aP,10,1 )
	' abbino la progressione alla giocata identificata da  idGiocata
	Call ImpostaProgressione(idGiocata ,aImportiProgressione )
	' gioco
	Call Gioca (7219 )
	Call ScriviResoconto
	
End Sub

 

[Mike58]

Ciao do anche io una soluzione elementare ABC cosi da impostare manualemente le poste giocate per ogni colpo desiderato.

Sub Main()
 Dim ruote(11)
 Dim numeri1(4)
 Dim poste(3)
 Dim Importi(5,9)' posta x colpi
 poste(2) = 4
 poste(3) = 1
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
 ri = InputBox("Scrivi quì sotto da che data inizio a controllare.","DATA","31/12/2009")
 xx = InputBox("ruota dove analizzare","1 - 10",1)
 ruote(11) = TU_
 k = 9 ' colpi
 'qui impostiamo la NOSTRA progressione,come la vogliamo
 Importi(2,1) = 4 ' ambo
 Importi(2,2) = 5
 Importi(2,3) = 7
 Importi(2,4) = 10
 Importi(2,5) = 15
 Importi(2,6) = 20
 Importi(2,7) = 25
 Importi(2,8) = 35
 Importi(2,9) = 50
 ' - - - - - - - - termine progressione
 For n = PrimaSuccessiva(ri) To EstrazioneFin
  If IndiceMensile(n) = 1 Then
   co = co + 1
   ColoreTesto 7
   numeri1(1) = Fuori90(Estratto(n,xx,1) + 14)
   numeri1(2) = Fuori90(Estratto(n,xx,1) + 55)
   numeri1(3) = Fuori90(Estratto(n,xx,1) + 61)
   Scrivi "-----------------------------------------------------------------------------------------------------" & " Caso n°" & co,2
   Messaggio "elab. del " & DataEstrazione(n)
   ColoreTesto 0
   ImpostaGiocata 1,numeri1,ruote,poste,k,2
   ImpostaProgressione 1,Importi
   Scrivi "puntate eseguite " & colpi
   Scrivi " - 1.cl - " & Importi(2,1) & " euro  x ambo e 1 euro di terno"
   Scrivi " - 2 cl - " & Importi(2,2) & " euro  x ambo e 1 euro di terno"
   Scrivi " - 3 cl - " & Importi(2,3) & " euro  x ambo e 1 euro di terno"
   Scrivi " - 4 cl - " & Importi(2,4) & " euro  x ambo e 1 euro di terno"
   ' etc etc...........
   Gioca n
   ScriviResoconto True
  End If
 Next
 ScriviResoconto
End Sub

 

[keeper]

ciao mike58 ben tornato

 

[Mike58]

Ciao keeper ben trovato,approfitto per fare gli auguri di buon anno a tutti gli amici del forum.

 

[keeper]

ricambio ti apsetto dell'apposito post

 

[gennaro]

Ragazzi vi ringrazio di cuore e vi Auguro Buon 2012