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ì 01 aprile 2025
    Bari
    60
    48
    59
    35
    50
    Cagliari
    42
    63
    88
    44
    90
    Firenze
    33
    65
    76
    01
    25
    Genova
    29
    82
    70
    19
    43
    Milano
    04
    73
    67
    22
    85
    Napoli
    65
    27
    10
    06
    66
    Palermo
    37
    13
    35
    79
    85
    Roma
    51
    14
    63
    71
    89
    Torino
    44
    04
    70
    82
    51
    Venezia
    61
    88
    27
    82
    66
    Nazionale
    15
    82
    14
    18
    32
    Estrazione Simbolotto
    Genova
    45
    13
    32
    14
    37

Ultimi Messaggi

Indietro
Alto