Aiska Blog

Set zoom level of a google map based on markers

noreply@blogger.com (Aiska Hendra) — Thu, 29 Jan 2009 09:37:00 +0000

Yesterday my Project Manager asks me to embedded Google Map into the module.

It’s should be easy to do, but after I try so many times I failed to complete this task.

The main problem is I cannot set zoom level of Google Map that all markers are visible.

Then I search in Google and Google Map Documentation, and I still did not find any good solution,

So I decide to find my own solution. This is my solution
First think I do is get the minimum, maximum and center of the marker.

var minlat = [Minimum Latitude];
var maxlat = [Maximum Latitude];
var minlng = [Minimum Longitude];
var maxlng = [Maximum Longitude];
var ctrlng = [Center Longitude];
var ctrlng = [Center Longitude];

The second way is I calculate the distance of Minimum and Maximum Latitude and Longitude. After I search in Google I found formula to calculate distance in Google Map.

var dist = (6371 * Math.acos(Math.sin(minLat / 57.2958) * Math.sin(maxLat / 57.2958) + (Math.cos(minLat / 57.2958) * Math.cos(maxLat / 57.2958) * Math.cos((maxLng / 57.2958) - (minLng / 57.2958)))));

Then I calculate Google Map distance for each Zoom Level by using of formula of distance.
Base on calculate of Google Map distance for each level, so I make formula to calculate zoom level. The formula is :

var zoom = Math.floor(8 - Math.log(1.6446 * dist / Math.sqrt(2 * (mapdisplay * mapdisplay))) / Math.log (2));

where :
dist = the distance of bound
mapdisplay = the square display of Google Map in pixel (I get from height or width of Google Map where is the smallest).

But I have a problem when Minimum and Maximum of Latitude is equal, and the zoom level become incorrect,

The problem is I calculate the horizontal marker, and calculate the diagonal of Google map where diagonal is more longer than horizontal or vertical, that's why zoom level is not correct.

So I decide to make all diagonal calculate. And I change the minimum and maximum of latitude and longitude. To the largest value so I can calculate the diagonal value.

var interval = 0;
If ((maxlat - minlat) > (maxlng - minlng)) {
interval = (maxlat - minlat) / 2;
minlng = ctrlng - interval;
maxlng = ctrlng + interval;
} else {
interval = (maxlng - minlng) / 2;
minlat = ctrlat - interval;
maxlat = ctrlat + interval;
}

Then I calculate again, and it’s work.

full code should be like this

var minlat = [Minimum Latitude];
var maxlat = [Maximum Latitude];
var minlng = [Minimum Longitude];
var maxlng = [Maximum Longitude];
var ctrlng = [Center Longitude];
var ctrlng = [Center Longitude];
var mapdisplay = 600;
var interval = 0;

If ((maxlat - minlat) > (maxlng - minlng)) {
interval = (maxlat - minlat) / 2;
minlng = ctrlng - interval;
maxlng = ctrlng + interval;
} else {
interval = (maxlng - minlng) / 2;
minlat = ctrlat - interval;
maxlat = ctrlat + interval;
}

var dist = (6371 * Math.acos(Math.sin(minLat / 57.2958) * Math.sin(maxLat / 57.2958) + (Math.cos(minLat / 57.2958) * Math.cos(maxLat / 57.2958) * Math.cos((maxLng / 57.2958) - (minLng / 57.2958)))));

var zoom = Math.floor(8 - Math.log(1.6446 * dist / Math.sqrt(2 * (mapdisplay * mapdisplay))) / Math.log (2));

var map = new GMap2(document.getElementById("map"));
map.setCenter(new GLatLng(ctrlat, ctrlng), zoom);

Ok that’s all Thank you, and I hope this article can help you and others.
Thanks to Dusan for the formula and all Google Map Programmer for helping me to Finnish this task.

“Setup did not find any hard disk drives installed in your computer”

noreply@blogger.com (Aiska Hendra) — Tue, 01 Jul 2008 00:25:00 +0000

Pernahkah anda melakukan installasi window, namun pada saat installasi tersebut muncul pesan error “Setup did not find any hard disk drives”.

Kepanikan pun mulai melanda diri anda padahal kompter mampu berjalan diatas system operasi Microsoft Vista.

Lalu bagaimana melakukan installasi Windows XP diatas Komputer untuk Window Vista. Seringkali kita melakukan hal tersebut mungkin karena alasan kompartibilatas terhadap beberapa aplikasi atau anda memang benar-benar tidak menyukai Window Vista (seperti saya hehe).

Masalah yang sering dihadapi ketika kita melakukan Downgrade ke Window XP adalah pada saat installasi muncul pesan Error “Setup did not find any hard disk drives installed in your computer”. Pesan tersebut mungkin terasa aneh bagi anda padahal computer anda mampu berjalan diatas Window Vista, lalu kenapa harus memastikan kalau Hardisk tersebut terpasang dengan benar atau tidak.

Inti dari permasalahan ini sebenarnya dikarenakan Komputer baru anda memiliki Storage Controller yang tidak di support oleh Window XP, biasanya terjadi jika Hardisk anda menggunakan SATA (Serial ATA). Hal ini mungkin bisa diatasi dengan cara merubah tipe Controller pada bios dengan menggunakan IDE atau ATA. Namun dalam beberapa kasus terkadang hal tersebut tidak dapat dilakukan salah satunya adalah pada Laptop Sony Vaio VGN-NR180E dan HP Pavilion. dimana kita tidak dapat merubah tipe dari Storage Controller.

Jika komputer memiliki Floppy Disk mungkin masalah tersebut dapat diatasi dengan cara melakukan installasi Driver Storage Controller SATA melalui Floppy, tapi saat ini sangat jarang sekali komputer terbaru yang memiliki Floppy Disk.

Lalu apa yang harus dilakukan jika terjadi masalah tersebut.

