Elaborar um programa que adicione valores numa msgbox ude acordo com a CheckBox e RadioButton

[Razvanvb]

Pressionando o botão “Ver preço” o programa abre uma MsgBox com a indicação do preço da pizza de acordo com:

Preço base com massa fina = 2€

Cada ingrediente = mais 1€

Massa grossa = 3€

Exemplo1: massa fina e 2 ingredientes = 4€

Exemplo2: massa grossa e 1 ingredientes = 4€

Exemplo3: massa grossa e 3 ingredientes = 6€

Eu já tentei fazer com ifs (cerca de 30 ifs lol) só que depois começa a aparecer 2 msgbox quando passo a inserir 2 ingredientes.

Pelo que contei, há cerca de 15 combinações possíveis (ou mais), se me conseguirem ajudar agradecia imenso, além de ajudar gostava de perceber como fazer!

Obrigado desde já!

Edited January 20, 2016 at 10:25 AM by Razvanvb

[Retsu9]

há inumeras formas de resolveres isso. vamos por partes

1º arranjas uma variavel para teres informação do valor, tipo SOMA.

2º começas por verificar o tipo de massa: if radiobutton_massagrossa.checked=true then soma=soma+3

3º verificas quantos ingredientes estao selecionados:

aqui podes usar if's para ver os que estao ou nao selecionados, mas penso que podes usar um for each checkbox.checked=true in.... soma=soma+1

[Razvanvb]

há inumeras formas de resolveres isso. vamos por partes

1º arranjas uma variavel para teres informação do valor, tipo SOMA.

2º começas por verificar o tipo de massa: if radiobutton_massagrossa.checked=true then soma=soma+3

3º verificas quantos ingredientes estao selecionados:

aqui podes usar if's para ver os que estao ou nao selecionados, mas penso que podes usar um for each checkbox.checked=true in.... soma=soma+1

Só não percebi a última parte, não seria:

for each checkbox in ________

if checkbox = true then

soma = soma +1

???

Obrigado pelas outras partes btw!

EDIT: Já consegui tudo!!!! Muito muito obrigado!

Edited January 20, 2016 at 11:30 AM by Razvanvb

[Retsu9]

Edit: a soluçao que dei antes nao dava. fiz e testei este codigo ve se te serve:

Dim soma As Single
Sub massa()
 If rdb_massafina.Checked = True Then
	 soma = soma + 2
 Else
	 soma = soma + 3
 End If
End Sub
Sub ingredientes()
 Dim chk As CheckBox
 For Each chk In GroupBox1.Controls ' nome da groupbox dos ingredientes
	 If chk.Checked = True Then
		 soma = soma + 1
	 End If
 Next
End Sub
Private Sub btn_verpreco_Click(sender As Object, e As EventArgs) Handles btn_verpreco.Click
 massa()
 ingredientes()
 MsgBox("O valor da pizza é: " & soma & " €", MsgBoxStyle.OkOnly)
 soma = 0
End Sub

Edit: Não vi o teu edit xD 😛

Edited January 20, 2016 at 12:07 PM by Retsu9

[felipe_live]

Alguém poderia me ajudar? Sou um novato na área de programação.

Eu tenho duas ComboBox com informações puxada de uma tabela do SQLServer

Quando o usuário selecionar as informações desejadas da ComboBox e clicar no botão Salvar, essas informações tem que ir para uma outra tabela do SQLServer.

Cada ComboBox corresponde a uma coluna da tabela.