Lottoscript

[Roby]

Salve,sono in possesso di suddetto programma ma non sono in grado di usare gli script,cioe' vorrei fare una statistica di un metodo sommativo ma non so' come fare...

Volevo che mi calcolava,per ogni estrazione,per cicli da 10 colpi,5° estratto su bari,+55 e + 56 (fissi),e poi per queste 2 ambate,rilevare le sortite a Bari e Genova,sopratutto il +55 con verifica a genova

 

[sololotto]

lo trovo nel post di vecchione ambata determinata


"..non ti curar di loro ..
ma guarda e passa...."

 

[maxma62]

Resoconto del metodo da genn. 2000

2 ambate per bari e genova di record10v (list by maxma62)
      < metodo:  5° BA +55 +56 gioca su BA e GE >
                   ****** Resoconto****** 
              da lun 03.01.2000 a gio 15.11.2007
=================================================================
esito giocate da estr. n° 6877 a estr. n° 7830 (953 estr.)
-----------------------------------------------------------------
totale casi analizzati n° 954
-----------------------------------------------------------------
per 10 colpi
1^ giocata esiti positivi n° 849 (88.99%)
           esiti negativi n° 102 (10.69%)
           esiti in corso n°   3  (0.31%)
-----------------------------------------------------------------
per 13 colpi
1^ giocata esiti positivi n° 897 (94.03%)
           esiti negativi n°  54  (5.66%)
           esiti in corso n°   3  (0.31%)
-----------------------------------------------------------------

ciao, max

 

[imported_n/a]

Grazie,come statistica mi sembra niente male...

 

[sololotto]

ecco il listato
scusa ma prima non avevo tempo

Sub main()
Dim ruote(2)
Dim numeri1(2)
Dim numeri2(2)
Dim posta(1)

posta(1)=1
ruote(1)=1
ruote(2)=4
r=1
po=5
k=10   'cambiare numero per cambiare colpi di gioco

casi=0
For n= 6877 To EstrazioneFin
If IndiceMensile(n) Then
a=Fuori90(Estratto(n,1,5)+55)
b=Fuori90(Estratto(n,1,5)+56)
Scrivi "*************************************************************"
Scrivi DataEstrazione(n)&" "&SiglaRuota (r)&" "&Format2(Estratto(n,1,5))&"   "&(po)&"°Estratto    + 55 ="&Format2(a)&"    + 56="&Format2(b)
Scrivi "_____________________________________________________________"
ng=0

numeri1(1)=a
numeri1(2)=b
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,1
Gioca n 
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale estrazioni analizzate: "&Cint(casi)

ScriviResoconto 1

End Sub

"..non ti curar di loro ..
ma guarda e passa...."