Aralıklı Tematik Örneği

CBS projelerinde sıklıkla karşımıza çıkan ihtiyaçlardan biri de tematik gösterimlerdir. Tematik haritalar bir tablodaki sayısal değerleri harita üzerinde muhtelif şekillerde (aralık değerli, çubuk grafikli, pasta grafikli, nokta yoğunluklu, bireysel vb.) göstererek verileri çok daha anlamlı bir hale getirmek ve bir bakışta sonuçlar çıkarmak noktasında son derece faydalıdır.

Aşağıdaki MapBasic programı aralıklı tematik haritanın nasıl oluşturulabileceğini gösteriyor. ShadeByRangeOfValues() prosedürü parametre olarak tematik yapılacak tablonun adını, kolonun adını ve aralık sayısını alıyor ve tematik haritayı oluşturuyor:

include "mapbasic.def"

declare sub main
declare Sub ShadeByRangeOfValues(ByVal tableName as string, ByVal columnName as string, ByVal rangeNum as integer)

Sub main
  call ShadeByRangeOfValues ("ILCE", "NUFUS", 7)
End Sub

Sub ShadeByRangeOfValues(ByVal tableName as string, ByVal columnName as string, ByVal rangeNum as integer)
  Dim columnAlias as alias
  columnAlias = columnName
  Dim range_limits() As Float
  Dim brush_styles() As Brush
  Create Styles
    From Brush(2, CYAN, 0)
    To Brush (2, BLUE, 0)
    Vary Color By "RGB"
    Number rangeNum
    Into Variable brush_styles
  Create Ranges From tableName
    With columnAlias
    Use "Equal Count"
    Number rangeNum
    Into Variable range_limits
  Shade tableName With columnAlias Ranges From Variable range_limits Style Variable brush_styles
End Sub