Category Archives: Uncategorized

[Dokumentasi] Fungsi terbilang pada Microsoft SQL

Hasil dari browsing diinternet untuk fungsi terbilang pada Microsoft SQL Server.
Sumber : http://songkar13.blogspot.com/2013/10/membuat-fungsi-terbilang-di-sql-server.html
CREATE FUNCTION terbilang(@the_amount money)
RETURNS varchar(250) AS
BEGIN
DECLARE
    @divisor    bigint,
    @large_amount    money,
    @tiny_amount    money,
    @the_word    varchar(250),
    @dividen    money,
    @dummy        money,
    @weight    varchar(100),
    @unit        varchar(30),
    @follower    varchar(50),
    @prefix    varchar(10),
    @sufix        varchar(10)
–SET NOCOUNT ON
SET @the_word = ”
SET @large_amount = FLOOR(ABS(@the_amount) )
SET @tiny_amount = ROUND((ABS(@the_amount) – @large_amount ) * 100.00,0)
SET @divisor = 1000000000000.00
IF @large_amount > @divisor * 1000.00
    RETURN ‘OUT OF RANGE’
   
WHILE @divisor >= 1
BEGIN       
    SET @dividen = FLOOR(@large_amount / @divisor)
    SET @large_amount = CONVERT(bigint,@large_amount) % @divisor
   
    SET @unit = ”
    IF @dividen > 0.00
        SET @unit=(CASE @divisor
            WHEN 1000000000000.00 THEN ‘TRILYUN ‘
            WHEN 1000000000.00 THEN ‘MILYAR ‘           
            WHEN 1000000.00 THEN ‘JUTA ‘               
            WHEN 1000.00 THEN ‘RIBU ‘
            ELSE @unit
        END )
    SET @weight = ”   
    SET @dummy = @dividen
    IF @dummy >= 100.00
        SET @weight = (CASE FLOOR(@dummy / 100.00)
            WHEN 1 THEN ‘SE’
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END ) + ‘RATUS ‘
    SET @dummy = CONVERT(bigint,@dividen) % 100
    IF @dummy < 10.00
    BEGIN
        IF @dummy = 1.00 AND @unit = ‘RIBU’
        BEGIN
            IF @dividen=@dummy
                SET @weight = @weight + ‘SE’
            ELSE
                SET @weight = @weight + ‘SATU ‘
        END
        ELSE
        IF @dummy > 0.00
            SET @weight = @weight + (CASE @dummy
                WHEN 1 THEN ‘SATU ‘
                WHEN 2 THEN ‘DUA ‘
                WHEN 3 THEN ‘TIGA ‘
                WHEN 4 THEN ‘EMPAT ‘
                WHEN 5 THEN ‘LIMA ‘
                WHEN 6 THEN ‘ENAM ‘
                WHEN 7 THEN ‘TUJUH ‘
                WHEN 8 THEN ‘DELAPAN ‘
                ELSE ‘SEMBILAN ‘ END)
    END
    ELSE
    IF @dummy BETWEEN 11 AND 19
        SET @weight = @weight + (CASE CONVERT(bigint,@dummy) % 10
            WHEN 1 THEN ‘SE’
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END ) + ‘BELAS ‘
    ELSE
    BEGIN
        SET @weight = @weight + (CASE FLOOR(@dummy / 10)
            WHEN 1 THEN ‘SE’
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END ) + ‘PULUH ‘
        IF CONVERT(bigint,@dummy) % 10 > 0
            SET @weight = @weight + (CASE CONVERT(bigint,@dummy) % 10
                WHEN 1 THEN ‘SATU ‘
                WHEN 2 THEN ‘DUA ‘
                WHEN 3 THEN ‘TIGA ‘
                WHEN 4 THEN ‘EMPAT ‘
                WHEN 5 THEN ‘LIMA ‘
                WHEN 6 THEN ‘ENAM ‘
                WHEN 7 THEN ‘TUJUH ‘
                WHEN 8 THEN ‘DELAPAN ‘
                ELSE ‘SEMBILAN ‘ END )
    END
   
    SET @the_word = @the_word + @weight + @unit
    SET @divisor = @divisor / 1000.00
