Langsung ke konten utama

penyelesaian fungsi search pada aplikasi kosan (kelompok 5)

akhirnya jumat, 25 maret 2011 jam 11an sebelum jumatan..hehe saya berhasil menemukan cara agar fungsi search by 5 criteria yang kemarin

- kemarin membuat saya uring - uringan Lebay. Pada awalnya saya bingung mau diapain sih nih fungsi kok kaga bisa jalan..

tetapai jen jeng jeeeenng..!!! terkabul doa saya selama 9 bulan lebih beberapa minggu di dalam kandungan ibu saya..hehe.

Tapi menurut saya script code-nya masih belum begitu efektif dan sepertinya masih ada yang belum berjalan dengan lancar

walaupun satu atau dua.

 Jadi begini, saya jelaskan dulu apa yang sudah saya bilang search by 5 criteria tadi. maklum karna saya masih cupu masalah

beginian jadi cuma dihadepin masalah if bersarang di sarangnya if aja bingung. hehehe

karena aplikasi kami ini bergerak di bidang pencarian kosan dengan batasan hanya wilayah kawasan pendidikan telkom saja

jadi kami hanya mengambil 3 daerah tersering diingat orang yaitu Sukapura, PGA, dan Sukabirus.

jadi 5 kriteria tadi adalah pecarian berdasarkan gender, klasifikasi harga, fasilitas furniture yang ada di kosan tersebut,

fasilitas kamar mandi, dan kriteria luas kamar kosan. Sehingga menurut saya, gak bisa dihindari lagi bahwa saya akan

menggunakan if bersarang seperti yang tadi sudah saya bilang. Kemudian dari fungsi tersebut, aplikasi kami akan menampilkan

kosan mana saja yang ter-select berdasarkan kriteria yang tadi di pilih oleh si user. Namun tantangannya adalah si user

dapat memilih kriteria tadi dengan berbagai kondisi. Artinya user dapat melakukan berbagai kombinasi pencarain dengan 5

kriteria tadi berapapun dan apa pun kriteria yang dipilih. Berikut tampilan interface dan potongan script code-nya:

                                                           gambar tampilan home

                                             


                                                   gambar saat masuk ke fungsi search




                                                                  gambar hasil search




ini potongan script code-nya :
' *******Cari daerah PGA********
' ******* 1 kriteria ***********
     If Cmbdaerah.text = "PGA" And (Cmbgender.text = "pria" Or Cmbgender.text = "wanita" Or Cmbgender.text = "campur") Then
          FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
          FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
        If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
              FormHome.Mapinfo.Runmenucommand 306
          FormHome.Mapinfo.Do " set map zoom 0.5"
        End If
            FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where gender = """ + Formsearch2.Cmbgender.text + """"
        Else
        If Cmbdaerah.text = "PGA" And (Cmbharga.text = "dibawah 3 juta" Or Cmbharga.text = "antara 3 juta sampai 6 juta" Or Cmbharga.text = "diatas 6 juta") Then
           FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
           FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
           If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
              FormHome.Mapinfo.Runmenucommand 306
          FormHome.Mapinfo.Do " set map zoom 0.5"
           End If
              FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where segmen_harga = """ + Formsearch2.Cmbharga.text + """"
           Else
           If Cmbdaerah.text = "PGA" And (Cmbfasifur.text = "isi" Or Cmbfasifur.text = "kosong") Then
              FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
              FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
              If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
                 FormHome.Mapinfo.Runmenucommand 306
             FormHome.Mapinfo.Do " set map zoom 0.5"
              End If
                 FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where fasilitas_furniture = """ + Formsearch2.Cmbfasifur.text + """"
              Else
          If Cmbdaerah.text = "PGA" And (Cmbfasikm.text = "dalam" Or Cmbfasikm.text = "luar") Then
                 FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
                 FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
                 If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
                    FormHome.Mapinfo.Runmenucommand 306
                FormHome.Mapinfo.Do " set map zoom 0.5"
                 End If
                    FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where fasilitas_kamar_mandi = """ + Formsearch2.Cmbfasikm.text + """"
                 Else
                 If Cmbdaerah.text = "PGA" And (Cmbluas.text = "dibawah 9 m persegi" Or Cmbluas.text = "antara 9m sampai 16m persegi" Or Cmbluas.text = "diatas 16 m persegi") Then
                  FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
                      FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
                  If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
                     FormHome.Mapinfo.Runmenucommand 306
                     FormHome.Mapinfo.Do " set map zoom 0.5"
                  End If
                     FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where kriteria_kamar = """ + Formsearch2.Cmbluas.text + """"
                      Else