Jika hal tersebut terjadi maka perlu melakukan cara yang sedikit rumit, yaitu melakukan kostomisasi terhadap CD Installasi Window XP. Dimana kita harus menambahkan Driver SATA kedalam CD Installasi Window XP.

Untuk dapat melakukan kostomisasi tersebut kita memerlukan software untuk melakukannya. Salah satunya adalah nLite. Dengan menggunakan software tersebut kita dapat melakukan kostomisasi pada CD Installasi Window XP, jadi tunggu apalagi download dan install nLite sekarang.

Setelah anda selesai melakukan download dan installasi nLite. Jalankan program tersebut dan Klik browse untuk mengambil file Installasi Window XP dari CD.

Kemudian akan muncul kotak dialog, dan pilih drive dimana CD Installasi Window XP anda berada dan pilih Next untuk melanjutkan ke langkah berikutnya.

Berikutnya anda akan diarahkan untuk menyimpan temporary files (File sementara) yang digunakan untuk proses Streaming. Sebaiknya buat folder baru dan beri nama yang mudah untuk diingat seperti XPISO.

Kemdian nLite akan menyalin semua file yang diperlukan dari CD Installasi Window XP kedalam folder sementara tersebut. Ketika proses tersebut selesai maka anda akan melihat Informasi dari versi CD Installasi Window XP anda.

Pilih Next lagi untuk melanjutkan ke kotak dialog berikutnya. Berikutnya adalah melakukan kostomisasi terhadap Installasi Window XP, pilih “Driver” dan "Bootable ISO" pada kotak dialog tersebut.

Catatan : Anda juga dapat memilh pilihan yang lain, seperti menambahkan Service Pack 3 atau melakukan Unattanded sehingga anda dapat langsung dapat melakukan installasi tanpa perlu melakukan setting pada saat installasi berjalan. Namun hal tersebut tidak dibahas disini.
Kemudian pilih Next hingga muncul kotak dialog untuk memilih driver. Cara terbaik untuk menambahkan Driver adalah dengan cara mengambil dari CD yang diberikan dari manufaktur komputer atau dengan mengunduhnya dari situs manfaktur komputer anda.

Kemudian browse direktori dimana anda file driver anda di extract dan pilih Open. Sebenarnya tidak masalah file *.inf mana yang anda pilih, karena program akan mengambil semua file dalam folder.

Kemudian nLite akan menampilkan kotak dialog untuk memilih driver mana yang akan dimasukkan, Jika anda tidak tahu driver mana yang ingin dimasukkan anda dapat membuka Device Manager pada Window Vista untuk menentukan model apa yang cocok dengan computer anda, perlu diperhatikan juga jangan memilih 64-bit jika anda menggunakan 32-bit atau memilih versi yang salah.

Saya merekomendasikan anda menambahkan juga Storage dan Network Driver, yang mungkin tidak ada pada CD Installasi Window XP anda.

Ok Kostomisasi terhadap Installasi Window XP selesai dan langkah berikutnya adalah menyimpan hasil dari kostomisasi tersebut. Untuk menyimpannya anda dapat memilih Create Image untuk membuat file ISO yang dapat anda burning nanti dengan menggunakan software burning yang anda miliki atau anda dapat langsung melakukan burning ke CD.
Catatan : Jika anda memilih membuat Image ISO pastikan anda memilih “Make ISO” sebelum anda menekan tombol Next.

Demikian sedikit tulisan dari saya dan semoga tulisan ini bermanfaat bagi anda.

Selamat mencoba dan semoga berhasil dengan Installasi Window XP anda yang baru

Terima Kasih.

Salam,

Aiska Hendra

syntax untuk tgl

noreply@blogger.com (Aiska Hendra) — Wed, 30 Apr 2008 15:23:00 +0000

--- sherinalavenda wrote:
sebuah database berisi

Tgl Nama Barang StockAwal Masuk Keluar Akhir
1/1/08 barang A 10 2 0 12
5/1/08 barang A 12 0 1 11
10/1/08 barang A 11 5 0 16

ada yg bisa bantu syntax untuk mengetahui stock awal & stock akhir
tanggal 7/1/08(dtpicker)?
thank u.

-------------------------------------------------
Dear sherina,

Mungkin ada sedikit tambahan dan kritik dari saya.
Kalau saya bilang anda telah melakukan pemborosan terhadap data.
karena anda melakukan pembuatan field yang tidak perlu. sebaiknya anda
buang saja field. StockAwal, Masuk, Keluar, dan akhir. Dan diganti
dengan field qty (kuantitas). sehingga isi dari tabel menjadi seperi ini

tblBarang:
1. idBarang (LongInteger) auto increment, Primary Key
2. NamaBarang (nVarChar)

tblStock:
1. idStock (LongInteger) auto increment, Primary Key
2. idBarang (LongInteger)
3. Tanggal (date/time)
4. Qty (Long Integer)

Note:
Untuk barang masuk field qty adalah positif(+) dan untuk barang keluar
negatif(-).

Untuk mendapatkan stock awal, Transaksi Pada Hari tertentu atau Stock
Akhir anda dapat mengambilnya dengan menggunakan SUM.

contoh:

Melihat Stock Awal tanggal 1 Januari 2008:
"SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS StockAwal
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE tblStock.Tanggal<#1/1/2008#
GROUP BY tblBarang.NamaBarang"

Melihat Stock Akhir tanggal 31 Januari 2008:
"SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS StockAkhir
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE tblStock.Tanggal<#1/31/2008#
GROUP BY tblBarang.NamaBarang"

Melihat Barang Masuk Selama Bulan Januari 2008:
SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS BarangMasuk
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE Month([Tanggal])=1
AND Year([Tanggal])=2008
AND tblStock.qty>0
GROUP BY tblBarang.NamaBarang

