fillotto
Advanced Member >PLATINUM<
A seguito di una modifica di uno script di Mike58 qui sotto si ottiene una tabella di cui all'immagine sotto vorrei ottenere non tutti e 5 i numeri ma i singoli
numeri dell'estrazione precedente una sorta di evoluzione del 1° num del 2° .... del 5° di cui ho fatto 5 colonne con relativi totali. Come modificare lo script di sotto?
numeri dell'estrazione precedente una sorta di evoluzione del 1° num del 2° .... del 5° di cui ho fatto 5 colonne con relativi totali. Come modificare lo script di sotto?
Codice:
Sub Main()
Dim ru(1),posta(10),num(5),nu(5)
r1 = CInt(InputBox("1°RUOTA DI RICERCA?",,1))
ad = CInt(InputBox("Quale adattatore",,1))
Scrivi "Ruota di " & NomeRuota(r1) & " - estrazione precedente + adattatore " & ad,1,- 1,3
Scrivi
ru(1) = r1
'ru(2) = r2
posta(1) = 1
'posta(2) = 1
fin = EstrazioneFin
ini = fin - 9
For pos = 1 To 5
ReDim atitoli(14)
atitoli(1) = " DATA ESTRAZIONE "
atitoli(2) = " ESTRAZ PREC "
atitoli(3) = " ADATT."
atitoli(4) = " ESITO "
atitoli(5) = " EVOL_ES1 "'qui al posto di 'atitoli(5) = " RET_ESTRATTI " metto L'EVOLzione del 1° estratto
atitoli(6) = " EVOL_ES2 "
atitoli(7) = " EVOL_ES3 "
atitoli(8) = " EVOL_ES4 "
atitoli(9) = " EVOL_ES5 "
atitoli(10) = " NUMERI IN GIOCO "
atitoli(11) = " RUOTA DI " & NomeRuota(r1)
atitoli(12) = " SPESA "
atitoli(13) = " VINCITA NETTA "
atitoli(14) = " UTILE NETTO "
Call InitTabella(atitoli,1,,2,5)'chiama l'inializzazione della tabella .... ci deve mettere
' 1) gli atitoli cioè Vettore contenente i valori per ciascuna colonna
' 2) l'argomento " 1 " il colore id del colore da utilizzare per lo sfondo della riga
' 3) in questo caso lo salta sarebbe Allineamento , valori possibili Left , center , Right
' 4) qui c'è il 3 cioè Dimensione font va da 1 a 5
' 5) qui c'è 5 cioè Id del colore da utilizzare per il testo (nei TITOLI)
For es = ini To fin
Messaggio es
nu(1) = Estratto(es - 1,r1,1)'Questo è il 1° num dell'estraz precedente
nu(2) = Estratto(es - 1,r1,2)'Questo è il 2° num dell'estraz precedente
nu(3) = Estratto(es - 1,r1,3)'Questo è il 3° num dell'estraz precedente
nu(4) = Estratto(es - 1,r1,4)'Questo è il 4° num dell'estraz precedente
nu(5) = Estratto(es - 1,r1,5)'Questo è il 5° num dell'estraz precedente
num(1) = Format2(Fuori90(nu(1) + ad))' il nu(1)+ l'adattatore
num(2) = Format2(Fuori90(nu(2) + ad))' il nu(1)+ l'adattatore
num(3) = Format2(Fuori90(nu(3) + ad))' il nu(1)+ l'adattatore
num(4) = Format2(Fuori90(nu(4) + ad))' il nu(1)+ l'adattatore
num(5) = Format2(Fuori90(nu(5) + ad))' il nu(1)+ l'adattatore
Call VerificaEsito(num,ru,es,1,1,pos,retesito,retcolpi,retestratti)
' 1 2 3 4 5 6 7 8 9
'1)aNumeri, num perchè deve veriicare i 5 num cioè nu(1)+l'ad scelto,nu(2)+l'ad scelto ecc ecc
'2)aRuote, qui ru
'3) idEstrazione, qui es
'4)Sorte, qui 1
'5)Optional EntroColpi = 0, entro 1 colpo
'6)Optional aPosizioni = Nothing, qui non c'è NIENTE vettore contenente le posizioni estrazionali valide quindi tutte le posiz
'7)Optional RetEsito = "", scrive Estratto... Ambo.....Terno ecc.
'8)Optional RetColpi = 0, Torna il numero di colpi giocati
'9)Optional RetEstratti = "", Torna una stringa contenente la ruota e i numeri sortiti
'10) NIENTE Optional RetIdEstr = 0,11) NIENTE Optional aRetRuote = Nothing) As Boolean
ReDim avalori(14)'Questi sono i valori c
avalori(1) = DataEstrazione(es)
avalori(2) = StringaEstratti(es - 1,r1)
avalori(3) = ad
avalori(4) = retesito
avalori(5) = retestratti' pos(1)
avalori(6) = retestratti 'pos(2)
avalori(7) = retestratti 'pos(3)
avalori(8) = retestratti 'pos(4)
avalori(9) = retestratti 'pos(5)
avalori(10) = StringaNumeri(num)
avalori(11) = StringaEstratti(es,r1)
avalori(12) = posta(1)
If retesito = "Estratto" Then avalori(13) = Vincita(1,5) * posta(1) * 0.94
avalori(14) = avalori(13) - avalori(12)
Call AddRigaTabella(avalori,,,2)
'Call SetColoreCella(4,,7)
Call SetColoreCella(5,,7)'1)Identificativo numerico della colonna 2)Colore di sfondo opzionale 3)Colore del testo opzionale
Call SetColoreCella(6,,7)
Call SetColoreCella(7,,7)
Call SetColoreCella(8,,7)
Call SetColoreCella(9,,7)
If retesito = "Estratto" Then
Totali = Totali + 1 'guarda come si fanno i totali
End If
Totspesa = Totspesa + 1
Next
Next
ReDim avalori(14)
avalori(1) = "Totali Estratti "
avalori(2) = " "
avalori(3) = Totali
avalori(5) = " "
avalori(8) = " "
avalori(13) = Totali * Vincita(1,5) * posta(1) * 0.94
avalori(14) = ""
Call AddRigaTabella(avalori,vbGreen,,3)
ReDim avalori(14)
avalori(1) = "Totali "
avalori(2) = " "
avalori(3) = Totali
avalori(12) = -(Totspesa * posta(1))
avalori(13) = Vincita(1,5) * posta(1) * 0.94
avalori(14) = avalori(8) + avalori(9)
Call AddRigaTabella(avalori,vbRed,,3)
CreaTabella
Scrivi
TestoInBandaPassante("Listed by Mike58 Modifiche Fillotto"),1,3,0
End Sub
..
