開發(fā)范例-小白-

1、昨天現(xiàn)學(xué)現(xiàn)賣,幫小慧寫了Mapbasic 的一些小程序主要功能:面積計算,條件查詢。雖然第一次寫GIS的二次開發(fā)程序,不過感覺上手真的很快。也就是用了1個半小時,就把大概的知識點過了一遍,接著就開始對著Mapbasic開始敲鍵盤。不過畢竟沒有基礎(chǔ),寫出來的程序很丑陋(不會basic語言,所以很多東西寫得特別長在此把代碼貼出,希望路過的朋友,可以看看。nclude "mapbasic.def"Include "menu.def"declare Sub 道路declare Sub 高薪產(chǎn)業(yè)區(qū)declare Sub 工業(yè)發(fā)展用地declare Sub 教育科研

2、用地declare Sub 居住用地declare Sub 綠地declare Sub 行政辦公用地declare Sub 文化娛樂用地declare Sub 面積Declare Sub duihuaDeclare Sub MainDeclare Sub tiaojianDim mianji as FloatDim i as IntegerDim mianji1 as floatDim zongmianji1 as floatDim jilushu as IntegerSub MainCreate Menu "條件查詢" as "請輸入條件" Calli

3、ng tiaojianAlter Menu Bar Add "條件查詢"Create Menu "統(tǒng)計查詢" as "面積" Calling duihuaAlter Menu Bar Add "統(tǒng)計查詢"Create Menu "分類查詢" as "道路" Calling 道路,"高薪產(chǎn)業(yè)區(qū)" Calling 高薪產(chǎn)業(yè)區(qū),"工業(yè)發(fā)展用地" Calling 工業(yè)發(fā)展用地,"教育科研用地" Calling 教育科研用地,

4、"居住用地" Calling 居住用地,"綠地" Calling 綠地,"行政辦公用地" Calling 行政辦公用地,"文化娛樂用地" Calling 文化娛樂用地Alter Menu Bar Add "分類查詢"End SubSub tiaojianDim yongdileixing as StringDim xiao,da as IntegerDialogTitle "條件查詢"Control StaticTextInto yongdileixingControl St

5、aticTextTitle "查詢的用地類型"Control EditTextInto yongdileixingControl StaticTextTitle "面積的最小值"Control EditTextInto xiaoControl StaticTextTitle "面積的最大值"Control EditTextInto daControl OkButtonTitle "確定"Control CancelButtonTitle "取消"Open Table "c:shix&q

6、uot; + yongdileixingIf yongdileixing = "教育科研用地" ThenFetch First From 教育科研用地Do While Not EOT(教育科研用地mianji = Area(教育科研用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "教育科研用地id:" + i + "面積:" + Str$(mianjiE

7、nd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 教育科研用地LoopEnd IfIf yongdileixing = "居住用地" ThenFetch First From 居住用地Do While Not EOT(居住用地mianji = Area(居住用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "居住用地

8、id:" + i + "面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 居住用地LoopEnd IfIf yongdileixing = "道路" ThenFetch First From 道路Do While Not EOT(道路mianji = Area(道路.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji&

9、lt;=da Theni = i + 1Print "道路id:" + i + "面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 道路LoopEnd IfIf yongdileixing = "高薪產(chǎn)業(yè)區(qū)" ThenFetch First From 高薪產(chǎn)業(yè)區(qū)Do While Not EOT(高薪產(chǎn)業(yè)區(qū)mianji = Area(高薪產(chǎn)業(yè)區(qū).obj,"sq km"If CommandInfo (CMD_IN

10、FO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "高薪產(chǎn)業(yè)區(qū)id:" + i + "面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 高薪產(chǎn)業(yè)區(qū)LoopEnd IfIf yongdileixing = "文化娛樂用地" ThenFetch First From 文化娛樂用地Do While Not EOT(文化娛樂用地mianji = A

11、rea(文化娛樂用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "文化娛樂用地id:" + i + "面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 文化娛樂用地LoopEnd IfIf yongdileixing = "行政辦公用地" Then

12、Fetch First From 行政辦公用地Do While Not EOT(行政辦公用地mianji = Area(行政辦公用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "行政辦公用地id:" + i + "面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 行政

13、辦公用地LoopEnd IfIf yongdileixing = "工業(yè)發(fā)展用地" ThenFetch First From 工業(yè)發(fā)展用地Do While Not EOT(工業(yè)發(fā)展用地mianji = Area(工業(yè)發(fā)展用地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "工業(yè)發(fā)展用地id:" + i + "面積:" + Str$(mianjiEnd IfE

14、lsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 工業(yè)發(fā)展用地LoopEnd IfIf yongdileixing = "綠地" ThenFetch First From 綠地Do While Not EOT(綠地mianji = Area(綠地.obj,"sq km"If CommandInfo (CMD_INFO_DLG_OK ThenIf mianji>=xiao and mianji<=da Theni = i + 1Print "綠地id:" + i +

15、"面積:" + Str$(mianjiEnd IfElsePrint "沒有您要搜索的對象名稱"End IfFetch Next From 綠地LoopEnd IfEnd SubSub duihuaDim search As StringDialogTitle "面積查詢"Control StaticTextTitle "輸入您要查詢的用地類型"Control EditTextInto searchControl OKButtonTitle "確定"Control CancelButtonTit

16、le "取消"Open Table "C:shix" + searchIf search = "教育科研用地" ThenDim i,counter as IntegerFetch First From 教育科研用地Do While Not EOT(教育科研用地mianji1 = Area(教育科研用地.obj,"sq km"i = i + 1If CommandInfo (CMD_INFO_DLG_OK Thenprint "教育科研用地id" + i +":" + Str$

17、(mianji1Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 教育科研用地 Loop print "教育科研用地總面積為：" + Str$(zongmianji1 End If If search = "高薪產(chǎn)業(yè)區(qū)" Then Dim a as Integer Fetch First From 高薪產(chǎn)業(yè)區(qū) Do While Not EOT(高薪產(chǎn)業(yè)區(qū) mianji1 = Area(高薪產(chǎn)業(yè)區(qū).obj,"s

18、q km" a = a + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "高薪產(chǎn)業(yè)區(qū) id" + a + ":"+Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 高薪產(chǎn)業(yè)區(qū) Loop print "高薪產(chǎn)業(yè)區(qū)總面積為：" + Str$(zongmianji1 End If If search = "居住用地

19、" Then Dim b as Integer Fetch First From 居住用地 Do While Not EOT(居住用地 mianji1 = Area(居住用地.obj,"sq km" b = b + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "居住用地 id" +b+ ":" + Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmianji1 + mianji1 F

20、etch Next From 居住用地 Loop print "居住用地總面積為：" + Str$(zongmianji1 End If If search = "行政辦公用地" Then Dim c as Integer Fetch First From 行政辦公用地 Do While Not EOT(行政辦公用地 mianji1 = Area(行政辦公用地.obj,"sq km" c = c + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "行政辦公用地 id"+c

21、 +":"+ Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 行政辦公用地 Loop print "行政辦公用地總面積為：" + Str$(zongmianji1 End If If search = "文化娛樂用地" Then Dim d as Integer Fetch First From 文化娛樂用地 Do While Not EOT(文化娛樂用地 mianji1

22、 = Area(文化娛樂用地.obj,"sq km" d = d + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "文化娛樂用地 id" +d+":"+ Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmianji1 + mianji1 Fetch Next From 文化娛樂用地 Loop print "文化娛樂用地總面積為：" + Str$(zongmianji1 En

23、d If If search = "綠地" Then Dim r as Integer Fetch First From 綠地 Do While Not EOT(綠地 mianji1 = Area(綠地.obj,"sq km" r = r + 1 If CommandInfo (CMD_INFO_DLG_OK Then print "綠地 id" +r+":"+ Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If zongmianji1 = zongmian

24、ji1 + mianji1 Fetch Next From 綠地 Loop print "綠地總面積為：" + Str$(zongmianji1 End If If search = "道路" Then Dim v as Integer Fetch First From 道路 Do While Not EOT(道路 v = v + 1 mianji1 = Area(道路.obj,"sq km" If CommandInfo (CMD_INFO_DLG_OK Then print "道路 id" +v+":" +Str$(mianji1 Else print "沒有您要搜索的對象名稱" End If