Melihat Barang Keluar Selama Bulan Januari 2008:
SELECT tblBarang.NamaBarang, Sum(tblStock.qty) AS BarangKeluar
FROM tblBarang INNER JOIN tblStock ON tblBarang.idBarang =
tblStock.idBarang
WHERE Month([Tanggal])=1
AND Year([Tanggal])=2008
AND tblStock.qty<0
GROUP BY tblBarang.NamaBarang

Ok, sekian tambahan dari saya. saya mohon maaf apabila anda
tersinggung dan mohon maaf apabila cara ini cukup membingungkan buat
anda tapi setidaknya anda dapat belajar untuk dapat mengoptimalkan
database dengan menggunakan Join Tabel.

Terima Kasih dan Selamat Mencoba.

Salam,

Aiska Hendra

Re: help VB

noreply@blogger.com (Aiska Hendra) — Wed, 30 Apr 2008 15:16:00 +0000

--- In indoprog-vb@yahoogroups.com, SELVI OYE wrote:
para pakar VB, minta tolong dong dgn scrip berikut :
Database acces.
Table Film :
-Â Â Â Â Â Â Â kode_film
-Â Â Â Â Â Â Â judul
-Â Â Â Â Â Â Â qty
-Â Â Â Â Â Â Â status ( â€œadaâ€ & â€œkeluarâ€)
Â
kronologisnya :
jika judul film dgn qty 3 dan dipinjam 1 berarti tinggal 2 dgn status
â€œkeluarâ€.
Nah jika film akan dihapus dari database, maka akan diselecsi dgn status
â€œadaâ€ jadi jika status ada maka bisa dihapus.
Â
Ok, selanjutnya aku udah bikin scrip di Vb seperti ini :
Â
Private Sub listView1_DblClick()
On Error GoTo ErrPesan
Dim i As Integer
Dim TempIndex As Integer
Dim strSQL As String
Dim tempKode, tempstatus As String
Â
Â
Â Â Â If listView1.ListItems.Count = 0 Then
Â Â Â Â Â Â Â Â Exit Sub
Â Â Â End If
Â
Â TempIndex = listView1.SelectedItem.Index
Â tempKode = listView1.ListItems.Item(TempIndex)
Â
Â Â 'Konfirmasi penghapusan record
Â Â
Â jawab = MsgBox("Apakah Anda yakin Data " & kode_film & _
Â vbCrLf & " Akan dihapus ? ", vbInformation + vbYesNo)
Â If jawab = vbNo Then Exit Sub
Â con.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"\rental1.mdb"
Â If rsfilm.Fields("status") = "ADA" Then
Â Â Â Â Â Â Â strSQL = "DELETE FROM film where kode_film = '" & tempKode & "'"
Â Â Â Â Â Â Â
Â Â Â Â Â Â Â con.Execute strSQL
Â Â Â Â Â Â Â MsgBox "DATA FILM TELAH DIHAPUS"
Â
Â label6.Caption = "Total Record : " & rsfilm.RecordCount
Â i = listView1.SelectedItem.Index
Â listView1.ListItems.Remove i
Â End If
Â Exit Sub
ErrPesan:
Â Â MsgBox "Data belum bisa dihapus " & vbCrLf & " Film Masih diPinjam ",
vbInformation
Â End Sub
Â
Tapi yg ada adalah masuk ke errpesan, sehingga data tidak bisa dihapus.
Mohon petunjuknya.

Dear Selvi,

Coba anda ganti kode anda menjadi seperti ini:

Private Sub listView1_DblClick()

On Error GoTo ErrPesan
Dim i As Integer
Dim TempIndex As Integer
Dim strSQL As String
Dim tempKode, tempstatus As String

If listView1.ListItems.Count = 0 Then Exit Sub
If listView1.SelectedItem Is Nothing Then Exit Sub
set con = New ADODB.Connection

TempIndex = listView1.SelectedItem.Index
tempKode = listView1.SelectedItem

' Sory disini object rsfilm masih belom jelas dimana posisi kursornya
jadi anda harus memastikan bahwa rsfilm berada pada posisi yang benar
sehingga anda tidak dapat membuat statement apakah status ada.
Sebaiknya anda coba ambil data status dari
listview1.selecteditem.subitem(?) dimana sub item status tersebut ada.

'asumsi bahwa kolom status berada pada subitem 3
if listview1.SelectedItem.SubItem(3) = "ADA" Then
jawab = MsgBox("Apakah Anda yakin Data " & kode_film & _
vbCrLf & " Akan dihapus ? ", vbInformation + vbYesNo)
If jawab = vbYes Then
con.CursorLocation = adUseServer
con.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & _
App.Path & "\rental1.mdb"
strSQL = "DELETE * FROM film where kode_film = '" & tempKode & "'"
con.BeginTrans
con.Execute strSQL
con.CommitTrans
listView1.ListItems.Remove TempIndex
MsgBox "DATA FILM TELAH DIHAPUS"
set con = Nothing
End If
Else
MsgBox "Data belum bisa dihapus " & vbCrLf & " Film Masih diPinjam", vbInformation
End If

Exit Sub
ErrPesan:
If con.State = adStateOpen Then
con.RollBackTrans
set con = nothing
End If

MsgBox "Error !!! " & vbCrLf & Err.Description, vbExclamation

End Sub

Note:

BeginTrans
The BeginTrans method starts a new transaction.
This method can also be used to return a long value that is the level
of nested transactions. A top level transaction has a return value of
1. Each additional level increments by one.

CommitTrans
The CommitTrans method saves all changes made since the last
BeginTrans method call, and ends the current transaction.
Since transactions can be nested, all lower-level transactions must be
resolved before you can resolve higher-level transactions.

RollbackTrans
The RollbackTrans method cancels all changes made since the last
BeginTrans method call, and ends the transaction.
Since transactions can be nested, all lower-level transactions must be
resolved before you can resolve higher-level transactions.

Ok semoga dengan sedikit Script diatas dapat membatu anda
Terima Kasih dan Selamat Mencoba

Salam,

Aiska Hendra

Alokasi Memory

