看板Programming
標 題vb.net例外
發信站銘傳築夢別境 (Wed Dec 13 17:14:40 2006)
轉信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntu!mcubbs
程式已經作了修改，雖然可以執行，但我有若干疑問。
以實際生活的例子來說吧
當我生產汽車時，
1.如果車號小於0 以及汽油量小於0發生了錯誤，均會產生例外。
==>
我的疑問是，可以將這兩種例外都放在Class CarException內嗎？
那該怎麼寫呢？
2.如果車號與汽油量產生例外 當生產線執行show()時，應該要秀出其他訊息
而不是"車號是xxx"、"汽油量是xxx"這樣的訊息..
可否請大家協助，給我些提示，程式已經改到這裡，愈來愈像我要的程式，謝謝！
附上原始語法：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim car1 As New excar
Dim a As Integer
Dim b As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
car1.setCar(a, b)
car1.show()
End Sub
End Class
Public Class CarException
Inherits Exception
Public Sub New()
MsgBox("請輸入大於0的數字")
End Sub
End Class
Class excar
Private num As Integer
Private gas As Double
Sub New()
num = 0
gas = 0.0
MsgBox("已生產了汽車")
End Sub
Public Function setCar(ByVal n As Integer, ByVal g As Double)
MsgBox(n)
MsgBox(g)
Try
If (g < 0) Then
Throw New CarException
End If
num = n
gas = g
MsgBox("已使車號為" & num & "，使汽油量為" & gas)
Catch ex As Exception
MsgBox("還有其他的錯誤喔")
End Try
End Function
Public Function show()
MsgBox("車號是" & num)
MsgBox("汽油量是" & gas)
End Function
End Class
--
o ╔╦╦╦╦╦╦╦╗o。心靈交流的橋樑 資訊傳遞的園地 建築夢想的別境 o○。
。╠銘傳╬築夢別境╣ 。 ≡telnet://bbs.mcu.edu.tw≡ o
○╚╩╩╩╩╩╩╩╝○o From：091-139.ihp.sinica.edu.tw 。 ○ 。。