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

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

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é!

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

máy tớ cũng không xem được// nản toàn tập//:d

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

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

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

Cứ down về đi. Có cả code ở trong đó mà. chịu khó down tí cho IDM đỡ tủi thân

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

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

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!

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;
        }
    }

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);
        }
    }

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));
        }
    }

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);
        }
    }

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.

Đây là phương pháp giải bài giao hội nghịch nhá!

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
]

Bản setup fix chuẩn

Tải về bản setup fix dung lượng nhẹ

Đó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.

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][*]

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 =))

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ì???

Bạn có thể tìm thông tin về DoubleBuffer nhé.

downd o dau vay troi sao tra thay