noreply@blogger.com (Aiska Hendra) — Fri, 04 Apr 2008 19:39:00 +0000

Salah Satu alasan para programmer untuk menggunakan Windows API dapat melakukan memanipulasi memory,
untuk dapat memanipulasi memory kita dapat menggunakan Fungsi API

Globalalloc (mengalokasikan memori),
Globallock (mengunci memori dan mendapatkan pointernya),
Globalunlock ( membuka kunci memori), dan
Globalfree ( Disalokasikan memori)

Sekarang kita lihat bagaimana cara mengcopy data kedalam memory.
untuk itu kita perlu satu fungsi API lagi untuk mengcopy memori yaitu
MoveMemory (memindah posisi memory)

Sebelum kita dapat menggunakan Fungsi API kita harus mendeklarasikan fungsi API tersebut, sekarang kita deklarasikan dulu fungsi API-nya.

Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal
dwBytes As Long) As Long

jika anda bingung menggunakan wFlags pada fungsi Globalalloc ini daftar constant value untuk wFlags Globalalloc:
• GMEM_FIXED—&H0
• GMEM_MOVEABLE—&H2
• GMEM_NOCOMPACT—&H10
• GMEM_NODISCARD—&H20
• GMEM_ZEROINIT—&H40
• GMEM_MODIFY—&H80
• GMEM_DISCARDABLE—&H100
• GMEM_NOT_BANKED—&H1000
• GMEM_SHARE—&H2000
• GMEM_DDESHARE—&H2000
• GMEM_NOTIFY—&H4000
• GMEM_LOWER—GMEM_NOT_BANKED
• GMEM_VALID_FLAGS—&H7F72
• GMEM_INVALID_HANDLE—&H8000

Selain wFlags anda juga anda juga harus menentukan dwBytes yang merupakan jumlah byte yang diminta dari memory.

Untuk mendapatkan pointer dari memory anda dapat menggunakan Globallock yang akan mengunci memory yang telah di alokasikan dari Globalalloc.

Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long

Selain GlobalAlloc dan GlobalLock anda juga dapat memindah data yang ada didalam memory dengan menggunakan Fungsi MoveMemory.

Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As Any, ByVal src As Any, ByVal length As Long)

Ini argumen untuk MoveMemory:
• dest—Pointer pada buffer tujuan
• src—Pointer pada buffer sumber
• length—jumlah byte memory yang akan dipindah

Untuk mengalokasikan memory kota gunakan Globalalloc, untuk mengunci dan mengambil pointer dari memory kita gunakan Globallock dan untuk membukanya kembali kita gunakan fungsi API Globalunlock. Deklarasi untuk fungsi API ini adalah:

Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long

Dimana hMem adalah pointer dari memory yang telah terkunci.

Selain itu kita juga perlu melakukan pembersihan dan mendisalokasikan data memory dengan menggunakan fungsi API Globalfree

Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

Dimana hMem adalah buffer dari memory yang dialokasikan.

OK sekarang kita coba buat sample programnya, bagaimana menimpan string yang yang dimasukkan oleh user kedalam textbox kedalam memory dan memindahkannya. Dengan sample ini diharapkan anda dapat memahami perpindahan data dalam memory.

Kita mulai dengan memasukkan 40 karakter long buffer untuk string yang anda didalam form.

Const DataLength = 40
Dim outbuffer As String * DataLength

Dim hMemory As Long
Dim hMemoryPointer As Long

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
rivate Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal dest As Any, ByVal src As Any, ByVal length As Long)

Const GMEM_MOVEABLE = &H2

Pada bagian Form design kita membutuhkan 2 object Textbox dan 2 CommandButton, tambahkan object tersebut pada form dan tambahkan kode berikut ini pada CommandButton:

Private Sub Command1_Click()
outbuffer = Text1.Text
‘ mengambil text dari Text1
hMemory = GlobalAlloc(GMEM_MOVEABLE, DataLength)
‘ mengalokasikan memori yang akan kita gunakan (outbuffer)
hMemoryPointer = GlobalLock(hMemory)
‘ Mengunci dan mendapatkan pointer dari memory.
Call MoveMemory(hMemoryPointer, outbuffer, DataLength)
‘ Memindahkan data outbuffer kedalam ke memory yang lain
End Sub

Kode diatas berfungsi untuk mengalokasikan isi dari dari Text1 dan memindahkannya buffer ke memory yang telah dialokasikan. Sekarang kita buat kode untuk melepaskan buffer dari dari memory dan memindahkannya kedalam text2.

Private Sub Command2_Click()
Call MoveMemory(inbuffer, hMemoryPointer, DataLength)
Text2.Text = inbuffer
GlobalUnlock (hMemoryPointer)
GlobalFree (hMemory)
End Sub

Ok cukup sekian tulisan dari Aiska semoga tulisan ini bisa bermanfaat bagi teman-teman yang membaca dan terutama bagi saya sendiri yang sering lupa :)

Terima Kasih

Salam,

^Aiska Hendra^

Fungsi terbilang dalam bahasa indonesia

noreply@blogger.com (Aiska Hendra) — Tue, 24 Jul 2007 19:39:00 +0000

