Ajuda em código de mudar o texto da label

[Zahox]

Boas,

Ando a trabalhar numa gestão de um restaurante em VB 2010 é que sou ainda um novato com este programa e gostaria que me pudessem ajudar numa coisa:

Eu tenho uma combobox , uma label e uma caixa de texto no qual na label indica o preço, a combobox o menu e a caixa de texto a quantidade que o cliente quer. Então precisava de saber o código para que a label calcule o preço pela quantidade.

Cumprimentos,

Obrigado

[Muryllo]

Boas Zahox,

Veja se é oque precisas :

Public Function CalcularValor(ByVal Preco As String, ByVal Quantidade As String) As Integer
	On Error Resume Next
	Dim preco_primaria As Integer = Convert.ToInt32(Preco)
	Dim quant_primaria As Integer = Convert.ToInt32(Quantidade)
	Dim Calculo As Int64 = (preco_primaria * quant_primaria)
	Return Calculo
End Function

E se não for operar com multiplicação, podes alterar o sinal da operação na linha da variável Calculo para a operação que você quiser. 👍

Edited April 27, 2015 at 05:07 PM by Muryllo

[Retsu9]

são valores vindos de uma base de dados?

[Zahox]

Boas Zahox,

Veja se é oque precisas :

Public Function CalcularValor(ByVal Preco As String, ByVal Quantidade As String) As Integer
	On Error Resume Next
	Dim preco_primaria As Integer = Convert.ToInt32(Preco)
	Dim quant_primaria As Integer = Convert.ToInt32(Quantidade)
	Dim Calculo As Int64 = (preco_primaria * quant_primaria)
	Return Calculo
End Function

E se não for operar com multiplicação, podes alterar o sinal da operação na linha da variável Calculo para a operação que você quiser. 👍

Obrigado eu vou experimentar isso 🙂

são valores vindos de uma base de dados?

Não, os valores para calcular está no código.