include "mapbasic.def"
include "icons.def"
include "menu.def"
declare sub main'作用是創(chuàng)建菜單和工具條declare sub make_base
declare sub input_linqu
declare sub optimize_1way
declare sub optimize_2way
declare sub pn_plan
declare sub evaluate_pn
declare sub indoor_dt
declare sub google_earth
declare sub help_info
declare sub export_temp
declare sub about_pnoptimizer
declare sub exit_pnoptimizer
declare sub find_info
declare sub display_nbr
declare sub display_hand
declare sub del_neighbour
declare sub add_neighbour
'#########################################################################################
'該sub main的作用是創(chuàng)建啟動時加載菜單和工具條
'#########################################################################################
Sub main
'------------------------------------------------------------創(chuàng)建菜單
Create Menu "&CDMA Optimizer" As
"生成基站圖層" calling make_base,
"導(dǎo)入鄰區(qū)表(*.txt).." calling input_linqu,
"導(dǎo)入切換[PSMM]表(*.txt).." calling input_psmm,
"(-",
"1-way鄰區(qū)優(yōu)化(A＞B＞C)" calling optimize_1way,
"2-way鄰區(qū)優(yōu)化(A＜B＞C＞D)" calling optimize_2way,
"(-",
"N規(guī)劃"calling pn_plan,
"N復(fù)用評估" calling evaluate_pn,
"(-",
"室內(nèi)路測數(shù)據(jù)分析"calling indoor_dt,
"(-",
'"室內(nèi)路測數(shù)據(jù)分析" as "室內(nèi)路測數(shù)據(jù)分析",
"導(dǎo)出Google Earth(KML)文件" calling google_earth,
"(-",
"使用幫助" calling help_info,
"導(dǎo)出模板(工參|鄰區(qū)|切換關(guān)系)" calling export_temp,
"(-",
"關(guān)于本軟件" calling about_pnoptimizer,
"(-",
"退出" calling exit_pnoptimizer
alter menu bar add "CDMA Optimizer"
'-------------------------------------------------------------創(chuàng)建工具條
Create buttonpad "CDMA Optimizer" As
pushbutton Calling find_info
helpmsg "\n查詢(PN/站號/小區(qū)號/站名..)"
Icon 103'定義按鈕圖標(biāo)，樓主示例程序里面有個程序有個全部ID和對應(yīng)的圖標(biāo)
ID 9300 '定義按鈕ID，方便后面調(diào)用，每個按鈕分配不同的ID。
separator
ToolButtonCalling display_nbr
helpmsg "\n顯示鄰區(qū)"
Icon 111
'CursorMI_CURSOR_FINGER_UP
ID 9301
'separator
ToolButtonCalling display_hand
helpmsg "\n顯示切換關(guān)系"
Icon 105
'CursorMI_CURSOR_FINGER_UP
ID 9302
separator
ToolButtonCalling del_neighbour
helpmsg "\n刪除鄰區(qū)"
Icon 101
'CursorMI_CURSOR_FINGER_UP '這句的意思應(yīng)該是默認(rèn)圖標(biāo)為未選擇狀態(tài)
ID 9303
'separator
ToolButtonCalling add_neighbour
helpmsg "\n增加鄰區(qū)"
Icon 98
'CursorMI_CURSOR_FINGER_UP
ID 9304
ToolbarPosition(1,4)'定義按鈕位置，這個根據(jù)需求自己修改。
Show
Fixed
end sub


sub make_base
note "hello"
end sub
sub input_linqu
note "hello"
end sub
sub optimize_1way
note "hello"
end sub
sub optimize_2way
note "hello"
end sub
sub pn_plan
note "hello"
end sub
sub evaluate_pn
note "hello"
end sub
sub indoor_dt
note "hello"
end sub
sub google_earth
note "hello"
end sub
sub help_info
note "hello"
end sub
sub export_temp
note "hello"
end sub
sub about_pnoptimizer
note "hello"
end sub
sub exit_pnoptimizer
note "hello"
end sub
sub find_info
note "hello"
end sub
sub display_nbr
note "hello"
end sub
sub display_hand
note "hello"
end sub
sub del_neighbour
note "hello"
end sub
sub add_neighbour
note "hello"
end sub