buat kamu yang pengen bikin fungsi bilangan untuk accounting atau lain sebagainya ini ada sedikit kode yang aku tulis menggunakan VB6 (actually I've upgrade it into VB.net). aku bikin fungsi ini 2 tahun yang lalu mungkin bisa bermanfaat buat temen-temen

here the code:
[code]
Option Explicit
' This Code Written By Aiska Hendra

Public Function Terbilang(Angka As Double, Optional Rupiah As Boolean = True) As String
On Error GoTo Error
Dim Desimal As Double
Dim sDesimal As String
Dim Koma As String
Dim M As Variant
Dim sAngka As String
Dim locttk As Integer
Dim jAngka As Integer
Dim bilangan As String

Desimal = 0
Koma = ""
sDesimal = ""
Angka = Abs(Angka)
Angka = Round(Angka, 2)
sAngka = Trim(Str(Angka))
jAngka = Len(sAngka)
locttk = InStrRev(sAngka, ".")
If locttk > 0 Then
sDesimal = Right(sAngka, jAngka - locttk)
If Len(sDesimal) = 1 Then Desimal = Val(sDesimal) * 10 Else Desimal = Val(sDesimal)
Angka = Val(Left(sAngka, locttk - 1))
End If

If jAngka <= 0 Then Exit Function 'kalau kosong keluar
If Angka <= 0 Then Terbilang = "": Exit Function 'kalau kosong keluar
If Angka >= 1E+15 Then Terbilang = "Error !!!": Exit Function

If Desimal <> 0 Then
bilangan = Triliunan(Angka)
sDesimal = "Koma " & Triliunan(Desimal)
bilangan = bilangan & sDesimal
Else
bilangan = Triliunan(Angka)
End If

If Rupiah Then
If bilangan <> "" Then Terbilang = bilangan & "Rupiah"
Else
Terbilang = bilangan
End If
Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Terbilang", "Accounting"
Resume Next
End Function

Private Function Satuan(satAngka As Double) As String
On Error GoTo Error
Select Case satAngka
Case 0:
Satuan = ""
Case 1:
Satuan = "Satu "
Case 2:
Satuan = "Dua "
Case 3:
Satuan = "Tiga "
Case 4:
Satuan = "Empat "
Case 5:
Satuan = "Lima "
Case 6:
Satuan = "Enam "
Case 7:
Satuan = "Tujuh "
Case 8:
Satuan = "Delapan "
Case 9:
Satuan = "Sembilan "
Case 10:
Satuan = "Sepuluh "
Case 11:
Satuan = "Sebelas "
End Select

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Satuan", "Accounting"
Resume Next
End Function

Private Function Puluhan(pulAngka As Double) As String
On Error GoTo Error
If pulAngka < 12 Then
Puluhan = Satuan(pulAngka)
ElseIf Left(pulAngka, 1) = 1 Then
Puluhan = Satuan(Right(pulAngka, 1)) & "Belas "
Else
Puluhan = Satuan(Left(pulAngka, 1)) & "Puluh " & Satuan(Right(pulAngka, 1))
End If
Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Puluhan", "Accounting"
Resume Next
End Function

Private Function Ratusan(ratAngka As Double) As String
On Error GoTo Error
Ratusan = ""
If ratAngka = 0 Then
Exit Function
ElseIf ratAngka >= 100 And ratAngka < 200 Then
Ratusan = "Seratus "
ElseIf ratAngka >= 200 And ratAngka < 1000 Then
Ratusan = Satuan(Left(ratAngka, 1)) & "Ratus "
End If
Ratusan = Ratusan & Puluhan(Val(Right(ratAngka, 2)))

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Ratusan", "Accounting"
Resume Next
End Function

Private Function Ribuan(ribAngka As Double) As String
On Error GoTo Error
Ribuan = ""
If ribAngka = 0 Then
Exit Function
ElseIf ribAngka >= 1000 And ribAngka < 2000 Then
Ribuan = "Seribu "
ElseIf ribAngka >= 2000 And ribAngka < 10000 Then
Ribuan = Satuan(Left(ribAngka, 1)) & "Ribu "
ElseIf ribAngka >= 10000 And ribAngka < 100000 Then
Ribuan = Puluhan(Left(ribAngka, 2)) & "Ribu "
ElseIf ribAngka >= 10000 And ribAngka < 1000000 Then
Ribuan = Ratusan(Left(ribAngka, 3)) & "Ribu "
End If
Ribuan = Ribuan & Ratusan(Right(ribAngka, 3))

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Ribuan", "Accounting"
Resume Next
End Function

Private Function Jutaan(jutAngka As Double) As String
On Error GoTo Error
Jutaan = ""
If jutAngka = 0 Then
Exit Function
ElseIf jutAngka >= 1000000 And jutAngka < 10000000 Then
Jutaan = Satuan(Left(jutAngka, 1)) & "Juta "
ElseIf jutAngka >= 10000000 And jutAngka < 100000000 Then
Jutaan = Puluhan(Left(jutAngka, 2)) & "Juta "
ElseIf jutAngka >= 100000000 And jutAngka < 1000000000 Then
Jutaan = Ratusan(Left(jutAngka, 3)) & "Juta "
End If
Jutaan = Jutaan & Ribuan(Right(jutAngka, 6))

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Jutaan", "Accounting"
Resume Next
End Function

Private Function Milyaran(milAngka As Double) As String
On Error GoTo Error
Milyaran = ""
If milAngka = 0 Then
Exit Function
ElseIf milAngka >= 1000000000 And milAngka < 10000000000# Then
Milyaran = Satuan(Left(milAngka, 1)) & "Milyar "
ElseIf milAngka >= 10000000000# And milAngka < 100000000000# Then
Milyaran = Puluhan(Left(milAngka, 2)) & "Milyar "
ElseIf milAngka >= 100000000000# And milAngka < 1000000000000# Then
Milyaran = Ratusan(Left(milAngka, 3)) & "Milyar "
ElseIf milAngka >= 100000000000000# And milAngka < 1E+15 Then
Milyaran = Jutaan(Left(milAngka, 6)) & "Milyar "
End If

Milyaran = Milyaran & Jutaan(Right(milAngka, 9))

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Milyaran", "Accounting"
Resume Next
End Function

Private Function Triliunan(trilAngka As Double) As String
On Error GoTo Error
Triliunan = ""
If trilAngka = 0 Then
Exit Function
ElseIf trilAngka >= 1000000000000# And trilAngka < 10000000000000# Then
Triliunan = Satuan(Left(trilAngka, 1)) & "Triliun "
ElseIf trilAngka >= 10000000000000# And trilAngka < 100000000000000# Then
Triliunan = Puluhan(Left(trilAngka, 2)) & "Triliun "
ElseIf trilAngka >= 100000000000000# And trilAngka < 1E+15 Then
Triliunan = Ratusan(Left(trilAngka, 3)) & "Triliun "
ElseIf trilAngka >= 1E+17 And trilAngka < 1E+18 Then
Triliunan = Jutaan(Left(trilAngka, 6)) & "Triliun "
ElseIf trilAngka >= 1E+20 And trilAngka < 1E+21 Then
Triliunan = Milyaran(Left(trilAngka, 9)) & "Triliun "
End If

Triliunan = Triliunan & Milyaran(Right(trilAngka, 12))

Exit Function
Error:
If Err.Number > 0 Then CatatError Err, "Triliunan", "Accounting"
Resume Next
End Function

untuk memanggil kode cukup masukkan perintah
textbox1.text = Terbilang(2500, true)
maka hasil yang akan keluar adalah

Dua Ribu Lima Ratus Rupiah

variabel true diatas adalah untuk menambahkan kata rupiah pada teks jika anda tidak ingin ingin menambahkan rupiah maka diset menjadi false

Saya harap kode ini bisa membantu anda

Ajax

noreply@blogger.com (Aiska Hendra) — Tue, 24 Jul 2007 19:27:00 +0000

Suatu Hari temanku bertanya Aiska punya program Ajax ngga. Dan aku pun diam tertegun, Lalu dia bilang lagi kalau Ajax sekarang lagi poluper karena Web kita jadi lebih cepat diakses ngga harus nunggu.

Ternyata tidak sedikit orang yang salah pengertian tentang Ajax. Banyak orang yang beranggapan bahwa Ajax adalah teknologi baru, Software baru yang membuat aplikasi web menjadi lebih cepat. Sebenarnya Ajax bukanlah teknologi, apalagi software baru. Ajax menurut saya adalah konsep baru dari pemrograman yang berbasis web. Dimana pola berpikir dan pola dalam penulisan scripting seorang programmer dirubah. Ajax adalah singkatan dari Asynchronous JavaScript and XML, dimana kita dapat mengoptimalkan dan menggabungkan JavaScript sebagai Server Side Scripting dan XML sebagai tempat penyimpanan data melalui prosedur XMLHttpRequest.

Analoginya seperti ini, anda tau google maps / wikimapia.com disana kita dapat melihat peta seluruh dunia, rumah kita (hanya kota besar). Dalam web tersebut hampir semua halaman menggunakan gambar. Seperti anda ketahui bahwa format gambar lebih lama dimuat ketibang format text karena kapasitasnya lebih besar tentunya. Dan anda bisa membayangkan gimana lamanya loading untuk dapat memuat semua peta tersebut tanpa bantuan Ajax. Yang ada anda hanya dapat melihat halaman putih pada browser anda ketika anda melakukan reload halaman web. Tapi dengan menggunakan Ajax hal tersebut dapat diantisipasi, karena ketika user menggeser peta keatas, kebawah atau kesamping pada google maps JavaScript bekerja untuk melakukan request data ke server namun halaman yang sudah tampil tidak perlu dimuat karena sudah tersimpan dalam XML sehingga user tidak menunggu dan melihat halaman putih yang membosankan sambil menunggu pada browser memuat seluruh halaman.

Jadi dengan melakukan optimalisasi XMLHttpRequest kita dapat memuat hanya sebagian halaman yang kita perlukan saja tanpa harus memuat seluruh halaman. Itulah alasannya kenapa web yang menggunakan Ajax terlihat lebih cepat dimuat.

OK sekarang kita buat scriptnya.

Sebelum anda mulai menulis script ada beberapa hal yang anda harus ketahui. Setiap Browser memiliki fungsi sendiri dalam menginterpretasikan request HTTP. Pada keluarga Internet Explorer yang sering dikenal sebagai ActiveX Object menggunakan XMLHTTP untuk melakukan request sedangkan pada Firefox, Safari, dll menggunakan fungsi XMLHttpRequest, sehingga agar dapat melakukan cross-browser maka diperlukan kode seperti ini

var httpRequest;
if (window.XMLHttpRequest) { // Mozilla, Safari, ...
httpRequest = new XMLHttpRequest();
} else if (window.ActiveXObject) { // IE
httpRequest = new ActiveXObject("Microsoft.XMLHTTP");
}

Fungsi diatas tidak akan dapat bekerja secara sempurna jika browser tidak mendukung XML mime-type header (beberapa Mozila versi lama) agar dapat bekerja kita dapat melakukan manipulasi dengan melakukan override pada header XML dengan menambahkan kode seperti ini:
httpRequest = new XMLHttpRequest();
httpRequest.overrideMimeType('text/xml');

Berikutnya anda harus memutuskan apa yang anda lakukan setelah server menerima request, dengan menggunakan JavaScript kita dapat memanggil fungsi onreadystatechange dan menambahkannya seperti ini:

httpRequest.onreadystatechange = nameOfTheFunction;
Catat: pada variabel nameOfTheFunction tidak ada Kurung tutup dan parameter karena anda hanya menambah referensi ke fungsi yang lain saja. Sebenarnya disini kita dapat menambahkan fungsi JavaScript sehingga dapat diproses saat itu juga, maka scriptnya akan terlihat seperti ini.

httpRequest.onreadystatechange = function(){
// taruh kode anda disini
};

Setelah anda melakukan deklarasi variabel dan telah mendapat respon dari server kita lakukan request data dari server dengan menggunakan fungsi open() dan send() seperti ini:

httpRequest.open('GET', 'http://www.example.org/some.file', true);
httpRequest.send(null);

bersambung...........

21 Alasan kenapa kita harus merokok

noreply@blogger.com (Aiska Hendra) — Sun, 01 Jul 2007 02:26:00 +0000

1. Perokok pasif lebih berbahaya daripada perokok aktif, maka untuk
mengurangi resiko tersebut aktiflah merokok.

2. Menghindarkan dari perbuatan jahat karena tidak pernah ditemui orang
yang membunuh, mencuri dan berkelahi sambil merokok.

3. Mengurangi resiko kematian: Dalam berita tidak pernah ditemui orang
yang meninggal dalam posisi merokok.

4. Berbuat amal kebaikan: Kalau ada orang yang mau pinjam korek api
paling tidak sudah siap / tidak mengecewakan orang yang
ingin meminjam.

5. Baik untuk basa-basi / keakraban: Kalau ketemu orang misalnya di
Halte CJDW kita bisa tawarkan rokok. Kalau basa-basinya
tawarkan uang kan nggak lucu.

6. Memberikan lapangan kerja bagi buruh rokok, dokter, pedagang asongan
dan perusahaan obat batuk.

7. Bisa untuk alasan untuk tambah gaji karena ada post untuk rokok dan
resiko baju berlubang kena api rokok.

8. Bisa menambah suasana pedesaan / nature bagi ruangan ber AC dengan
asapnya:) sehingga se-olah berkabut.

