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
	
	
	
		
Lo script da far girare così comè, cliccate su ok a tutto.
	
	
	
		
				
			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 
 
		 
 
		 Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:
 Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:


 
 
		
 
     
     
     
     
     
 
		 
 
		