VB.NET Class.7 (登入系統 + 物件導向 Class.1)

練習一：登入系統
---------------------------------------------------------------------------------
登入成功畫面

登入失敗畫面

---------------------------------------------------------------------------------

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        //預設可登入帳號密碼

        Dim account As String = "ABC"

        Dim password As String = "abc123"

        Dim userAccount As String

        Dim userPassword As String

        

        //分別取出 TextBox 中的值並去除前後多餘的空格

        userAccount = TextBox1.Text.Trim

        userPassword = TextBox2.Text.Trim

        //分別把取出的值轉成需要的大小寫

        userAccount = userAccount.ToUpper

        userPassword = userPassword.ToLower

        //判斷帳號密碼是否相同

        If userAccount = account And userPassword = password Then

            MessageBox.Show("歡迎進入本系統")

        Else

            Label3.Text = "帳號或密碼輸入錯誤，請重新輸入"

        End If

    End Sub

End Class

========================================================

物件導向 Class.1

---------------------------------------------------------------------------------
執行結果

---------------------------------------------------------------------------------

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim car1 As New Car

        car1.pNum = 9999

        car1.cName = "Toyota"

        car1.ccolor = "Red"

        car1.gas = 3000.0

        Label1.Text = car1.pNum & vbCr & car1.cName & vbCr & car1.ccolor & vbCr & car1.gas

        car1.showData()

    End Sub

End Class

---------------------------------------------------------------------------------
 //新類別

Class Car

 //新類別變數

    Public pNum As Integer

    Public cName As String

    Public ccolor As String

    Public gas As Double

 //新類別方法

    Public Sub showData()

        MessageBox.Show(pNum & vbCr & cName & vbCr & ccolor & vbCr & gas)

    End Sub

End

---------------------------------------------------------------------------------