看板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 。 ○ 。。