¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸Tin Trắc Địa k54¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸

¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸Tin Trắc Địa k54¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸
 
Trang ChínhCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Diễn đàn Tin Trắc Địa k54 đi vào hoạt động. Đây sẽ là 4rum chính thức của lớp tin trắc địa k54 - Đại học Mỏ địa chất. Tất cả thông báo tại 4rum này từ ban quản trị đều có hiệu lực trên thực tế.
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Top posters
Cappuccino
 
vao`la`chem'
 
mr.been
 
gabong
 
vboy_namioz19
 
thank0bk54
 
chjecla_dangyeu
 
nguyenhuydung
 
phuonghoa_91
 
Hero_Kid
 
January 2018
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
293031    
CalendarCalendar

Share | 
 

 Phần mềm Tin học cơ sở tin trắc địa đây

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 11:42 am

Mình chỉ có thể làm được 6 bài, còn mấy bài bình sai kia thì chịu, vì chưa được học. Mọi người download về xem thử, có cả code
Part 1
Part 2
Part 3
Part 4
Part 5

Chú ý Đăng nhập để download
Phần mềm chạy trên nền Windown 32 bit. Nếu bạn nào Win 64 sẽ có một số chức năng không hoạt động hoặc có thể không cài được
Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 12:12 pm

Nhìn file .exe mình không dám download bạn Thành có thể chụp ảnh khi test phần mềm của bạn không thế? Bạn chụp cho mọi người chiêm ngưỡng với nhé!
Về Đầu Trang Go down
http://vinhquangonline.tk/home
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 12:16 pm

Một phần mềm với vài chức năng nho nhỏ mà bạn cho nó phình to lên cỡ đó. Hix
Về Đầu Trang Go down
http://vinhquangonline.tk/home
phuonghoa_91
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nữ

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 57
Việt Nam đồng : 2675057
Danh Vọng : 7
Birthday : 03/12/1991

Join date : 09/10/2010
Age : 26
Đến từ : Chương Dương, Thường Tín, Hà Nội
Job/hobbies : Discovery World

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 4:44 pm

máy tớ cũng không xem được// nản toàn tập//:d
Về Đầu Trang Go down
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 4:59 pm

có vài phần mềm con con trong đó nữa chứ không riêng bài tập trắc địa đâu
Về Đầu Trang Go down
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 5:10 pm

phuonghoa_91 đã viết:
máy tớ cũng không xem được// nản toàn tập//:d
lám sao mà không cài được hả Hoa. Win 64 hay 32 đều cài được nhưng có một số chức năng trong win 64 không sử dụng được thôi Hoa ah, tải lại coi
Về Đầu Trang Go down
HR10 TTD
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Cancer
Chinese zodiac : Goat
Tổng số bài gửi : 37
Việt Nam đồng : 2670033
Danh Vọng : 0
Birthday : 22/07/1991

Join date : 06/11/2010
Age : 26
Đến từ : FC MU
Job/hobbies : ẩn cư

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 6:59 pm

Chú Thành cho a e xem cái bộ code thôi, file exe nhìn đã nản

__________________________________________________
Tôi không muốn cho người ta biết được
Tôi đã yêu ai và đau khổ vì ai
Lá không thủng sao lá sâu rơi xuống
Đá không buồn sao đá phủ rêu xanh
Về Đầu Trang Go down
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 7:10 pm

Cứ down về đi. Có cả code ở trong đó mà. chịu khó down tí cho IDM đỡ tủi thân
Về Đầu Trang Go down
hanhsn
Intel® Pentium IV Processor
Intel® Pentium IV Processor
avatar

Nữ

Zodiac : Taurus
Chinese zodiac : Goat
Tổng số bài gửi : 15
Việt Nam đồng : 2332015
Danh Vọng : 3
Birthday : 23/04/1991

Join date : 11/09/2011
Age : 26
Đến từ : Hưng Yên
Job/hobbies : Sinh Viên

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 06, 2012 10:10 pm

còn mấy bài phần 2 đồng chí nào có tài liệu post cho mọi người xem cùng. :D
Về Đầu Trang Go down
lehieuds
Intel® Pentium III Processor
Intel® Pentium III Processor
avatar

Nam

Tổng số bài gửi : 6
Việt Nam đồng : 2465008
Danh Vọng : 3
Join date : 27/04/2011

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 3:41 pm