9. Menghilangkan bau wangian ruang bagi yang alergi bau parfum.

10. Kalau mobil mogok karena busi ngadat tidak ada api, maka sudah siap
api.

11. Membantu program KB dan mengurangi penyelewengan karena konon
katanya merokokbisa menyebabkan impoten.

12. Melatih kesabaran dan menambah semangat pantang menyerah karena
bagi pemula merokok itu tidak mudah, batuk dan
tersedak tapi tetap diteruskan (bagi yang lulus).

13. Untuk indikator kesehatan: Biasanya orang yang sakit pasti dilarang
dulu merokok. Jadi yang merokok itu pasti orang sehat.

14. Menambah kenikmatan: Sore hari minum kopi dan makan pisang goreng
sungguh nikmat. Apalagi ditambah merokok!

15. Tanda kalau hari sudah pagi, kita pasti mendengar ayam merokok.

16. Anti maling, waktu perokok batuk berat di malam hari.

17. Membantu shooting film keji, rokok digunakan penjahat buat nyundut
jagoan yang terikat dikursi... Ha penderitaan itu pedih
jendral...!!!

18. Film Koboy pasti lebih gaya kalau merokok sambil naik kuda, soalnya
kalau sambil ngupil susah betul.

19. Teman boker yang setia.

20. Bahan inspirasi dan pendukung membuat Tugas Akhir, sehingga
seharusnya dicantumkanterima kasih untuk rokok pada kata
sambutan

