Novità

sommativi da strapazzo

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
R

Roby

Guest
...I sommativi...


Dimostrazione di costruzione di un sommativo (Antica arte di far coincidere le cose) :

tempo di analisi : 100 estrazioni

Durata gioco : 9 colpi

Numeri in gioco : una cinquina X Ambo,terno,Quaterna.

Ruote di gioco : Tutte


Esito analisi:

In 100 estrazioni, 2 quaterne, 12 terni, 107 ambi con un guadagno netto di 4.000 euro.


Resoconto



Codice:
+----------------------------------------+
| Prima Giocata      : 9394              |
| Ultima Giocata     : 9494              |
| Range              : 101               |
| Casi giocab perc.  : 100%              |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :              101  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :               82  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          81,19 %  | | BA |     |     |     |     |     | | BA |     |     |     |     |     | | BA |     |                       |
| Pronostici totali  :              101  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :               82  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          81,19 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                4  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :               97  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :              388  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :               82  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                3  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :       1.225,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :       5.320,40 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :       4.095,40 €  | | TT |     |  107|   12|    2|     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :        334,318 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :          78,00 €  |    
| Estratto su tutte  :              186  |                                                                                                                
| Ambo su tutte      :              107  |                                                                                                                
| Terno su tutte     :               12  |                                                                                                                
| Quaterna su tutte  :                2  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+




Lo script da far girare così comè, cliccate su ok a tutto.



Codice:
Option Explicit
Sub Main
   Dim es,Ini,Fin,r0,r1,nRic,Clp,x,y,j
   Dim ruota(12)
   Dim ruote(12)
   Dim poste(10)
   Dim am(10)
   Dim nu(5)
   Dim na(5)
   Dim a,b,c,d,e,co
   Dim Importi(2,9)
   Dim nprogryn
   Dim nprogr(12)
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   nprogryn = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO",,"1"))
   If nprogryn = 1 Then
      nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro ",,"1"))
      nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 2 Euro ",,"1"))
      nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 3 Euro ",,"1"))
      nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 4 Euro ",,"1"))
      nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 5 Euro ",,"1"))
      nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 6 Euro ",,"1"))
      nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 7 Euro ",,"2"))
      nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 8 Euro ",,"2"))
      nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 9 Euro ",,"2"))
      Importi(2,1) = nprogr(1)
      Importi(2,2) = nprogr(2)
      Importi(2,3) = nprogr(3)
      Importi(2,4) = nprogr(4)
      Importi(2,5) = nprogr(5)
      Importi(2,6) = nprogr(6)
      Importi(2,7) = nprogr(7)
      Importi(2,8) = nprogr(8)
      Importi(2,9) = nprogr(9)
   End If
   x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
   y = CInt(InputBox(" Scegli Fisso Base ",,"20"))
   j = CInt(InputBox(" Scegli Fisso Base ",,"84"))
   r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
   r1 = 11
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      ruota(1) = r0
      ruote(1) = r1
      a = Estratto(es,r0,1)
      b = Estratto(es,r0,2)
      c = Estratto(es,r0,3)
      d = Estratto(es,r0,4)
      e = Estratto(es,r0,5)
      '--------------------
      am(1) = Fuori90(a + x)
      am(2) = Fuori90(b + x)
      am(3) = Fuori90(c + x)
      am(4) = Fuori90(d + x)
      am(5) = Fuori90(e + x)
      '---------------------
      am(6) = Differenza(a,x)
      am(7) = Differenza(b,x)
      am(8) = Differenza(c,x)
      am(9) = Differenza(d,x)
      am(10) = Differenza(e,x)
      '----------------------------
      nu(1) = Fuori90(am(1) + am(6))
      nu(2) = Fuori90(am(2) + am(7))
      nu(3) = Fuori90(am(3) + am(8))
      nu(4) = Fuori90(am(4) + am(9))
      nu(5) = Fuori90(am(5) + am(10))
      '------------------------------
      na(1) = Fuori90(nu(1) + nu(2))
      na(2) = Fuori90(nu(4) + nu(5))
      na(3) = Fuori90(Diametrale((nu(3)) + y))
      na(4) = Fuori90(na(1) + na(2))
      na(5) = Fuori90(Diametrale((nu(3)) + j))
      '-----------------------------
      co = co + 1
      Scrivi String(70,"-")
      Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fissi " & x & y & j,1,,,1
      ImpostaGiocata 1,na,ruote,poste,Clp,2
      ImpostaProgressione 1,Importi
      ' Scrivi "puntate eseguite " & Clp
      'Scrivi " - .1 colpo - " & Importi(2,1) & " euro  x ambo "
      'Scrivi " - .2 colpo - " & Importi(2,2) & " euro  x ambo"
      'Scrivi " - .3 colpo - " & Importi(2,3) & " euro  x ambo"
      'Scrivi " - .4 colpo - " & Importi(2,4) & " euro  x ambo"
      'Scrivi " - .5 colpo - " & Importi(2,5) & " euro  x ambo"
      'Scrivi " - .6 colpo - " & Importi(2,6) & " euro  x ambo"
      'Scrivi " - .7 colpo - " & Importi(2,7) & " euro  x ambo"
      'Scrivi " - .8 colpo - " & Importi(2,8) & " euro  x ambo"
      'Scrivi " - .9 colpo - " & Importi(2,9) & " euro  x ambo"
      Gioca es,True,,1
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto,False
End Sub
 
Ottimo script Cerberus, anche come base per qualasiasi ulteriore variante è davvero molto ben strutturato :eek: Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:

"In corso per altre 1 estrazioni"



:rolleyes::D

Ciao :)
 
Ultima modifica:
Ad ogni modo


----------------------------------------------------------------------
26.06.2018 [ BA 30.55.45.23.54 ] Fissi 12084
Estrazione generatrice del pronostico 09491 [ 76 - 26/06/2018]
G 0001 Numeri in gioco : 80.64.65.54.39 su TT per Ambo,Terno,Quaterna
In corso per altre 6 estrazioni
----------------------------------------------------------------------
28.06.2018 [ BA 22.68.20.42.77 ] Fissi 12084
Estrazione generatrice del pronostico 09492 [ 77 - 28/06/2018]
G 0001 Numeri in gioco : 90.58.15.58.79 su TT per Ambo,Terno,Quaterna
In corso per altre 7 estrazioni
----------------------------------------------------------------------
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
Indietro
Alto