Qualcuno riesce?

Marcorun · 8 Settembre 2023

Avrei bisogno di uno script che metta in gioco 4 numeri x la SOLA sorte di ambetto con il relativo rendiconto economico.
PS: se magari si potessero scegliere la quantità di numeri e ruota meglio..........grazie in anticipo !

Mike58 · 11 Settembre 2023

Ciao Marcorun, prova questo mio script penso ci sia tutto.
e come puoi vedere in qualsivoglia prova tutti i possibili resoconti potrebbero risultare in maggior parte Negativi.

Codice:

Sub Main
   Dim n(10),T,V
   Ini = EstrazioneFin - 1000
   fin = EstrazioneFin
   r = ScegliRuota
   ScegliNumeri(n)
   T = Array(T,"Es","Numeri scelti","q.tà","Test Ambetto","Quota Ambetto","Ritardo","ElencoRit","MediaSortita","Spesa","Utile","Spesa Pr","Utile Pr")
   Call InitTabella(T,,,,,"Arial Black")
   For es = Ini To fin
      ambetto = VerificaAmbetto(n,r,es,num,vinc)
      If ambetto > 0 Then
         k = k + 1
         ReDim Preserve elencoRit(k)
         elencoRit(k) = es
         ess = elencoRit(k) - elencoRit(k - 1)
         If ess = es Then ess = es-Ini
         exx = exx + ess
         ext = exx/k
         ex = Round(exx/k,2)
         spesa = spesa +(ess*1)
         utile = utile +(vinc -(ess*1))
         vincit = vincit + vinc
         fine = fin-es
        
         V = Array(V,GetInfoEstrazione(es),StringaNumeri(n),ambetto,num,vinc,fin - es,ess,ex,ess*1,vinc -(ess*1),spesa,Utile)
         Call AddRigaTabella(V)
         If ex < ext Then Call SetColoreCella(8,2,4)
         'Scrivi es & vbTab & StringaNumeri(a) & vbTab &  ambetto & vbTab & num & vbTab & vinc
      End If
   Next
   Call SetTableWidth("100%")
   'Scrivi Ini
   CreaTabella
   Scrivi Space(155) & Chr(169) & " Mike58",1
   Scrivi "Resoconto Giocate ",1
   Scrivi "Giocate Effettuate ..... " & exx +(fine)
   Scrivi "Spesa Totale giocate ... " & exx*1 + fine
   Scrivi "Numero Vincita Totale... " & k
   Scrivi "Vincite Totali q.tà..... " & vincit
   Scrivi "Utile Totale............ " & utile & " + " & fine & " Giocate in corso "
  
End Sub

Es	Numeri scelti	q.tà	Test Ambetto	Quota Ambetto	Ritardo	ElencoRit	MediaSortita	Spesa	Utile	Spesa Pr	Utile Pr
[09328] [ 69] 10.06.2017	37.63	1	BA-37.62[37.63-1]	61,1	970	30	30	30	31,1	30	31,1
[09358] [ 99] 19.08.2017	37.63	1	BA-37.62[37.63-1]	61,1	940	30	30	30	31,1	60	62,2
[09394] [135] 11.11.2017	37.63	1	BA-63.36[63.37-1]	61,1	904	36	32	36	25,1	96	87,3
[09506] [ 91] 31.07.2018	37.63	1	BA-63.38[63.37+1]	61,1	792	112	52	112	-50,9	208	36,4
[09577] [ 6 ] 12.01.2019	37.63	1	BA-63.38[63.37+1]	61,1	721	71	55,8	71	-9,9	279	26,5
[09680] [109] 10.09.2019	37.63	1	BA-63.36[63.37-1]	61,1	618	103	63,67	103	-41,9	382	-15,4
[09963] [ 96] 12.08.2021	37.63	1	BA-37.64[37.63+1]	61,1	335	283	95	283	-221,9	665	-237,3
[10071] [ 48] 21.04.2022	37.63	1	BA-37.62[37.63-1]	61,1	227	108	96,62	108	-46,9	773	-284,2
[10160] [137] 15.11.2022	37.63	1	BA-37.62[37.63-1]	61,1	138	89	95,78	89	-27,9	862	-312,1
[10173] [150] 15.12.2022	37.63	1	BA-63.36[63.37-1]	61,1	125	13	87,5	13	48,1	875	-264
[10263] [ 83] 11.07.2023	37.63	1	BA-37.62[37.63-1]	61,1	35	90	87,73	90	-28,9	965	-292,9

