VB.NET实现椭球元素计算程序

CALC.exe

已于 2022-11-18 19:53:45 修改

阅读量187

点赞数 2

文章标签： .net

于 2022-11-18 17:45:11 首次发布

本文链接：https://blog.csdn.net/jxjfjdh/article/details/127927002

版权

本文介绍了一个使用VB.NET实现的椭球元素计算程序。通过运行界面，用户可以进行相关计算。代码示例展示了实现细节。

摘要由CSDN通过智能技术生成

运行界面：

代码如下：

Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
Imports System.Math
Public Class Form1
    Dim a As Double
    Dim b As Double
    Dim FlatRate As Double
    Dim Eccentricity_1 As Double
    Dim Eccentricity_2 As Double
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked Then
            a = 6378245.0
            b = 6356863.01877305
        ElseIf RadioButton2.Checked Then
            a = 6378140.0
            b = 6356755.28815753
        ElseIf RadioButton3.Checked Then
            a = 6378137.0
            b = 6356752.3142
        ElseIf RadioButton4.Checked Then