Salve a tutti.
sono riuscito a creare un programmino dove calcolo la percentuale del rosso e del nero ad ogni giro della ruota. Sul rossonero funziona, cioè se su 10 giri 4 sono rossi e 6 neri mi esce la percentuale 40% rosso e 60% nero. IL PROBLEMA è con le terzine (le tre terzine: 1a: i numeri compresi tra 1 e 12. la 2a da 13 a 24,la 3a dal 25 al 36). non so come correggere questo codice, di matematica non me intendo. eccolo
Private Sub button_rosso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_rosso.Click
cont_numeri_usciti = cont_numeri_usciti + 1
cont_rosso = cont_rosso + 1
x100_rosso = cont_rosso * 100 \ cont_numeri_usciti
lblrosso.Text = x100_rosso
lblnero.Text = 100 - x100_rosso
End Sub
Private Sub button_nero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_nero.Click
cont_numeri_usciti = cont_numeri_usciti + 1
cont_nero = cont_nero + 1
x100_rosso = cont_rosso * 100 \ cont_numeri_usciti
lblrosso.Text = x100_rosso
lblnero.Text = 100 - x100_rosso
End Sub
Private Sub btn1to12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1to12.Click
cont_numeri_usciti = cont_numeri_usciti + 1
lblgiri.Text = cont_numeri_usciti
cont1to12 = cont1to12 + 1
x100_1to12 = cont1to12 * 100 \ cont_numeri_usciti
x100_13to24 = cont13to24 * 100 \ cont_numeri_usciti
x100_25to36 = cont25to36 * 100 \ cont_numeri_usciti
lbl1to12.Text = x100_1to12 - (x100_25to36 + x100_13to24)
lbl13to24.Text = x100_1to12 - (x100_1to12 + x100_13to24)
lbl25to36.Text = x100_1to12 - (x100_1to12 + x100_25to36)
End Sub
Private Sub btn13to24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn13to24.Click
cont_numeri_usciti = cont_numeri_usciti + 1
cont13to24 = cont13to24 + 1
x100_13to24 = cont13to24 * 100 \ cont_numeri_usciti
x100_1to12 = cont1to12 * 100 \ cont_numeri_usciti
x100_25to36 = cont25to36 * 100 \ cont_numeri_usciti
lbl13to24.Text = x100_13to24 - (x100_1to12 + x100_25to36)
lbl1to12.Text = x100_13to24 - (x100_13to24 + x100_1to12)
lbl25to36.Text = x100_13to24 - (x100_13to24 + x100_25to36)
End Sub
Private Sub btn25to36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn25to36.Click
cont_numeri_usciti = cont_numeri_usciti + 1
cont25to36 = cont25to36 + 1
x100_25to36 = cont25to36 * 100 \ cont_numeri_usciti
x100_1to12 = cont1to12 * 100 \ cont_numeri_usciti
x100_13to24 = cont13to24 * 100 \ cont_numeri_usciti
lbl25to36.Text = x100_25to36 - (x100_1to12 + x100_13to24)
lbl1to12.Text = x100_25to36 - (x100_25to36 + x100_1to12)
lbl13to24.Text = x100_25to36 - (x100_25to36 + x100_13to24)
End Sub