annuncio

Comprimi
Ancora nessun annuncio.

sommativi da strapazzo

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • sommativi da strapazzo

    ...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


  • #2
    Come non ringraziarti ?? SEI DAVVERO GRANDE !! GRAZIE !!

    Commenta


    • #3
      Ottimo script Cerberus, anche come base per qualasiasi ulteriore variante è davvero molto ben strutturato Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:

      "In corso per altre 1 estrazioni"





      Ciao

      Ultima modifica di lotto_tom75; 05-07-2018, 09:53.
      NON SI GARANTISCE ALCUNA VINCITA. Giocare sempre con estrema moderazione perchè la Fortuna è Geka... ma la Sfiga ci vede benissimo! Presente.. in ogni dove... anche su faccialibro - " Non stare davanti a me potrei non seguirti, non stare dietro di me potrei non esserti di guida, ma sta al mio fianco e sii semplicemente mio amico/a " (Albert Camus). Cerca... Lotto IncMax e Good Luck Everybody! Namastè!

      Commenta


      • #4
        Ciao a tutti

        Vorrei precisare che questo 3D è più che altro una provocazione a questa discussione

        https://forum.lottoced.com/forum/lot...rto-in-listati


        Commenta


        • #5
          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
          ----------------------------------------------------------------------



          Commenta


          • #6
            passa oltre.............e non ti curar di loro!

            Commenta

            Unconfigured Ad Widget

            Comprimi

            Ultima estrazione del lotto

            Comprimi

            Estrazione del lotto
            giovedì 14 febbraio 2019
            Bari
            76
            26
            22
            71
            49
            Cagliari
            31
            37
            46
            39
            59
            Firenze
            11
            31
            26
            61
            20
            Genova
            47
            41
            26
            19
            64
            Milano
            27
            03
            66
            14
            73
            Napoli
            86
            73
            18
            02
            17
            Palermo
            05
            67
            09
            86
            66
            Roma
            82
            30
            79
            15
            59
            Torino
            04
            40
            41
            16
            61
            Venezia
            43
            63
            12
            73
            21
            Nazionale
            19
            01
            21
            84
            88
            Sto operando...
            X