21. Film lebih cool soalnya kalo meledakan mobil atau pom bensin butuh
rokok yang disentil ke bensin yang tercecer,
kaboom.........!!!

AYOOO MEROKOKKK....

PHP

noreply@blogger.com (Aiska Hendra) — Wed, 02 Feb 2005 06:28:00 +0000

Sepulang dari warnet sore kemaren gw langsung balik ama asep dia pengen liat hasil web PHP tentang Surat kabar online buat tugas akhirnya, untung webnya dah kelar cuman dia minta gw untuk buat analisis algoritmanya. Nah gw bingung tuh btw gw ga pernah kuliah di TI jadi gw ga bisa bikin analisa algoritmanya tapi klo analisa programnya setiap programmer yang membuat program pasti bisa lah tapi klo analisa Algiritma khan text book sedangkan gw ga punya buku-buku tentang TI, paling punyanya cuman e-book dari internet klo hanya sekedar membuat flowcart alur program mungkin gw bisa.

Pass gw dah nyampe di rumah gila badan gw langsung ngedrop, mungkin gara-gara kemaren gw ngga tidur kali yah, nyokap sampe marah tuh ke gw. Abis minum obat trus gw langsung merebahkan badan dikasur n tidur trus Asep buka web phpnya.

Selang 2 jam akhirnya gw terbangun badan gw sakit semua jadi ga bisa tidur, trus gw minum segelas air n gw liat asep masih berkutat di komputer trus dia nanya hen, install apache, mysql sama PHPnya gimana ? dalam hati gw ngomong waduh gawat nih install paket php aja ga bisa. Trus gw teringat 1 tahun yang lalu ketika Ai minta bikinin Program sistem penggajian pada Bappeda programnya nyaris ditolak karena dia ngga bisa jawab tentang class module di VB6 sedangkan di program itu gw lebih banyak nulis kodenya di class module

setelah gw ngajarin asep nginstall Apache, PHP n MySql akhirnya dia pulang n gw lanjutin tidurnya dah, tadinya sih gw pengen nyelesaiin tuh program, tapi berhubung badan gw ga mendukung akhirnya tidur aja

awstats 5.7 - 6.2 Bugs

noreply@blogger.com (Aiska Hendra) — Tue, 01 Feb 2005 04:13:00 +0000

untuk beberapa situs yang menggunakan awstats 5.7 sampai dengan 6.2 sebagai statistic counternya harus berhati-hati karena didalam script tersebut terdapat bugs pada file awstats.pl di baris 1082 dimana listing programnya adalah sebagai berikut :

if (open(CONFIG,"$searchdir$PROG.$SiteConfig.conf"))

dari listing program diatas variable searchdir dapat digunakan oleh sang penyerang dari direktori config, untuk mencari file config yang ada dalam web server. Jadi kesimpulannya sang penyerang dapat melakukan perintah ke web server dengan menambahkan karakter "|"

sang penyerang yang dapat melakukan exploitasi ini akan mendapatkan hak akses selayaknya hak local akses dan dapat mematikan web server, artinya beberapa host yang ada disana akan mati dan tidak dapat diakses.

Serem Hiks.....

Untuk itu segera update awstats anda ke versi 6.3 dan waspadai segala kemungkinan yang ada.

Btw cara exploitasinya gimana yah koq gw idiot banget sih hehehehehe....