© Mike58
Resoconto Giocate
Giocate Effettuate ..... 1000
Spesa Totale giocate ... 1000
Numero Vincita Totale... 11
Vincite Totali q.tà..... 672.1
Utile Totale............ -292.9 + 35 Giocate in corso

Marcorun · 11 Settembre 2023

Grazie Mike....sei sempre disponibile.
Per quanto riguarda i resoconti SEMPRE negativi, non avevo dubbi...in più di mezza vita che cerco un metodo/sistema/script ,non ho mai visto "una lira"

....però almeno posso dire di che ci ho provato.

Grazie...continuo le prove ,penso che sia già perfetto così senza modifiche.

Marcorun · 12 Settembre 2023

Ciao Mike58,,,se (come penso) sei curioso anche tu,cosa mi dici dopo avere fatto qualche prova come me,del tuo bellissimo script da me maldestramente modificato?
Ho notato che mettendo i numeri più frequenti su 50 es ,il resoconto è positivo....(ma questo è un gioco di prestigio)
però ho notato che nel giro di 2/3 estrazioni sortisce uno o più nuovi ambetti....
se ti fosse possibile rendere ancora più automatico la ricerca e l'inserimento dei numeri......tipo statestratti sarebbero più veloci le ricerche.
esempio StatEstratti(n - 50,n,,ruote,,10,2)'<<<<<<<<<<<<<<<frequenza

se non chiedo troppo!

Codice:

Sub Main
   Dim n(10),T,V
   Ini = EstrazioneFin - 50
   fin = EstrazioneFin
   r = InputBox("Su quale ruota, ",,1)'1'ScegliRuota

   n(1) = InputBox("1°Numero ",,1)'1'ScegliNumeri(n)
   n(2) = InputBox("2°Numero ",,2)
   n(3) = InputBox("3°Numero ",,3)'1'ScegliNumeri(n)
   n(4) = InputBox("4°Numero ",,4)
   n(5) = InputBox("5°Numero ",,5)'1'ScegliNumeri(n)
   n(6) = InputBox("6°Numero ",,6)
   n(7) = InputBox("7°Numero ",,7)'1'ScegliNumeri(n)
   n(8) = InputBox("8°Numero ",,8)
   n(9) = InputBox("9°Numero ",,9)'1'ScegliNumeri(n)
   n(10) = InputBox("10°Numero ",,10)
   T = Array(T,"Es","Numeri scelti","q.tà","Test Ambetto","Quota Ambetto","Ritardo","ElencoRit","MediaSortita","Spesa","Utile","Spesa Pr","Utile Pr")
   Call InitTabella(T,,,,,"Arial Black")
   For es = Ini To fin
      ambetto = VerificaAmbetto(n,r,es,num,vinc)
      If ambetto > 0 Then
         k = k + 1
         ReDim Preserve elencoRit(k)
         elencoRit(k) = es
         ess = elencoRit(k) - elencoRit(k - 1)
         If ess = es Then ess = 1
         exx = exx + ess
         ext = exx/k
         ex = Round(exx/k,2)
         spesa = spesa +(ess*1)
         utile = utile +(vinc -(ess*1))
         vincit = vincit + vinc
         V = Array(V,GetInfoEstrazione(es),StringaNumeri(n),ambetto,num,vinc,fin - es,ess,ex,ess*1,vinc -(ess*1),spesa,Utile)
         Call AddRigaTabella(V)
         If ex < ext Then Call SetColoreCella(8,2,4)
         Call SetColoreCella(6,4,1)
         'Scrivi es & vbTab & StringaNumeri(a) & vbTab &  ambetto & vbTab & num & vbTab & vinc
      End If
   Next
   Call SetTableWidth("100%")
   CreaTabella
   Scrivi Space(155) & Chr(169) & " Mike58",1
   Scrivi "Resoconto Giocate ",1
   Scrivi "Giocate Effettuate ..... " & exx
   Scrivi "Spesa Totale giocate ... " & exx*1
   Scrivi "Numero Vincita Totale... " & k
   Scrivi "Vincite Totali q.tà..... " & vincit
   Scrivi "Utile Totale............ " & utile
 
End Sub

Mike58 · 12 Settembre 2023

Ciao Marco ( maldestramente modificato è vero ) .
Certo che se si vuole a tutti i costi rendere un resoconto Attivo si possono trovare tutte le accortezze.
Resta chiaro che se prendo i frequenti in 50 estrazioni ei gioco i suoi n numeri più frequenti anche per ambetto , magari mi trovo anche in attivo.
Comunque queste cose mi divertono poco, io intervengo solo per la fattibilità scriptica.
ecco la tua idea con il codice statEstratti che saprai usare ad oc.