Thằng Thành mày lập trình phần mềm hay là mày nén phim ... vào file exe hay sao mà nặng dữ vậy, éo down nữa
Về Đầu Trang Go down
activeman
Intel® Pentium D Processor
Intel® Pentium D Processor
avatar

Nam

Tổng số bài gửi : 25
Việt Nam đồng : 2479025
Danh Vọng : 0
Join date : 28/04/2011

Bài gửiTiêu đề: Oái bị lỗi!   Thu Feb 09, 2012 6:59 pm

Phần mềm này dùng HJSplit để nối file nhá các bác!
Oái nhưng mà nối xong thì bị lỗi "Archive integrity check failed. The setup file is not complete, possibly due to an incomplete download or corrupted file". Pó chiếu với lỗi này!
Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 7:24 pm

T cũng viết đc 1 ít code C# up lên cho các bạn mấy cái class tham khảo nha: Đầu tiên là class convert radian sang độ và ngược lại;
Code:
class Convert_radian_deg
    {
        private double Deg, Min, Sec, Rad;
        public Convert_radian_deg(double Deg, double Min, double Sec)
        {
            //Chuyển đổi Độ ra Radian
            this.Deg = Deg;
            this.Min = Min;
            this.Sec = Sec;
        }

        public Convert_radian_deg(double Radian)
        {
            //Chuyển đổi Radian sang Độ
            this.Rad = Radian;
        }

        public double get_Deg()
        {
            return (Rad*180)/Math.PI;
        }

        public double get_Radian()
        {
            double Deg = this.Deg + this.Min / 60 + this.Sec / 3600;
            return (Deg*Math.PI)/180;
        }
    }


Được sửa bởi vboy_namioz19 ngày Sat Feb 11, 2012 5:11 pm; sửa lần 2.
Về Đầu Trang Go down
http://vinhquangonline.tk/home
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 7:26 pm

Class thứ 2 là class Trắc Địa thuận:
Code:
class BaiToanTracDiaThuan
    {
        private double x1, y1, S, alpha;
        public BaiToanTracDiaThuan(double x1, double y1, double S, double alpha_Radian)
        {
            this.x1 = x1;
            this.y1 = y1;
            this.S = S;
            this.alpha = alpha_Radian;
        }

        public BaiToanTracDiaThuan(double x1, double y1, double S, double Deg, double Min, double Sec)
        {
            this.x1 = x1;
            this.y1 = y1;
            this.S = S;
            Convert_radian_deg convert = new Convert_radian_deg(Deg, Min, Sec);
            this.alpha = convert.get_Radian();
        }

        public double get_x2()
        {           
            return x1 + S*Math.Cos(alpha);
        }

        public double get_y2()
        {
            return y1 + S * Math.Sin(alpha);
        }
    }
Về Đầu Trang Go down
http://vinhquangonline.tk/home
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 7:27 pm

Class thứ 3 là class Trắc Địa Nghịch:
Code:

class BaiToanTracDiaNghich
    {
        private double x1, y1, x2, y2;
        public BaiToanTracDiaNghich(double x1, double y1, double x2, double y2)
        {
            this.x1 = x1;
            this.x2 = x2;
            this.y1 = y1;
            this.y2 = y2;
        }

        public double get_S()
        {
            return Math.Sqrt(Math.Pow(y2 - y1, 2) + Math.Pow(x2 - x1, 2));
        }

        public double get_alpha()
        {
            return Math.Atan((y2 - y1) / (x2 - x1));
        }
    }
Về Đầu Trang Go down
http://vinhquangonline.tk/home
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 7:29 pm

Class thứ 4 là class Giao Hội Thuận
Code:

