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
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
Indietro
Alto