代码又乱了，再重发，发现了，这个论坛就是傻逼编写的。

sub pn_plan
dim define_lon as float
dim define_lat as float
dim define_sector as float
dim plan_result as string
dim read_setting as string
dim i as smallint
Dialog
Title "PN规划设置"
Width 370 Height 256
Control GroupBox
Title "启动任务" Position 8, 5 Width 100 Height 46 ID 6519
Control Button
Title "开始PN规划" Position 13, 14 Width 82 Height 15 Calling start_plan_pn ID 6520
Control Button
Title "重置所有选项" Position 13, 32 Width 82 Height 15 Calling reset_all_choiceID 6521
Control GroupBox
Title "任务设置" Position 8, 59 Width 100 Height 38
Control RadioGroup
Title "单站点规划;多站点规划" value 1 Position 13, 69 Calling singlemulti_site_radio ID 6500
Control GroupBox
Title "" Position 8, 102 Width 100 Height 19
Control StaticText
Title "输入基本载波频点:" Position 12, 109 Width 70 Height 8
Control EditText
value "" Width 20 Height 13 Position 85, 107ID 6501
Control GroupBox
Title "单站点规划" Position 8, 128 Width 100 Height 67 ID 6502
Control StaticText
Title "经度:" Position 11, 142 Width 19 Height 8 ID 6503
Control EditText
value "" Width 26 Height 13 Position 30, 140ID 6504
Control StaticText
Title "纬度:" Position 60, 142 Width 19 Height 8 ID 6505
Control EditText
value "" Width 26 Height 13 Position 80, 140ID 6506
Control StaticText
Title "扇区数:" Position 11, 159 Width 29 Height 8 ID 6507
Control EditText
value "" Width 16 Height 13 Position 40, 157ID 6508
Control CheckBox
Title "室分扇区" Position 62, 159 Width 42 Height 8 Value 0 ID 6509
Control StaticText
Title "规划结果:" Position 11, 178 Width 38 Height 8 disable ID 6511
Control EditText
value plan_result into plan_result Width 50 Height 13 Position 50, 176 disable ID 6512
Control GroupBox
Title "多站点规划" Position 8, 128 Width 100 Height 67 hide ID 6513
Control Button
Title "查看/导出结果" Position 13, 139 Width 82 Height 15 Calling view_plan_result hide ID 6516
Control Button
Title "规划结果评估" Position 13, 157 Width 82 Height 15 Calling view_plan_score hide disable ID 6517
Control Button
Title "查看分簇图" Position 13, 175 Width 82 Height 15 Calling generate_group_map hide disable ID 6518
Control GroupBox
Title "帮助" Position 8, 205 Width 100 Height 46
Control Button
Title "导出PN GROUP"Position 11, 214 Width 85 Height 15 Calling export_pngroup_moban ID 6522
Control Button
Title "使用说明" Position 11, 232 Width 85 Height 15 Calling pn_plan_userguide ID 6523
Control GroupBox
Title "自定义PN GROUP" Position 115, 5 Width 130 Height 246
Control GroupBox
Title "PN_INC" Position 118, 18 Width 39 Height 155
Control RadioGroup
Title "1;2;3;4;5;6;7;8;10;12" value 0 Position 124, 30Calling generate_pngroup_radio ID 6524
Control GroupBox
Title "特殊分组" Position 118, 191 Width 39 Height 35
Control CheckBox
Title "奇数" Position 123, 203 Width 25 Height 8 Value 0 Calling generate_pngroup_radio ID 6525
Control CheckBox
Title "偶数" Position 123, 215 Width 25 Height 8 Value 0 Calling generate_pngroup_radio ID 6526
Control MultiListBox
title from variable temp_pngroup_list Value 0Position 160, 21Width 82 Height 205 ID 6527
Control StaticText
Title "设置场景:" Position 119, 234 Width 36 Height 8
Control EditText
value "" Width 82 position 160,233ID 6528
Control Button
Title ">" Position 249,40 Width 20 Height 14 Calling add_pnGroup_OnClick ID 6529
Control Button
Title ">>" Position 249,60 Width 20 Height 14 Calling addall_pnGroup_OnClick ID 6530
Control Button
Title "<" Position 249,95 Width 20 Height 14 Calling del_pnGroup_OnClick ID 6531
Control Button
Title "<<" Position 249,115 Width 20 Height 14 Calling delall_pnGroup_OnClick ID 6532
Control GroupBox
Title "PN GROUP预览" Position 272, 5 Width 90 Height 246
Control MultiListBox
title from variable pngroup_listPosition 275, 21 Width 82 Height 186 ID 6533
Control StaticText
Title "场景:" Position 275, 216 Width 19 Height 8
Control PopupMenu
value setting_pop_value title from variable pngroup_setting_list Position 295, 215 Width 61 Height 13 calling popmenu_selected ID 6534
Control Button
Title "外部导入PN GROUP" Position 275, 230 Width 82 Height 17 Calling import_pnGroup_OnClick ID 6535
Control Button
Title "Λ" Position 249, 205 Width 20 Height 14 Calling ascsort_setting_OnClick ID 6536
Control Button
Title "Ⅴ" Position 249, 220 Width 20 Height 14 Calling descsort_setting_OnClick ID 6537
end sub

支持楼主 楼主继续分享啊

马不停蹄地跑过来了，楼主好人，谢谢楼主！

支持 :victory:

楼猪加油哦，看好你！

顶楼主啊,这些代码太好了

作为mapbasic的小白,把楼主的代码都试了一下,均可以运行,但是跟函数相关的可能需要自己定义和声明一下,不然运行不了,大赞楼主

我把楼主那么美的界面改成这个样子,楼主不要骂我,我只是想说明,楼主太强大了,我太懒了,就把那些还没有定义的函数跟删了

[ 本帖最后由 ateflagcomm 于 2014-7-17 14:08 编辑 ]

表扬一个，再接再厉，小子有前途。

给楼主加油，向楼主学习。楼主能否提供个即时联系方式？日后有MB的问题可以咨询楼主。

楼主高人啊！！！

顶楼主，来学习一下，前几天论坛龟速，在电信机房还卡得一逼，都没办法回复啊

楼主高人啊！！！

向楼主学习！！！