No self-introduction
Loading
Profile
Follow
codes (1)
Coordinate inverse computation
no vote
Dim pb As Double Dim ds As Double Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x1 As Double Dim y1 As Double Dim x2 As Double Dim y2 As Double ' define the start and end coordinates as double-precision floating point type Dim s As Double ' define a distance of double-precision floating point type Dim d As Integer ' define degrees for plastic surgery Dim f As Integer ' define into plastic Dim m As Integer ' define seconds for plastic surgery Dim x As Double \'x increases for double-precision floating point type Dim y As Double \'y increases for double-precision floating point type Dim fwj As Double \' azimuth of variables for double-precision floating point type Dim PI As Double \' PI as double-precision floating point type pi = 3.14159265358979 x1 = Val(textbox1. Text) \' enter the starting x coordinate y1 = Val(textbox2. Text) \' input
340443795 0 0
1
No more~
Follows0
Fans0