闭合导线平差计算（表面）

include"mapbasic.def"
declare sub main
dim c1x,c1y,c2x,c2y,d,e,f,g,h,i as float
dim a,b1,b2,b3,b4,b5  as string
sub main 
dialog
title "闭合导线控制网平差"
width 400 height 300 position 100,100

control statictext
title "请按正确的方法进行操作：1，选择闭合导线网边数；2，起始边方位角和已知点坐标；3夹角"
width 350 height 20 position 20,20
control statictext
title "导线边数：" position 20,40
control popupmenu title "3;4;5" VALUE 2 into a position 70,40
Control GroupBox
    Title  "已知方位角和控制坐标"
    Position 20,55
    Height 170   Width 360
Control StaticText   Title  "往测顺序（控制点）:"   Position  30, 65
Control EditText Value  "" Position 120, 65    Width 15    ID 1    Into  b1
Control EditText    Value  ""    Position 140, 65    Width 15     ID 2     Into  b2
Control EditText      Value  ""     Position 160, 65   Width 15    ID 3     Into  b3
Control EditText      Value  ""     Position 180, 65    Width 15     ID 4    Into  b4
Control EditText      Value  ""     Position 200, 65    Width 15     ID 5     Into  b5
Control StaticText   Title  "控制点坐标（往测）a→b:"   Position  30, 80
Control EditText     Value  "a(x)"     Position 120, 90    Width 60     ID 6     Into  c1x
Control EditText      Value  "a(y)"     Position 200, 90    Width 60     ID 7     Into  c1y
Control EditText      Value  "b(x)"     Position 120, 110    Width 60     ID 8     Into  c2x
Control EditText      Value  "b(y)"     Position 200, 110    Width 60     ID 9     Into  c2y
Control StaticText   Title  "方位角（往测）a→b:"   Position  30, 130
Control EditText      Value  ""     Position 120, 130    Width 60     ID 10     Into  d
Control StaticText   Title  "各点测角（盘左，按往测顺序）:"   Position  30, 145
Control EditText      Value  "1"     Position 150, 145    Width 60     ID 11     Into  e
Control EditText      Value  "2"     Position 150, 160    Width 60     ID 12     Into  f
Control EditText      Value  "3"     Position 150, 175    Width 60     ID 13     Into  g
Control EditText      Value  "4"     Position 150, 190    Width 60     ID 14     Into  h
Control EditText      Value  "5"     Position 150, 205    Width 60     ID 15     Into  i
Control StaticText   Title  "点击确定，输出结果:"   Position  30, 230

control okbutton title "确定" position 320,280 width 30 height 15
control cancelbutton title "取消" position 360,280 width 30 height 15
end sub