Chi mi aiuta? Baffo, black

[onei]

Ciao forum e soprattutto a chi riesce a fare una statistica o uno script con queste caratteristiche
AD OGNI ESTRAZIONE

1° di ba + 1° di nz ....ambata

ambata con abb. Numeretti A FORMARE AMBI SECCHI

ruote di gioco tutte

colpi di gioco ...x quel pò che ho visto i colpi non dovrebbero essere tanti 5/6

la mia ricerca vuole piu che altro individuare le ruote dove piu frequente si verifica l'ambo

a tutte sembrerebbe buona la percentuale di uscita ma volevo capire se il tutto vale la posta in gioco CON CARTA E PENNA E UN PO LUNGA SPERO CHE QUALCUNO DI VOI RIESCA AD ESUDIRE LA MIA RICHIESTA

grazie x il sicuro aiuto

 

[DjNomade]

Ciauz prova cosi'

Sub Main
Dim numeri1(10),numeri2(10)

Dim  ruote(10)
Dim posta(1)
Dim poste(2)
posta(1) = 1 ' < - - - posta per estratto
poste(2) = 1 ' < - - - posta per ambo

nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",30)

k = InputBox("Quanti Colpi?","Colpi",6)' < - - - Colpi di gioco

ini = EstrazioneFin - nes
fin = EstrazioneFin
For n = ini To Fin ' < - - - - Numero estrazzioni

ba1=Estratto(n,1,1)                                
nz1=Estratto(n,12,1)

ruote(1)=1' Ruota di verifica esito
ruote(2)=2' Ruota di verifica esito
ruote(3)=3' Ruota di verifica esito
ruote(4)=4' Ruota di verifica esito
ruote(5)=5' Ruota di verifica esito
ruote(6)=6' Ruota di verifica esito
ruote(7)=7' Ruota di verifica esito
ruote(8)=8' Ruota di verifica esito
ruote(9)=9' Ruota di verifica esito
ruote(10)=10' Ruota di verifica esito


numeri1(1)=Fuori90(ba1+nz1)

ImpostaGiocata 1,numeri1,ruote,posta,k

numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=1
ImpostaGiocata 2,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=2
ImpostaGiocata 3,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=3
ImpostaGiocata 4,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=4
ImpostaGiocata 5,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=5
ImpostaGiocata 6,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=6
ImpostaGiocata 7,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=7
ImpostaGiocata 8,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=8
ImpostaGiocata 9,numeri2,ruote,poste,k
numeri2(1)=Fuori90(ba1+nz1)
numeri2(2)=9
ImpostaGiocata 10,numeri2,ruote,poste,k
Gioca n
  


Next
ScriviResoconto

End Sub

 

[onei]

ciiao grazie mille djnomade