KONVERSI DECIMAL DEGREES TO TEXT (..°..'..")

Pada pembahasan sebelumnya kita telah membahas bagaimana cara menghitung azimuth dari 2 titik yang berkoordinat dengan hasil "DECIMAL DEGREES".

Untuk keperluan laporan dll terkadang kita memerlukan azimuth dalam bentuk "TEXT (..°..'..")" hal ini bisa kita lakukan dengan standar fungsi yg ada dalam Ms.Excel dengan kolom yg berbeda dengan rumus :
1. Derajat ==> =INT(DECIMAL DEGREES) ===> KOLOM 1
2. Menit ==> =(DECIMAL DEGREES - Derajat) * 60 ====> KOLOM 2
3. Detik ==> =(Menit - INT(Menit)) * 60 ====> KOLOM 3

Jika Data Derajat, Menit dan Detik diatas banyak akan lebih rumit dalam pengeditannya jika kita copy data tersebut kedalam Ms.Word untuk keperluan penyusunan laporan karena data tersebut terpisah-pisah dalam banyak kolom sementara kita membutuhkan data tersebut dalam bentuk TEXT (..°..'..").

Untuk memudahkan hal tersebut di atas, maka dengan adanya Fungsi Konversi Decimal Degrees To Text(..°..'..") dan sebaliknya dapat memudahkan kita dalam mengkopi data tersebut dari Ms.Excel ke Ms.Word untuk keperluan penyusunan laporan.

Langkah-lankah aktivasi AddIns ini sama seperti AddIns sebelumnya.
Cara kerja Fungsi ini adalah sebagai berikut :
Misalkan kita mempunyai data azimuth dalam Decimal Degrees = 67,54 pada cell A1, maka cara konversi text adalah :
1. Pada cell B1 (terserah di cell mana) ketik fungsi konversi to text
====> =KonDesToDeg(A1)
2. Hasilnya di cell B1 adalah ===> 67°32'24"
3. Pada cell C1 (terserah di cell mana) ketik fungsi konversi text to decimal degrees
====> =KonDegToDes(B1)
4. Hasilnya di cell C1 adalah ===> 67,54

Download file disini : DOWNLOAD

===DEMIKIAN SEMOGA BERMANFAAT===

MENGHITUNG AZIMUTH DI Ms.EXCEL

Dalam pembahasan kali ini kita akan membahas mengenai CARA MENGHITUNG AZIMUTH dari 2 titik yang mempunyai koordinat UTM.

Rumus dasar yang digunakan ==> TAN((X2 - X1)/(Y2 - Y1))
Dimana :
x1= koordinat sumbu x pada titik ke-1
x2= koordinat sumbu x pada titik ke-2
y1= koordinat sumbu y pada titik ke-1
y2= koordinat sumbu y pada titik ke-2

Dalam Ms.Excel sitem yang digunakan adalah RADIANS sehingga rumus diatas masih harus dikonversi menjadi bentuk derajat / DEGREES yang berbentuk desimal (DECIMAL DEGREES) menjadi ==> DEGREES(TAN((X2 - X1)/(Y2 - Y1))

Rumus FUNGSI HITUNG AZIMUTH adalah :
===> =Hitung_Azimuth(x1, x2, y1, y2)
keterangan rumus diatas sama dengan postingan2 sebelumnya.

SAMPLE :
Misalkan kita mempunyai data 2 titik dengan koordinat masing-masing :
1. Titik A (556694,9724870), sumbu x di cell A1, sumbu y di cell B1
2. Titik B (556804,9724957), sumbu x di cell A2, sumbu y di cell B2
3. Letakan fungsi hitung azimuth di cell C1
==> =Hitung_Azimuth(A1, A2, B1, B2)
4. Hasilnya adalah = 51,66 ==> Decimal Degrees

Catatan :
1. Hasil telah di format 2 angka dibelakang koma
2. Warna font telah diformat menjadi merah
3. Terdapat "COMMENT"
==> Jika comment masih ada cell tidak dapat dicopy ke cell dibawahnya
==> Comment dihilangkan terlebih dahulu dengan prosedur biasa yang ada pada Ms.Excel untuk dapat dicopy paste

Silahkan download file disini : DOWNLOAD FILE

========DEMIKIAN SEMOGA BERMANFAAT========

FUNGSI MENGHITUNG JARAK DATAR PADA Ms.EXCEL

Rumus dasar menghitung "JARAK DATAR" antara 2 titik yang berkoordinat adalah
V(x2-x1)2+(y2-y1)2
dibaca : ==>Akar ((kuadrat x2-x1)+(kuadrat y2-y1))

Didalam fungsi worksheet excel standar rumus ini bisa dilakukan step by step pada tiap kolom :
1. klom 1 ==> =(x2-x1)^2
2. kolom 2 ==> =(y2-y1)^2
3. kolom 3 ==> =SQRT(kolom1+kolom2)

atau dengan satu rumus dalam 1 kolom ==> =SQRT(((x2-x1)^2)+((y2-y1)^2))
cara-cara diatas memerlukan DAYA INGAT RUMUS dan PENJABARAN RUMUS pada Ms.excel.

Untuk mempermudah pengerjaan dalam mencari jarak datar dari 2 titik yg berkoordinat, silahkan download file addins dibawah ini :

DOWNLOAD FILE

Cara menggunakannya sama dengan cara-cara sebelumnya dengan rumus fungsi sebagai berikut :

=HitungJarakDatar(x1; x2; y1;y2)

keterangan :
1. =HitungJarakDatar() ===> fungsi untuk menghitung jarak datar
2. x1 ===> cell tempat koordinat sumbu x pada titik ke-1
3. x2 ===> cell tempat koordinat sumbu x pada titik ke-2
4. y1 ===> cell tempat koordinat sumbu y pada titik ke-1
5. y2 ===> cell tempat koordinat sumbu y pada titik ke-2

Misalkan :
Koordinat sumbu x titik 1 di cell A1
Koordinat sumbu y titik 1 di cell B1
Koordinat sumbu x titik 2 di cell A2
Koordinat sumbu x titik 2 di cell B2
Fungsi hitung jarak datar diletakan di cell C1 dengan rumus :
=HitungJarakDatar(A1;A2;B1;B2)

Catatan : fungsi ini telah diformat desimal 4 digit dibelakang koma (,)

======DEMIKIAN SEMOGA BERMANFAAT=======

Fungsi Terbilang - VBA

Bagi kawan-kawan yg kesusahan dalam pengetikan "TERBILANG" dari suatu "ANGKA" misalkan Rp450.234.560.000,- anda tidak perlu susah-susah mengetik TERBILANGNYA.... cukup dengan fungsi dalam cell yaitu :

=terbilang(A2;1;"Rupiah")

A2==> adalah cell yg akan dijadikan terbilang
1 ==> adalah tipe jenis terbilang
1 : HURUF BESAR SEMUA
2 : huruf kecil semua
3 : Tiap Kata Diawali Huruf Besar
4 : Huruf besar di awal kalimat
"Rupiah"==> adalah jenis mata uang


<========> Monggo di DOWNLOAD dulu<========>

SETELAH DOWNLOAD :
1. Buka ms. exel
2. Pilih dan klik menu "File" ==> Options
3. Klik "Add-Ins"==> Pada "Manage" Pilih "Excel Add-Ins" ==> Klik "Go"
4. Atau bisa juga dengan memilih menu "Developer" ==> Pilih dan Klik Icon "Add-Ins"
5. Maka akan muncul toolbar "Add-Ins"
6. Jika add-ins "Terbilang sudah ada dalam daftar maka tinggal mencentang untuk mengaktifkan.
7. Jika tidak ada dalam daftar pilih ==> "Browse"
8. Cari file exel yg di download (Pilih type file : "All File") ==> Klik "OK"
9. Pastikan add-ins "TERBILANG" dalam kondisi tercentang/terpilih ==> Klik "OK"
10. Silahkan anda mencoba di exel worksheet sesuai rumus diatas
______________________________________________
(o)(o)GOOD LUCK(o)(o)=========(o)SALAM SUKSES(o) 

Mukadimah

Alhamdulillahirabbilalamin, banyak nikmat yang Allah berikan, tetapi sedikit sekali yang kita ingat. Segala puji hanya layak untuk Allah Tuhan seru sekalian alam atas segala berkat, rahmat, taufik, serta hidayah-Nya yang tiada terkira besarnya, sehingga saya bisa membuat blog ini.

Masih banyak kekurangan-kekurangan dalam blog ini, oleh karenanya admin mengharapkan kritik dan saran yang membangun agar blog ini dapat bermanfaat bagi pengunjung dan dapat memberikan solusi dari permasalahan-permasalahan yang menyangkut pemrograman khususnya pemograman Visual Basic dan Visual Foxpro.

Akhir kata saya berharap agar blog ini bermanfaat bagi semua pengunjung.

Hormat Saya

Admin