作者pinkykk (哇哈哈)
看板Visual_Basic
標題Re: [.NET] 程式碼這樣寫有問題?
時間Mon Jan 10 10:25:32 2011
※ 引述《moneyegg (老爺)》之銘言：
: VB2008
: 小弟做了一份作業
: 例如幫某某片商寫租片軟體
: 然後要在軟體裡面設計一個租超過五片就自動打95折的系統
: 那小弟目前是這樣寫
: Public Class Form1
: Dim a As Integer
: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles Button1.Click
: a = 0
: If CheckBox1.Checked = True Then
: a = a + TextBox2.Text * Label3.Text
: End If
: If CheckBox2.Checked = True Then
: a = a + TextBox3.Text * Label4.Text
: End If
: If CheckBox3.Checked = True Then
: a = a + TextBox4.Text * Label5.Text
: End If
: If Label3.Text + Label4.Text + Label5.Text > 5 Then
: a = a * 0.95
: TextBox1.Text = a
: End If
: End Sub
: End Class
: 可是不管怎麼樣租幾片他都會跑去打95折 QQ
: 小弟的95折選項不是以經給它設立條件了嗎?
: 請問為什麼還會出現這種問題?
: 我不是來偷雞問作業
: 我是真的用我的方法去做可是出現問題 QQ
從文章看來 Textbox2~Textbox3應該是指價位，Label3~Label5是指數量
Textbox1是最終價錢的總和，問題可能是出在最後一段，
If Cint(Label3.Text) + Cint(Label4.Text) + Cint(Label5.Text) > 5 Then
a = a * 0.95
End If
TextBox1.Text = a.toString
試試看^^"
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.240.180.210
1F：推 UniFish:痾...VB現在是不用作變數型態的轉換嗎!? 01/10 10:56
2F：→ pinkykk:我印象中Int=>String好像可以自動轉，保險一點a.tostring 01/10 11:18
3F：→ pinkykk:Sorry...@@ 01/10 11:19
※ 編輯: pinkykk 來自: 210.240.180.210 (01/10 11:20)
4F：推 UniFish:喔~歹勢~我是在說原PO的程式碼XD 01/10 11:38
5F：→ UniFish:兩個text相乘是可以不用轉INT的嗎!?我記得要吧 01/10 11:39
6F：→ pinkykk:其實是不用的XD 01/10 11:51
7F：→ pinkykk:但是照理說要做啦.... 01/10 11:51
8F：→ MOONRAKER:VB6才不要吧… 01/10 12:00
9F：推 horngsh:vb6寵壞程式師了, 快改用VB.NET或C#吧... 01/10 13:21
10F：→ pinkykk:VB.NET的專案屬性隱含轉換如果設定為on才會無法編譯 01/10 15:22
11F：→ catchtest:String相加會變成把String組合起來 01/10 20:04