codigo visual basic

[coor]

hola a todos

estoy haciendo una pequeña compra interactiva, donde el usuario puede escoger varios items sobre informatica (pcs, mac, fotocopiadoras, entre otros). en algunos casos se escoge por medio de radiobutton, en otras ocasiones se hsce por medio de checkbutton.

quiero al final que al hacer clic en un button se de el total en un textbox que tengo al lado del total de la compra pero no me da ningun resultado al hacer clic sobre este boton

les adjunto el codigo y muchas gracias a quien me pueda ayudar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim pc As Integer
Dim mac As Integer
Dim contestador As Integer
Dim calculadora As Integer
Dim fotocopiadora As Integer
Dim suma As Integer
If RadioButton1.Checked = True Then
pc = 1000000

If RadioButton2.Checked = True Then
mac = 2000000

If CheckBox1.CheckState = 1 Then
contestador = 300000

If CheckBox2.CheckState = 1 Then
calculadora = 100000

If CheckBox2.CheckState = 1 Then
fotocopiadora = 700000
End If
End If
End If
End If
End If
suma = pc + mac + contestador + calculadora + fotocopiadora
Me.TextBox1.Text = Str(suma)

End Sub

[culd]

Esta mal, por que estas usando un IF dentro de otro, es decir que si la primer condicion no se cumple, directamente no sigue... Lo logico seria...

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim pc As Integer
Dim mac As Integer
Dim contestador As Integer
Dim calculadora As Integer
Dim fotocopiadora As Integer
Dim suma As Integer
If RadioButton1.Checked = True Then
pc = 1000000
end if
If RadioButton2.Checked = True Then
mac = 2000000
end if
If CheckBox1.CheckState = 1 Then
contestador = 300000
end if
If CheckBox2.CheckState = 1 Then
calculadora = 100000
end if
If CheckBox2.CheckState = 1 Then
fotocopiadora = 700000
End If
 
suma = pc + mac + contestador + calculadora + fotocopiadora
TextBox1.Text = Str(suma)
 
End Sub
 

[coor]

Hola muchas gracias por tu respuesta pero no me sale ese codigo lo habia intentado de primero pero lo cambie por el de la pregunta

la verdad no se porque no muestra nada en el cuadro de texto si todo pareciera que estuviese bien. Hago clic en el boton total pero no muestra nada en el codigo

[lokoman]

Hola!!
Sugiero que corras el programa paso a paso con F8 para verificar los procesos, puede que despues del calculo limpies el textbox... o algun evento??

[pkj]

Lo primero que tienes que cambiar son las declaraciones de variables, ya que ningún integer te admite valores tan altos.