Windows Việt

Cộng Đồng Công Nghệ Thông Tin Việt

Trang ChínhTrang Chính  Sự kiện  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

Share
 
 Giải đề UDQL2
Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
voduy
Member

voduy
Member
Giới tính : Nam
Tuổi : 38
Posts Posts : 82
Coins Coins : 302
Thanked Thanked : 96
Giải đề UDQL2 Empty
Bài gửiTiêu đề: Giải đề UDQL2   Giải đề UDQL2 EmptyFri 17 Jun 2011, 14:32

Năm này bận dạy học với lười nên a ko giúp các bạn ôn tập thi được, tình hình môn ĐHMT lớp mình không khả quan mấy với đề siêu tưởng của Thầy. Anh post bài giải đề 1 Câu 1 trước, giờ phải dạy học, mai anh post tiếp (chỉnh sửa lại bài của bạn Forever 1 số chi tiết nhỏ ở các hàm khởi tạo, bạn đừng giận a nha):
Code:

Public Class Entry

    Private _name As String
    Private _createddate As DateTime
    Private _modifieddate As DateTime

    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property CreatedDate() As DateTime
        Get
            Return _createddate
        End Get
        Set(ByVal value As DateTime)
            _createddate = value
        End Set
    End Property

    Public Property ModifiedDate() As DateTime
        Get
            Return _modifieddate
        End Get
        Set(ByVal value As DateTime)
            _modifieddate = value
        End Set
    End Property

    Public Sub New()
        Me._name = ""
        Me._createddate = Now
        Me._modifieddate = Now
    End Sub

    Public Sub New(ByVal t As String, ByVal nt As DateTime, ByVal ntd As DateTime)
        Me._name = t
        Me._createddate = nt
        Me._modifieddate = ntd
    End Sub

    Public Sub New(ByVal etr As Entry)
        Me._name = etr._name
        Me._createddate = etr._createddate
        Me._modifieddate = etr._modifieddate
    End Sub

    Public Overridable Sub Input()
        Console.Write("Name: ")
        Me._name = Console.ReadLine()
        Console.Write("Ngay tao: ")
        Me._createddate = DateTime.Parse(Console.ReadLine())
        Console.Write("Ngay thay doi: ")
        Me._modifieddate = DateTime.Parse(Console.ReadLine())
    End Sub

    Public Overridable Sub Output()
        Console.WriteLine("Name: {0}", Me._name)
        Console.WriteLine("Ngay tao: {0}", Me._createddate)
        Console.WriteLine("Ngay thay doi: {0}", Me._modifieddate)
    End Sub

    Public Overridable Function GetSize() As Double
        Return 0
    End Function
End Class
Code:


Public Class File
    Inherits Entry

    Private _size As Double
    Public Property Size() As Double
        Get
            Return _size
        End Get
        Set(ByVal value As Double)
            _size = value
        End Set
    End Property

    Public Sub New()
        MyBase.New()
        Me._size = 0
    End Sub

    Public Sub New(ByVal t As String, ByVal nt As DateTime, ByVal ntd As DateTime, ByVal s As Double)
        MyBase.New(t, nt, ntd)
        Me._size = s
    End Sub

    Public Sub New(ByVal f As File)
        MyBase.New(f)
        Me._size = f._size
    End Sub

    Public Overrides Sub Input()
        Console.WriteLine("Nhap File")
        MyBase.Input()
        Console.Write("Kich thuoc: ")
        Me._size = Double.Parse(Console.ReadLine())
    End Sub

    Public Overrides Sub Output()
        Console.WriteLine("Xuat File")
        MyBase.Output()
        Console.WriteLine("Kich thuoc: {0}", Me._size)
    End Sub

    Public Overrides Function GetSize() As Double
        Return Me._size
    End Function
End Class
Code:


Public Class Directory
    Inherits Entry

    Private _dsEntry As List(Of Entry)
    Public Property DSEntry() As List(Of Entry)
        Get
            Return _dsEntry
        End Get
        Set(ByVal value As List(Of Entry))
            _dsEntry = value
        End Set
    End Property

    Public Sub New()
        MyBase.New()
        _dsEntry = New List(Of Entry)()
    End Sub

    Public Sub New(ByVal t As String, ByVal nt As DateTime, ByVal ntd As DateTime, ByVal ds As List(Of Entry))
        MyBase.New(t, nt, ntd)
        _dsEntry = New List(Of Entry)(ds)
    End Sub
    Public Sub New(ByVal d As Directory)
        MyBase.New(d)
        _dsEntry = New List(Of Entry)(d._dsEntry)
    End Sub
    Public Overrides Sub Input()
        Console.WriteLine("Nhap Directory")
        MyBase.Input()
        Do
            Dim _etr As Entry
            Console.Write("Nhap entry con cho Directory nay (1.File - 2.Directory): ")
            Dim c As Integer = Integer.Parse(Console.ReadLine())
            If c = 1 Then
                _etr = New File()
                _etr.Input()
            Else
                _etr = New Directory()
                _etr.Input()
            End If
            _dsEntry.Add(_etr)

            Console.Write("Chon 1 de nhap tiep entry cho Directory nay: ")
            If Console.ReadLine() <> 1 Then
                Exit Do
            End If
        Loop

    End Sub

    Public Overrides Sub Output()
        Console.WriteLine("Xuat Directory")
        MyBase.Output()
        For Each etr As Entry In _dsEntry
            etr.Output()
        Next
    End Sub

    Public Overrides Function GetSize() As Double
        Dim s As Double = 0
        For Each etr As Entry In _dsEntry
            s = s + etr.GetSize()
        Next
        Return s
    End Function
End Class
Code:

Module Module1
    Sub Main()
        Dim ds As New Directory()
        ds.Input()
        ds.Output()
        Console.ReadLine()
    End Sub
End Module
P/S: Sau khi thi xong, anh cần nhận thêm 2 bạn ôn thi Tốt Nghiệp tại nhà anh( 500k/t), bạn nào có nhu cầu liên hệ 01639948693(sr admin quảng cáo ké nha ^^)


Được sửa bởi voduy ngày Fri 17 Jun 2011, 21:04; sửa lần 2.

※ Bài viết cùng chuyên mục


Tác giảThông điệp
Master_an
Member

Master_an
Member
Giới tính : Nam
Tuổi : 30
Posts Posts : 78
Coins Coins : 170
Thanked Thanked : 6
Giải đề UDQL2 Empty
Bài gửiTiêu đề: Re: Giải đề UDQL2   Giải đề UDQL2 EmptyFri 17 Jun 2011, 19:58

thank anh nhiều

※ Bài viết cùng chuyên mục


Tác giảThông điệp
SANG
Member

SANG
Member
Giới tính : Nam
Tuổi : 32
Posts Posts : 33
Coins Coins : 45
Thanked Thanked : 3
Giải đề UDQL2 Empty
Bài gửiTiêu đề: Re: Giải đề UDQL2   Giải đề UDQL2 EmptyFri 17 Jun 2011, 22:08

cảm ơn anh Duy nhiều
Môn này mà out nữa chắc về quê cắm câu luôn quá
Không ra trường được lấy gì mà đi làm kiếm sống anh em
cuối năm nay mà không đi làm được là coi như ăn đòn no luôn
Không có Bác Hồ nữa đâu mà đi học.
Chán thiệt

※ Bài viết cùng chuyên mục


http://www.anhsangbac.com
Tác giảThông điệp
anhdan3012
Member

anhdan3012
Member
Giới tính : Nam
Tuổi : 29
Posts Posts : 193
Coins Coins : 435
Thanked Thanked : 56
Giải đề UDQL2 Empty
Bài gửiTiêu đề: Re: Giải đề UDQL2   Giải đề UDQL2 EmptySun 19 Jun 2011, 09:27

Anh Duy nói tối lên post tiếp mà hok thấy hết zậy ta....


[You must be registered and logged in to see this link.]

Giải đề UDQL2 123
Ôi tình iu của tôi!!!

※ Bài viết cùng chuyên mục


http://anhdanblog.tk
Tác giảThông điệp
heoconchaylonton
Member

heoconchaylonton
Member
Giới tính : Nam
Tuổi : 31
Posts Posts : 41
Coins Coins : 57
Thanked Thanked : 3
Giải đề UDQL2 Empty
Bài gửiTiêu đề: Re: Giải đề UDQL2   Giải đề UDQL2 EmptySun 19 Jun 2011, 22:09

sung rụng...

※ Bài viết cùng chuyên mục


Tác giảThông điệp
Sponsored content


Giải đề UDQL2 Empty

※ Bài viết cùng chuyên mục


 
Giải đề UDQL2
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Windows Việt :: Lưu Trữ :: Lưu Trữ - Các môn học cũ :: Các Môn Học Chính (HK 2 - Năm 3) :: Lập Trình Ứng Dụng Quản Lý 2-
[Windows Việt] Deverloped by Nguyễn Gia Phú - https://windows.forumvi.com
Powered by © Forumotion.com - phpBB™ version ©phpBB2
Go to top Go to bottom