LAMPIRAN
20
Lampiran 1 Peta wilayah genangan
21
Lampiran 2. Alur logika penentuan wilayah genangan
22
23
Lampiran 3. Alur logika penentuan panjang garis pantai dan kemiringan pantai
24
Lampiran 4. Panduan penggunaan perangkat lunak
Perangkat lunak ini digunakan untuk menduga wilayah yang tergenang apa bila terjadi kenaikan muka air laut dan menghitung kerugian ekonomi yang diakibatkannya
langkah-langkah penggunaan :
1. Data yang diigunakan adalah peta DEM dengan extensi .asc
<-bentuk peta DEM ASCII
2. jalankan program, ketika program dibuka maka akan muncul security warning
3. klik options, kemudian akan muncul jendela pilihan seperti ini :
<----
pilih
content", "OK"
"enable
kemudian
this pilih
25
4. input data yang akan di di runnig, sama seperti menginput data biasa ke dalam excel
<-----pilih file of type "All files"
5. kemudian akan muncul text import wizard
<---- pilih delimited, kemudian next
<---- pada jendela berikutnya pilih Space dan tab pada kolom delimiter, kemudian next <---- setelah itu pada jendela berikutnya pilih Finish setelah
itu
peta
anda
muncul di jendela baru
6. pada peta anda klik kanan dimana saja, pilih KeMAL, jalankan KeMAL
akan
26
7. setelah muncul dialog box kemudian input data kenaikan muka air laut yang anda inginkan pada input box yang tersedia
8. jalankan perangkat lunak kenaikan muka air laut
setelah selesai dijalankan maka peta akan
menjadi berwarna, biru muda untuk laut dengan nilai -9999, biru tua untuk wilayah yang tergenang dan warna hijau untuk wilayah yang tidak tergenang.
9. Perangkat lunak akan menghitung luas area, panjang garis pantai, tangent kemiringan pantai (y/x), perbandingan lahan yang tergenang dan tidak tergenang, dan panjang garis pantai setalah terjadi kenaikan muka air laut.
10. Urutan algoritma yang digunakan oleh perangkat lunak adalah -panjang garis pantai -kemiringan pantai -luas wilayah -wilayah genangan -panjang garis pantai sesudah kenaikan muka air laut
11. Cara kerja algoritma perhitungan panjang garis pantai adalah dengan mencari wilayah yang berbatasan langsung dengan laut. Laut mempunyai unique value yaitu bernilai -9999.
-9999
-9999
-9999
1
-9999
1
1
1
1
laut
Bukan pantai
pantai
Setelah diketahui wilayah pantai, kemudian perangkat lunak akan menghitung jumlah sisi yang berbatasan dengan laut. Sisi tersebut dihitung sebagai garis pantai, kemudian akan dijumlahkan menjadi panjang garis pantai sebelum kenaikan muka air laut. -9999
-9999
-9999
1
-9999
1
1
1
1
Garis pantai
Setelah kenaikan muka air laut terjadi, panjang garis pantai diukur kembali untuk mengetahui perubahan panjang garis yang terjadi. Perubahan ini ditandai dengan pengurangan atau pertambahan panjang garis pantai. Pada perhitungan panjang garis pantai setelah kenaikan muka
27
air laut ada sedikit perubahan pada algoritma. Garis pantai dihitung bukan hanya pada wilayah yang berbatasan dengan laut (-9999), tetapi juga dengan wilayah yang tergenang (-9998).
-9999
-9999
-9999
1
-9999
-9998
1
1
1
Garis pantai 12. Kemiringan pantai dihitung dengan membandingkan panjang x dan tinggi y pada setiap cell yang berbatasan dengan laut. Kemiringan pantai dihitung pada setiap garis pantai. Perhitungan garis pantai akan menghasilkan nilai tan . Panjang x diperoleh dari ukuran cell DEM yang digunakan, nilainya 30 m atau 90 m. Tinggi y diperoleh dari nilai setiap cell dala DEM.
-9999
-9999
-9999
1
-9999
1
1
1
1
Wilayah pantai yang dihitung kemiringannya
-9999 Tinggi Y
1
Panjang X
Sehingga Tan = y/x =1/30
13. Penentuan luas wilayah dilakukan dengan menghitung jumlah cell yang bukan laut. Perhitungan ini dilakukan sebelum simulasi kenaikan muka air laut dilakukan. Tujuannya adalah agar dapat diketahui besar penyusutan yang terjadi.
14. Dalam penentuan wilayah genangan asumsi yang digunakan adalah air yang menggenangi daratan adalah air yang berasal dari lautan. Algoritma yang digunakan adalah alogritma empat titik. Algoritma ini digunakan untuk mengindari kesalahan akbiat adanya topografi yang berbentuk
28
cekungan. Perangkat lunak lunak akan memeriksa ke empat arah, dan akan mengubah nilai wilayah genangan menjadi unique value -9998. -9999
-9999
-9999
-1
0
1
2
1
1
Perangkat lunak akan melakukan cek terhadap wilayah yang berbatasan dengan laut atau wilayah genangan dan memilki ketinggian kurang dari kenaikan muka laut. Air tidak akan masuk ke wilayah-wilayah yang terhalang oleh topografi. Wilayah genangan kemudian akan diberi warna biru muda, laut biru, dan hijau daratan. -9999
-9999
-9999
-9998
-9998
1
2
1
1
Wilayah yang tergenang akan dihitung jumlahnya dan luasnya. Luas wilayah bergantung pada resolusi DEM yang digunakan. Lampiran 5. Data citra Aviso satelit Envisat
8S 6S 4S
VARIABLE : GRID_0001[D=MSL_Map_EN_Global_IB_RWT_NoGIA_Adjust] BAD FLAG : -1.E+34 SUBSET : 5 by 3 points (LONGITUDE-LATITUDE) 106E 108E 110E 112E 114E -3.317 6.482 6.273 -6.586 3.298 2.23 3.721 4.081 4.112 6.519 2.179 1.142 6.333 2.244 -1.121
Lampiran 6. Data citra Aviso satelit Jason1
8S 6S 4S
VARIABLE : GRID_0001[D=MSL_Map_J1_Global_IB_RWT_NoGIA_Adjust] BAD FLAG : -1.E+34 SUBSET : 5 by 3 points (LONGITUDE-LATITUDE) 106E 108E 110E 112E 114E 7.269 14.57 14.38 -3.853 9.856 5.793 9.042 14.99 4.842 21.89 -2.459 8.248 9.86 5.421 14.4
Lampiran 7. Data citra Aviso satelit Topex
8S 6S 4S
VARIABLE : GRID_0001[D=MSL_Map_TP_Global_IB_RWT_NoGIA_Adjust] BAD FLAG : -1.E+34 SUBSET : 5 by 3 points (LONGITUDE-LATITUDE) 106E 108E 110E 112E 114E 9.116 4.962 8.223 -7.111 3.865 4.132 2.596 9.034 1.104 12.53 -0.8569 3.077 6.835 -1.349 6.913
29
Lampiran 9. Coding VBA Excel KEMAL Sub nuslr() Dim rcell As Range Dim kolom As Integer Dim baris As Integer Dim col As Integer Dim row As Integer Dim slr As Double Dim air As Boolean Dim banjir As Boolean Dim darat As Boolean Dim laut As Boolean Dim kejadian As Long Dim ulang As Long Dim luas As Long Dim ngok As Long col = Range("B1") row = Range("B2") slr = UserForm1.TextBox1.Text baris = 7 kolom = 2 ulang = 0 geser 'Range("b7", Cells(6 + row, 1 + col)).Select periksa: For Each rcell In Selection If rcell.Value = -9999 Then rcell.Interior.ColorIndex = 8 laut = True Else If rcell.Value > slr Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 Else If rcell.Value <= slr Then If Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris + 1, kolom) = "" Or Cells(baris - 1, kolom) = "" Then If Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris, kolom - 1) = "" Or Cells(baris, kolom + 1) = "" Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 ElseIf Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris,
kolom - 1) = -9998 Or Cells(baris, kolom + 1) = -9998 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris, kolom - 1) = -9999 Or Cells(baris, kolom + 1) = -9999 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 luas = luas + 1 End If ElseIf Cells(baris, kolom + 1) > slr And Cells(baris, kolom - 1) > slr Or Cells(baris, kolom - 1) = "" Or Cells(baris, kolom + 1) = "" Then If Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris 1, kolom) = "" Or Cells(baris + 1, kolom) = "" Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 ElseIf Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris 1, kolom) = -9998 Or Cells(baris + 1, kolom) = -9998 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris 1, kolom) = -9999 Or Cells(baris + 1, kolom) = -9999 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 'darat = True luas = luas + 1 End If ElseIf Cells(baris, kolom - 1) = -9999 Or Cells(baris, kolom + 1) = -9999 Or Cells(baris - 1, kolom) = -9999 Or Cells(baris + 1, kolom) = -9999 Then rcell.Interior.ColorIndex = 5 rcell.Value = -9998
30
banjir = True kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) = -9998 Or Cells(baris, kolom + 1) = -9998 Or Cells(baris - 1, kolom) = -9998 Or Cells(baris + 1, kolom) = -9998 Then rcell.Interior.ColorIndex = 5 rcell.Value = -9998 banjir = True kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) < slr Or Cells(baris, kolom + 1) < slr Or Cells(baris 1, kolom) < slr Or Cells(baris + 1, kolom) < slr Then If Cells(baris - 1, kolom) = banjir Then rcell.Interior.ColorIndex = 5 banjir = True rcell.Value = -9998 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 End If Else: rcell.Interior.ColorIndex = 4 luas = luas + 1 End If End If End If End If kolom = kolom + 1 If kolom = col + 2 Then kolom = 2 baris = baris + 1 End If UserForm1.Label4.Caption = kejadian * (0.03 * 0.03) UserForm1.Label31.Caption = luas * (0.03 * 0.03) ngok = kejadian - ulang Next End Sub
Sub panjang()
Dim kolom As Integer Dim baris As Integer Dim col As Integer Dim row As Integer Dim rcell As Range Dim atas As Integer Dim kokom As Integer Dim bawah As Integer Dim kanan As Integer Dim kiri As Integer Dim bam As Integer Dim aam As Integer Dim kim As Integer Dim kam As Integer Dim total As Integer
col = Range("b1").Value row = Range("b2").Value baris = 7
Range("b7", Cells(6 + row, 1 + col)).Select
kolom = 2 For Each rcell In Selection If rcell.Value = -9999 And Cells(baris + 1, kolom) > -9999 Then atas = atas + 1 If Cells(baris + 1, kolom) < 0 Then aam = aam + 0 Else aam = aam + Cells(baris + 1, kolom) End If End If If rcell.Value = -9999 And Cells(baris 1, kolom) > -9999 Then bawah = bawah + 1 If Cells(baris - 1, kolom) < 0 Then bam = bam + 0 Else bam = bam + Cells(baris - 1, kolom) End If End If If rcell.Value = -9999 And Cells(baris, kolom + 1) > -9999 Then kanan = kanan + 1 If Cells(baris, kolom + 1) < 0 Then kam = kam + 0 Else kam = kam + Cells(baris, kolom + 1) End If
31
baris = 7 End If If rcell.Value = -9999 And Cells(baris, kolom - 1) > -9999 Then kiri = kiri + 1 If Cells(baris, kolom - 1) < 0 Then kim = kim + 0 Else kim = kim + Cells(baris, kolom - 1) End If End If kolom = kolom + 1
Range("b7", Cells(6 + row, 1 + col)).Select
kolom = 2 For Each rcell In Selection If rcell.Value = -9998 Or rcell.Value = 9999 And Cells(baris + 1, kolom) > -9998 Then atas2 = atas2 + 1 End If
If kolom = col + 2 Then kolom = 2 baris = baris + 1 End If total = kanan + atas + bawah + kiri UserForm1.Label3.Caption = total * 0.03 Next UserForm1.Label2.Caption = ((bam + aam + kam + kim) / (kiri + kanan + atas + bawah)) / 30 End Sub
If rcell.Value = -9998 Or rcell.Value = 9999 And Cells(baris - 1, kolom) > -9998 Then bawah2 = bawah2 + 1 End If
If rcell.Value = -9998 Or rcell.Value = 9999 And Cells(baris, kolom + 1) > -9998 Then kanan2 = kanan2 + 1 End If If rcell.Value = -9998 Or rcell.Value = 9999 And Cells(baris, kolom - 1) > -9998 Then kiri2 = kiri2 + 1 End If kolom = kolom + 1 If kolom = col + 2 Then
Sub panjang_after() Dim kolom As Integer Dim baris As Integer Dim col As Integer Dim row As Integer Dim rcell As Range Dim atas2 As Integer Dim bawah2 As Integer Dim kanan2 As Integer Dim kiri2 As Integer Dim total2 As Integer
kolom = 2 baris = baris + 1 End If
total2 = kanan2 + atas2 + bawah2 + kiri2 UserForm1.Label1.Caption = total2 * 0.03 'Cells(5, 4) = "garis pantai sesudah" Next End Sub Sub geser()
col = Range("b1").Value row = Range("b2").Value
Dim col As Integer Dim row As Integer Dim rcell As Range
32
col = Range("b1") row = Range("b2") If Cells(7, 1) <> "" Then Range("A7", Cells(6 + row, col)).Copy Range("A7", Cells(6 + row, col)).Offset(0, 1).PasteSpecial xlPasteAll Range("a7", Cells(6 + row, 1)).Select Range("a7", Cells(6 + row, 1)).Clear
Range("B7", Cells(6 + row, 1 + col)).Select Else Range("b7", Cells(6 + row, 1 + col)).Select End If End Sub Sub ascmap() Dim col As Integer Dim row As Integer Dim rcell As Range
Dim wetloss As Long Dim dryloss As Long Dim toll As Double Dim slr As Double Dim growth As Long Dim mang As Double Dim total As Long Dim waktu As Long 'Dim rugi As Long
slr = UserForm1.TextBox1.Text sdkecost = UserForm1.TextBox2.Text GDP = UserForm1.TextBox3.Text 'kemiringan = UserForm1.TextBox5.Text 'perbandingan = UserForm1.TextBox4.Text panjangan = UserForm1.Label3.Caption wetar = UserForm1.Label4.Caption mang = UserForm1.TextBox6.Text waktu = UserForm1.TextBox7.Text perbandingan = UserForm1.Label4.Caption / UserForm1.Label31.Caption kemiringan = Tan(UserForm1.Label2.Caption) toll = ((GDP / 20000) / (1 + (GDP / 20000)))
col = Range("B1") row = Range("B2") Range("b7", Cells(6 + row, 1 + col)).Select Application.StatusBar = "Membuat Peta Biner" For Each rcell In Selection If rcell.Interior.ColorIndex = 8 Then rcell.Value = 0 ElseIf rcell.Interior.ColorIndex = 5 Then rcell.Value = 1 Else: rcell.Value = 2 End If Next Application.StatusBar = "Selesai" End Sub
Sub economic() Dim protek As Long Dim sdkecost As Double Dim GDP As Double Dim kemiringan As Double Dim panjangan As Double Dim perbandingan As Double Dim wetar As Double Dim dryar As Double
protek = sdkecost * slr * panjangan dryloss = GDP * (slr / kemiringan) * panjangan growth = toll * 0.05 * waktu * (slr / kemiringan) wetloss = toll * (slr / kemiringan) * ((wetar / 100) + mang) / panjangan total = protek - dryloss - wetloss + growth 'rugi = wetar * toll UserForm1.Label21.Caption = protek UserForm1.Label22.Caption = dryloss UserForm1.Label23.Caption = wetloss UserForm1.Label24.Caption = growth UserForm1.Label25.Caption = total UserForm1.Label34.Caption = rugi End Sub Sub nueco() Dim protek As Long Dim sdkecost As Double Dim GDP As Double Dim kemiringan As Double Dim panjangan As Double Dim perbandingan As Double Dim wetar As Long Dim dryar As Double Dim wetloss As Long Dim dryloss As Long Dim toll As Double Dim slr As Double
33
'Dim growth As Long 'Dim mang As Double 'Dim total As Long Dim waktu As Long Dim rugi As Double Dim penduduk As Long Dim tumbuh As Double Dim padat As Long
slr = UserForm1.TextBox1.Text 'sdkecost = UserForm1.TextBox2.Text GDP = UserForm1.TextBox3.Text 'kemiringan = UserForm1.TextBox5.Text 'perbandingan = UserForm1.TextBox4.Text panjangan = UserForm1.Label3.Caption wetar = UserForm1.Label4.Caption 'mang = UserForm1.TextBox6.Text waktu = UserForm1.TextBox7.Text perbandingan = UserForm1.Label4.Caption / UserForm1.Label31.Caption kemiringan = Tan(UserForm1.Label2.Caption) penduduk = UserForm1.TextBox8.Text tumbuh = UserForm1.TextBox9.Text / 100 padat = penduduk / UserForm1.Label31.Caption
ActiveChart.Location Where:=xlLocationAsNewSheet End Sub Sub MakeChart3d() Dim row As Integer Dim col As Integer Dim myRange As Range col = Range("b1") row = Range("b2") 'Set myRange = Application.InputBox _ '(Prompt:="Select chart inputs", Type:=8) Set myRange = Range("b7", Cells(6 + row, 1 + col)) ActiveChart.ChartType = xlSurface ActiveChart.SetSourceData Source:=myRange, _ PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet End Sub
toll = ((GDP / 20000) / (1 + (GDP / 20000)))
Sub posisi_pantai()
rugi = wetar * toll pengungsi = tumbuh * waktu * padat * wetar
Dim row As Integer Dim col As Integer Dim rcell As Range Dim kol As Integer Dim roh As Integer
UserForm1.Label34.Caption = rugi UserForm1.Label38.Caption = pengungsi End Sub Sub MakeChart2d() Dim row As Integer Dim col As Integer Dim myRange As Range col = Range("b1") row = Range("b2") 'Set myRange = Application.InputBox _ '(Prompt:="Select chart inputs", Type:=8) Set myRange = Range("b7", Cells(6 + row, 1 + col)) Charts.Add ActiveChart.ChartType = xlSurfaceTopView ActiveChart.SetSourceData Source:=myRange, _ PlotBy:=xlColumns
col = Range("b1").Value row = Range("b2").Value kol = col / 2 roh = row / 2 Range("b7", Cells(6 + row, 1 + col)).Select For Each rcell In Selection If Cells(7, 1 + kol) = -9999 Then UserForm1.Label33.Caption = "utara" ElseIf Cells(6 + roh, 2) = -9999 Then UserForm1.Label33.Caption = "barat" ElseIf Cells(6 + roh, 1 + row) = -9999 Then UserForm1.Label33.Caption = "timur" ElseIf Cells(6 + row, 1 + kol) = -9999 Then UserForm1.Label33.Caption = "selatan" End If Next End Sub
34
Sub jarak_aman() Dim row As Integer Dim col As Integer Dim rcell As Range Dim kolom As Integer Dim baris As Integer Dim ada As Integer Dim jarak As Integer col = Range("b1").Value row = Range("b2").Value
Dim laut As Boolean Dim kejadian As Long Dim ulang As Long Dim luas As Long Dim ngok As Long
col = Range("B1") row = Range("B2") slr = UserForm1.TextBox1.Text baris = 7 kolom = 2 ulang = 0 geser
Range("b7", Cells(6 + row, 1 + col)).Select 'Range("b7", Cells(6 + row, 1 + col)).Select For Each rcell In Selection 'If UserForm1.Label33.Caption = "utara" Then If rcell.Value = 0.01 Then ada = ada + 1 End If 'End If kolom = kolom + 1 If kolom = col + 2 Then If ada > 0 Then jarak = jarak + 1 End If baris = baris + 1 ada = 0 End If Next UserForm1.Label34.Caption = jarak End Sub
Sub jalan() UserForm1.Show End Sub Sub nu2() Dim rcell As Range Dim kolom As Integer Dim baris As Integer Dim col As Integer Dim row As Integer Dim slr As Double Dim air As Boolean Dim banjir As Boolean Dim darat As Boolean
periksa: For Each rcell In Selection If rcell.Value = -9999 Then rcell.Interior.ColorIndex = 8 laut = True Else If rcell.Value > slr Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 Else If rcell.Value <= slr Then If Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris + 1, kolom) = "" Or Cells(baris - 1, kolom) = "" Then If Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris, kolom - 1) = "" Or Cells(baris, kolom + 1) = "" Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 ElseIf Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris, kolom - 1) = -9998 Or Cells(baris, kolom + 1) = -9998 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) > slr And Cells(baris, kolom + 1) > slr Or Cells(baris, kolom - 1) = -9999 Or Cells(baris, kolom + 1) = -9999 Then rcell.Value = -9998
35
rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 'darat = True luas = luas + 1 End If ElseIf Cells(baris, kolom + 1) > slr And Cells(baris, kolom - 1) > slr Or Cells(baris, kolom - 1) = "" Or Cells(baris, kolom + 1) = "" Then If Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris 1, kolom) = "" Or Cells(baris + 1, kolom) = "" Then rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 ElseIf Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris - 1, kolom) = -9998 Or Cells(baris + 1, kolom) = -9998 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris - 1, kolom) > slr And Cells(baris + 1, kolom) > slr Or Cells(baris - 1, kolom) = -9999 Or Cells(baris + 1, kolom) = -9999 Then rcell.Value = -9998 rcell.Interior.ColorIndex = 5 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 'darat = True luas = luas + 1 End If ElseIf Cells(baris, kolom - 1) = -9999 Or Cells(baris, kolom + 1) = -9999 Or Cells(baris - 1, kolom) = -9999 Or Cells(baris + 1, kolom) = -9999 Then rcell.Interior.ColorIndex = 5 rcell.Value = -9998 banjir = True kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) = -9998 Or Cells(baris, kolom + 1) = -9998 Or Cells(baris - 1, kolom) = -9998 Or Cells(baris + 1, kolom) = -9998 Then rcell.Interior.ColorIndex = 5 rcell.Value = -9998
banjir = True kejadian = kejadian + 1 luas = luas + 1 ElseIf Cells(baris, kolom - 1) < slr Or Cells(baris, kolom + 1) < slr Or Cells(baris 1, kolom) < slr Or Cells(baris + 1, kolom) < slr Then If Cells(baris - 1, kolom) = banjir Then rcell.Interior.ColorIndex = 5 banjir = True rcell.Value = -9998 kejadian = kejadian + 1 luas = luas + 1 Else rcell.Interior.ColorIndex = 4 darat = True luas = luas + 1 End If
Else: rcell.Interior.ColorIndex = 4 luas = luas + 1 End If End If End If End If kolom = kolom + 1 If kolom = col + 2 Then kolom = 2 baris = baris + 1 End If UserForm1.Label28.Caption = kejadian * (0.03 * 0.03) UserForm1.Label32.Caption = luas * (0.03 * 0.03) ngok = kejadian - ulang Next End Sub Userform1
Private Sub CommandButton1_Click()
36
If TextBox1.Text = "" Then MsgBox "Input Data Dulu" Else Application.StatusBar = "Geser Peta 1 cell ke kanan" KeMAL.geser Application.StatusBar = "Menghitung panjang garis pantai dan kemiringan" KeMAL.panjang Application.StatusBar = "Menghitung wilayah genangan" KeMAL.nuslr Do nuslr nu2 Loop Until Label28.Caption
Label4.Caption
=
Application.StatusBar = "Menghitung panjang garis pantai setelah SLR" KeMAL.panjang_after Application.StatusBar = "Selesai" MsgBox "Selesai Bung!" 'Label31.Caption = Label28.Caption Label32.Caption
For Each work_sheet In ThisWorkbook.Worksheets If work_sheet.Name = WorkSheet_Name Then sheet_exists = True End If Next End Function Private Sub CommandButton3_Click() If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then MsgBox "input data yang di depan dulu" Else Application.StatusBar = "Menghitung Kerugian Ekonomi" KeMAL.economic Application.StatusBar = "Selesai" MsgBox "Beres Pak! Silahkan lihat hasil di tab berikutnya." End If End Sub
/
End If End Sub
Private Sub CommandButton2_Click() If TextBox1.Text = "" Then MsgBox "di run dulu bos" Else KeMAL.ascmap End If End Sub Private Sub Workbook_Open() Dim nama_baru As String nama_baru = Format(Now(), "dd-mm-yy") If sheet_exists(nama_baru) = False Then With Workbook Worksheets.Add().Name = nama_baru End With End If 'Save End Sub Function sheet_exists(WorkSheet_Name As String) As Boolean Dim work_sheet As Worksheet sheet_exists = False
Private Sub CommandButton4_Click() If Label34.Caption = "L" Then MsgBox "data belom diolah bos" Else Application.StatusBar = "Mencetak" Workbook_Open Cells(1, 1) = "Kenaikan Muka Air Laut (m)" Cells(2, 1) = "Panjang Garis Pantai (Km)" Cells(3, 1) = "Kemiringan Pantai (%)" Cells(4, 1) = "Luas Wilayah Genangan (Km2)" Cells(5, 1) = "Panjang Garis Pantai Setelah Kenaikan Muka Laut (Km)" Cells(6, 1) = "kerugian Total(US$)" Cells(7, 1) = "Pengungsi (jiwa)" 'Cells(8, 1) = "Biaya Kehilangan Lahan Basah (US$)" 'Cells(9, 1) = "Growth (US$)" 'Cells(10, 1) = "Biaya Total (US$)" 'hasil Cells(1, 3) = TextBox1.Text Cells(2, 3) = Label3.Caption Cells(3, 3) = Label2.Caption * 100 Cells(4, 3) = Label4.Caption Cells(5, 3) = Label1.Caption Cells(6, 3) = Label34.Caption Cells(7, 3) = Label38.Caption 'cells(8, 3) = Label23.Caption 'Cells(9, 3) = Label24.Caption
37
'Cells(10, 3) = Label25.Caption End If Application.StatusBar = "Selesai" End Sub
Private Sub CommandButton5_Click() If TextBox1.Text = "" Then MsgBox "di run dulu bos" 'ElseIf ActiveChart.Activate = True Then 'End Else KeMAL.MakeChart2d End If End Sub Private Sub CommandButton6_Click() If TextBox1.Text = "" Then MsgBox "di run dulu bos" 'ElseIf ActiveChart.Activate = True Then 'End Else KeMAL.MakeChart3d
If TextBox7.Text = "" Or TextBox3.Text = "" Or TextBox9.Text = "" Or TextBox8.Text = "" Then MsgBox "input data dulu lah" Else Application.StatusBar = "Menghitung Kerugian Ekonomi" KeMAL.nueco Application.StatusBar = "Selesai" MsgBox "Beres Pak! Silahkan lihat hasil di tab berikutnya." End If End Sub Worksheet Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCel l) _ .MenuItems.AddMenu("KeMAL", 1) With MyMenu.MenuItems .Add "Jalankan KeMAL", "jalan", , 1, , "" .Add "Cetak Peta ", "ascmap", , 2, , "" End With
End If End Sub
Set MyMenu = Nothing
Private Sub CommandButton7_Click()
End Sub
