MapInfo
西凉小可
这个作者很懒,什么都没留下…
展开
-
创建工作空间
include "mapbasic.def"include "menu.def"declare sub mainsub main dim abcd as stringrun application "路径\登录界面.WOR"create menu bar as"登录","控制","帮助"create menu "登录设置" as"自动登录","修改密码"alter menu "登录" add"来原创 2012-12-14 14:47:01 · 363 阅读 · 0 评论 -
成绩分级,MapInfo小程序
include "mapbasic.def"declare sub mainsub maindim aaa,fs as integerdim dengji as stringfs=9aaa=int(fs/10)do case aaacase 9,10dengji = "优秀"case 8dengji = "良好"case 7dengji = "中等"case 6dengji = "及格"case原创 2012-12-14 14:46:59 · 393 阅读 · 0 评论 -
闭合导线平差计算(表面)
include"mapbasic.def"declare sub main dim c1x,c1y,c2x,c2y,d,e,f,g,h,i as floatdim a,b1,b2,b3,b4,b5 as stringsub main dialogtitle "闭合导线控制网平差"width 400 height 300 position 100,100 control statictextt原创 2012-12-14 14:47:03 · 2685 阅读 · 0 评论 -
mapinfo 100阶乘小程序
declare sub mainsub maindim i,a,b as floata = 1b = 1for i=2 to 100 step 1a=a*ib=b+anextnote "从1到100的阶乘之和为" + str$(b)end sub原创 2012-12-14 14:46:57 · 425 阅读 · 0 评论