' ******* 2 kriteria ***********
' (1) - 2
If Cmbdaerah.text = "PGA" And (Cmbgender.text = "pria" Or Cmbgender.text = "wanita" Or Cmbgender.text = "campur") And (Cmbharga.text = "dibawah 3 juta" Or Cmbharga.text = "antara 3 juta sampai 6 juta" Or Cmbharga.text = "diatas 6 juta") Then
   FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
   FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
   If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
       FormHome.Mapinfo.Runmenucommand 306
       FormHome.Mapinfo.Do " set map zoom 0.5"
   End If
       FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where gender = """ + Formsearch2.Cmbgender.text + """ And segmen_harga = """ + Formsearch2.Cmbharga.text + """"
       Else
' (1) - 3
If Cmbdaerah.text = "PGA" And (Cmbgender.text = "pria" Or Cmbgender.text = "wanita" Or Cmbgender.text = "campur") And (Cmbfasifur.text = "isi" Or Cmbfasifur.text = "kosong") Then
   FormHome.Mapinfo.Do "Find Using layer_kosan_PGA (nomor)"
   FormHome.Mapinfo.Do "Find """ & Formsearch2.Cmbdaerah.text & """"
   If (Val(FormHome.Mapinfo.eval("CommandInfo(3)")) >= 1) Then
       FormHome.Mapinfo.Runmenucommand 306
       FormHome.Mapinfo.Do " set map zoom 0.5"
   End If
       FormHome.Mapinfo.Do "Select nomor from layer_kosan_PGA where gender = """ + Formsearch2.Cmbgender.text + """ And fasilitas_furniture = """ + Formsearch2.Cmbfasifur.text + """"
       Else


ok.. sekian  hehehehe
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

Metode Penentuan Lokasi

halo kawan - kawin .. maksudnya kawan-kawan.. udah lama gak posting.. karena modem gw agak terganggu jiwanya..lagian gak enak aja kalo ngepost pake modem orang, gak reseppp dah..hehe. maap beribu maap ya.. oke langsung aja, kemarin-kemarin gw gak sengaja nemu artikel tentang cara nentuin lokasi pake beberapa metode trus sekalian aja gw baca dan niatnya pengen gw share disini.. 1. Location Factor Rating (Methode) Location Factor Rating Adalah sebuah metode penentuan lokasi yang mementingkan adanya obyektifitas dalam proses mengenali biaya yang sulit untuk dievaluasi. Faktor yang dipertimbangkan factor baik yang kualitatif maupun kuantitatif dianalisis dengan cara mengkuantifisir semua factor. langkah-langkah yang perlu dilakukan dalam Location Factor Rating : 1. Membuat daftar factor yang berhubungan yang sering disebut factor kunci sukses      (critical success factors – CSFs) 2. Buat pembobotan untuk setiap factor yang te...
2 komentar
Baca selengkapnya
WHO AM I IN THE PAST Bagian Pertama Masa SMA adalah semua kejadian unik yang paling gak bisa dilupain ketika lw gak lagi duduk di bangku kelas pake seragam atas putih-bawah abu. Apapun kasta lw sewaktu di SMA dulu, mau lw itu termasuk kasta asisten jongos kelas 3 kek, atau lw yang jadi atasan dari jongos2 yang memiliki banyak bawahan buat minta-in uang palak-an di tempat parkir n gerbang depan, emhft.. atau lw adalah seorang yang Cuma berangkat ke sekolah,duduk dan konsen belajar terus dapet nilai ulangan di atas rata2. Yang pasti itu yang bikin sekarang gw merengung sambil senyam-senyum sendirian di kamar gw yang sepi. Nama gw, ezza. Cowo kacamata minus, kurang tinggi, n belum gaul. Semua adalah nama samaran biar cerita kenangan yang begini gak mengacau kedepannya. Lanjut.. Gw gak ngerti kenapa gw jadi pengen nulis cerita kenangan dulu gw waktu di SMA. Padahal sebenernya ga pernah ad terlintas di otak gw yang saat ini gw isi ama hal yang berbau a...
Posting Komentar
Baca selengkapnya