Codice:

Sub Main
'++++++++++++++++
   Dim n,T,V,Ru(1)
   Ini = EstrazioneFin - 50
   fin = EstrazioneFin
   r = ScegliRuota
   Ru(1) = r
   'ScegliNumeri(n)
   n = StatEstratti(Ini,fin,n,Ru,,5,2)
   T = Array(T,"Es","Numeri scelti","q.tà","Test Ambetto","Quota Ambetto","Ritardo","ElencoRit","MediaSortita","Spesa","Utile","Spesa Pr","Utile Pr")
   Call InitTabella(T,,,,,"Arial Black")
   For es = Ini To fin
      ambetto = VerificaAmbetto(n,r,es,num,vinc)
      If ambetto > 0 Then
         k = k + 1
         ReDim Preserve elencoRit(k)
         elencoRit(k) = es
         ess = elencoRit(k) - elencoRit(k - 1)
         If ess = es Then ess = es - Ini
         exx = exx + ess
         ext = exx/k
         ex = Round(exx/k,2)
         spesa = spesa +(ess*1)
         utile = utile +(vinc -(ess*1))
         vincit = vincit + vinc
         fine = fin - es
       
         V = Array(V,GetInfoEstrazione(es),StringaNumeri(n),ambetto,num,vinc,fin - es,ess,ex,ess*1,vinc -(ess*1),spesa,Utile)
         Call AddRigaTabella(V)
         If ex < ext Then Call SetColoreCella(8,2,4)
         'Scrivi es & vbTab & StringaNumeri(a) & vbTab &  ambetto & vbTab & num & vbTab & vinc
      End If
   Next
   Call SetTableWidth("100%")
   'Scrivi Ini
   CreaTabella
   Scrivi Space(155) & Chr(169) & " Mike58",1
   Scrivi "Resoconto Giocate ",1
   Scrivi "Giocate Effettuate ..... " & exx +(fine)
   Scrivi "Spesa Totale giocate ... " & exx*1 & " + " & fine & " Giocate in Corso "
   Scrivi "Numero Vincita Totale... " & k
   Scrivi "Vincite Totali q.tà..... " & vincit
   Scrivi "Utile Totale............ " & utile '& " + " & fine & " Giocate in corso "
 
End Sub

Marcorun · 12 Settembre 2023

GRAZIE soprattutto x la tua pazienza....
Ho quindi fatto bene sottolineare che sono giochi di prestigio!
cerco sempre di non scomodare ogni volta che mi viene un'idea strampalata e sono consapevole che all'atto pratico le mie fisse non servono a niente,però non avendo dimestichezza con gli script spero nella capacità altrui.....
adesso è perfetto x davvero lo script...ti ringrazio tanto...ciao!

Mike58 · 12 Settembre 2023

Bene !!! buon allenamento.

matt68 · 16 Settembre 2023

buongiorno ho trovato questo metodo ho fatto vari test e sembra ancora attivo si potrebbe inserire la verifica dell ambetto a tutte per vedere il comportamento della previsione razie

matt68 · 16 Settembre 2023

Sub Main
Dim FIn,Es,Salvo50,Ini,N1,N2
Dim Caso,Casi,A,B,C,D,Clp,Ind_Me
Dim Amba(1),Ambo(2),Posta(1),Poste(2),Ruo(2)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)
Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,12)
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,1))
Posta(1) = 1
Poste(2) = 1
'Scrivi "Solo Una Ambata ed un Ambo Secco di Nando52 - Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
Ruo(1) = BA_ : Ruo(2) = CA_
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = CInt(Estratto(Es,BA_,4))
B = CInt(Estratto(Es,PA_,4))
C = CInt(Estratto(Es,NA_,2))
D = CInt(Estratto(Es,TO_,2))
N1 = CInt(Decina(A) + Cadenza(A))
N1 = CInt(Fuori90(N1 + B + 23))
N2 = CInt(Fuori90(C * C))
N2 = CInt(Fuori90(N2 + D + 80))
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
Scrivi
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
Gioca Es ',1
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub

salvo50 · 16 Settembre 2023

Ciao Matt68

Ho messo gli ambetti per tutte le ruote, se appare solo la scritta ambetti vuol dire che nei colpi impostati in CLP non ci sono stati ambetti

Codice:

