VB學習心得6.類別設計

2013-04-12

摘要:VB學習心得6.類別設計

參考書籍:Visual Basic 2008程式設計學習教本

2-56頁

3.建立一個專案,開啟其中的預設檔案Form1.vb,於檔案中建立一個新的類別,將其命名為NClass,於Form1配置一個按鈕,當使用者按下按鈕,建立新類別的實體物件

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newclass As New NClass
        newclass.ShowMessage()
    End Sub
End Class
Class NClass
    Public Sub ShowMessage()
        MsgBox("test Class")
    End Sub
End Class

8.建立一支程式,於其中配置一個文字方塊,讓使用者輸入要轉換的公斤數,然後設計一個名稱為KTop的sub,建立將公斤轉換成為磅的程式功能,配置一個按鈕,當使用者按下這按鈕,顯示轉換的結果

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        changenumber()
        MsgBox(dulkgs)
    End Sub
    Public dulkgs As Double
    Sub changenumber()
        Dim dulkg As Double = CInt(TextBox1.Text)
        dulkgs = dulkg * 2.2046226218487761
    End Sub
End Class

15.建立一支程式,接受使用者輸入代表小時數的數字,建立一個提供轉換邏輯的function,接受輸入的integer參數,回傳對應的日數

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim theday As New TimetoDay
        Dim intresult As Integer
        Dim inthour As Integer = CInt(TextBox1.Text)
        Dim day As Integer = theday.HourtoDay(inthour)
        intresult = day
        MsgBox(CStr(intresult) + "日")
    End Sub

End Class
Class TimetoDay
    Function HourtoDay(ByVal hour As Integer)
        Dim inthour As Integer = hour / 24
        Dim day As Integer = inthour
        Return day
    End Function
End Class

16.建立一支程式,定義兩個執行乘法運算的同名sub,將其命名為DoMulti,其中第一個接受單一的integer參數,執行此值的平方運算,第二個接受兩個integer參數,執行這兩個參數的乘法運算

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim thenumber As Integer = CInt(TextBox1.Text)
        Dim intresult As Integer
        DoMulti(thenumber)
        intresult = n
        MsgBox(intresult)
    End Sub
    Public n As Integer
    Sub DoMulti(ByVal n1 As Integer)
        n = n1 * n1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim thenumber As Integer = CInt(TextBox1.Text)
        Dim thenumber2 As Integer = CInt(TextBox2.Text)
        Dim result As Integer
        DoMulti(thenumber, thenumber2)
        result = n
        MsgBox(result)
    End Sub
    Sub DoMulti(ByVal xn1 As Integer, ByVal xn2 As Integer)
        n = xn1 * xn2
    End Sub
End Class

VB.NET

回首頁