class GiaoHoiThuan
    {
        private double xA, yA, xB, yB, alpha, beta;
        public GiaoHoiThuan(double xA, double yA, double xB, double yB, double alpha_rad, double beta_rad)
        {
            this.xA = xA;
            this.yA = yA;
            this.xB = xB;
            this.yB = yB;
            this.alpha = alpha_rad;
            this.beta = beta_rad;
        }

        public double get_xP()
        {
            //Tính toán góc phương vị và độ dài cạnh
            BaiToanTracDiaNghich TdNghich = new BaiToanTracDiaNghich(xA,yA, xB, yB);
            double sAB = TdNghich.get_S();
            double alphaAB = TdNghich.get_alpha();

            //Tính chiều dài cạnh bên
            double sAP = (sAB*Math.Sin(beta))/(Math.Sin(alpha + beta));
            double sBP = (sAB*Math.Sin(alpha))/(Math.Sin(alpha + beta));

            //Tính góc phương vị cạnh AP
            double alphaAP = alphaAB - alpha;

            //Trả về giá trị tọa độ
            return xA + sAP*Math.Cos(alphaAP);
        }

        public double get_yP()
        {
            //Tính toán góc phương vị và độ dài cạnh
            BaiToanTracDiaNghich TdNghich = new BaiToanTracDiaNghich(xA, yA, xB, yB);
            double sAB = TdNghich.get_S();
            double alphaAB = TdNghich.get_alpha();

            //Tính chiều dài cạnh bên
            double sAP = (sAB * Math.Sin(beta)) / (Math.Sin(alpha + beta));
            double sBP = (sAB * Math.Sin(alpha)) / (Math.Sin(alpha + beta));

            //Tính góc phương vị cạnh AP
            double alphaAP = alphaAB - alpha;

            //Trả về giá trị tọa độ
            return yA + sAP*Math.Sin(alphaAP);
        }
    }
Về Đầu Trang Go down
http://vinhquangonline.tk/home
activeman
Intel® Pentium D Processor
Intel® Pentium D Processor
avatar

Nam

Tổng số bài gửi : 25
Việt Nam đồng : 2479025
Danh Vọng : 0
Join date : 28/04/2011

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Thu Feb 09, 2012 9:20 pm

Cảm ơn bạn Quỳnh nhá!
Bạn nào có code bài Giao Hội Nghịch thì up lên cho mọi người tham khảo zới.
Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 5:52 pm

Đây là phương pháp giải bài giao hội nghịch nhá!
Về Đầu Trang Go down
http://vinhquangonline.tk/home
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 8:40 pm

code VB.Net

Imports System.Math
Public Class Form1
#Region "KhaiBao"
Dim B1_1, B1_2 As Double
Dim B2_11, B2_12, B2_PV, B2_CD, B2_21, B2_22 As Double
Dim B3_x1, B3_y1, B3_x2, B3_y2, B3_PV, B3_CD As Double
Dim B4_x1, B4_y1, B4_x2, B4_y2, B4_G1, B4_G2, B4_x3, B4_y3, B4_Al_12, B4_S_12, B4_S_13, B4_S_23, B4_Al_13, B4_Al_23 As Double
Dim B5_x1, B5_y1, B5_x2, B5_y2, B5_G1, B5_G2, B5_x3, B5_y3, B5_Al_1, B5_S_2, B5_Al_Tan1, B5_Al_2, B5_Al_3, B5_x4, B5_y4 As Double
Dim B6_x1, B6_y1, B6_x2, B6_y2, B6_S1, B6_S2, B6_x3, B6_y3, B6_p, B6_q, B6_h, B6_Al, B6_CD As Double
#End Region
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
txt_B1_1.Focus()
rdo_DoSangRad.Checked = True
End Sub

Private Sub btn_B1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_B1.Click
If rdo_DoSangRad.Checked = True Then
If txt_B1_1.Text = "" Then
B1_1 = 0.0
txt_B1_1.Text = 0.0
MsgBox("Bạn phải nhập vào số Độ cần đổi sang Radian", , "Warning!!")
Else
B1_1 = CDbl(txt_B1_1.Text)
End If
B1_2 = (PI * B1_1) / 180
txt_B1_2.Text = B1_2
ElseIf rdo_RadSangDo.Checked = True Then
If txt_B1_1.Text = "" Then
B1_1 = 0.0
txt_B1_1.Text = 0.0
MsgBox("Bạn phải nhập vào số Radian cần đổi sang Độ", , "Warning")
Else
B1_1 = CDbl(txt_B1_1.Text)
End If
B1_2 = (B1_1 * 180) / PI
txt_B1_2.Text = B1_2
End If
End Sub

Private Sub rdo_DoSangRad_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdo_DoSangRad.CheckedChanged
txt_B1_1.Focus()
txt_B1_1.Text = ""
txt_B1_2.Text = ""
lbl_B1_1.Text = "Độ"
lbl_B1_2.Text = "Radian"
End Sub

