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


Structure tam giác

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

Structure tam giác

Bài gửi by domauphap on 7/11/2009, 13:16

Code:
structure tam giác bao gồm 3 điểm A, B, C
File DiemOxy.vb

Module DiemOxy
        Structure Diem
        Dim x As Double
        Dim y As Double
    End Structure
    Sub NhapDiem(ByRef P As Diem)
        Console.Write(" + nhap hoanh do x: ")
        P.x = Console.ReadLine()
        Console.Write(" + nhap tung do y: ")
        P.y = Console.ReadLine()
    End Sub
    Sub XuatDiem(ByVal P As Diem)
        Console.Write("(" & P.x & "," & P.y & ")" & vbNewLine)
    End Sub
End Module

File TamGiacOxy.vb

Module TamGiacOxy
    Structure TamGiac
        Dim A As DiemOxy.Diem
        Dim B As DiemOxy.Diem
        Dim C As DiemOxy.Diem
    End Structure
    Sub NhapTamGiac(ByRef ABC As TamGiac)
        Console.Write("Nhap toa do diem A." & vbNewLine)
        DiemOxy.NhapDiem(ABC.A)
        Console.Write("Nhap toa do diem B." & vbNewLine)
        DiemOxy.NhapDiem(ABC.B)
        Console.Write("Nhap toa do diem C." & vbNewLine)
        DiemOxy.NhapDiem(ABC.C)
    End Sub
    Sub XuatTamGiac(ByVal ABC As TamGiac)
        Console.Write("Toa do cac dinh trong tam giac: " & vbNewLine)
        Console.Write(" + Toa do diem A: ")
        DiemOxy.XuatDiem(ABC.A)
        Console.Write(" + Toa do diem B: ")
        DiemOxy.XuatDiem(ABC.B)
        Console.Write(" + Toa do diem C: ")
        DiemOxy.XuatDiem(ABC.C)
    End Sub
End Module

File Module1.vb (hàm main)

Module Module1
    Sub Main()
        Dim ABC As TamGiacOxy.TamGiac
        TamGiacOxy.NhapTamGiac(ABC)
        TamGiacOxy.XuatTamGiac(ABC)
    End Sub
End Module
avatar
domauphap

Nam
Tổng số bài gửi : 9
Age : 28
Registration date : 31/03/2009

Về Đầu Trang Go down

Re: Structure tam giác

Bài gửi by ChuongTienPhat on 7/11/2009, 17:55

Thanks Pháp nhiều nhá,
cố gắng phát huy ^o^

Trình bày kiểu này dễ xem này, mỗi file 1 tag code khác nhau càng tốt

_________________
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