ch mi può auitare!?

[ste71]

c'era un metodo che quando usciva il 18 in terza pos. a palermo bari ,sidovevano metere in gioco dei numeri ,nn sono riuscita a trovarlo x favore chi mi aiuta? lo rivvorrei mettere in goco
un grazie a tt dell'aiuto
BUON NATALE E BUONE FESTE!!

 

[ste71]

nessuno che mi puo aiutare?!
peccato!

 

[lallina]

se non ricordo male si mettevano in gioco 12 21 e 90

 

[ste71]

grazie lallina mi sembra anche a me ma mi piaceva vedere la statistica
comunque va bene anche cosi

 

[Roby]

Ciao questo è lo script del metodo

Sub Main()
	Dim posta(5)
	Dim poste(5)
	Dim ruote(5)
	Dim am(3)
	poste(1) = 1
	poste(2) = 1
	poste(3) = 1
	casi = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - 1000
	For es = ini To fin
		For r1 = 1 To 1
			For p1 = 1 To 1
				a = Estratto(es,1,3)
				b = Estratto(es,7,3)
				If(a) = 18 Or(b) = 18 Then
					ruote(1) = 1
					ruote(2) = 7
					am(1) = 12
					am(2) = 21
					am(3) = 90
					ImpostaGiocata 1,am,ruote,poste,12
					Scrivi
					ColoreTesto 2
					Scrivi String(40,32) & " Pronostico n° " & cont & "",1
					ColoreTesto 0
					Scrivi
					Gioca es
					casi = casi + 1
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[Roby]

E questa è la statistica:

Casi esaminati:              26  
                     in corso:               1  
                  casi finali:              25  
                     positivi:              25  
                     negativi:               0  
          Pronostici generati:              52  
          Pronostici vincenti:  106  (203,8 %)  
          Estrazioni di gioco:             301  
Tentativi (scontrini giocati):             602  
 Vincite (scontrini vincenti):  106  (17,61 %)  
                 Attesa media:            6,49  


Resoconto totale giocate
Resoconto economico

   Sorte  Spese [€]  Real.  Vincite [€]       -6%  Guadagno [€]  
---------------------------------------------------------------
  Ambata     602,00    115       430,56    404,73       -197,27  
    Ambo     602,00     10       833,33    783,33        181,33  
   Terno     602,00      1     4.500,00  4.230,00      3.628,00  
Quaterna       0,00      0         0,00      0,00          0,00  
Cinquina       0,00      0         0,00      0,00          0,00  
 E.Det.1       0,00      0         0,00      0,00          0,00  
 E.Det.2       0,00      0         0,00      0,00          0,00  
 E.Det.3       0,00      0         0,00      0,00          0,00  
 E.Det.4       0,00      0         0,00      0,00          0,00  
 E.Det.5       0,00      0         0,00      0,00          0,00  
 Totale:   1.806,00            5.763,89  3.957,89      3.612,06