Private Sub rdo_RadSangDo_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdo_RadSangDo.CheckedChanged
txt_B1_1.Focus()
txt_B1_1.Text = ""
txt_B1_2.Text = ""
lbl_B1_1.Text = "Radian"
lbl_B1_2.Text = "Độ"
End Sub
Private Sub btn_B2_Tinh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_B2_Tinh.Click

If txt_B2_11.Text = "" Or txt_B2_12.Text = "" Or txt_B2_PV.Text = "" Or txt_B2_CD.Text = "" Then
MsgBox("Bạn phải nhập đủ dữ liệu vào phần nhập", , "Warning!!")
Else
B2_11 = CDbl(txt_B2_11.Text)
B2_12 = CDbl(txt_B2_12.Text)
B2_PV = CDbl(txt_B2_PV.Text)
B2_CD = CDbl(txt_B2_CD.Text)
B2_PV = (B2_PV * PI) / 180
B2_21 = B2_11 + (B2_CD * Cos(B2_PV))
B2_22 = B2_12 + (B2_CD * Sin(B2_PV))
txt_B2_21.Text = B2_21
txt_B2_22.Text = B2_22
End If

End Sub

Private Sub btn_Thoat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
End
End Sub

Private Sub btn_B3_Tinh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_B3_Tinh.Click
If txt_B3_x1.Text = "" Or txt_B3_y1.Text = "" Or txt_B3_x2.Text = "" Or txt_B3_y2.Text = "" Then
MsgBox("Bạn phải nhập đủ dữ liệu vào phần nhập", , "Warning!!")
Else
B3_x1 = CDbl(txt_B3_x1.Text)
B3_x2 = CDbl(txt_B3_y1.Text)
B3_x2 = CDbl(txt_B3_x2.Text)
B3_y2 = CDbl(txt_B3_y2.Text)
B3_CD = Sqrt((B3_x2 - B3_x1) * (B3_x2 - B3_x1) + (B3_y2 - B3_y1) * (B3_y2 - B3_y1))
B3_PV = Acos((B3_x2 - B3_x1) / B3_CD)
B3_PV = (B3_PV * 180) / PI
txt_B3_CD.Text = B3_CD
txt_B3_PV.Text = B3_PV
End If
End Sub


Private Sub btn_B4_Tinh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_B4_Tinh.Click
If txt_B4_x1.Text = "" Or txt_B4_y1.Text = "" Or txt_B4_G1.Text = "" Or txt_B4_x2.Text = "" Or txt_B4_y2.Text = "" Or txt_B4_G2.Text = "" Then
MsgBox("Bạn phải nhập đủ dữ liệu vào phần nhập", , "Warning!!")
Else
B4_x1 = CDbl(txt_B4_x1.Text)
B4_y1 = CDbl(txt_B4_y1.Text)
B4_G1 = CDbl(txt_B4_G1.Text)
B4_x2 = CDbl(txt_B4_x2.Text)
B4_y2 = CDbl(txt_B4_y2.Text)
B4_G2 = CDbl(txt_B4_G2.Text)
B4_G1 = (B4_G1 * PI) / 180
B4_G2 = (B4_G2 * PI) / 180
B4_Al_12 = Atan((B4_y2 - B4_y1) / (B4_x2 - B4_x1))
B4_S_12 = ((B4_x2 - B4_x1) / Cos(B4_Al_12))
B4_S_13 = ((B4_S_12 * Sin(B4_G2)) / Sin(B4_G1 + B4_G2))
B4_S_23 = ((B4_S_12 * Sin(B4_G1)) / Sin(B4_G1 + B4_G2))
B4_Al_13 = B4_Al_12 - B4_G1
B4_Al_23 = (B4_Al_12 + PI) + B4_G2
B4_x3 = B4_x1 + (B4_S_13 * Cos(B4_Al_13))
B4_y3 = B4_y1 + (B4_S_13 * Sin(B4_Al_13))
txt_B4_x3.Text = B4_x3
txt_B4_y3.Text = B4_y3
End If
End Sub

