Devralma Visual Basic 2005 veya Visual Basic. NET'te nasýl kullanýlýr

Üste

Gereksinimler

• Visual Basic 2005 veya Visual Basic .NET sözdizimi
• Nesneye dayalý kavram

Üste

Yeni bir konsol uygulamasý oluþturun.

1. Microsoft Visual Studio 2005 veya Microsoft Visual Studio. NET'i baþlatýn ve yerel bilgisayarýnýzda UseInheritance adlý yeni bir Visual Basic konsol uygulamasý projesi oluþturun.
2. Proje) menüsünde Add Class ' ý týklatýn.
3. Yeni Öðe Ekle iletiþim kutusunda <a0>adý</a0> alanýndaki Account.vb yazýn. Aç ' ý týklatýn.
   
   Not Visual Studio 2005'te, Ekle, Aç ' ý týklatýn.
4. Visual Studio. NET'in dosya Account.vb görüntüler.
5. Projeyi kaydedin.

Üste

Temel bir soyut sýnýf oluþturma

1. Bir soyut sýnýf hesap yapmak için hesap sýnýfýna, Mustýnherit deðiþtirici ekleyin:

   Public MustInherit Class Account
   
   End Class
   					

Üste

Temel sýnýf kodunu yazýn.

1. Iki alan hesap sýnýfýna ekleyin:

   Private Name As String       ' Only accessible in base class
   Protected Balance As Double  ' Accessible in base class and derived class

2. Bu alanlarý'ný baþlatmak için bir kurucu ekleyin:

   Public Sub New(ByVal Nm As String, ByVal Bal As Double)
      Name = Nm
      Balance = Bal
   End Sub 

3. Aþaðýdaki yöntem, sýnýfa ekleyin. Bu yöntemler, türetilmiþ sýnýflarý kýlýnabilir Overridable anahtar anlamýna gelir:

   Public Overridable Sub Credit(ByVal Amount As Double)
      Balance += Amount
   End Sub
   
   Public Overridable Sub Debit(ByVal Amount As Double)
      Balance -= Amount
   End Sub
   
   Public Overridable Sub Display()
      Console.WriteLine("Name=" & Name & ", " & "Balance=" & Balance)
   End Sub

4. Aþaðýdaki yöntem, sýnýfa ekleyin. Bu yöntem Overridable ' iþaretli olmadýðýndan, türetilmiþ sýnýflarý geçersiz kýlýnamaz. Bu yöntem hesap sahibinin adýný deðiþtirme olanaðý saðlar.

   Public Sub ChangeName(ByVal newName As String)
      Name = newName
   End Sub

5. Aþaðýdaki yöntem, sýnýfa ekleyin. Bu yöntem türetilmiþ sýnýflarý geçersiz MustOverride anahtar anlamýna gelir:

   Public MustOverride Function CalculateBankCharge() As Double

Üste

Türetilmiþ bir sýnýf oluþturmak.

1. Proje) menüsünde Add Class ' ý týklatýn.
2. Yeni Öðe Ekle iletiþim kutusunda <a0>adý</a0> alanýndaki SavingsAccount.vb yazýn. Aç ' ý týklatýn.
3. Visual Studio. NET'in dosya SavingsAccount.vb görüntüler.
4. <a1>Hesap</a1> (ýnherits anahtar yeni bir satýrda görünmelidir unutmayýn) SavingsAccount devraldýðý SavingsAccount sýnýf tanýmý aþaðýdaki gibi deðiþtirin, böylece:

   Public Class SavingsAccount 
      Inherits Account
   
   End Class

Üste

Türetilmiþ bir sýnýf kodunu yazýn.

1. Bir alan SavingsAccount sýnýfýna ekleyin:

   Private MinBalance As Double  ' If the balance drops below MinBalance, 
                                 ' the bank will charge a fee on the account

2. Bir kurucu taban sýnýftaki ve bu sýnýftaki alanlarý'ný baþlatmak için aþaðýdaki þekilde ekleyin:

   Public Sub New(ByVal Nm  As String, _
                  ByVal Bal As Double, _
                  ByVal Min As Double)
      MyBase.New(Nm, Bal)        ' Call base-class constructor first
      MinBalance = Min           ' Then initialize fields in this class
   End Sub

3. Aþaðýdaki yöntemlerden SavingsAccount sýnýfýna ekleyin. Bu yöntemler temel sýnýfýndan devralýnan Overridable yöntemleri geçersiz kýlmak:

   Public Overrides Sub Debit(Amount As Double)
      If Amount <= Balance Then  ' Use balance, inherited from base class
         MyBase.Debit(Amount)    ' Call Debit, inherited from base class
      End If
   End Sub
   
   Public Overrides Sub Display()
      MyBase.Display()           ' Call Display, inherited from base class
      Console.WriteLine("$5 charge if balance goes below $" & MinBalance)
   End Sub

4. Tüm temel sýnýf MustOverride yöntemleri geçersiz kýlmak gerekir. Aþaðýdaki yöntem SavingsAccount sýnýfýna ekleyin:

   Public Overrides Function CalculateBankCharge() As Double
      If Balance < MinBalance Then
         Return 5.0
      Else
         Return 0.0
      End If
   End Function

Üste

Çalýþtýðýndan emin olun.

1. Kodu Module1.vb dosyasýnda <a0>kodu görüntüle</a0> penceresindeki görüntüler.
2. Ana yönteminde bir SavingsAccount nesnesi aþaðýdaki gibi oluþturursunuz:

   Dim sa As SavingsAccount = New SavingsAccount("Freda Smith", 100.00, 25)
   sa.Display()

3. Ortak bir yöntemleri SavingsAccount veya hesap çaðýrmak için aþaðýdaki kodu ekleyin:

   sa.Credit(100)
   sa.Debit(180)
   sa.ChangeName("Freda Jones")
   sa.Display()
   Console.WriteLine("Bank charge: $" & sa.CalculateBankCharge())
   					

4. Uygulamayý oluþturun.
5. Hata Ayýkla menüsünden uygulamayý çalýþtýrmak için Debugging Baþlat'ý týklatýn. Uygulama, konsol üzerindeki aþaðýdaki bilgileri görüntüler:

   Name=Freda Smith, balance=100
   $5 charge if balance goes below $25
   Name=Freda Jones, balance=20
   $5 charge if balance goes below $25
   Bank charge: $5
   						

6. Uygulamayý yeniden çalýþtýrýn, ancak bu kez hata ayýklayýcýyý kullanýn. Main yöntemi baþýnda kesme noktasý ayarlamak ve Hata Ayýkla menüsünden Baþlat ' ý seçin. Her ifadesine adým ve uygulama sýrasýnda hangi yöntemleri olarak inceleyin.

Üste