Mike58
Advanced Member >PLATINUM PLUS<
Ciao Luigi, io adopero spesso questa nuova funzione nei miei script per valutarne la situazione verifica giocate, però ho tentato poi di conteggiarne gli esiti per sorte, ossia quantità di ESTRATTI-AMBI-TERNI etc ma se non con calcoli inversi questo risulta difficoltoso.
Ora quello che volevo chiederti quando è possibile e se fosse possibile in questa funzione :
si potrebbe mettere in questa funzione anche il RetEsito
GetSituazioneGiocate(k,RetEsito,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz)
come avviene in VerificaEsito in modo poi da conteggiarlo con i vari if then
esempio if Retesito = "Estratto" then E1 = E1 +1
if Retesito = "Ambo" then Amb = Amb +1
Ciao comunque ti allego anche una sorte di script ad esempio
un saluto Mike
Ora quello che volevo chiederti quando è possibile e se fosse possibile in questa funzione :
Codice:
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
si potrebbe mettere in questa funzione anche il RetEsito
GetSituazioneGiocate(k,RetEsito,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz)
come avviene in VerificaEsito in modo poi da conteggiarlo con i vari if then
esempio if Retesito = "Estratto" then E1 = E1 +1
if Retesito = "Ambo" then Amb = Amb +1
Ciao comunque ti allego anche una sorte di script ad esempio
un saluto Mike
Codice:
Sub Main()
Dim nu(5),ru(1),posta(5)
ru(1) = 5
posta(1) = 1
posta(2) = 1
posta(3) = .7
posta(4) = .2
posta(5) = .1
k = 10 ' colpi di gioco
Ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensile(es) = 1 Then
nu(1) = 82
nu(2) = 83
nu(3) = 84
nu(4) = 85
nu(5) = 88
Call ImpostaGiocata(1,nu,ru,posta,k)
Call Gioca(es)
End If
Next
elencogiocate
End Sub
Function elencogiocate
ReDim aT(13)
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 "
aT(9) = " N° Ambate "
aT(10) = " N° ambi "
aT(11) = " N° terni "
aT(12) = " N° Quaterne "
aT(13) = " N° Cinquine "
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)
aT(9) = ""
aT(10) = ""
aT(11) = ""
aT(12) = ""
aT(13) = ""
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