Private Sub btn_B5_Tinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_B5_Tinh.Click
If txt_B5_x1.Text = "" Or txt_B5_y1.Text = "" Or txt_B5_x2.Text = "" Or txt_B5_y2.Text = "" Or txt_B5_x3.Text = "" Or txt_B5_y3.Text = "" Or txt_B5_G1.Text = "" Or txt_B5_G2.Text = "" Then
MsgBox("Bạn phải nhập đủ dữ liệu vào phần nhập", , "Warning!!")
Else
B5_x1 = CDbl(txt_B5_x1.Text)
B5_y1 = CDbl(txt_B5_y1.Text)
B5_x2 = CDbl(txt_B5_x2.Text)
B5_y2 = CDbl(txt_B5_y2.Text)
B5_x3 = CDbl(txt_B5_x3.Text)
B5_y3 = CDbl(txt_B5_y3.Text)
B5_G1 = CDbl(txt_B5_G1.Text)
B5_G2 = CDbl(txt_B5_G2.Text)
B5_G1 = (B5_G1 * PI) / 180
B5_G2 = (B5_G2 * PI) / 180
B5_Al_Tan1 = ((B5_y2 - B5_y1) * (1 / Tan(B5_G1)) - (B5_y3 - B5_y1) * (1 / Tan(B5_G2)) + (B5_x3 - B5_x2)) / ((B5_x2 - B5_x1) * (1 / Tan(B5_G1)) - (B5_x3 - B5_x1) * (1 / Tan(B5_G2)) + (B5_y3 - B5_y2))
B5_Al_1 = Atan(B5_Al_Tan1)
B5_Al_2 = B5_Al_1 + B5_G1
B5_Al_3 = B5_Al_1 + B5_G2
B5_x4 = (B5_x1 * Tan(B5_Al_1) - B5_x2 * Tan(B5_Al_2) + (B5_y2 - B5_y1)) / (B5_Al_1 - B5_Al_2)
B5_y4 = B5_y1 + (B5_x2 - B5_x1) * Tan(B5_Al_1)
txt_B5_x4.Text = B5_x4
txt_B5_y4.Text = B5_y4
End If
End Sub

Private Sub btn_B6_Tinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_B6_Tinh.Click
If txt_B6_x1.Text = "" Or txt_B6_y1.Text = "" Or txt_B6_S1.Text = "" Or txt_B6_x2.Text = "" Or txt_B6_y2.Text = "" Or txt_B6_S2.Text = "" Then
MsgBox("Bạn phải nhập đủ dữ liệu vào phần nhập", , "Warning!!")
Else
B6_x1 = CDbl(txt_B6_x1.Text)
B6_y1 = CDbl(txt_B6_y1.Text)
B6_S1 = CDbl(txt_B6_S1.Text)
B6_x2 = CDbl(txt_B6_x2.Text)
B6_y2 = CDbl(txt_B6_y2.Text)
B6_S2 = CDbl(txt_B6_S2.Text)
B6_Al = Atan((B6_y2 - B6_y1) / (B6_x2 - B6_x1))
B6_CD = (B6_x2 - B6_x1) / (Cos(B6_Al))
B6_p = ((B6_S1 * B6_S1) - (B6_S2 * B6_S2) + (B6_CD * B6_CD)) / (2 * B6_CD)
B6_q = ((B6_S2 * B6_S2) - (B6_S1 * B6_S1) + (B6_CD * B6_CD)) / (2 * B6_CD)
B6_h = Sqrt((B6_S1 * B6_S1) - ((B6_CD - B6_S1) * (B6_CD - B6_S1)))
B6_x3 = B6_x1 + B6_p * Cos(B6_Al) - B6_h * Sin(B6_Al)
B6_y3 = B6_x1 + B6_p * Sin(B6_Al) + B6_h * Cos(B6_Al)
txt_B6_x3.Text = B6_x3
txt_B6_y3.Text = B6_y3
End If
End Sub
End Class
]

Về Đầu Trang Go down
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 8:46 pm

Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 9:12 pm

Đóng góp cho bạn Thành thế này: Chương trình bạn viết nên cho ít hình ảnh đi, hoặc phải sử dụng thủ thuật để cho hình ảnh bớt nháy.
Về Đầu Trang Go down
http://vinhquangonline.tk/home
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 9:42 pm