Sub Main
   Dim FIn,Es,Es2,Salvo50,Ini,N1,N2,Retnum,Retvinc
   Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k
   Dim Amba(1),Ambo(2),Posta(1),Poste(2),Ruo(2)
   Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,12)
   Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,1))
   Posta(1) = 1
   Poste(2) = 1
   'Scrivi "Solo Una Ambata ed un Ambo Secco di Nando52 - Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
   Ruo(1) = BA_ : Ruo(2) = CA_
   For Es = Ini To FIn
      If IndiceMensile(Es) = Ind_Me Then
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         A = CInt(Estratto(Es,BA_,4))
         B = CInt(Estratto(Es,PA_,4))
         C = CInt(Estratto(Es,NA_,2))
         D = CInt(Estratto(Es,TO_,2))
         N1 = CInt(Decina(A) + Cadenza(A))
         N1 = CInt(Fuori90(N1 + B + 23))
         N2 = CInt(Fuori90(C * C))
         N2 = CInt(Fuori90(N2 + D + 80))
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 2
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
         Scrivi
         Amba(1) = N1
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
         Ambo(1) = N1 : Ambo(2) = N2
         ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
         Gioca Es
         Scrivi Space(20) & "AMBETTI",1,,,2
         For k = 1 To Clp
            Ru1 = BA_
            Es2 = Es + k
            If Es2 > FIn Then Exit For
            Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            Ru2 = CA_
            Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru3 = FI_
            Ambetto = VerificaAmbetto(Ambo,Ru3,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru4 = GE_
            Ambetto = VerificaAmbetto(Ambo,Ru4,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru5 = MI_
            Ambetto = VerificaAmbetto(Ambo,Ru5,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru6 = NA_
            Ambetto = VerificaAmbetto(Ambo,Ru6,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru7 = PA_
            Ambetto = VerificaAmbetto(Ambo,Ru7,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru8 = RO_
            Ambetto = VerificaAmbetto(Ambo,Ru8,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru9 = TO_
            Ambetto = VerificaAmbetto(Ambo,Ru9,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            '
            Ru10 = VE_
            Ambetto = VerificaAmbetto(Ambo,Ru10,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
            Ru11 = NZ_
            Ambetto = VerificaAmbetto(Ambo,Ru11,Es2,Retnum,Retvinc)
            If Ambetto > 0 Then
               Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
               Scrivi " Vincita di " & Retvinc & " Volte la posta",1
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

salvo50 · 16 Settembre 2023

Ho messo l'ambetto anche alla ruota nazionale e la sigla negli ambetti viene visualizzata con TT

matt68 · 16 Settembre 2023

Grazie testo lo script Grazie 1000

matt68 · 16 Settembre 2023

Lo script mi ha soddisfatto in pieno ora serve solo abbinamento per terno grazie ancora

Marcorun · 22 Settembre 2023

Mike58 ha scritto:

Ciao Marco ( maldestramente modificato è vero ) .
Certo che se si vuole a tutti i costi rendere un resoconto Attivo si possono trovare tutte le accortezze.
Resta chiaro che se prendo i frequenti in 50 estrazioni ei gioco i suoi n numeri più frequenti anche per ambetto , magari mi trovo anche in attivo.
Comunque queste cose mi divertono poco, io intervengo solo per la fattibilità scriptica.
ecco la tua idea con il codice statEstratti che saprai usare ad oc.

Codice:

Sub Main
'++++++++++++++++
   Dim n,T,V,Ru(1)
   Ini = EstrazioneFin - 50
   fin = EstrazioneFin
   r = ScegliRuota
   Ru(1) = r
   'ScegliNumeri(n)
   n = StatEstratti(Ini,fin,n,Ru,,5,2)
   T = Array(T,"Es","Numeri scelti","q.tà","Test Ambetto","Quota Ambetto","Ritardo","ElencoRit","MediaSortita","Spesa","Utile","Spesa Pr","Utile Pr")
   Call InitTabella(T,,,,,"Arial Black")
   For es = Ini To fin
      ambetto = VerificaAmbetto(n,r,es,num,vinc)
      If ambetto > 0 Then
         k = k + 1
         ReDim Preserve elencoRit(k)
         elencoRit(k) = es
         ess = elencoRit(k) - elencoRit(k - 1)
         If ess = es Then ess = es - Ini
         exx = exx + ess
         ext = exx/k
         ex = Round(exx/k,2)
         spesa = spesa +(ess*1)
         utile = utile +(vinc -(ess*1))
         vincit = vincit + vinc
         fine = fin - es
      
         V = Array(V,GetInfoEstrazione(es),StringaNumeri(n),ambetto,num,vinc,fin - es,ess,ex,ess*1,vinc -(ess*1),spesa,Utile)
         Call AddRigaTabella(V)
         If ex < ext Then Call SetColoreCella(8,2,4)
         'Scrivi es & vbTab & StringaNumeri(a) & vbTab &  ambetto & vbTab & num & vbTab & vinc
      End If
   Next
   Call SetTableWidth("100%")
   'Scrivi Ini
   CreaTabella
   Scrivi Space(155) & Chr(169) & " Mike58",1
   Scrivi "Resoconto Giocate ",1
   Scrivi "Giocate Effettuate ..... " & exx +(fine)
   Scrivi "Spesa Totale giocate ... " & exx*1 & " + " & fine & " Giocate in Corso "
   Scrivi "Numero Vincita Totale... " & k
   Scrivi "Vincite Totali q.tà..... " & vincit
   Scrivi "Utile Totale............ " & utile '& " + " & fine & " Giocate in corso "
 
End Sub

Ciao , MIKE58......quando hai tempo con calma...riesci ad inserire anche la sorte di ambo?(ambo e ambetto+resoconti)
GRAZIE!

Mike58 · 22 Settembre 2023

Eccolo
P.s. non saprei quanto sia corretto e comunque ripeto non mi piace mettere mano sugli script e nello specifico dopo un pò di tempo.
si fa più fatica ad individuare il costrutto che fare una cosa o progetto ex novo.
ciao

Codice:

Sub Main
'++++++++++++++++
   Dim n,T,V,Ru(1)
   Ini = EstrazioneFin - 50
   fin = EstrazioneFin
   r = ScegliRuota
   Ru(1) = r
   'ScegliNumeri(n)
   n = StatEstratti(Ini,fin,n,Ru,,5,2)
   T = Array(T,"Es","Numeri scelti","Verifica ambo","Quota Ambo","Q.Tà Ambetto","Test Ambetto","Quota Ambetto","Ritardo","elencoRit","MediaSortita","Spesa","Vincita","Utile","Spesa Pr","Vincita Pr","Utile Pr")
   Call InitTabella(T,0,,,5,"Arial Black")
   For es = Ini To fin
   Call VerificaEsitoConGuadagno(n,Ru,es,2,1,,esito,,esa,id,,guad)
      ambetto = VerificaAmbetto(n,r,es,num,vinc)
      If ambetto > 0 Or guad > 0 Then
         k = k + 1
         ReDim Preserve elencoRit(k)
         elencoRit(k) = es
         ess = elencoRit(k) - elencoRit(k - 1)
         If ess = es Then ess = es - Ini
         exx = exx + ess
         ext = exx/k
         ex = Round(exx/k,2)
         spesa = spesa +(ess*2)
         Vv = vinc+guad
         utile = utile +(vinc -(ess*1))
         'utile = utile + ess+2 +
         vincit = vincit + (vinc+guad)
         fine = fin - es
     
         V = Array(V,GetInfoEstrazione(es),StringaNumeri(n),esa,guad,ambetto,num,vinc,fin - es,ess,ex,ess*2,vv,vinc -(ess*1)+guad,spesa,vincit,Utile)
         Call AddRigaTabella(V)
         For xx = 11 To 13
         Call SetColoreCella((xx),6,0)
         Next
         For xxx = 14 To 16
         Call SetColoreCella((xxx),3,1)
         Next
         'If ex < ext Then Call SetColoreCella(8,2,4)
         'Scrivi es & vbTab & StringaNumeri(a) & vbTab &  ambetto & vbTab & num & vbTab & vinc
      End If
   Next
   Call SetTableWidth("100%")
   'Scrivi Ini
   CreaTabella
   Scrivi Space(155) & Chr(169) & " Mike58",1
   Scrivi "Resoconto Giocate ",1
   Scrivi "Giocate Effettuate ..... " & exx +(fine)
   Scrivi "Spesa Totale giocate ... " & exx*2 & " + " & fine & " Giocate in Corso "
   Scrivi "Numero Vincita Totale... " & k
   Scrivi "Vincite Totali q.tà..... " & vincit
   Scrivi "Utile Totale............ " & utile '& " + " & fine & " Giocate in corso "
 
End Sub

Marcorun · 22 Settembre 2023

La tua pazienza è tanta come la tua bravura........GRAZIE!

Cerca

Cerca

Qualcuno riesce?

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

matt68

Member

matt68

Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

matt68

Member

matt68

Member

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi