objview = Av.GetProject.FindDoc("Peta Rawan Banjir dan Genangan di DKI objview2 = Av.GetProject.FindDoc("Landuse - Rawan banjir")

LISTING PROGRAM

ScrStartUp -------------NamaFile = "D:/Arc Prj/Awal.Bmp".AsFileName

objPasswd = Msgbox.Password if(objPasswd = "admin") then Msgbox.Info("Hallo","Selamat Datang") Av.Run("ScrLocation","") objView = Av.GetProject.FindDoc("Peta Rawan Banjir dan Genangan di DKI Jakarta") objView.GetWin.Close

objView2 = Av.GetProject.FindDoc("Landuse - Rawan banjir") objView2.GetWin.Close

objView3 = Av.GetProject.FindDoc("Rawan Kemacetan akibat banjir") objView3.GetWin.Close

elseif(objPasswd = nil) then

Msgbox.info("Anda Keluar","Terima Kasih") Av.GetProject.Close

else

Msgbox.Error("Password Salah","Error") Av.GetProject.Close

End

‘Menampilkan Menu “Advance” ScrAdvance --------------ObjTipeDoc = "View" objGUIView = av.FindGUI(objTipeDoc) objMenuBar = ObjGUIView.GetMenuBar

objMenuTambahan = Menu.Make objMenuTambahan.SetLabel("Advance") IdxMenu = 2 objMenuBar.Add(objMenuTambahan,IdxMenu)

objSubmenuLanduse = Choice.Make

objSubmenuLanduse.SetLabel("View Landuses")

objSubmenuTraffic = Choice.Make objSubmenuTraffic.SetLabel("View Roads")

objSubmenuRiver = Choice.Make objSubmenuRiver.SetLabel("View Rivers")

objMenuTambahan.Add(objSubmenuTraffic,0) objMenuTambahan.Add(objSubmenuRiver,1) objMenuTambahan.Add(objSubmenuLanduse,2)

objNamaAdv0 = "ScrJalanMacet" objSubmenuTraffic.SetClick(objNamaAdv0)

objNamaAdv1 = "ScrLanduse" objSubmenuLanduse.SetClick(objNamaAdv1)

‘Menampilkan Submenu “Browse” ScrBrowse ------------objView = Av.GetProject.FindDoc("Peta Rawan Banjir dan Genangan di DKI Jakarta") objView.GetWin.Open

objView2 = Av.GetProject.FindDoc("Landuse - Rawan banjir") objView2.GetWin.Open

objView3 = Av.GetProject.FindDoc("Rawan Kemacetan akibat banjir") objView3.GetWin.Open

Av.TileWindow

‘Menampilkan hasil pencarian dalam “view” ScrBuka ----------objNamaView = "Daerah Titik Genangan di DKI Jakarta" objView = Av.GetProject.FindDoc(objNamaView) if(objView <> nil) then Av.GetProject.RemoveDoc(objView) end

objTabelTemp = Av.GetProject.FindDoc("Tabel Atribut Daerah Titik Genangan") if(objTabelTemp <> nil) then Av.GetProject.RemoveDoc(objTabelTemp) end

objView = View.Make objView.SetName("Daerah Titik Genangan di DKI Jakarta")

if(_objTheme = "Jakarta Barat") then objDataKelurahan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\ADMIN\jakbar.shp") objThemeKel = Theme.Make(objDataKelurahan) objThemeKel.SetName("Jakarta Barat") objThemeKel.GetLegend objView.AddTheme(objThemeKel)

objThemeKel.SetVisible(True) objLeKel = objThemeKel.GetLegend objSymKel = objLeKel.GetSymbols.Get(0) objSymKel.SetColor(Color.GetGreen) objThemeKel.SetActive(True) objThemeKel.UpdateLegend

objDataBanjir = SrcName.Make("D:\Arc Prj\1\banjir-admin.shp") _objThemeBanjir = Theme.Make(objDataBanjir) _objThemeBanjir.SetName("Titik Genangan") objView.AddTheme(_objThemeBanjir)

_objThemeBanjir.SetVisible(true) objLeBanjir = _objThemeBanjir.GetLegend objSymBanjir = objLeBanjir.GetSymbols.Get(0) objSymBanjir.SetColor(Color.GetBlue) _objThemeBanjir.UpdateLegend _objFTabBanjir = _objThemeBanjir.GetFTab

objNamaKel = _objTipeKelurahan.Quote objFTabKel = objThemeKel.GetFTab objBitmap = objFTabKel.GetSelection objEkspresi = "([Kelurahan]="+objNamaKel+")" objFTabKel.Query(objEkspresi,objBitmap,#VTAB_SELTYPE_NEW)

objBitmap = objFTabKel.GetSelection objFTabKel.UpdateSelection

_objFTabBanjir.SelectByFTab(objFTabKel,#FTAB_RELTYPE_INTERSECTS,0,#VTA B_SELTYPE_NEW)

_objFTabBanjir.UpdateSelection objTabelBanjir = Table.Make(_objFTabBanjir)

objTabelBanjir.SetName("Tabel Atribut Daerah Titik Genangan")

objwindow = objView.GetWin.Open

elseif(_objTheme = "Jakarta Pusat") then objDataKelurahan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\ADMIN\jakpus.shp") objThemeKel = Theme.Make(objDataKelurahan) objThemeKel.SetName("Jakarta Pusat") objThemeKel.GetLegend objView.AddTheme(objThemeKel)


objDataBanjir = SrcName.Make("D:\Arc Prj\1\banjir-admin.shp") _objThemeBanjir = Theme.Make(objDataBanjir) _objThemeBanjir.SetName("Titik Genangan")

objView.AddTheme(_objThemeBanjir)





_objFTabBanjir.UpdateSelection

objTabelBanjir = Table.Make(_objFTabBanjir) objTabelBanjir.SetName("Tabel Atribut Daerah Titik Genangan")


elseif(_objTheme = "Jakarta Selatan") then objDataKelurahan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\ADMIN\jaksel.shp") objThemeKel = Theme.Make(objDataKelurahan) objThemeKel.SetName("Jakarta Selatan") objThemeKel.GetLegend objView.AddTheme(objThemeKel)











elseif(_objTheme = "Jakarta Timur") then objDataKelurahan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\ADMIN\jaktim.shp") objThemeKel = Theme.Make(objDataKelurahan) objThemeKel.SetName("Jakarta Timur") objThemeKel.GetLegend objView.AddTheme(objThemeKel)











elseif(_objTheme = "Jakarta Utara") then objDataKelurahan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\ADMIN\jakut.shp") objThemeKel = Theme.Make(objDataKelurahan) objThemeKel.SetName("Jakarta Utara") objThemeKel.GetLegend objView.AddTheme(objThemeKel)











else

end objTabelBanjir.GetWin.Open objTabelBanjir.PromoteSelection

objView.GetWin.Open

_objDialog.Close

objTampilLayout = "Anda ingin menampilkan ke dalam bentuk Layout?" objTombolDefault = false objpilihTampil = MsgBox.MiniYesNo(objTampilLayout,objTombolDefault) if(objpilihTampil = True) Then Av.Run("ScrLayout","") elseif(objpilihTampil = false) then MsgBox.Info("Layout Tidak Ditampilkan","Terima Kasih")

End

objFTabKel.SelectByFTab(_objFTabBanjir,#FTAB_RELTYPE_INTERSECTS,0,#VTA B_SELTYPE_NEW)

objBitmap = objFTabKel.GetSelection objFTabKel.UpdateSelection objFieldKelurah = objFTabKel.FindField("Kelurahan") for each idx in objFTabKel.GetSelection objKelurah = objFTabKel.ReturnValue(objFieldKelurah,idx) Msgbox.info("Perkiraan Kelurahan yang terkena dampak adalah: "++objKelurah.AsString,"Info Tambahan") end

ScrDialog -----------objNamaDialog = "DlgSearch" _objProject = Av.GetProject _objDialog = _objProject.FindDialog(ObjNamaDialog) _objDialog.Open

ScrDisplay --------------

NamaFile = "D:/Arc Prj/Awal.Bmp".AsFileName

objPasswd = Msgbox.Password if(objPasswd = "admin") then Msgbox.Info("Hallo","Selamat Datang") Av.Run("ScrLocation","") objView = Av.GetProject.FindDoc("Peta Rawan Banjir dan Genangan di DKI Jakarta") objView.GetWin.Close

objView2 = Av.GetProject.FindDoc("Landuse - Rawan banjir") objView2.GetWin.Close

objView3 = Av.GetProject.FindDoc("Rawan Kemacetan akibat banjir") objView3.GetWin.Close

elseif(objPasswd = nil) then Msgbox.info("Anda Keluar","Terima Kasih") Av.GetProject.Close

else

Msgbox.Error("Password Salah","Error") Av.GetProject.Close

End

ScrDlgOpen ---------------objNamaControl = "lstBatasWil" lstBatasWil = Self.FindByName(objNamaControl) lstBatasWil.DefineFromList({"Jakarta Barat","Jakarta Pusat","Jakarta Selatan","Jakarta Timur","Jakarta Utara"})

objNamaControl = "lstKelurahan" lstKelurahan = _objDialog.FindByName(objNamaControl) lstKelurahan.DefineFromList ({})

ScrJalanMacet -----------------objNamaView = "Prakiraan Kemacetan Akibat Banjir" objView = Av.GetProject.FindDoc(objNamaView) if(objView <> nil) then Av.GetProject.RemoveDoc(objView)

end

objTabelTemp = Av.GetProject.FindDoc("Tabel Atribut Prakiraan Daerah Macet") if(objTabelTemp <> nil) then Av.GetProject.RemoveDoc(objTabelTemp) end

objView = View.Make objView.SetName("Prakiraan Kemacetan Akibat Banjir")

if(_objTheme = "Jakarta Barat") then objDataJalan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\jalan\barat.shp") objThemeJalan = Theme.Make(objDataJalan) objThemeJalan.SetName("Jakarta Barat") objThemeJalan.GetLegend objView.AddTheme(objThemeJalan)

objThemeJalan.SetVisible(True) objLeJalan = objThemeJalan.GetLegend objSymJalan = objLeJalan.GetSymbols.Get(0) objSymJalan.SetColor(Color.GetRed) objSymJalan.SetSize(1)

objThemeJalan.SetActive(True) objThemeJalan.UpdateLegend objFTabJalan = objThemeJalan.GetFTab


objFTabJalan.SelectByFTab(_objFTabBanjir,#FTAB_RELTYPE_INTERSECTS,0,#VT AB_SELTYPE_NEW)

objFTabJalan.UpdateSelection objTabelJalan = Table.Make(objFTabJalan) objTabelJalan.SetName("Tabel Atribut Prakiraan Daerah Macet")


elseif(_objTheme = "Jakarta Pusat") then objDataJalan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\jalan\pusat.shp") objThemeJalan = Theme.Make(objDataJalan) objThemeJalan.SetName("Jakarta Pusat") objThemeJalan.GetLegend objView.AddTheme(objThemeJalan)

objThemeJalan.SetVisible(True) objLeJalan = objThemeJalan.GetLegend objSymJalan = objLeJalan.GetSymbols.Get(0) objSymJalan.SetColor(Color.GetRed) objSymJalan.SetSize(1) objThemeJalan.SetActive(True) objThemeJalan.UpdateLegend objFTabJalan = objThemeJalan.GetFTab





elseif(_objTheme = "Jakarta Selatan") then objDataJalan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\jalan\selatan.shp")

objThemeJalan = Theme.Make(objDataJalan) objThemeJalan.SetName("Jakarta Selatan") objThemeJalan.GetLegend objView.AddTheme(objThemeJalan)






elseif(_objTheme = "Jakarta Timur") then objDataJalan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\jalan\timur.shp") objThemeJalan = Theme.Make(objDataJalan) objThemeJalan.SetName("Jakarta Timur") objThemeJalan.GetLegend objView.AddTheme(objThemeJalan)






elseif(_objTheme = "Jakarta Utara") then objDataJalan = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\jalan\utara.shp") objThemeJalan = Theme.Make(objDataJalan) objThemeJalan.SetName("Jakarta Utara") objThemeJalan.GetLegend objView.AddTheme(objThemeJalan)

objThemeJalan.SetVisible(True) objLeJalan = objThemeJalan.GetLegend objSymJalan = objLeJalan.GetSymbols.Get(0) objSymJalan.SetColor(Color.GetRed) objSymJalan.SetSize(1) objThemeJalan.SetActive(True)

objThemeJalan.UpdateLegend objFTabJalan = objThemeJalan.GetFTab





else

end

objTabelJalan.GetWin.Open objTabelJalan.PromoteSelection

objView.GetWin.Open

ScrPathDef --------------

ScrLanduse --------------bjNamaView = "Lingkungan Landuse yang tergenang" objView = Av.GetProject.FindDoc(objNamaView) if(objView <> nil) then Av.GetProject.RemoveDoc(objView) end

objTabelTemp = Av.GetProject.FindDoc("Tabel Atribut Prakiraan Landuse") if(objTabelTemp <> nil) then Av.GetProject.RemoveDoc(objTabelTemp) end

objView = View.Make objView.SetName("Lingkungan Landuse yang tergenang")

if(_objTheme = "Jakarta Barat") then

objDataLU = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\landuse\barat\landuse.shp") objThemeLU = Theme.Make(objDataLU) objThemeLU.SetName("Landuse Jakarta Barat") objThemeLU.GetLegend objView.AddTheme(objThemeLU)

objThemeLU.SetVisible(True) objLeLU = objThemeLU.GetLegend objSymLU = objLeLU.GetSymbols.Get(0) objSymLU.SetColor(Color.GetGreen) objThemeLU.SetActive(True) objThemeLU.UpdateLegend objFTabLU = objThemeLU.GetFTab


objFTabLU.SelectByFTab(_objFTabBanjir,#FTAB_RELTYPE_INTERSECTS,0,#VTA B_SELTYPE_NEW)

objFTabLU.UpdateSelection objTabelLU = Table.Make(objFTabLU) objTabelLU.SetName("Tabel Atribut Prakiraan Landuse")


elseif(_objTheme = "Jakarta Pusat") then objDataLU = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\landuse\pusat\landuse.shp") objThemeLU = Theme.Make(objDataLU) objThemeLU.SetName("Landuse Jakarta Pusat") objThemeLU.GetLegend objView.AddTheme(objThemeLU)






elseif(_objTheme = "Jakarta Selatan") then objDataLU = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\landuse\selatan\landuse.shp") objThemeLU = Theme.Make(objDataLU) objThemeLU.SetName("Landuse Jakarta Selatan") objThemeLU.GetLegend objView.AddTheme(objThemeLU)






elseif(_objTheme = "Jakarta Timur") then objDataLU = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\landuse\timur\landuse.shp") objThemeLU = Theme.Make(objDataLU) objThemeLU.SetName("Landuse Jakarta Timur") objThemeLU.GetLegend objView.AddTheme(objThemeLU)

objThemeLU.SetVisible(True) objLeLU = objThemeLU.GetLegend objSymLU = objLeLU.GetSymbols.Get(0)

objSymLU.SetColor(Color.GetGreen) objThemeLU.SetActive(True) objThemeLU.UpdateLegend objFTabLU = objThemeLU.GetFTab





elseif(_objTheme = "Jakarta Utara") then objDataLU = SrcName.Make("D:\Arc Prj\peta dki tm3° (G)\landuse\utara\landuse.shp") objThemeLU = Theme.Make(objDataLU) objThemeLU.SetName("Landuse Jakarta Utara") objThemeLU.GetLegend objView.AddTheme(objThemeLU)






else

end

objTabelLU.GetWin.Open objTabelLU.PromoteSelection

objView.GetWin.Open

ScrLocation --------------ObjTipeDoc = "Project" objGUIView = av.FindGUI(objTipeDoc) objMenuBar = ObjGUIView.GetMenuBar

objMenuCari = Menu.Make objMenuCari.SetLabel("Find Ponds and Flood Gristle Location") IdxMenu = 2 objMenuBar.Add(objMenuCari,IdxMenu)

objSubmenuCari = Choice.Make objSubmenuCari.SetLabel("Search") objMenuCari.Add(objSubmenuCari,0)

objSubmenuBrowse = Choice.Make

objSubmenuBrowse.SetLabel("Browse") objMenuCari.Add(objSubmenuBrowse,1)

objNamaScript = "ScrDialog" objSubmenuCari.SetClick(objNamaScript) objNamaScript2 = "ScrBrowse" objSubmenuBrowse.SetClick(objNamaScript2)

ScrBatasWilayah --------------------objNamaControl = "lstKelurahan" lstKelurahan = _objDialog.FindByName(objNamaControl) _objTheme = Self.GetCurrentValue.AsString

if(_objTheme = "Jakarta Barat") then lstKelurahan.DefineFromList({"Cengkareng Barat","Cengkareng Timur","Duri Kepa", "Duri Selatan","Duri Utara","Durikosambi","Glodok","Grogol","Jatipulo","Jelambar", "Jelambar Baru","Jembatan Besi","Kali Anyer","Kalideres","Kapuk","Keagungan", "Kebon Jeruk","Kedaung Kaliangke","Kedoya Utara","Kelapa Dua","Kemanggisan", "Kembangan Selatan","Kembangan Utara","Kota Bambu Utara","Krendang","Krukut", "Mahpar","Mangga Besar","Meruya selatan","Meruya Utara","Pegadungan","Pekojan",

"Pinangsia","Rawa Buaya","Roa Malaka","Semanan","Slipi","Srengseng","Sukabumi Utara", "Taman Sari","Tanah Sareal","Tangki","Tanjung Duren Selatan","Tanjung Duren Utara", "Tegal Alur","Tomang","Wijayakusuma"})

elseif(_objTheme = "Jakarta Pusat") then lstKelurahan.DefineFromList({"Bendungan Hilir","Cempaka Baru","Cempaka Putih Barat", "Cempaka Putih Timur","Cideng","Gambir","Godangdia","Gunung Sahari Selatan","Gunung Sahari Utara", "Johar Baru","Kampung Bali","Karang Anyar","Karet Tengsin","Kebon Kacang","Kebon Kosong", "Kebon Melati","Kebon Sirih","Kemayoran","Kramat","Kwitang","Manggadua Selatan","Menteng", "Pasar Baru","Petamburan","Petojo Selatan","Petojo utara","Rawasari","Senen","Serdang", "Sumur Baru"})

elseif(_objTheme = "Jakarta Selatan") then lstKelurahan.DefineFromList({"Bangka","Bintaro","Bukit Duri","Cikoko","Cipete Selatan","Cipulir",

"Duren Tiga","Gandaria Selatan","Guntur","Kalibata","Karet","Karet Kuningan","Karet Semanggi", "Kebayoran Lama Selatan","Kebayoran Lama Utara","Kebon Baru","Kuningan Barat","Mampang Prapatan", "Menteng Atas","Pancoran","Pasar Manggis","Pejaten Barat","Pejaten Timur","Pela Mampang","Pengadegan", "Pesanggrahan","Pondok Pinang","Rawa Barat","Rawajati","Selong","Senayan","Setiabudi","Sukabumi Selatan", "Tegal Parang","Ulujami"})

elseif(_objTheme = "Jakarta Timur") then lstKelurahan.DefineFromList({"Bale Kambang","Batu Ampar","Bidara Cina","Cakung Barat","Cakung Timur", "Cawang","Ceger","Cililitan","Cipayung","Cipinang","Cipinang Besar Selatan","Cipinang Besar Timur", "Cipinang Cipedak","Cipinang Melayu","Cipinang Muara","Ciracas","Dukuh","Duren Sawit","Halim","Jati", "Jatinegara","Kampung Melayu","Kampung Tengah","Kayu Manis","Kayu Putih","Kebon Pala","Klender", "Kramatjati","Makasar","Malaka Jaya","Malakasari","Pal Meriam","Pinang Ranti","Pondok Bambu", "Pondok Kelapa","Pulogadung","Rambutan","Rawa Buaya","Susukan","Ujung Menteng","Utan Kayu Selatan"})

elseif(_objTheme = "Jakarta Utara") then lstKelurahan.DefineFromList({"Ancol","Cilincing","Kalibaru","Kamal Muara","Kapuk Muara","Kebon Bawang", "Kelapa Gading Barat","Kelapa Gading Timur","Koja","Lagoa","Pademangan Barat","Pademangan Timur", "Papanggo","Pegangsaan Dua","Pejagalan","Penjaringan","Pluit","Rawabadak Selatan","Rawabadak Utara", "Rorotan","Semper Barat","Semper Timur","Sungai Bambu","Sunter Agung","Sunter Jaya","Tugu Selatan", "Tugu Utara","Warakas"}) else

end

‘Mengisi ListBox dengan nama Kelurahan menurut batas wilayah ScrLstKelurahan --------------------_objTipeKelurahan = Self.GetCurrentValue.AsString

‘Script ShutDown ScrOut ---------

Msgbox.info("Anda Keluar","Terima Kasih") Av.GetProject.Close

‘Tampil Layout Hasil Pencarian ScrLayout ------------'Membuat Layout ' Av.SetName("Membuat Layout Peta") Av.MoveTo(0,0) Av.Maximize System.Beep

'Membuat Layout Baru ' ObjLayout = Av.GetProject.FindDoc("Layout Titik Genangan") if(objLayout<>Nil) Then Av.GetProject.RemoveDoc(objLayout) end

objLayout = Layout.Make objLayout.SetName("Layout Titik Genangan") objLayout.GetWin.Open

objDisplay = objLayout.GetDisplay objDisplay.SetUnits(#UNITS_LINEAR_INCHES) objBatasLayout = Point.Make(13,8) objDisplay.SetPageSize(objBatasLayout) objTepiLayout = Rect.MakeXY(0.30,0.30,0.30,0.30) objDisplay.SetMargin(objTepiLayout) objDisplay.SetGridActive(true) objDisplay.SetUsingPrinterMargins(true) objDisplay.SetMarginVisible(true)

objView = Av.GetProject.FindDoc("Daerah Titik Genangan di DKI Jakarta") if(objView = Nil) then MsgBox.Info("View yang akan dimasukkan ke Layout belum ada","Pesan Kesalahan") Exit

End

objDimensiDisplayLayout = objDisplay.ReturnPageExtent PosisiAwalHal = objDimensiDisplayLayout.ReturnOrigin OffsetHalaman = ([email protected]) PosisiAcuanUtama = PosisiAwalHal + OffsetHalaman UkuranFrameUtama = (6@6)

Wilayah = Rect.Make(PosisiAcuanUtama,UkuranFrameUtama) objFrameView = ViewFrame.Make(Wilayah) isLiveLink = true objFrameView.SetView(objView,isLiveLink) objLayout.GetGraphics.Add(objFrameView) objLayout.Invalidate

PosisiAwalHal = objDimensiDisplayLayout.ReturnOrigin objOffsetLegenda = PosisiAwalHal + ([email protected]) objUkuranFrameLegenda = Point.Make(2,3) objLegenda = Rect.Make(objOffsetLegenda,objUkuranFrameLegenda) objFrameLegenda = LegendFrame.Make(objLegenda) objFrameLegenda.SetViewFrame(objFrameView) objLayout.GetGraphics.Add(objFrameLegenda) objLayout.Invalidate

OffsetSkala = PosisiAwalHal +([email protected]) UkuranFrameSkala = (5@2) WilayahSkala = Rect.Make(OffsetSkala,UkuranFrameSkala) objFrameSkala = ScaleBarFrame.Make(WilayahSkala) objFrameSkala.SetViewFrame(objFrameView) objFrameSkala.SetStyle(#SCALEBARFRAME_STYLE_ALTFILLED) objFrameSkala.SetUnits(#UNITS_LINEAR_KILOMETERS)

objFrameSkala.SetInterval(1) objFrameSkala.SetInterval(2) objFrameSkala.SetDivisions(4) objLayout.GetGraphics.Add(objFrameSkala) objLayout.Invalidate

objTeks = "Peta Titik Genangan" objJangkauan = objDisplay.ReturnPageExtent objOffsetLokasiTeks = ([email protected]) objPosisiTeks = objJangkauan.ReturnOrigin + objOffsetLokasiTeks objTeksGrafis = GraphicText.Make(objTeks,objPosisiTeks) objTeksGrafis.SetAlignment(#TEXTCOMPOSER_JUST_CENTER) objListGrafikLayout = objLayout.GetGraphics objSimbolTeksGrafis = objTeksGrafis.GetSymbol objSimbolTeksGrafis.SetSize(50) objFontBaru = Font.Make("Arial","Bold") objSimbolTeksGrafis.SetFont(objFontBaru) objSimbolTeksGrafis.SetColor(Color.GetBlack) objTeksGrafis.SetAngle(0) objlistGrafikLayout.Add(objTeksGrafis) objLayout.Invalidate

offsetLogo = ([email protected]) PosisiAcuanLogo = PosisiAwalHal + offsetLogo UkuranFramegambar = ([email protected]) objAreagambar = Rect.Make(PosisiAcuanLogo,UkuranFrameGambar) objFrameGambar = PictureFrame.Make(objAreaGambar) objNamaFileGambar = "D:\Arc Prj\logo.bmp".AsFileName objFrameGambar.SetFileName(objNamaFileGambar) objLayout.GetGraphics.Add(objFrameGambar) objLayout.Invalidate

‘Script tutup dialog pencarian titik genangan ScrTutup -----------_objDialog.Close

objview = Av.GetProject.FindDoc("Peta Rawan Banjir dan Genangan di DKI objview2 = Av.GetProject.FindDoc("Landuse - Rawan banjir")

Recommend Documents