vboy_namioz19 đã viết:
Đóng góp cho bạn Thành thế này: Chương trình bạn viết nên cho ít hình ảnh đi, hoặc phải sử dụng thủ thuật để cho hình ảnh bớt nháy.
Là do hình ảnh chụp bằng Camera 5.0 Mpixel nên dung lượng lớn, vì vậy nháy là đúng. Nếu dùng "Thủ thuật " thì lại mật thời gian, tốt nhất là làm thế này để thời gian chơi game FPS. Hiện tại mình đã chơi thử qua từ Call of duty 1 đến 6. 7554 demo. Counter strike 1.1 đến 2.0. Battlefield 1943 và 2142. Medal of Hornor 1. Left of Dead 1 đến 3. Bạn nào có nhu cầu copy các game FPS này liên hệ mình. Trung bình mỗi game tầm 5 GB nên down được là một kì tích [list][*]
Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 9:51 pm

thank0bk54 đã viết:
vboy_namioz19 đã viết:
Đóng góp cho bạn Thành thế này: Chương trình bạn viết nên cho ít hình ảnh đi, hoặc phải sử dụng thủ thuật để cho hình ảnh bớt nháy.
Là do hình ảnh chụp bằng Camera 5.0 Mpixel nên dung lượng lớn, vì vậy nháy là đúng. Nếu dùng "Thủ thuật " thì lại mật thời gian, tốt nhất là làm thế này để thời gian chơi game FPS. Hiện tại mình đã chơi thử qua từ Call of duty 1 đến 6. 7554 demo. Counter strike 1.1 đến 2.0. Battlefield 1943 và 2142. Medal of Hornor 1. Left of Dead 1 đến 3. Bạn nào có nhu cầu copy các game FPS này liên hệ mình. Trung bình mỗi game tầm 5 GB nên down được là một kì tích [list][*]

Vậy à, vậy tùy bạn xử lý thôi. Đấy là mình góp ý, còn nháy hay không là do kỹ thuật lập trình chứ không phải là đúng. Mình mở chương trình trên máy mình thì nháy kinh lắm =))
Về Đầu Trang Go down
http://vinhquangonline.tk/home
thank0bk54
Intel® Core 2 Duo Processor
Intel® Core 2 Duo Processor
avatar

Nam

Zodiac : Sagittarius
Chinese zodiac : Goat
Tổng số bài gửi : 97
Việt Nam đồng : 2698121
Danh Vọng : 3
Birthday : 30/11/1991

Join date : 06/10/2010
Age : 26
Đến từ : Bắc Giang
Job/hobbies : Freelancer

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 10:37 pm

Hình ảnh thì liên quan gì đến code. bộ Visual nó cung cấp cho mình để import hình ảnh vào, có phải làm gì thêm đâu, muốn làm thêm gì cũng chả được bởi vì nó chỉ cung cấp như vậy, còn theo bạn thì phải dùng thủ thuật thì mình nghĩ là phải dùng thêm phần mềm của nhà sản xuất thứ 3. Do vậy kĩ thuật lập trình ở đây theo bạn nói nó là phần nào, code hay gì???

Về Đầu Trang Go down
vboy_namioz19
Intel® Core i3 Processor
Intel® Core i3 Processor
avatar

Nam

Zodiac : Libra
Chinese zodiac : Goat
Tổng số bài gửi : 119
Việt Nam đồng : 2741118
Danh Vọng : 18
Birthday : 25/09/1991

Join date : 15/09/2010
Age : 26
Đến từ : Vinh Quang - Chiêm Hóa - Tuyên Quang
Job/hobbies : Non IT

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Sun Feb 12, 2012 10:47 pm

Bạn có thể tìm thông tin về DoubleBuffer nhé.
Về Đầu Trang Go down
http://vinhquangonline.tk/home
tranhieu
Intel® Pentium III Processor
Intel® Pentium III Processor
avatar

Nam

Tổng số bài gửi : 8
Việt Nam đồng : 2178007
Danh Vọng : 0
Join date : 08/02/2012

Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   Mon Feb 13, 2012 11:37 am

downd o dau vay troi sao tra thay

Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Phần mềm Tin học cơ sở tin trắc địa đây   

Về Đầu Trang Go down
 
Phần mềm Tin học cơ sở tin trắc địa đây
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
¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸Tin Trắc Địa k54¸.•'´¯) ¸,ؤ°``°¤Ø,¸(¯`'•.¸ :: ¸.•'´¯) ¸,ø¤°``°¤ø,¸(¯`'•.¸Học gì kì này¸.•'´¯) ¸,ø¤°``°¤ø,¸(¯`'•.¸ :: Kì 5 năm học 2011 - 2012 :: Thực tập Tin trắc địa cơ sở-
Chuyển đến