推 MixCopy:我是他室友...感謝你的解答 192.192.197.4 04/07
→ MixCopy:不過..有點不符合我們老師的規定..還是謝謝 192.192.197.4 04/07
請教一個新手問題...
寫一個換錢的程式
輸入一金額，然後輸出金額一共幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，
幾個五十元硬幣，幾個十元硬幣，幾個五元硬幣，幾個一元硬幣
輸入幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，幾個五十元硬幣，幾個十元硬幣
幾個五元硬幣，幾個一元硬幣後，可將總金額印出
這兩個功能是在一個程式裡面，須考慮錯誤處理
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox8.Text = Str(Val(TextBox1.Text) * 1000 + Val(TextBox2.Text) * 500 _
+ Val(TextBox3.Text) * 100 + Val(TextBox4.Text) * 50 + Val(TextBox5.Text) * 10 _
+ Val(TextBox6.Text) * 5 + Val(TextBox7.Text) * 1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
這是我現在寫的...
botton1是計算botton2是清除botton3是結束
現在不知道怎麼一起執行把總金額換成有幾張千佰和有幾張千佰換成總金額
還有錯誤處理...
希望大大可以幫我解答^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.197.4
> -------------------------------------------------------------------------- <
作者: seagal (待救的小米) 看板: Visual_Basic
標題: Re: [問題] vb.net問題
時間: Sat Apr 2 01:11:46 2005
※ 引述《austin111 (oh my god~)》之銘言：
: 請教一個新手問題...
: 寫一個換錢的程式
: 輸入一金額，然後輸出金額一共幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，
: 幾個五十元硬幣，幾個十元硬幣，幾個五元硬幣，幾個一元硬幣
: 輸入幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，幾個五十元硬幣，幾個十元硬幣
: 幾個五元硬幣，幾個一元硬幣後，可將總金額印出
: 這兩個功能是在一個程式裡面，須考慮錯誤處理
: Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
: TextBox8.Text = Str(Val(TextBox1.Text) * 1000 + Val(TextBox2.Text) * 500 _
: + Val(TextBox3.Text) * 100 + Val(TextBox4.Text) * 50 + Val(TextBox5.Text) * 10 _
: + Val(TextBox6.Text) * 5 + Val(TextBox7.Text) * 1)
: End Sub
: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
: TextBox1.Text = ""
: TextBox2.Text = ""
: TextBox3.Text = ""
: TextBox4.Text = ""
: TextBox5.Text = ""
: TextBox6.Text = ""
: TextBox7.Text = ""
: TextBox8.Text = ""
: End Sub
: Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
: End
: End Sub
: End Class
: 這是我現在寫的...
: botton1是計算botton2是清除botton3是結束
: 現在不知道怎麼一起執行把總金額換成有幾張千佰和有幾張千佰換成總金額
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
這句話有點不知所云
你第一個目的已經做完了
應該是剩下第二題 要如何把總金額 換算成幾張不同金額鈔票 對嘛?
方法是總金額先去除以一千 , 商為x
餘數再去除以500 商為y
餘數再去除以100 商為z
最後餘數為a
答案就是x張1000
y張500
z張100
a張1
另外 我感覺你的程式碼是從VB抄過來的?
像是你的瑪有很多型別轉換的地方
在VB.NET裡面建議使用CType這個function
: 還有錯誤處理...
: 希望大大可以幫我解答^^
--
生物資訊研究室：每天都會更新文件，提供生物資訊教學，生物字典。
http://www.bioinformatic.idv.tw
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.73.177
> -------------------------------------------------------------------------- <
作者: austin111 (oh my god~) 看板: Visual_Basic
標題: Re: [問題] vb.net問題
時間: Sat Apr 2 01:22:54 2005
※ 引述《seagal (待救的小米)》之銘言：
: ※ 引述《austin111 (oh my god~)》之銘言：
: : 請教一個新手問題...
: : 寫一個換錢的程式
: : 輸入一金額，然後輸出金額一共幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，
: : 幾個五十元硬幣，幾個十元硬幣，幾個五元硬幣，幾個一元硬幣
: : 輸入幾張一仟元鈔，幾張五百元鈔，幾張一百元鈔，幾個五十元硬幣，幾個十元硬幣
: : 幾個五元硬幣，幾個一元硬幣後，可將總金額印出
: : 這兩個功能是在一個程式裡面，須考慮錯誤處理
: : Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
: : TextBox8.Text = Str(Val(TextBox1.Text) * 1000 + Val(TextBox2.Text) * 500 _
: : + Val(TextBox3.Text) * 100 + Val(TextBox4.Text) * 50 + Val(TextBox5.Text) * 10 _
: : + Val(TextBox6.Text) * 5 + Val(TextBox7.Text) * 1)
: : End Sub
: : Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
: : TextBox1.Text = ""
: : TextBox2.Text = ""
: : TextBox3.Text = ""
: : TextBox4.Text = ""
: : TextBox5.Text = ""
: : TextBox6.Text = ""
: : TextBox7.Text = ""
: : TextBox8.Text = ""
: : End Sub
: : Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
: : End
: : End Sub
: : End Class
: : 這是我現在寫的...
: : botton1是計算botton2是清除botton3是結束
: : 現在不知道怎麼一起執行把總金額換成有幾張千佰和有幾張千佰換成總金額
: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
: 這句話有點不知所云
: 你第一個目的已經做完了
: 應該是剩下第二題 要如何把總金額 換算成幾張不同金額鈔票 對嘛?
: 方法是總金額先去除以一千 , 商為x
: 餘數再去除以500 商為y
: 餘數再去除以100 商為z
: 最後餘數為a
: 答案就是x張1000
: y張500
: z張100
: a張1
: 另外 我感覺你的程式碼是從VB抄過來的?
: 像是你的瑪有很多型別轉換的地方
: 在VB.NET裡面建議使用CType這個function
: : 還有錯誤處理...
: : 希望大大可以幫我解答^^
不太懂...
是textbox8.text = str(val(textbox1.text) \ 1000)這樣嗎?
可是是要寫在同一個地方嗎?
這樣又會執行失敗...
可是程式碼是我自己寫的耶＝ ＝
而且我們只有上vb.net
還有錯誤處理
就是如果輸入錯誤類似負號要如何顯示錯誤?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.197.4
> -------------------------------------------------------------------------- <
作者: seagal (待救的小米) 看板: Visual_Basic
標題: Re: [問題] vb.net問題
時間: Sat Apr 2 03:54:40 2005
http://140.109.73.177/CountMoney.rar
幫你寫完了鈔票換算那題
而且property還特地用中文 (不建議這樣用 最好把英文練好)
這支程式有兩個重點
1. 用到了兩個類別 鈔票換算機 和 一疊鈔票
2. 處理了錯誤 要學會利用try catch throw來丟出 捕捉錯誤
如果你確定會靠VB.NET來工作
我想學會物件導向是很重要的 如果只是應付作業的話那就沒關係 程式碼混在一起沒差
這一題我刻意把鈔票換算機 跟一疊鈔票 這兩個名詞提出來
一疊鈔票裡面有一個動詞 叫做 請幫我換算
你有空的話可以多看看物件導向的東西
來體會名詞跟動詞 有什麼不同 為什麼要這樣用等等
物件導向的其中一個好處就是 類別的可再用性
你把我這兩個類別拿去 很輕易的就可以加入你程式碼裡面
如果你聽不懂我上面講的這些東西 那也沒關係
先記得有人提過物件導向這名詞
有緣的話再慢慢去體會
: 可是是要寫在同一個地方嗎?
: 這樣又會執行失敗...
: 可是程式碼是我自己寫的耶＝ ＝
: 而且我們只有上vb.net
: 還有錯誤處理
: 就是如果輸入錯誤類似負號要如何顯示錯誤?
: 謝謝
--
生物資訊研究室：每天都會更新文件，提供生物資訊教學，生物字典。
http://www.bioinformatic.idv.tw
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.73.177