[VB6]Frequenza con cui si presentanto certi numeri

[simone_90]

io ho due dadi
ed un numero di lanci definito da fare
e devo fare la frequenza del'evento
esempio somma=2
somma=3..
grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

[oregon]

Pregooooooooo .... ma che vuoi esattamenteeeeee?

[simone_90]

esercizio:
programma deve simulare il lancio per n volte dei 2 dadi (ed lo ho fatto)
e restituire
1)frequenza degli eventi somma=2,somma=...somma=12(ed è quello ke avrei bisogno)

2)scarto quadratico medio e teorico della variabile casuale
grazie in anticipo

[oregon]

Sì ... ma tu hai aperto un thread simile (problema con i dadi) .... quale di deve seguire?

E poi, hai questo problema (i tuoi compiti suppongo) ... tu cosa hai scritto per risolverlo? Dove trovi difficolta'? O vuoi che ti facciamo i compiti?

[simone_90]

questo
no kiedevo consigli su come fare la somma degli eventi sulla lebal che non so

[oregon]

Somma degli eventi sulle "lebal" ???

Che vuoi dire ... ?

Prendi fiato e scrivi qualche frase di senso compiuto in modo che si possa capire cosa vuoi fare e cosa non sai fare ...

[simone_90]

scusami..con calma provo a spiegarti
io ho un
command button dove devo chiedere il numero di lanci di un dado
una text dove ho messo il numero di lanci da fare
un altro command dove viene eseguito il lacio dei 2 dadi
e due label dove sono inseriti i valori casuali usciti dal lancio del dado
e fin qua ci so riuscito scrivendo

Dim b As Intege
Dim c As Integer
Private Sub a_Click()
lanci.Text = InputBox("Dimmi numero lanci")
End Sub

Private Sub LANCIO_Click()
Randomize
b = Int(Rnd * 6) + 1
dado.Caption = b
Randomize
c = Int(Rnd * 6) + 1
dado2.Caption = c
End Sub

Private Sub var_casuale_Click()
If var_casuale.Visible = True Then
var_statistica.Visible = False
End If
End Sub
Private Sub var_statistica_Click()
If var_statistica.Visible = True Then
var_casuale.Visible = False
End If
End Sub




ora io devo fre altre 12 label(un array)
dove devo scrivere in qualche modo la frequenza con cui sui tot lanci del dado detti in precedenza,la somma dei numeri dei 2 dadi
dia 2,3,4 fino a 12
spero che tu bbia capito

[oregon]

Allora ... intanto devi usare

Randomize Timer

altrimenti i valori casuali non saranno tanto casuali ...

E poi, se ho capito, se hai delle label (e ne hai 11 e non 12, con indice da 2 a 12, perche' la label con indice 1 non puo' esistere ...) organizzate in un array, puoi aumentare il loro valore man mano che fai l'estrazione, in questo modo

Label(b+c).Caption = CStr(Val(Label(b+c).Caption) + 1)

[simone_90]

non ho capito niente me puoi gentilemnte rispiegare
dove devo scrivere le istruzioni
ps..niente ciclo for?

[oregon]

Allora ... modifichi questa cosi'

Private Sub LANCIO_Click()
  Randomize Timer
  b = Int(Rnd * 6) + 1
  dado.Caption = b
  c = Int(Rnd * 6) + 1
  dado2.Caption = c
  Label(b+c).Caption = CStr(Val(Label(b+c).Caption) + 1)
End Sub

e ovviamente inserisci la chiamata al lancio qui

Private Sub a_Click()
  Dim i As Integer  
  lanci.Text = InputBox("Dimmi numero lanci")
  For i=0 To Val(lanci.Text)
     Lancio_Click
     DoEvents
  Next i
End Sub