2013-07-11 593 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

我明白了,也許我做了什麼不對。我會再試一次:)謝謝 –