END
IF FLOOR(@the_amount) = 0.00
    SET @the_word = ‘NOL ‘
SET @follower = ”
IF @tiny_amount < 10.00
BEGIN   
    IF @tiny_amount > 0.00
        SET @follower = ‘KOMA NOL ‘ + (CASE @tiny_amount
            WHEN 1 THEN ‘SATU ‘
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END)
END
ELSE
BEGIN
    SET @follower = ‘KOMA ‘ + (CASE FLOOR(@tiny_amount / 10.00)
            WHEN 1 THEN ‘SATU ‘
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END)
    IF CONVERT(bigint,@tiny_amount) % 10 > 0
        SET @follower = @follower + (CASE CONVERT(bigint,@tiny_amount) % 10
            WHEN 1 THEN ‘SATU ‘
            WHEN 2 THEN ‘DUA ‘
            WHEN 3 THEN ‘TIGA ‘
            WHEN 4 THEN ‘EMPAT ‘
            WHEN 5 THEN ‘LIMA ‘
            WHEN 6 THEN ‘ENAM ‘
            WHEN 7 THEN ‘TUJUH ‘
            WHEN 8 THEN ‘DELAPAN ‘
            ELSE ‘SEMBILAN ‘ END)
END
   
SET @the_word = @the_word + @follower
IF @the_amount < 0.00
    SET @the_word = ‘MINUS ‘ + @the_word
   
RETURN @the_word
END

[Dokumentasi] Contoh sederhana export excel dari Visual Basic 6.0

