Lời Hay Ý Đẹp
Latest topics
» Tự học lập trình IOS trong vòng 24h
by kenanh 27/1/2014, 22:28

» xin tài liệu một số môn học
by nguyentvvan 21/8/2013, 21:34

» [Thảo luận] Bài toán đong nước
by giathinh9x 9/1/2013, 22:39

» Học Marketing Online, Học Chuyên viên Internet Marketing Online tại iNET
by NIIT-iNET 19/6/2012, 14:23

» Học PHP nâng cao, Học lập trình web với PHP nâng cao tại học viện iNET
by NIIT-iNET 19/6/2012, 14:22

» Học PHP, học lập trình web với PHP tại iNET vào ngày 19/07/2012
by NIIT-iNET 19/6/2012, 14:20

» PHIÊN BẢN MỚI CHO THIÊN ĐƯỜNG CÁ Ô LA LA !!!
by todaytv 13/3/2012, 15:35

» [hot] game khu vườn địa đàng phiên bản mobile của KVTM
by trantinh1713 3/1/2012, 15:20

» Đề tham khảo (update phút 90)
by ndc_2209 29/12/2011, 10:26

» Học bổng Lời Dịch tuần này.
by tienganh123 1/11/2011, 13:13

» [Thảo luận] Quản lý phân công giảng dạy PTTH
by huyquang0510 5/10/2011, 09:52

» Học tiếng Nhật - Top Globis
by tuquynh 21/9/2011, 10:35

» Học tiếng Nhật - Top Globis
by tuquynh 8/8/2011, 11:19

» Order Imitrex Online
by Khách viếng thăm 4/8/2011, 18:46

» Speeds Caffeine Metabolism Up
by Khách viếng thăm 4/8/2011, 18:12

» Skin For Good Caffeine
by Khách viếng thăm 3/8/2011, 14:54

» Cheap Pvc Figures
by Khách viếng thăm 1/8/2011, 19:32

» Action Rapid Onset Zolpidem Of
by Khách viếng thăm 31/7/2011, 01:13

» TUYỂN NHÂN VIÊN KINH DOANH ( làm việc tại văn phòng )
by canhkientp 5/7/2011, 14:59

» Demo + Vài điểm thảo luận về LINQ - Nhóm 7
by ChuongTienPhat 3/7/2011, 12:19


Xây dựng kiểu dữ liệu ngày

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Xây dựng kiểu dữ liệu ngày

Bài gửi by ChuongTienPhat on 10/11/2009, 00:10

Xin chào bà-kon!
Để góp phần xây dựng diễn đàn có chất lượng hơn, xin mời bà-kon hãy cùng chung tay góp sức chia sẻ các bài viết, mã nguồn. Chúc bà-kon học tập tốt!
Nhân dịp khai trương, tớ xin post bài đầu làm gương.
Thông tin:
Bài tập 8.6.11 trang 150 Giáo trình Bài tập lập trình
Tác giả: Nguyễn Tấn Trần Minh Khang
Ngôn ngữ lập trình: VB.NET
Phương pháp lập trình: Hướng đối tượng


Bài này tớ dùng phương pháp lập trình hướng đối tượng, xem CNgay là một lớp gồm 3 biến thành phần _ngay, _thang và _nam.

Code:
Public Class CNgay
    ' Khai bao 3 bien thanh phan cua class CNgay
    Private _ngay As Integer
    Private _thang As Integer
    Private _nam As Integer

    'Tao thu tuc khoi tao cho doi tuong CNgay
    'Khi dung lenh [ Dim a as New CNgay ],
    'thi nho thu tuc nay cac bien thanh phan co gia tri mac dinh
    Public Sub New()
        _ngay = 1
        _thang = 1
        _nam = 1900
    End Sub
    Public Sub nhap()
        Console.Write("Nhap nam: ")
        _nam = Console.ReadLine()
        Console.Write("Nhap thang: ")
        _thang = Console.ReadLine()
        Console.Write("Nhap ngay: ")
        _ngay = Console.ReadLine()
    End Sub
    'Viet thu tuc nhap voi 3 tham so truyen vao
    'Cac thu tuc va ham co doi so truyen vao khac nhau thi ten co the trung nhau
    Public Sub nhap(ByVal ngay As Integer, ByVal thang As Integer, ByVal nam As Integer)
        _ngay = ngay
        _thang = thang
        _nam = nam
    End Sub
    Public Sub xuat()
' Day cung la mot cach hay de xuat thong tin ra man hinh
        Console.Write(vbTab & "{0}/ {1}/ {2}", _ngay, _thang, _nam)
    End Sub
    'Ham kiem tra nam nhuan
    '1 nam duoc xem la nam nhuan
    'NEU no chia het cho 4 nhung khong chia het cho 100
    'HOAC no chia het cho 400
    Public Function ktNamNhuan() As Boolean
        If _nam Mod 4 = 0 And _nam Mod 100 <> 0 Then
            Return True
        End If
        Return False
    End Function
End Class

Xin ghi nhận mọi đóng góp
Tớ sẽ cố gắng giải đáp mọi thắc mắc từ các bạn

_________________
Nếu Khách viếng thăm đọc được một bài viết có ích,
hãy cảm ơn bằng một bài viết có ích khác,
cùng nhau góp tay xây dựng diễn đàn lớp 07CK2 nhé.


http://chutiephat.vn.vc
avatar
ChuongTienPhat
Admin
Admin

Nam
Tổng số bài gửi : 978
Age : 28
Registration date : 17/12/2007

http://360.yahoo.com/ztienphat2709z

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết