Author: cadex

[DOC-VBA-01]: Aplikasi Fungsi Terbilang Di Microsoft Word

Referensi	:	https://support.microsoft.com/en-us/kb/213360
Lokasi File	:
Platform	:	Microsoft Word

Tulisan kali ini tidak ada hubungannya dengan peta, geodesy, project management, autocad ataupun civil 3D tetapi berhubungan dengan tugas baru saya sebagai tukang ketik dan tukang catat dokumen kontrak.

Sebagai tukang ketik dan tukang catat, salah satu pekerjaan yang sering berulang adalah menuliskan angka terbilang nilai kontrak dari angka ke tulisan ( konversi angka ke huruf) menggunakan Bahasa Ingris dengan software Microsoft Word.

Sebelumnya saya menggunakan formula di [XLS-PMG-04]: Spell Number in Excel Without Macro (No VBA) untuk proses konversi ini dalam Microsoft Excel. Tetapi karena dokumen kontrak ditulis dalam Microsoft Word, saya menggunakan fasilitas Visual Basic Application for Microsoft Word (VBA for MS Word) untuk melakukan proses otomasi ini.

VBA for MS Word yang saya tulis di bawah ini adalah modifikasi code vba dari https://support.microsoft.com/en-us/kb/213360 dengan beberapa perubahan kecil antara lain:

1. Merubah vba code yang semula berupa user defined function di excel, menjadi vba code untuk digunakan di Microsoft Word.

2. Menghilangkan kata dollar dan cent. Kontrak yang saya ketik dalam mata uang rupiah dimana tidak ada satuan cents.

3. Hanya bekerja di angka bulat tanpa ada desimal.

4. Menambahkan karakter dash (“-“) di angka 20-99.

Detail vba-code ada di bawah ini:

Sub Spell2Number()
‘source: https://support.microsoft.com/en-us/kb/213360
‘modified by: zainul_ulum@cbn.net.id (znl)
‘date: 15 Mei 2016
‘modification notes:
‘1. to be applied on microsoft word
‘2. delete words: dollar dan cent
‘3. works only for integer number and no decimals
‘4. add dash character If number value between 20-99…
‘tanggal 15 Mei 2016
‘required procedures and functions:
‘1. SpellNumber
‘2. GetHundreds
‘3. GetTens
‘4. GetDigit

    Selection.Text = SpellNumber(Selection.Text)
End Sub
Private Function SpellNumber(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ‘ String representation of amount.
    MyNumber = Trim(Str(MyNumber))
    ‘ Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ‘ Convert cents and set MyNumber to dollar amount.
    If DecimalPlace > 0 Then
        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))
    End If
    Count = 1
    Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 3))
        If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) – 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Dollars
        Case ""
            ‘Dollars = "No Dollars"
            Dollars = "" ‘>>znl
        Case "One"
            ‘Dollars = "One Dollar"
            Dollars = "One" ‘>>znl
         Case Else
            ‘Dollars = Dollars & " Dollars"
            Dollars = Dollars & " " ‘>>znl
    End Select
    Select Case Cents
        Case ""
            Cents = " and No Cents"
        Case "One"
            Cents = " and One Cent"
              Case Else
            Cents = " and " & Cents & " Cents"
    End Select
    Cents = "" ‘>>znl
    SpellNumber = Dollars & Cents
End Function

‘ Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ‘ Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ‘ Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

‘ Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ‘ Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ‘ If value between 10-19…
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
    Else                                 ‘ If value between 20-99…
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty-"
            Case 3: Result = "Thirty-"
            Case 4: Result = "Forty-"
            Case 5: Result = "Fifty-"
            Case 6: Result = "Sixty-"
            Case 7: Result = "Seventy-"
            Case 8: Result = "Eighty-"
            Case 9: Result = "Ninety-"
            Case Else
        End Select
        Result = Result & GetDigit _
            (Right(TensText, 1)) ‘ Retrieve ones place.

        ‘znl remove dash character if GetDigit=""
        If GetDigit(Right(TensText, 1)) = "" Then
            Result = Left(Result, Len(Result) – 1)
        End If

    End If
    GetTens = Result
End Function

‘ Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function

Cara menggunakan code di atas:

Copy code di atas atau download dari Link ini.
Jalankan program Microsoft Word (MS Word).
Pada Blank Document di MS Word, aktifkan Microsoft Visual Basic for Applications dengan menekan tombol Alt+F11.
“Click Kanan” [ThisDocument] di bawah [Microsot Word Objects] dalam folder [Normal], kemudian pilih [Insert]>>[Module]

5. “Paste” code di [Module] yang telah dibuat, kemudian “Click” tombol [Save]. Program telah tersimpan dalam normal template sehingga setiap kali word dijalankan, program konversi huruf siap digunakan.

6. Tutup [Microsoft Visual Basic for Applications], sehingga kembali ke Blank Document.

7. Pada Blank Document, tuliskan angka yang akan dikonversi. Misal 126752346

8. Tulisan angka sebaiknya berupa angka bulan tanpa ada simbol pemisah ribuan.

9. “Select” atau “Block” angak tadi (126752346)

10. Jalankan VBA (Macro) dengan menekan tombol Alt+F8

11. “Pilih” Macro [Spell2Number], kemudian “click” tombol [Run]

12. Angka sudah dikonversi dalam huruf dalam Bahasa Inggris.

Tahapan di bawah adalah contoh penggunaannya dalam pekerjaan saya:

1. File Normal Template sudah terdapat macro (vba) konversi.

2. Membuka file draft kontak dengan Microsoft Word kemudian menge-block angka yang akan dikonversi.

3. Menekan tombol Alt+F8 kemudian menjalankan macro [Spell2Number]

4. Hasil konversi angkan ke huruf:

Silakan mencoba.

“Jadilah tukang ketik yang kerja cerdas, bukan kerja keras”

[XLS-MAP-11]: Plotting Poligon dalam Koordinat TM3 ke Google Earth dengan Microsoft Excel

Referensi	:	[XLS-MAP-10]: Plotting Koordinat UTM Ke Google Earth Dengan Microsoft Excel
Lokasi File	:
Platform	:	Microsoft Excel dan Google Earth

Pada posting sebelumnya telah diuraikan bagaimana cara memplot titik koordinat UTM ke Google Earth dengan menggunakan microsoft excel. Kali ini akan diuraikan bagaimana cara memplot jika koordinat tersebut dalam sistem proyeksi TM 3. Keterangan tentang sistem proyeksi TM3, silakan click link [CAD-MAP-05]: Proyeksi Koordinat Ke TM3 Di AutoCAD MAP atau [XLS-MAP-08]:14 Langkah Membuat Rumus Nomer Lembar TM3 Di Excel.

Misalkan list urutan poligon yang akan diplot adalah:

Berdasarkan pendekatan di google earth atau berdasarkan peta, lokasi koordinat geografis (koordinat lintang, bujur) tersebut terletak sekitar di 110derajat Bujur Timur dan 6derajat Lintang Selatan.

Silakan download file terlebih dahulu untuk mengikuti tahapan di bawah. Jika file suah terdownload dan file sudah dibuka:

Pada sheet [list] masukkan koordinat di atas. Delete baris di bawahnya jika sebelumnya ada list koordinatnya
Pindah ke sheet [Parameter], kemudian masukkan parameter untuk proyeksi TM3 sebagai berikut:

Pilih [Ellipsoid Reference]: WGS 84 dan [Map Projection] : TM3
Isikan [Longitude] atau bujur pendekatan 110
Isikan [Latitude] atau lintang pendekatan –6. Jika lintang pendekatan ada di lintang utara, maka masukkan tanpa tanda negatif.
pindah ke sheet [Grid2Geo] untuk melihat hasil perhitungan koordinat TM3 ke Geografis (Lintang,Bujur).
pindah ke sheet [point(xml)], kemudian hapus baris yang bertanda error #REF!
pindah ke sheet [polygon(xml)],kemudian hapus baris yang bertanda error #REF!
Apabila list koordindat lebih dari 4 titik, maka dapat dilakukan insert rows sesuai dengan jumlah titik. Sedangkan rumus pembentukan xml dapat dicopy dari rumus baris di atasnya
khusus untuk poligon, masukkan lagi koordinat terakhir=koordinat pertama
Pada sheet [point(xml)], `copy` range [G3:G10], kemudian `paste` ke notepad lalu simpan sebagai file kml. Misal nama filenya titik.kml
Pada sheet [polygon(xml)], `copy` range [E3:E17], kemudian `paste` ke notepad lalu simpan sebagai kml. Misal nama filenya : poligon.kml
Jalankan Google Earth
Pada menu [File], pilih [Open]
Pilih file [titik.kml] untuk menampilkan lokasi titik TM3.
Kemudian [Open] lagi file [poligon.kml] untuk menampilkan garis poligonnya
Setting properties polygon sesuai selera. Untuk contoh ini saya setting properties poligon di Google Earth:

Pilih tab [Measurement], maka didapat hitungan luas dan panjang kelilingnya

Hasil di google earth:

+selamat mencoba

[XLS-MAP-10]: Plotting Koordinat UTM ke Google Earth dengan Microsoft Excel

Referensi

[XLS-MAP-01]: Rumus Excel untuk Mencari Zone UTM dan TM3

[XLS-MAP-09]:Speadsheet Proyeksi Traverse Mercator di Excel (Versi #2)

Platform

Microsoft Excel, Google Earth

Lokasi File

Posting kali ini akan diuraikan cara mengeplot koordinat UTM ke dalam program google earth melalui file kml menggunakan program Microsoft Excel.

Program Microsoft Excel digunakan untuk merubah file koordinat UTM ke koordinat Lintang, Bujur kemudian berdasarkan koordinat Lintang, Bujur tersebut dibuatkan file KML yang dapat dibuka dengan program Google Earth.

Sebagai panduan langkah-langkah di bawah, silakan download file terlebih dahulu.

Contoh list koordinat UTM yang akan diplot:

Berikut adalah tahapan-tahapan yang saya lakukan:

1. Konversi Koordinat UTM ke Koordinat Geografis (Lintang, Bujur).

Rumus untuk merubah koordinat UTM ke Koordinat Geografis, menggunakan rumus yang telah diuraikan dalam [XLS-MAP-09]:Speadsheet Proyeksi Traverse Mercator di Excel (Versi #2).

Konversi atau proyeksi UTM ke Koordinat Geografis dengan asumsi menggunakan Ellipsoid Reference WGS 84, maka pada sheet [Parameters] dilakukan setting sebagai berikut:

[C2]	Pilih WGS 84	Parameter a dan 1/f akan otomatis terisi
[C6]	Pilih UTM	Parameter proyeksi UTM akan terisi sendiri
[C14]		Masukkan koordinat Bujur pendekatan
[C15]		Masukkan koordinat Lintang pendekatan. Masukkan nilai negatif jika terletak di lintang selatan (South)

Setelah dilakukan setting parameter proyeksi, pindah ke sheet [Grid2Geo] untuk selanjutnya dilakukan proses proyeksi/konversi koordinat:

[A:C]		Masukkan koordinat UTM dengan urutan Nama Titik, East (X), North(Y)

[D8]	=lat	menghitung nilai Koordinat Lintang dalam satuan desimal
[E8]	=lg	menghitung Koordinat Bujur dalam satuan desimal
[F8]	=gConv	menghitung konvergensi grid dalam satuan desimal
[G8]	=pntScale	menghitung faktor skala titik

		copy rumus di [D8:G8] ke bawah sampai ke titik terakhir yang akan dihitung

2. Setting XML untuk plotting koordinat dalam bentuk titik.

Pindah ke sheet [point(xml)] untuk membuat file kml dam bentuk titik.

KML generator di atas akan membuat kumpulan titik dalam folder yang didefinisikan dalam cell [C4], nama titik dan koordinatnya dimulai dari cell [C6] dan cells [E6] sampai titik yang diinginkan. Cells yang berwarna kuning adalah cells yang berisi rumus atau formula dengan menggunakan referensi [Grid2Geo].

Rumus yang disgunakan dalam worksheet [point(xml)]:

[C4]		Masukkan nama group atau folder titik
[C6]	=Grid2Geo!A8	mengambil point desc dari sheet [Grid2Geo] sebagai nama placemark
[E6]	=TEXT(Grid2Geo!E8,"0."&REPT("0","14"))&","&TEXT(Grid2Geo!D8,"0."&REPT("0","14"))&","&TEXT(list!D2,"0.00")	memformat koordinat Bujur, Lintang dari sheet [Grid2Geo] dalam unit desimal dengan format 14 digit desimal
[G6]	=B6&C6&D6&E6&F6	Menggabungkan text di kolom B, c d e dan F

		copy rumus di [A6:G6] sampai ke titik terakhir di sheet [Grid2Geo]
[G19]	</Folder>	jangan lupa akhiri dengan text </Folder>

3. Membukan file KML di Google Earth.

[G3:G19]

Block range [G3:G19]>> kemudian click kanan>>Copy

Jalankan program note pad, kemudian paste hasil copy dari excel

Kemudian simpan notepad dengan extensi kml. Misal disimpan dengan nama [titik.kml]

Jalankan program Google Earth kemudian bukan file [titik.kml]

Untuk kumpulan titik yang berbentuk polygon tertutuo silakan dicoba template di sheet [polygon(xml)].

===terimakasih telah berkunjung di blog saya===

Aplikasi Microsoft Excel untuk Menghitung Konstanta Pasang Surut dengan Metode Hitung Kwadrat Terkecil

Tulisan ini merupakan lanjutan dari tulisan sebelumnya di http://cadex.co yaitu [XLS-SVY-22] dengan masih menggunakan dasar teori https://cadex.co/2015/01/26/xls-svy-22-rumus-excel-untuk-menghitung-konstanta-pasut-amplitudo-dan-phase-dengan-metode-hitung-kuadrat-terkecil/.

Perbedaan dengan tulisan sebelumnya adalah:

Data pengukuran water level (tinggi muka air) adalah tiap jam selama 29 hari
Penggunakaan fungsi OFFSET() diganti dengan fungsi INDEX() untuk mempercepat proses perhitungan karena fungsi OFFSET() adalah termasuk dalam category Volatile Function dalam Microsoft Excel

Berikut adalah tahapan pengolahan data pengukuran tinggi water level untuk menghitung 9 Konstanta Pasan Surut (Pasut):

Input Data Pengukuran

Data dimasukkan dalam sheet [input]

[A3]	=”D-“&ROWS($B$3:B3)	Membuat kode urut D-1 yang merupakan kode pengamatan hari pertama.
		Copy rumus [A3] sampai ke kode D-29 atau pengamatan hari terakhir
[B3]		Masukkan tanggal awal pengamatan
[B4]	=B3+1	Tanggal hari berikutnya, yaitu tanggal pertama [B3] ditambah 1 (hari)
		Copy rumus di [B4] ke bawah sampai hari terakhir pengamatan
		Format cells [B4:B31] : Date
[C2]	=TIME(0,0,0)	Jam pengamatan dimulai di 00:00
[D2]	=C2+TIME(1,0,0)	Pengamatan 1 (satu) jam berikutnya
		Copy rumus [D2] ke kanan sampai pada jam 23:00
		Format cells [D2:Z2] : Time
[C3:Z31]		Masukkan tinggi muka air sesuai dengan tanggal di kolom B dan jam di baris 2 dengan satuan meter

Buat Named Range dengan ketentuan sebagai berikut

Name	Data
Refer to	=$C$3:INDEX($Z$3:$Z$3000,COUNT($Z$3:$Z$3000))

Cara membuat Named Range, silakan click [XLS-PMG-02]: Rumus Terbilang Di Excel (Tanpa Macro/VBA)

Proses Hitungan Kuadrat Terkecil (Least Square)

Misal proses hitungan Least Square (Hitung Kuadrat Terkecil) yang terdiri dari proses pembentukan [Matrix L], [Matrix A], [Matrix X] dan [[Matrix V] ada di sheet [Calc-9], maka urutan perhitungannya adalah sebagai berikut:

Matrix Observasi [Matrix L]

Data yang telah diisikan di sheet [input] kemudian dirubah menjadi data matrix observasi (Matrix L).

[B1]	=COUNT($A$4:$A$40000)	menghitung jumlah data pengamatan berdasarkan isian jam di kolom [A4:A40000].pada contoh kali ini, maksimal data jam diisikan sampai A40000.
[B2]	=2*9+1	banyaknya parameter yang akan dicari yaitu A1–A9 (9 parameter), B1–B9 (9 parameter) dan Z0 (1 parameter). Total parameter=19
[A4]	=IF(MOD(ROWS($B$4:B4),24)=0,24,MOD(ROWS($B$4:B4),24))	membuat array atau deret 1 – 24 di kolom A yaitu nomer urut jam pengamatan
		copy rumus [A4] ke [A5]
[B4]	=1
[B5]	=B4+(A5=1)	membuat array nomer urut hari pengamatan
		copy rumus [A5:B5] ke bawah sampai [A699:B699] atau sampai ke hari pengamatan terakhir
[C1]	=input!$B$3	tanggal pertama pengamatan
[D4]	=ROWS($E$4:E4)	membuat nomer urut
[E4]	=$C$1+$B4-1+TIME($A4-1,0,0)	membuat urutan tanggal dan jam pengamatanset format cell atau format number di [E4] menjadi “d-mmm-yy h:mm;@”
[F4]	=INDEX(Data,B4,A4)	Mengambil data pengamatan pada hari ke 1 jam ke 1
		Copy [D4:F4] ke bawah sampai ke [D699:F699]

Buat Named Range dengan ketentuan sebagai berikut

Name	MatrixL
Refer to	=$F$4:INDEX($F$4:$F$39970,$B$1)

Membuat Matrix Koefisien (Matrix A)

Untuk menghitung Matrix Koefisien (Matrix A) dibutuhkan informasi kecepatan sudut untuk masing-masing konstanta pasut seperti dalam table di bawah:

Berdasarkan table di atas dan dasar teori perhitungan pasut di https://cadex.co/2015/01/26/xls-svy-22-rumus-excel-untuk-menghitung-konstanta-pasut-amplitudo-dan-phase-dengan-metode-hitung-kuadrat-terkecil/, maka spreadsheet untuk menghitung Matrix A adala

[I1]	=1	Atur format number “w 0”
[J1]	=MOD(COLUMNS(H$1:$I1),2)+I1	Copy rumus [J1] ke kanan sampai [Z1] untuk membuat deret 1,1,2,2,3,3,……..,9,9
[I2]	=INDEX($AO$5:$AO$13,I$1)	Mengambil nilai kecepatan sudut dari range [AO5:AO13]
[H3]	Z0	Parameter muka air rata-rata
[I3:Z3]		Isian parameter A1—A9, B1—B9
[H1:H699]	1	Masukkan angka 1 di kolom [H1:H699]
[I4]	=IF(LEFT(I$3,1)=”A”,COS(I$2$D4),-SIN(I$2$D4))	Copy rumus[I4] ke [I4:Z699]

Name	MatrixA
Refer to	=$H$4:INDEX($Z$4:$Z$39970,$B$1)

Menghitung Matrix Parameter (Matrix X), Matrix Koreksi (Matrix V) dan Matrix Ukuran Terkoreksi (Matrix La)

[AD4]	=INDEX(MMULT(MMULT(MINVERSE(MMULT(TRANSPOSE(MatrixA),MatrixA)),TRANSPOSE(MatrixA)),MatrixL),AB4)
	Rumus di atas adalah rumus array atau array formula. Saat menggunakan rumus array, setelah menuliskan rumus di atas akhir dengan combinasi CTRL+SHIFT+ENTER
	Copy rumus [AD4] ke bawah sampai [AD22]
[AF4]	=MMULT(H4:Z4,$AD$4:$AD$22)-$F4
[AG4]	=F4+AF4
	Copy rumus [AF4:AG4] ke bawah sampai [AF699:AG699]

Menghitung Konstanta Pasut

[AP5]	=VLOOKUP(AP$3&$AI5,$AC$5:$AD$22,2,0)	Mengambil nilai parameter A1
		Copy rumus [AP5] ke range [AP5: AQ13] untuk mengambil nilai parameter yang lain
[AR4]	=AD4	Mengambil nilai parameter Z0
[AR5]	=SQRT(AP5^2+AQ5^2)	Menghitung amplitude
[AS5]	=MOD(DEGREES(ATAN2(AP5,AQ5)),360)	Menghitung sudut phase
[AT5]	=RADIANS(AS5)	Merubah unit sudut dari derajat ke radians
		Copy rumus [AR5:AT5] ke bawah sampai [AR13:AT13]

download contoh file

[XLS-SVY-22]: Rumus Excel untuk Menghitung Konstanta Pasut (Amplitudo Dan Phase) Dengan Metode Hitung Kuadrat Terkecil (lanjutan)

Referensi	:	[XLS-SVY-01]: Prediksi Pasut Dengan VBA Excel
Plaform	:	Microsoft Excel
Lokasi File	:

Uraian di bawah adalah lanjutan dari posting sebelumnya

A. Input Data Pengamatan

Data pengamatan dimasukkan dengan format table seperti di atas dengan terlebih dahulu memasukkan tanggal pengamatan pertama di cell [C6]. Data pengamatan muka air tiap jam pada tanggal yang sama dimasukan sesuai mulai dari kolom [D:AA].

B. Konstanta Astronomis untuk 9 Konstituent

Cell	Rumus	Keterangan
[E27]	=360/D27	Merubah periode menjadi kecepatan satuan derajat/jam
		Copy rumus di [E27] ke bawah untuk menghitung kecepatan sudut tiap konstituen
[F27]	=RADIANS(E27)	Merubah kecepatan sudut dalam satuan radian/jam
		Copy rumus [F27] ke bawah untuk menghitung kecepatan sudut di tiap konstituen

C. Membuat Persamaan Observasi dan Menghitung dengan Hitung Kuadrat Terkecil

C.1. Matrix Observasi [L]

Cell	Rumus	Keterangan
[E74]	=COUNT(B6:B20)	Menghitung lama pengamatan dalam satuan hari
[E75]	=E74*24	Menghitung banyaknya pengamatan atau observasi
[AC6]	=IF(COUNT($AD$6:AD6)<=$E$75,COUNT($AD$6:AD6),NA())	Urutan pengamatan atau urutan persamaan observasi.
		Copy rumus [AC6] sampai ke [AC365]
[AD6]	=1	Masukkan angka 1 untuk hari pertama
[AD7]	=AD6+($AE7=1)	Jika periode jam di cell [AE7]=1, maka masuk ke hari berikutnya
		Copy rumus [AD7] sampai ke [AD365]
[AE6]	=IF(MOD(ROWS($AD$6:AD6),24)=0,24,MOD(ROWS($AD$6:AD6),24))	Membuat urutan atau deret periode jam dari jam ke-1 sampai ke-24
		Copy rumus [AE6] sampai ke [AE365]
[AF6]	=OFFSET($C$5,$AD6,)+OFFSET($C$5,,$AE6)	Mengambil tanggal dan jam pengamatan
		Copy rumus [AF6] sampai ke [AF365]
[AG6]	=OFFSET($C$5,$AD6,$AE6)	Mengambil nilai muka air sesuai dengan tanggal dan jam pengamatan
		Copy rumus [AG6] sampai ke [AG365]

C.2. Matrix Koefisien [A]

Cell	Rumus	Keterangan
[AI1]	=MOD(COLUMNS($AI$2:AI2),2)	Membuat deret angka 1,1,2,2,3,3,4,4,…..,9,9
		Copy rumus [AI1] sampai ke [AZ1]
[AI2]	=OFFSET($F$26,AI1,)	Mengambil kecepatan sudut untuk masing-masing konstituen
		Copy rumus [AI2] sampai ke [AZ2]
[AH6]	=1	δht1/δZo
		Copy rumus [AH6] sampai ke [AH365]
[AI6]	=IF(LEFT(AI$5,1)="A",COS(AI$2$AC6),-SIN(AI$2$AC6))	Jika huruf pertama di cells [AI5]=A, maka dihitung δht1/δA1, jika B maka δht1/δB1
		Copy rumus [AI6] sampai ke [AI6:AZ365]untuk menghitung nilai derivative untuk setaip persamaan observasi

Buat Named Range dengan properties sebagai berikut:

C.3. Menghitung Parameter

Cell	Rumus	Keterangan
[BD6]	=MMULT(MMULT(MINVERSE(MMULT(TRANSPOSE(MatrixA),MatrixA)) ,TRANSPOSE(MatrixA)),MatrixL)	Menghitung Parameter
		Untuk mengcopy rumus di [BD6}, lakukan langkah berikut: · Block atau pilih range [BD6:BD24], kemudian tekan tombol F2 · Kemudian tekan bersamaan CTRL+SHIFT+ENTER
[BF6]	=INDEX(MMULT(MatrixA,$BD$6:$BD$24),AC6)-AG6	Menghitung koreksi ukuran
		Copy rumus di [BF6] sampai [BF365]
[BG6]	=BF6+AG6	Tinggi muka air terkoreksi

D. Menghitung Amplitudo dan Phase

Cell	Rumus	Keterangan
[D81]	=BD6	Tinggi muka air rata-rata
[E82]	=VLOOKUP(E$80&$B82,$BC$6:$BD$24,2,0)	Mengambil parameter A1
		Copy rumus [E82] ke range [E82:F90]
[G81]	=D81
[G82]	=SQRT(E82^2+F82^2)	Menghitung amplitude
		Copy rumus [G82] sampai [G90]
[H82]	=MOD(DEGREES(ATAN2(E82,F82)),360)	Menghitung sudut phase dalam satuan derajat/jam
[I82]	=RADIANS(H82)	Menghitung sudut phase dalam satuan radian/jam

Dengan acuan hitungan di atas, maka untuk pengamatan 30 hari atau lebih bisa dikembangkan lebih lanjut. Demikian juga jika diperlukan untuk perhitungan konstanta pasut yang lebih atau kurang dari 9 konstituent.

Silakan download file di sini untuk dipelajari lebih lanjut.

==semoga bermanfaat==

[XLS-SVY-22]: Rumus Excel untuk Menghitung Konstanta Pasut (Amplitudo Dan Phase) Dengan Metode Hitung Kuadrat Terkecil

Referensi	:	[XLS-SVY-01]: Prediksi Pasut Dengan VBA Excel
Plaform	:	Microsoft Excel
Lokasi File	:

Pada posting [XLS-SVY-01]: Prediksi Pasut Dengan VBA Excel hitungan kontanta pasut yang terdiri dari Amplitudo dan Phase dengan metode hitung kuadrat terkecil menggunakan VBA Excel atau macro. Sedangkan pada posting kali ini akan diuraikan proses hitungan yang sama tetapi hanya dengan menggunakan rumus/fungsi Microsoft Excel tanpa menggunakan VBA Excel.

Mengacu ke rumus pengembangan rumus Tidal Harmonic Analysis di bawah :

Mengacu ke Rumus-5, jika akan mencari 9 nilai Konstanta Pasut, maka nilai yang akan dicari (parameter) ada 19 parameter yaitu nilai Z0, A1, A2, …… , A9 dan B1, B2, B3, …., B9. Selanjutnya nilai masing-masing Amplitudo dan Phase dihitung dengan Rumus-6 dan Rumus-7.

Nilai ω1, ω2, ω3, ….., ω9 adalah suatu konstanta kecepatan sudut untuk masing-masing constituent yang didapat dari 5 (lima) dasar kecepatan astronomi (5 (Five) Basics astronomical speeds). Silakan baca di link berikut untuk rumus mendapatkan nilai ω1, ω2, ω3, ….., ω9 dari Five basic astronomical speeds.

Persamaan observasi untuk pengamatan muka air tiap jam selama 15 hari akan didapatkan (15 hari x 24 jam /hari )=360 jam atau 360 persamaan dengan uraian sebagai berikut:

Dengan menggunakan prinsip least square (hitung kuadrat terkecil), persamaan observasi di atas kemudian dibentuk dalam format matrix:

[L]+[V]=[A].[X]

[L] : matrix data ukuran (observasi), [V]: matrix koreksi, [A]: matrix koeffisien dan [X]: matrix parameter dihitung dengan rumus sebagai berikut:

Matrix [A] dihitung dengan men-derivatifkan atau “menurunkan” tiap persamaan observasi terhadap Z0, A1, A2, …… , A9 dan B1, B2, B3, …., B9 atau terhadap parameter yang dicari

Klik di sini untuk penerapan rumus excelnya

[CAD-MAP-15]: Import Kontur dari SHP File dengan AutoCAD MAP

Referensi	:
Platform	:	AutoCAD Map atau Civil 3D
Lokasi File	:

Saya akan berbagi pengalaman tentang proses import file .shp ke AutoCAD dengan menggunakan program AutoCAD MAP.

File SHP atau kadang disebut juga sebagai ESRI SHP file adalah file berbasis GIS (Geographical Information System) yang biasa digunakan dalam program GIS buatan ESRI seperti ArcView maupun ArcGIS. Seiring dengan perkembangan software GIS saat ini, file SHP sudah bisa dibaca atau diimport dengan software selain software dari ESRI salah satunya adalah program AutoCAD MAP.

Salah satu ciri utama dari file berbasis GIS adalah adanya hubungan antara object grafis (data spasial) dengan object table atau (data attribute) selain ciri lainnya yaitu terdapat file proyeksi koordinat atau sistem koordinat.

Program yang aku gunakan saat menyusun tutorial ini adalah Autodesk Civil 3D 2011, jadi tampilan pada tutorial ini adalah mengacu ke Civil 3D 2011. Jika Anda menggunakan program Civil 3D yang lain atau AutoCAD MAP silakan disesuaikan langkah langkah yang aku tulis dibawah:

A. Mengecek data spatial dan attribute dengan [Connect Feature Source] dan [Display Manager]

Jalankan program AutoCAD MAP atau Civil 3D. Pilih satuan [metric]
Jika menggunakan Civil 3D, click icon [workspace switching] ganti [workspace] ke [Tool based – Geospatial]
Pada group ribbon [Data], click icon
Pada [Data Connection by Provider] pilih [Add SHP Connection]
Masukkan nama connection dan pilih lokasi folder SHP, kemudian click [Connect]
Sesuai dengan informasi di atas, nama file SHP adalah KonturDarat dengan sistem koordinat UTM84 Zone 50N
Click [Add to Map], untuk menampilkan file SHP di AutoCAD MAP
Tampilkan [AutoCAD MAP Task Pane]
Ketik di Command:mapwspace
Kemudian pilih [On]
Pada [AutoCAD MAP Task Pane] pilih tab [Display Manager]
Pilih grup [KonturDarat] , kemudian click icon [Table] untuk menampilkan data attributenya.
Tampilan hubungan data grafis dengan attributenya :
Pada AutoCAD MAP, [Display Manager] digunakan untuk membuat peta atau [View Map]dari beberapa data source dan querynya lengkap dengan symbol garis, titik, polygon dan label. Contoh tampilan peta kontur setelah diatur warna garis kontur sesuai dengan elevasinya. Note: Cara mengatur symbol dalam [Display Manager] tidak dibahas dalam webpage ini.
Object yang ditampilkan dalam [Display Manager] bukan merupakan object AutoCAD. Agar menjadi object AutoCAD, maka [View Map] harus dieksport ke AutoCAD atau di [Save As] DWG.
Pada contoh file kontur SHP di atas, setelah proses save as ke DWG atau [Save Current Map to DWG], garis kontur menjadi object LWPOLYLINE yang dikelompokkan dalam satu layer. Contoh tampilan object LWPOLYLINE setelah di list:
Hasil list di atas, nilai elevasi =0.000 atau Z=0.000. Apabila diinginkan LWPOLYLINE mempunyai elevasi sesuai dengan nilai CONTOUR, maka penggunaan fasilitas [Save Current Map to DWG] menjadi tidak sesuai. Pada langkah berikutnya dijelaskan cara membuat LWPOLYLINE dengnan nilai elevasi sesuai dengan nilai CONTOUR dan dipisakan dalam layer yang berbeda sesuai dengan elevasinya.
B. Import data grafis dan attribut file SHP

Langkah A digunakan untuk mengecek data gafis dan data attribute file SHP. Berdasarkan pengecekan file SHP di atas, data grafis sudah benar berupa object kontur dengan nilai elevasi yang diambil dari data attribute kolom CONTOUR.
Tutup file autocad hasil langkah A
Buat file baru lagi dengan satuan metric.
Pada menu [Insert] pada group [Import], pilih [Map Import] , kemudian pilih file SHP
Click tulisan <none> di bawah kolom [Data], kemudian pilih [Create Object data]
Click [Select Fields]
Pilih hanya field [CONTOUR] , kemudian [OK] sampai kotak dialog [Map Import] tertutup dan proses import dimulai.
Lakukan cek object data setelah proses import selesai. Ketik pada command:adeeditdata
Pilih salah satu garis kontur, sehingga ditampilkan :
Object data sudah terimport sempurna. Object data ini sebenarnya adalah data attribute dari garis kontur yang dipilih.
Sampai tahap ini nilai elevasi di LWPOLYLINE masi 0.000 dan masih tersimpan dalam satu layer.
C. Menjalankan Topology Query untuk mengisi elevasi LWPOLYLINE dan membuat Layer sesuai dengan nilai elevasinya

Aktifkan [AutoCAD MAP Taskpane] dengan mengetik Command: mapwspace
Click kanan folder [Topologies], pada tab [Map Explorer] di [AutoCAD MAP Task Pane]
Pilih [Create]
[Topology Type]: Network, [Topology Name]: GarisKontur kemudian click [Next]
[Select Links]: All, [Layers]: KonturDarat, kemudian clicl [Finish]. Tunggu sampai proses topology selesai
Click kanan Topology GarisKontur di bawah folder [Topologies]. Pilih [Analysis] >> [Topology Query]
Pada [Topology Query], pilih [Define Query]
Click [Location] pada Query Type kemudian pilih [All]
Click [Draw] pada Query Mode
Click [Alter Properties] pada Options
Pada [Select Property], pilih [Layer], kemudian click [Expression]
Pilih CONTOUR di folder [Object Data] >> [KonturDarat] . Click [OK] kemudian [Add]
Pada [Select Property], pilih [Elevation], kemudian click [Expression]
Pilih CONTOUR di folder [Object Data] >> [KonturDarat] . Click [OK] kemudian [Add]
Tampilan properties alteration menjadi:
Click [OK], kemudian click [Execute Query]
Hasil perintah list di salah satu garis kontur
LWPOLYLINE sudah mempunyai elevasi dan disimpan di layer sesuai dengan nilai elevasinya

pada tulisan berikutnya akan dijelaskan cara membuat label di kontur dengan query topology

==selamat mencoba==

[CAD-CIV-18]: FATAL ERROR: Unhandled e0434352h Exception at 75a7812fh

Referensi	:	forum.autodesk.com
Platform	:	Autocad atau Autodesk Civil 3D
Lokasi File	:

Hari ini, 10 Oktober 2014, saat saya menjalankan Autodesk Civil 3D, program Civil 3D memberikan pesan error: FATAL ERROR: Unhandled e0434352h Exception at 75a7812fh kemudian program tertutup dan tidak bisa dijalankan.

Program saya jalankan lagi, tetapi masih mengeluarkan pesan error yang sama demikian juga saat saya re-boot pesan yang sama tetap muncul.

Sempat terpikir untuk re-install program Civil 3D, tetapi tidak ada salahnya terlebih dahulu bertanya ke google untuk mencarikan web atau forum yang pernah membahas masalah tersebut. Setelah memasukkan pesan error yang sama di mesin pencari google, ternyata memang benar masalah tersebut pernah dibahas di forum.autodesk.com. Error tersebut bisa diselesaikan melalui registry editor dengan merubah keyword

“LastUpdateTimeLoWord”=dword:00000000

“LastUpdateTimeHiWord”=dword:00000000

di folder [HKEY_CURRENT_USER\Software\autodesk\AutoCAD\……………..\WebServices\CommunicationCenter]

Berikut langkah-langkah yang aku lakukan setelah membaca penjelasan dari forum tersebut dengan menggunakan OS Windows 7:

Click tombol [Start]
Pada isian [Search program and files], ketik : Regedit
Pada [Registry Editor], pilih folder [HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\
Arahkan cursor ke folder di atas, kemudian tekan Ctrl+F untuk melakukan pencarian registry
Pada isian [Find What], masukkan kata kunci: CommunicationCenter
Click [Find Next]
Tampilan registry editor:

Note: Nilai di “LastUpdateTimeHiWord” dan “LastUpdateTimeLoWord” tidak (0) jika sebelumnya ada pesan error FATAL ERROR: Unhandled e0434352h

Double click “LastUpdateTimeLoWord”, kemudian masukkan di [Value Data], nilai : 0
Double click “LastUpdateTimeHiWord”, kemudian masukkan di [Value Data], nilai: 0
Tutup Registry Editor

Program saya jalankan ulang dan pesan error tidak muncul lagi…

Thanks to google and forum.autodesk.com

[XLS-SVY-22]: Hitungan Azimuth dari Poligon Tertutup

Referensi	:	Kumpulan Rumus
Platform	:
Lokasi File	:

Pada gambar pengukuran poligon tertutup di bawah, azimuth awal dalam poligon tertutup menggunakan nilai pendekatan karena koordinat Titik-1 belum mempunyai nilai tetap atau Fix. Jika setelah pengukuran poligon tersebut ada pengukuran titik kontrol horisontal yang lebih teliti, misalnya dengan GPS Geodetic, di titik BM.1 dan Titik-1, maka nilai azimuth fix atau tetap dari titik BM.1 ke Titik-1 dapat dihitung.

Apabila ternyata titik yang diukur dengan GPS Geodetic adalah di titik BM.1 dan Titik-4, maka azimuth awal tidak bisa dihitung secara langsung

Tahap perhitungan azimuth dari poligon tertutup adalah:

Pertama, poligon tertutup dihitung dengan input koordinat azimuth pendekatan dan koordinat pendekatan :

Apabila hasil Ketelitian Sudut dan Ketelitian Linear memenuhi kriteria atau persyaratan yang diminta, maka dilanjutkan tahap berikutnya. Jika tidak memenuhi, maka perlu dicek lagi pengukuran dan input data poligonnya.

Kedua, titik awal poligon (BM.1) diganti dfengan titik tetap sehingga secara otomatis Microsoft Excel menghitung koordinata Titik-4.

Koordinat Titik-4 ini masih merupakan koordinat pendekatan. Hasil perbandingan azimuth dari BM.1 ke "Titik-4 Fix" dengan azimuth dari BM.1 ke "Titik-4 Pendekatan" akan didapatkan nilai koreksi azimuth pendekatan.

Cell	Rumus	Keterangan
[AA7]		koordinat (X) Titik-4 hasil hitungan poligon
[AB7]		koordinat (Y) Titik-4 hasil hitungan poligon
[AC6]	=DEGREES(ATAN2((AB7-AB5),(AA7-AA5))) +IF(ATAN2((AB7-AB5),(AA7-AA5))<0,360)	azimuth dari BM.1 ke "Titik-4 Pendekatan"
[AD7]		koordinat (X) "Titik-4 Fix"
[AE7]		koordinat (Y) "Titik-4 Fix"
[AF6]	=DEGREES(ATAN2((AE7-AE5),(AD7-AD5))) +IF(ATAN2((AE7-AE5),(AD7-AD5))<0,360)	azimuth dari BM.1 ke "Titik-4 Fix"
[AG6]	=AF6-AC6	koreksi Azimuth Awal
[AH6]		Azimuth Awal
[AI6]	=AH6+AG6	Azimuth Awal setelah dikoreksi
[AJ6:AL6]		konversi derajat decimal ke derajat, menit, detik

Setelah didapatkan nilai azimuth awal dikoreksi, hitungan poligon tertutup menjadi :

=selamat mencoba=

[XLS-PMG-07]: Menghitung upah lembur dengan excel (Kep Men. NOMOR KEP. 102/MEN/VI/2004) Bagian 2 (Revisi 10 April 2014)

Referensi	:	[GEN-PMG-04]:Menghitung Upah Lembur dengan Excel (Kep Men. NOMOR KEP. 102/MEN/VI/2004)
Platform	:	Excel 2007
Lokasi File	:

Pada posting [GEN-PMG-04]:Menghitung Upah Lembur dengan Excel (Kep Men. NOMOR KEP. 102/MEN/VI/2004) telah diuraikan cara menghitung lembur atau menentukan faktor pengali lembur untuk 5 hari kerja. Kali ini akan diuraikan cara menghitung faktor pengali lembur untuk 6 hari kerja. Hitungan kali ini memasukkan hari kerja adalah Senin s.d Sabtu dengan asumsi hari Sabtu adalah hari pendek. Jam kerja normal senin sampai sabtu adalah 7 jam, sedangkan untuk hari pendek adalah 5 jam. Kutipan dari Keputusan Menteri Pasal 11 :

Cara perhitungan upah kerja lembur sebagai berikut :
a. Apabila kerja lembur dilakukan pada hari kerja : a.1. untuk jam kerja lembur pertama harus dibayar upah sebesar 1,5 (satu setengah) kali upah sejam; a.2. untuk setiap jam kerja lembur berikutnya harus dibayar upah sebesar 2(dua) kali upah sejam.
b. Apabila kerja lembur dilakukan pada hari istirahat mingguan dan/atau hari libur resmi untuk waktu kerja 6 (enam) hari kerja 40 (empat puluh) jam seminggu maka : b.1. perhitungan upah kerja lembur untuk 7 (tujuh) jam pertama dibayar 2 (dua) kali upah sejam, dan jam kedelapan dibayar 3 (tiga) kali upah sejam dan jam lembur kesembilan dan kesepuluh dibayar 4 (empat) kali upah sejam. b.2. apabila hari libur resmi jatuh pada hari kerja terpendek perhitungan upah lembur 5 (lima) jam pertama dibayar 2 (dua) kali upah sejam, jam keenam 3(tiga) kali upah sejam dan jam lembur ketujuh dan kedelapan 4 (empat) kali upah sejam. c. Apabila kerja lembur dilakukan pada hari istirahat mingguan dan/atau hari libur resmi untuk waktu kerja 5 (lima) hari kerja dan 40 (empat puluh) jam seminggu, maka perhitungan upah kerja lembur untuk 8 (delapan) jam pertama dibayar 2 (dua) kali upah sejam, jam kesembilan dibayar 3(tiga) kali upah sejam dan jam kesepuluh dan kesebelas 4 (empat) kali upah sejam.

ayat a, b atau text berwarna biru adalah sebagai dasar untuk perhitungan lembur. Seperti posting sebelumnya [GEN-PMG-04]:Menghitung Upah Lembur dengan Excel (Kep Men. NOMOR KEP. 102/MEN/VI/2004), list hari libur dibuat terlebih dahulu. List hari libur di posting kali ini menggunakan named range dengan type dynamic, bukan static range yang telah dijelaskan sebelumnya. Static Named range mengharuskan kita untuk memlilih range terlebih dahulu sebelum mendefinisikan range, dimensi range (records) akan bertambah jika penambahan data ada di tengah static range atau dengan cara insert rows. Sedangkan Dynamic Named Range, range akan otomatis berubah dimensinya atau bertambah data secara otomatis jika record ditambahkan ataupun diiinsert. Tahapan-tahapan yang dibuat di bawah dikerjakan engan Excel 2007, jika Anda menggunakan excel versi lain, silahkan disesuaikan. Tahapan pembuatan dynamic range adalah :

Buat list daftar hari libur di sheet tersendiri, misalnya daftarnya sebagai berikut :

Pada menu group [Formula], pilih [Define Name]

Masukkan nama range, misal "_LiburNasional" Refers to: =OFFSET($B$1,1,-1,COUNT(A:A),1) maksud dari rumus di atas adalah :— membuat range dengan acuan $B$1, turun 1 baris, kemudian ke kiri 1 kolom. Hasil dari perintah ini adalah $B$2 — dilanjutkan dari B2, membuat range dengan tinggi sebanyak angka atau tanggal di kolom A:A atau COUNT(A:A) dengan lebar 1 kolom. Jika tanggal hari libur di kolom A ada 20 tanggal, maka akhir dari perintah ini adalah $B$2:$B$20

Buat tabel kode hari kerja yaitu kode hari yang membedakan hari normal, sabtu, minggu, hari libur nasional dan hari libur di hari pendek (sabtu)

Buat ‘static named range’ dengan nama yang telah didefinisikan di kolom ‘named range’:

— block [J2:K5]

— dari menu [Formulas], pada group [Define Names], pilih [Create from Selection]

— Pada pilihan ‘Create names from values in the’ , centang (check) hanya di [Right Column]

Memberi kode hari di list tanggal absensi. misal tabel disusun sebagai berikut:

Revisi 10 April 2014

Kolom A dan B diisi manual, sedangkan untuk kolom C:H diisi dengan rumus excel. Rumus untuk kolom C:H adalah: Catatan: rumus atau formula ditulis dalam satu baris dalam excel

Cells	Rumus	Keterangan
[C2]	=IF(COUNTIF(_LiburNasional,A2)>0,IF(WEEKDAY(A2,2)=6,3,2),IF(WEEKDAY(A2,2)=6,1,IF(WEEKDAY(A2,2)=7,2,0)))	menentukan kode hari berdasarkan tanggal di A2
[D2]	=(C2=Normal)(B2>7)+(C2=Sabtu)(B2>5)	jam lembur x 1.5
[E2]	=IF((C2=Normal)(B2>8),B2-8,IF((C2=Sabtu)(B2>6),B2-6,IF(C2=LiburMinggu,IF(B2<7,B2,7),IF(C2=SabtuLibur,IF(B2<5,B2,5)))))+0	jam lembur x 2
[F2]	=(C2=LiburMinggu)(B2>7)+(C2=SabtuLibur)(B2>5)	jam lembur x 3
[G2]	=IF((C2=LiburMinggu)(B2>8), B2-8,IF((C2=SabtuLibur)(B2>6),B2-6))*1	jam lembur x 4
[H2]	=SUMPRODUCT(D2:G2,$D$1:$G$1)	total faktor pengali
	Copy Rumus [C2:H2] ke bawah..

Silahkan download file revisi untuk contoh sample aplikasi perhitungan gaji lengkap dengan hitungan lembur untuk 6 hari kerja. File hasil download adalah simulasi perhitungan dari input daftar karyawan & unit price gaji, list hari libur, form resume absensi dan contoh form slip gaji. Jika ada kesalahan perhitungan, jangan sungkan-sungkan untuk memberi masukan.

==selamat mencoba==