[VB.NET] Conteggio automatico di più valori

[francescowere]

ciao a tutti sono nuovo del forum e mi sto approcciato alla programmazione.
Mi sono bloccato con un progetto visual basic e avrei bisogno di una mano.
Praticamente ho dei pulsanti a cui ho dato dei valori numerici tipo i tasti di una calcolatrice ed una label che mi segna il totale.
Come posso fare a dire alla label deve fare il totale del valore automaticamente senza che si debba premere il tasto uguale?
Es. Premo 1 e sulla label compare il numero, premo il 5 e sulla label deve già comparire il 6 in automatico.
Grazie

[patel]

mostra il codice che hai scritto ed i tuoi tentativi di risolvere

[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

[optime]

a parte che non so cosa voglia dire l'istruzione

Label1.Text = Label1.Text 1

direi che dentro ogni

Private Sub ButtonN_Click

tu possa scrivere

Label14.Text = VAL(Label14.Text) + N

[francescowere]

ciao grazie della risposta ma ho risolto scrivendo ad ogni button:

If Label14.Text = 0 Then (LABEL CHE DEVE AVERE IL RISULTATO AUTOMATICO)
Label14.Text = -2 (VALORE CHE VOGLIO ASSEGNARE)
Else
Label14.Text = Int(Label14.Text - 2) (PRENDEIL NUMERO PRESENTE NELLA LABEL 14 + IL VALORE CHE VOGLIO ASSEGNARE)
End If

[sspintux]

ciao grazie della risposta ma ho risolto scrivendo ad ogni button:

If Label14.Text = 0 Then (LABEL CHE DEVE AVERE IL RISULTATO AUTOMATICO)
Label14.Text = -2 (VALORE CHE VOGLIO ASSEGNARE)
Else
Label14.Text = Int(Label14.Text - 2) (PRENDEIL NUMERO PRESENTE NELLA LABEL 14 + IL VALORE CHE VOGLIO ASSEGNARE)
End If

[optime]

se ti funziona...

[sspintux]

se ti funziona...

le vie della programmazione sono infinite

[francescowere]

giuro ragazzi funziona
considerate che ho iniziato a programmare ieri mattina sicuramente ci sono dei metodi più corretti e veloci ma almeno ci sono arrivato con la mia testa

[francescowere]

Ragazzi, ho risolto quasi tutto solo che mi sono accorto che VB mi arrotonda tutti i numeri, come faccio a dirgli di far vedere anche due deciamli dopo la virgola?
grazie