Dalam pemrograman basisdata, sebagai programmer, kita dituntut untuk dapat menghasilkan output berupa laporan. Cara menghasilkan laporan tersebut tentunya berbeda-beda. Salah satu cara menghasilkan output laporan adalah menampilkan laporan tersebut ke excel.
Berikut ini diuraikan langkah-langkah pembuatan output excel sederhana dengan menggunakan Visual Basic 6.0 :

  1. Buat satu project baru pada visual basic 6.0
  2. Tambahkan 1 CommandButton pada form dan beri nama Command1
  3. Buka code viewer pada form yang telah disediakan CommandButton tadi Deklarasikan object untuk menghasilkan file excel

    Dim oExcel As Object

    Dim oBook As Object
    Dim oSheet As Object
  4. Double Click pada CommandButton tadi untuk menambahkan code pada event click’- Set object yang telah dideklarasikan sebelumnya untuk membuat objek Excel
    Set oExcel = CreateObject(“Excel.Application”)
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oBook.Worksheets(1)‘- Lakukan pengaturan untuk masing-masing kolom
    oExcel.ActiveSheet.Cells(1, 1).ColumnWidth = 10
    oExcel.ActiveSheet.Cells(1, 2).ColumnWidth = 25
    oExcel.ActiveSheet.Cells(1, 3).ColumnWidth = 16
    ‘- Untuk membuat border pada cell, dapat dilihat pada listing code berikut
    ‘Borders Param -> 1 = left, 2 = right, 3 = top, 4 = bottom
    ‘LineStyle -> 1 = Continuos
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(1).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(2).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(3).LineStyle = 1
    oExcel.Range(oExcel.ActiveSheet.Cells(1, 1), oExcel.ActiveSheet.Cells(6, 3)).Borders(4).LineStyle = 1
    ‘- Lakukan pengaturan alignment pada cell
    ‘Set HorizontalAlignment per Cell
    oExcel.ActiveSheet.Cells(1, 1).HorizontalAlignment() = 3
    oExcel.ActiveSheet.Cells(1, 2).HorizontalAlignment() = 3
    oExcel.ActiveSheet.Cells(1, 3).HorizontalAlignment() = 3
    ‘- Pengaturan alignment juga dapat dilakukan sekaligus pada beberapa cell
    ‘Set HorizontalAlignment per Range
    oExcel.Range(oExcel.ActiveSheet.Cells(2, 1), oExcel.ActiveSheet.Cells(6, 1)).HorizontalAlignment() = 3
    ‘- Tampilkan data yang ingin dimuat dalam file excel tersebut, data dapat pula diambil dari database
    ‘Set Text into cells
    oExcel.ActiveSheet.Cells(1, 1).Value = “Nomor”
    oExcel.ActiveSheet.Cells(1, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(1, 3).Value = “Jumlah”
    oExcel.ActiveSheet.Cells(2, 1).Value = “1”
    oExcel.ActiveSheet.Cells(2, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(2, 3).Value = “Jumlah”
    oExcel.ActiveSheet.Cells(3, 1).Value = “2”
    oExcel.ActiveSheet.Cells(3, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(3, 3).Value = “Jumlah”
    oExcel.ActiveSheet.Cells(4, 1).Value = “3”
    oExcel.ActiveSheet.Cells(4, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(4, 3).Value = “Jumlah”
    oExcel.ActiveSheet.Cells(5, 1).Value = “4”
    oExcel.ActiveSheet.Cells(5, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(5, 3).Value = “Jumlah”
    oExcel.ActiveSheet.Cells(6, 1).Value = “5”
    oExcel.ActiveSheet.Cells(6, 2).Value = “Nama”
    oExcel.ActiveSheet.Cells(6, 3).Value = “Jumlah”
    ‘- Simpan file excel tersebut ke media penyimpanan
    ‘Save Excel File to Drive C
    oBook.SaveAs “C:Book1.xlsx”
    ‘- Tampilkan file excel yang telah dibuat
    ‘Show Excel , and if you wanna hide it, set to false
    oExcel.Visible = True
    ‘- Setelah selesai proses pembuatan file, kita dapat keluar dari excel
    ‘Exit from Excel
    oExcel.Quit
  5. Lakukan modifikasi sesuai kebutuhan Anda…

———————->>> bersambung  pada sesi export excel selanjutnya

[Dokumentasi] Konfigurasi PHP agar mendukung DB PostgreSQL

Pada saat kita menginstall PHP baik dengan menginstal paket PHP yang terpisah dengan Apache ataupun yang satu paket dengan Apachenya (ex : XAMPP), terkadang PHP tersebut belum mendukung penggunaan database PostgreSQL, untuk menjadikan PHP dapat mendukung penggunaan database PostgreSQL, berikut ini langkah-langkah yang perlu dilakukan :
a. Windows

  1. Edit php.ini dan php-pear.ini
  2.  Hilangkan tanda comment (;) pada
    • extension=php_pdo_pgsql.dll
    • extension=php_pgsql.dll
  3. Tambahkan path lokasi folder bin Postgre pada Environment Variable -> path
    ex : C:Program FilesPostgreSQL8.3bin
  4. Restart Windows
b. Debian
  1. Install paket php, postgresql, dan paket php postgre nya
    -> apt-get install php5-pgsql
    -> apt-get install libpq-dev
    apt-get install postgresql-8.4 php5-pgsql
  2. tambahkan baris berikut ke php.ini
    extension=pgsql.so
    extension=pdo_pgsql.so
  3. Restart service apachenya

[Dokumentasi] Membuat Contoh Controller (Code Igniter 2.0.2)

Berikut ini contoh sederhana Controller beserta penjelasan listing code nya

  1. Kita buat 1 contoh controller yang akan kita tampilkan, dalm hal ini dinamakan file c_hello_world.php
    class C_Hello_World extends CI_Controller {
    function __construct() {
    //
    }
    function index() {
    echo “index”;
    }
    function testFungsiLain() {
    echo “test fungsi lain”;
    }
    }
    /*end of file*/Penjelasan kode :

    • class C_Hello_World extends CI_Controller : deklarasi class dengan nama C_Hello_World yang di inherit dari class CI_Controller, yakni class Code Igniter yang menangani controller
    • function __construct() -> merupakan konstruktor, yang merupakan fungsi yang akan dijalankan paling awal, akan tetapi boleh di tiadakan
    • function index() -> merupakan fungsi default, jika saat memanggil class tanpa menyebutkan fungsinya
    • function testFungsiLain() -> merupakan salah satu contoh fungsi lain
  2. Buka salah satu browser untuk menjalankannya, cara memanggilnya :
    • Dengan mengetikkan -> http://localhost/CodeIgniter/index.php/c_hello_world
      • – index.php -> merupakan file index pada folder controller
      • – c_hello_world -> nama file yang telah dibuat, namun tanpa mengetikkan ekstensinya
      • – Hasil yang akan ditampilkan adalah index, karena secara default akan dipanggil fungsi index()
    • Dengan mengetikkan -> http://localhost/CodeIgniter/index.php/c_hello_world/testFungsiLain
      • testFungsiLain -> nama fungsi yang telah disebutkan secara spesifik
      • Hasil yang akan ditampilkan adalah index, karena secara default akan dipanggil fungsi index()

WebRepOverall rating

[Dokumentasi] Reset password Postgres (Ubuntu dan Debian)

Jika kita lupa atau tidak mengetahui password dari User Postgres, berikut langkah-langkah yang bisa kita lakukan untuk menggantinya dengan password yang baru

  1. Masuk ke dalam folder konfigurasi postgreSQL (dalam hal ini saya menggunakan postgresql 8.4)
    -> cd /etc/postgresql/8.4/main
  2. Backup file pg_hba.conf
    -> cp pg_hba.conf pg_hba.confbak
  3. Edit file pg_hba.conf
    -> sudo vim pg_hba.conf# TYPE DATABASE USER CIDR-ADDRESS METHOD
    # “local” is for unit domain socket connections only
    local   all   all   md5
    menjadi
    # TYPE DATABASE USER CIDR-ADDRESS METHOD
    # “local” is for unit domain socket connections only
    local   all   all   trust
  4. Restart service postgres
    -> ./../../../init.d/postgresql-8.4 restart
    atau
    -> ./../../../init.d/postgresql-8.4 reload
  5. masuk ke postgres dengan menggunakan template1
    – pada UBUNTU, jalankan perintah berikut
    -> sudo -u postgres psql template1
    – pada DEBIAN, jalankan perintah berikut
    -> su postgres -c psql template1
  6. Ubah password postgres dengan perintah sql
    -> ALTER USER postgres WITH PASSWORD ‘passwordanda’;
  7. keluar dari postgreSQL
    -> q
  8. Edit kembali file pg_hba.conf
    -> sudo vim pg_hba.conf# TYPE DATABASE USER CIDR-ADDRESS METHOD
    # “local” is for unit domain socket connections only
    local   all   all   trust
    menjadi
    # TYPE DATABASE USER CIDR-ADDRESS METHOD
    # “local” is for unit domain socket connections only
    local   all   all   md5
  9. Restart service postgres
    -> ./../../../init.d/postgresql-8.4 restart
    atau
    -> ./../../../init.d/postgresql-8.4 reloadNote : setelah selesai, masuk ke postgre dg menjalankan perintah berikut:
    -> sudo psql -U postgres -h localhost -W
    password :

[Dokumentasi] Memulai Penggunaan yii framework

Yii adalah framework (kerangka kerja) PHP berbasis-komponen, berkinerja tinggi untuk pengembangan aplikasi Web berskala-besar. Yii menyediakan reusability maksimum dalam pemrograman Web dan mampu meningkatkan kecepatan pengembangan secara signifikan. Nama Yii (dieja sebagai /i:/ ) singkatan dari “Yes It Is!”.
Untuk membuat web dengan menggunakan framework yii, kita bisa membuat main project nya dengan menggunakan tool yiic (command line tool). Berikut langkah-langkah membuat aplikasi web yii dengan tool yiic.

  1. Download framework yii dari website yiiframework : http://www.yiiframework.com/download/
  2. Extract folder isi file archive yiiframework yang telah di download ke direktori htdocs.
  3. Rename folder yii tersebut menjadi “yii”
  4. Buka command prompt, dan masuk ke direktori htdocs/yii/framework jalankan perintah berikut :yiic webapp ../../namafolderaplikasi
  1. Jika proses berhasil, maka akan otomatis melakukan generate folder-folder dan file-file aplikasi dengan framework yii dan menampilkan pesan :

    Your application has been created successfully under [namafolderaplikasi]
  1. Coba jalankan browser, kemudian masukkan url http://localhost/namafolderaplikasiyii-index
  1. Untuk mencoba login, silahkan masukkan username dan password default : admin.