代碼又亂了，再重發(fā)，發(fā)現(xiàn)了，這個(gè)論壇就是傻逼編寫的。

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規(guī)劃設(shè)置"
Width 370 Height 256
Control GroupBox
Title "啟動(dòng)任務(wù)" Position 8, 5 Width 100 Height 46 ID 6519
Control Button
Title "開始PN規(guī)劃" Position 13, 14 Width 82 Height 15 Calling start_plan_pn ID 6520
Control Button
Title "重置所有選項(xiàng)" Position 13, 32 Width 82 Height 15 Calling reset_all_choiceID 6521
Control GroupBox
Title "任務(wù)設(shè)置" Position 8, 59 Width 100 Height 38
Control RadioGroup
Title "單站點(diǎn)規(guī)劃;多站點(diǎn)規(guī)劃" value 1 Position 13, 69 Calling singlemulti_site_radio ID 6500
Control GroupBox
Title "" Position 8, 102 Width 100 Height 19
Control StaticText
Title "輸入基本載波頻點(diǎn):" Position 12, 109 Width 70 Height 8
Control EditText
value "" Width 20 Height 13 Position 85, 107ID 6501
Control GroupBox
Title "單站點(diǎn)規(guī)劃" Position 8, 128 Width 100 Height 67 ID 6502
Control StaticText
Title "經(jīng)度:" 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 "扇區(qū)數(shù):" Position 11, 159 Width 29 Height 8 ID 6507
Control EditText
value "" Width 16 Height 13 Position 40, 157ID 6508
Control CheckBox
Title "室分扇區(qū)" Position 62, 159 Width 42 Height 8 Value 0 ID 6509
Control StaticText
Title "規(guī)劃結(jié)果:" 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 "多站點(diǎn)規(guī)劃" Position 8, 128 Width 100 Height 67 hide ID 6513
Control Button
Title "查看/導(dǎo)出結(jié)果" Position 13, 139 Width 82 Height 15 Calling view_plan_result hide ID 6516
Control Button
Title "規(guī)劃結(jié)果評(píng)估" 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 "導(dǎo)出PN GROUP"Position 11, 214 Width 85 Height 15 Calling export_pngroup_moban ID 6522
Control Button
Title "使用說(shuō)明" 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 "奇數(shù)" Position 123, 203 Width 25 Height 8 Value 0 Calling generate_pngroup_radio ID 6525
Control CheckBox
Title "偶數(shù)" 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 "設(shè)置場(chǎng)景:" 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預(yù)覽" 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 "場(chǎng)景:" 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 "外部導(dǎo)入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