2013-07-11 747 views
3

我的界面是这样的。 (数字是它的价格)总金额总是为零

enter image description here

框架内“的T恤”的所有单选按钮的代码:

Dim num1 As Integer 

    num1 = [Price] 

在框架裤子,我把代码:

Dim num2 As Integer 

    num2 = [Price] 

因此,这是过程..

例。当您单击Tshirt Frame中的小号和Pants Frame中的大号时,它们将添加并且将在Quantity(文本框)上相乘。

所以我把这个代码的总量(命令按钮):

Label3.Caption = (num1 + num2) * Val(TextBox1.Text) 

但每次我运行程序的时候,我总是零(0)的总量标签(LABEL3)..

我不知道我的代码有什么问题。

+0

你通过加强与调试? – rhughes

+0

@rhughes是的..我仍然无法找出问题 –

+0

是'Val(TextBox1.Text)'成功地解析数字,并且'num1'和'num2'填充了正确的值吗? – keyboardP

回答

3

num1和num2变量不能被按钮取消。

Public Class Form1 
Dim num1, num2 as double 

Private Sub RadioButton1_Checked 
num1 = 100 
End Sub 

Private Sub RadioButtonn2_Checked 
num1 = 150 
End Sub 

Private Sub RadioButton3_Checked 
num2 = 100 
End Sub 

Private Sub RadioButton4_Checked 
num2 = 150 
End Sub 

然后做你的按钮,因为你是。

+0

呃..我实际上没有那样做。我没有遇到过“Public Class Form1 Dim num1,num2 as double”,所以我实际上不知道它应该放在哪里。但我想这和“Dim num2 As Integer num2 = 120”是一样的,我猜? XD我会去搜索更多关于这个的。但我试着将_Click改成_Checked。但它不起作用:<但是,谢谢你:)新的东西,真棒 –

+0

双击设计表单中的单选按钮。这会让你到你添加的地方num2 = [price]完成之后,看看你的代码的顶部,并且在它下面的公共类Form1(或者你的表单名称)添加dim x,y,作为整数或任何你想要它。 – ZL1Corvette

+0

哦,好吧好吧。我会再试一次:)谢谢 –

1

我不是真正的单选按钮的Checked事件的粉丝,
使用的CheckedChanged代替:

'T-Shirt 
Private Sub RadioButton1_CheckedChanged 
num1 = 100 
End Sub 

Private Sub RadioButtonn2_CheckedChanged 
num1 = 150 
End Sub 

'Pants 
Private Sub RadioButton3_CheckedChanged 
num2 = 100 
End Sub 

Private Sub RadioButton4_CheckedChanged 
num2 = 150 
End Sub 
+0

它仍然不起作用:<但是非常感谢。我将更多地搜索_CheckedChanged以备将来使用。 XD –

+0

我测试了这个,它的工作原理应该是这样的... –

+0

我明白了,也许我做了什么不对。我会再试一次:)谢谢 –