Gw sampe sekarang masih mempelajari exploit scriptnya buat temen-temen yang udah bisa jangan lupa kasih tau gw yah ^_^

exploit scriptnya bisa diambil disini

Belajar C++

noreply@blogger.com (Aiska Hendra) — Tue, 01 Feb 2005 02:22:00 +0000

Semalem sehabis pulang dari warnet gw langsung nyalain komputer lagi dirumah,di tengah malem yang sepi itu gw buka file-file lama gw dan gw liat folder project VB. Gila dah hampir satu taun gw ngga nerusin tuh project Accounting padahal tuh project dah 60%. Hmm.... kayanya nih project dah basi dah hari gini masih pake VB6 sedangkan yang laen dah beralih ke VB.Net jadi gw pikir tanggung lah ntar aja gw migrasi dulu nih project ke VB.Net tapi berhubung sekarang gw blom punya CDnya yaah gw tinggalin aja tuh project. Trus gw bongkar-bongkar lagi dah file-file gw.

Oh iya gw baru inget kemaren Yudi ngajakin gw bikin kelompok belajar C++, tapi sebenernya pemahaman gw tentang C apalagi C++ masih dasar banget, gw blank banget sama bahasa pemrogramaman yang satu ini, akhirnya hasrat keingin tahuan gw bergejolak begitu besar trus gw install deh program turbo C++ yang dikasih sama Yudi kemaren. Setelah gw install tuh program...... bwah!!! kaget gw gila nih program inget jamannya ws dulu hehehe... nih program bener-bener text programming ngga suport object oriented programing wah bingung deh ngga ada desain grafisnya lagi. Tapi gapapa degh namanya juga belajar. Hmm....

find *.c C:

wah banyak juga nih filenya akhirnya gw coba buka salah satu file berekstensi .c gw lupa namanya, setelah gw buka, gile bener nih program ruwet amat yah. menit demi menit jam demi jam gw coba memahami struktur bahasanya sambil membuka beberapa e-book yang udah gw donlod kemaren, dan ternyata gw masih bingung. ahh daripada bingung gw compile aja nih project jadi penasaran pengen liat hasilnya...

Dan akhirnya gw compile tuh project Tapi.... Gedubbraakk.... anjrit monitornya bluescreen wadaw system crash mampus dah gw. Dalam hati terus bergumam Emang dasar gobloq luh pantes aja nick loe IdiOot masih blom pinter-pinter juga luh. 1 menit gw pandengin tuh monitor yang berwarna biru akhirnya senjata ctrl+alt+del keluar dah. Apa yang salah yah, sambil menunggu kompy yang lagi booting gw bikin kopi n liat jam ternyata dah jam 4 subuh ngga kerasa ngutak-ngatik gituan sampe sepagi ini mana besok gw jaga pagi lagi tapi gpp deh yang jelas ini pengalaman pertama gw belajar pemrograman C++ pake turbo C yang nota bene text programing ntar klo gw dah ada rejeki gw beli deh CD Visual C++ biar programingnya lebih asiik.

Pusing

noreply@blogger.com (Aiska Hendra) — Mon, 31 Jan 2005 11:07:00 +0000

Gila hari ini gw pusing banget ditambah lagi badan mana badan gw merampang panas dingin ngga karuan, mungkin karena cuaca hari ini tidak berpihak ke gw kali yah. Bayangkan dalam 2 bulan terakhir ini gw dah terserang flu sebanyak 3 kali, padahal gw dah berhenti merokok selama 1 setengah bulan ini. Mungkin ini adalah cobaan agar gw dapat menjaga kesehatan gw. Ternyata kesehatan itu sangat penting bro.

Sekarang adalah akhir bulan saatnya gw nunggu gajian, tapi sayang bulan ini banyak banget pengeluaran gw kayanya gw ngga bakalan kebeli pulsa nih untuk bulan ini. Sedangkan pulsa telepon rumah gw membengkak kaya Anggaran Pemda yang terus membengkak, gila aja gaji gw untuk bulan ini aja blom bisa buat nutupin telepon rumah gw, pusing banget yah terpaksa gali lobang tutup lobang. Kalo hidup gw kaya gini terus kapan gw bisa nikah. Sekarang aja kuliah gw dah berantakan, ancur ngga karuan ngga tau dah apa mau diterusin atau gw tinggalin. Cobaan yang menimpa gw saat ini berat banget, mudah-mudahan gw selalu dilindungi oleh Allah dalam menghadapi segala cobaan ini Mudah-mudahan ada proyek yang dateng ke gw entah bikin web atau bikin program, karena sampe sekarang gw masih pusing mikirin buat buayar telepon rumah nih.

Gw terus berharap semoga gw dapet pekerjaan yang lebih baik dan layak biar bisa merried, karena adek kecil gw dah tahan lagi nih ^_^

Mail Registration

noreply@blogger.com (Aiska Hendra) — Sun, 30 Jan 2005 09:49:00 +0000

Seteleh Sekian lama saya mencari akhirnya aktivasi email yang terdapat pada PHP-Nuke saya dapat dimanipulasi sehingga bagi user yang ingin mendaftarkan keanggotaannya dapat melakukan registrasi. Melihat web site SMU Nepal dapat berjalan kembali aku sangat senang karena untuk mencari solusi tersebut sangat sulit sekali aku harus membongkar kode PHP yang segitu banyaknya dan aku cek satu-satu tapi dengan keyakinan yang aku miliki saat ini akhirnya aku dapat melakukannya sehingga web Portal SMU Nepal dapat berjalan sebagaimana mestinya. Sekarang langkah selanjutnya adalah melakukan promosi terhadap Web ini. dan bagaimana agar web ini dapat dikenal oleh masyarakat luas
Salah satu cara yang disarankan oleh mas isnaini adalah dengan memberitahukan kepada pihak sekolah bahwa SMU Negeri Palimana telah memiliki Web Site. Mudah-mudahan semua ini dapat berjalan sebagai mana mestinya