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


code phan so

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

code phan so

Bài gửi by pham huu sam on 16/10/2009, 11:06

Code:
Module XuLyPS
    Structure PhanSo
        Dim TuSo As Integer
        Dim MauSo As Integer
        Public Shared Operator +(ByVal ps1 As PhanSo, ByVal ps2 As PhanSo) As PhanSo
            Dim ps As PhanSo
            ps.TuSo = ps1.TuSo * ps2.MauSo + ps2.TuSo * ps2.MauSo
            ps.MauSo = ps1.MauSo * ps2.MauSo
            Return ps
        End Operator
    End Structure

    Sub Nhap(ByRef ps As PhanSo)
        Console.Write("Nhap tu so : ")
        ps.TuSo = Console.ReadLine()
        Console.Write("Nhap mau so : ")
        ps.MauSo = Console.ReadLine()
    End Sub
    Sub Xuat(ByVal ps As PhanSo)
        Console.WriteLine("Phan so la : " & ps.TuSo & "/" & ps.MauSo)
    End Sub

End Module

//main
Code:
Module Module1

    Sub Main()
        Dim ps1 As PhanSo
        Dim ps2 As PhanSo
        Dim ps As PhanSo
        Nhap(ps1)
        Nhap(ps2)
        ps = ps1 + ps2
        Xuat(ps)
    End Sub

End Module
avatar
pham huu sam

Nam
Tổng số bài gửi : 1
Age : 29
Registration date : 11/10/2009

Về Đầu Trang Go down

Re: code phan so

Bài gửi by TranMinhTri on 17/10/2009, 21:02

Mày viết cái gì mà tao đọc chả hiểu gì hết zậy Sâm Lài ? Code dỡ quá rối tung cùi bắp :DD
avatar
TranMinhTri
| Bé Lớp Mầm |
| Bé Lớp Mầm |

Nam
Tổng số bài gửi : 49
Age : 28
Registration date : 10/06/2009

http://minhtrivn.net/

Về Đầu Trang Go down

Re: code phan so

Bài gửi by sylam_113 on 18/10/2009, 11:51

thanks Mr.Sam!
h5sh >:D< h5sh
avatar
sylam_113
| Trẻ Sơ Sinh |
| Trẻ Sơ Sinh |

Nam
Tổng số bài gửi : 34
Age : 27
Location : Home
Registration date : 26/11/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by nguyenhoainam on 18/10/2009, 19:47

thank bác Sâm nhìu nha.......còn mấy bài kia...post hết lun đi Sâm... az
avatar
nguyenhoainam
[ Súp bơ man nhìu chjện ]

Nam
Tổng số bài gửi : 687
Age : 28
Location : Q.13, TPHCM
Registration date : 26/03/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by buiminhnam on 26/10/2009, 10:04

Đúng rồi đó Bác Sâm post nhiều nhiều lên cho tụi em đc sáng mắt please
avatar
buiminhnam

Tổng số bài gửi : 18
Registration date : 14/03/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by Sponsored content


Sponsored content


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