[VB.NET] Conteggio automatico di più valori

[francescowere]

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim numero1 As Integer
Dim numero2 As Integer
Dim numero3 As Integer
Dim numero4 As Integer
Dim numero5 As Integer
Dim numero6 As Integer
Dim numero7 As Integer
Dim numero8 As Integer
Dim numero9 As Integer
Dim numero10 As Integer
Dim numero11 As Integer
Dim numero12 As Integer
Dim numero13 As Integer

numero1 = Int(Label1.Text)
numero2 = Int(Label2.Text)
numero3 = Int(Label3.Text)
numero4 = Int(Label4.Text)
numero5 = Int(Label5.Text)
numero6 = Int(Label6.Text)
numero7 = Int(Label7.Text)
numero8 = Int(Label8.Text)
numero9 = Int(Label9.Text)
numero10 = Int(Label10.Text)
numero11 = Int(Label11.Text)
numero12 = Int(Label12.Text)
numero13 = Int(Label13.Text)

'Valori label di partenza
Label1.Text = 0
Label2.Text = 0
Label3.Text = 0
Label4.Text = 0
Label5.Text = 0
Label6.Text = 0
Label7.Text = 0
Label8.Text = 0
Label9.Text = 0
Label10.Text = 0
Label11.Text = 0
Label12.Text = 0
Label13.Text = 0

End Sub

Private Sub uno_Click(sender As Object, e As EventArgs) Handles asso.Click
Label1.Text = Label1.Text 1 (QUESTE LABEL SONO PER CAPIRE QUANTE VOLTE HO PREMUTO IL BUTTON CORRISPONEDNTE)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles due.Click
Label2.Text = Label2.Text 2
End Sub

Private Sub tre_Click(sender As Object, e As EventArgs) Handles tre.Click
Label3.Text = Label3.Text 3
End Sub

Private Sub quattro_Click(sender As Object, e As EventArgs) Handles quattro.Click
Label4.Text = Label4.Text 4
End Sub

Private Sub cinque_Click(sender As Object, e As EventArgs) Handles cinque.Click
Label5.Text = Label5.Text 5
End Sub

Private Sub sei_Click(sender As Object, e As EventArgs) Handles sei.Click
Label6.Text = Label6.Text 6
End Sub

Private Sub sette_Click(sender As Object, e As EventArgs) Handles sette.Click
Label7.Text = Label7.Text 7
End Sub

Private Sub otto_Click(sender As Object, e As EventArgs) Handles otto.Click
Label8.Text = 8
End Sub

Private Sub nove_Click(sender As Object, e As EventArgs) Handles nove.Click
Label9.Text = 9
End Sub

Private Sub dieci_Click(sender As Object, e As EventArgs) Handles dieci.Click
Label10.Text = Label10.Text 10
End Sub

Private Sub undici_Click(sender As Object, e As EventArgs) Handles J.Click
Label11.Text = Label11.Text 11
End Sub

Private Sub dodici_Click(sender As Object, e As EventArgs) Handles Q.Click
Label12.Text = Label12.Text 12
End Sub

Private Sub tredici_Click(sender As Object, e As EventArgs) Handles K.Click
Label13.Text = Label13.Text 13
End Sub

Private Sub Label14
QUI VOGLIO FARE IL CONTEGGIO AUTOMATICO DEI VALORI ASSEGNIATI AI PULSANTI CHE PREMO
ES. SE PREMO UNA VOLTA IL PULSANTE 10 NELLA LABEL DVE COMPARIRE IL NUMERO 10
SE PREMO IL PULSANTE 2 LA LABEL IN AUTOMATICO DEVE SEGNARE IL NUMERO 12 E COSì VIA


End Class