Remove service from windows services

kadang2 kita nak remove sesuatu service dari windows services atas sebab2 tertentu. boleh gunakan command ini

sc delete <servicename>

Garmin Mobile XT + Nokia E72

Nokia E72, kesinambungan kepada version paling berjaya, E71... begitula mengikut review2 yg byk kat internet...

Tidak dinafikan mmg berbaloi memiliki E72 ini. warna coklat keemasan nya mmg memikat dan sesuai utk wanita2 anggun zaman sekarang. yea.. my wife memilikinya... bukan aku... hahahha

setakat ini mmg berpuashati dgn belian ini. cuma ada 1 masalah jer yg buat aku keciwa... Garmin Mobile Xt ada masalah dgn Nokia E72 ini. selepas 4/5 min, applikasi ini akan hang/kejung.... lebih tepat sekali... kejung pada paparan peta nya... tapi suara dan penunjuk arah masih berjalan seperti biasa... cuma panduan menyusuri peta yg x jalan.

mmg mengecewakan.. kerana antara sebab utama aku aku memilih E72 ini adalah disebabkan fungsi GPS nya.. bila berlaku seperti inni.. mmg mengecewakan...

macam2 dah aku buat... dari mengunakan malfreemap hinggala malsingmaps.... mcm2 version garmin mobile... sampai version taiwan yg terpaksa di tweak utk membolehkannya berbahasa inggeris... semua x menyelesaikan masalah...

Aku target masalah berkaitan dgn peta. tapi x sure apa penyebab utama nya... sehinggala bila aku surf topik E72 kat lowyat... ada 1 forumer terpikir pasal 3D orentation/view. kami mencuba tukar kepada 2D orentation.... and.... WALLAAAAAA.... x de lg kekejungan dialami oleh Garmin...

Anda boleh mengubah setting orentation di

Start Garmin->tools->settings->map->orientation->north up@track up

aku prefer track up... but north up ok gak... cuma dia sentiasa menghala ke utara la...

jelas kat sini, Garmin on top of E72 ada masalah bila under 3D orentation. kira lega la skit.. walaupun kecewa mengenangkan x dpt nak fully utilize fungsi garmin sepenuhnya.. tapi cukup la utk setakat ini... kita tunggu shj update dari garmin or nokia utk masalah ini.... but... rasanya paling awal pun bulan february baru kita leh menikmati update patches nya... sebab E72 masih terlalu baru di pasaran lg.... sehingga waktu itu... marila kita pakai 2D punya orentation jer dulu... it's better than nothing... hahahahha....

Untuk aplikasi yg compatible bleh dicari di ovi store.. blum byk lg aplikasi yg di bangunkan... yg free pun x byk lg.....

Setakat ini aplikasi yg dah ada dlm my wife's E72

Facebook for E71/E72 (Ovi Store)

- cuma x best nya status dia keluar "Facebook for Prod S60..." x best langsung... kalau mcm iPhone & black berry kan best...

Chat (Ovi Store)

Youtube (Ovi Store)

Garmin Mobile XT (garmin website)

- better beli yg legal la... x elok pakai cetak rompak punya ... tapi kalau nak crack ... google bleh membantu... hehehhee...

Opera Mobile (Opera website) - much better pakai Opera dr browser nokia tu... payah gila nak pakai... function pun limited... kalau nak ringan better pakai Opera Mini compare to Opera Mobile... mini lg ringan.. tapi Opera mobile byk function... I like....

etc..

Happy birthday to me

hari ni birthday aku.... hahahah genap 29 tahun...ada lebih kurang setahun je lagi untuk mengecapi usia 20an.... isk dah tua aku ni..... hehehe

As umur aku menjangkau 30an... masih ada beberapa azam & target yg masih belum tercapai...

setakat ni alhamdulillah aku dah ada isteri & 3 org anak2 yg comel3 belaka... semua hero... thanxs utk isteri ku yg melahirkan anak2 yg comel2 ini. syukur kepada Allah SWT mengurniakan isteri & anak2 ku.

Thanxs utk isteri ku yg sempat gak dlm pantang membelikan hadiah utk ku. Jam tangan. dah lama sebenarnya aku x memiliki jam tangan. seingat aku selepas peristiwa jam tangan ku pecah terkena bucu tempat letak air di dining room hostel ITM arau dulu... around 1998 - 2001... aku x ingat exactly tahun nya... tapi tu la jam terakhir aku... jam jenama swatch pemberian abang alim. lepas tu aku x memiliki jam sampai la semalam. mungkin selepas memiliki HP, jam dah boleh tgk kat HP... so aku x ambil kisah sgt x de jam... so lepas ni.. x perlu la mengeluarkan HP semata2 utk tgk waktu semasa. hehehe... thanxs again utk ibu.

THANXS IBU...

Best Car Alarm Ever!!!

Please turn ur speaker on/loud... to feel the impact...

Muhammad Luqman Aqeel

Alhamdulillah,

isteriku selamat melahirkan seorg baby lelaki comel seberat 3.4kg pada hari khamis 12/11/2009.

Sehari sebelum tu dah keluar tanda2, tetapi dr kata esok nya baru baby nak keluar. so kami balik semula kerumah and pegi semula keesokan harinya.

Alhamdulillah Allah permudahkan segala urusan kelahiran. masuk labour room 10pg, 11 lebih pecah air ketuban dan 1:50 baby selamat dilahirkan.

semua OK cuma kami salah tgk package yg depa tawarkan. hahahahaha... sebelum ni arround RM18++ complete package utk bersalin. but utk kali ni kami salah tgk package. kami assume RM1250 complete package. rupanya ada term yg mengatakan exclude consultancy utk Dr. hahahahaha kene tambah RM700 lg. hampeh betul... patut la perasan... kenapa makin murah plak package sekarang ni.... hehehehhe... apapun semuanya dah selamat.Alhamdulillah.

Thanxs to cik nah sediakan makanan tengahhari utk ibu.

Thanxs utk semua yg mendoakan.

thanxs to all...

My laptop Mengong

lama x update... bz skit semenjak dua menjak ni... ditambah lak laptop aku yg start buat hal...

aku pun x tau nak citer camna... yg pasti laptop aku x leh charge battery dia... power x leh masuk... dah call dell depa kata kene tukar motherboard. quotation dari dell ... RM1070 utk tukar motherboard... or renew warranty RM1100.... perghhhhh.... x hengat punya....

pastu dari hari jumaat last week aku peram laptop aku... x on langsung.... balik keje hari isnin tu aku try on sebab terkejut tgk dell punya quotation... sekali bleh plak on... tapi jadi mcm ni...

bila cucuk daptor... battery x charging... tapi battery punya meter turun dlm kadar yg sgt perlahan... kalau cabut adaptor... battery punya meter mcm biasa...

bila cabut adaptor tanpa battery laptop x leh on... tension kawe....

Ayam Penyet

Hari yang memenatkan...

Pagi hantar wife checkup... so far alhamdulillah everything normal kata Dr. hopefully semua berjalan lancar... amin.

Lepas tu kami mengembara dari utara ke selatan, timur ke barat mencari barang2 yg perlu dicari dan menyetelkan hal2 yg x setel...

Tengahari kami berpakat utk makan ayam penyet. ibu dah mengidam dari awak pregnant lg... abah je x sempat nak bawak ibu. so ibu ajak makan ayam penyet di sunway. restoran ayam penyet ini berhadapan dgn sunway piramid. ada dua kedai ayam penyet di situ... target kami restoran ayam penyet Ria. sebab ibu pernah makan disitu.

cakap byk pun x bleh... tgk je la gambar2 di bawah ni...

THE PERFECT DRIFT D1 TOYO NISSAN RPS13

I'm a big fan of drift sport enjoy....

Birthday Ibu

16hb Oktober birthday ibu. abah x sempat(x da duit sebetulnya) nak bawak ibu g makan2. so just bawak ibu g secret recipe seksyen 18 jer.. dekat dgn rumah.

tapi yg order kek bukan ibu... hairi yg order... hahahhahaa..

Favorite spot Danish

Abang hairi dgn kek kesukaannya

Ibu pilih menu.

Baby Scan

Menanti ahli baru dalam keluarga

Salam,

Bulan depan.. kalau ikut perkiraan Doktor, dalam 26hb November 2009, kami akan menerima ahli baru dalam keluarga kami. adik kepada Muhammad Luqman Danish. Dah scan, it's boy .... again.... alhamdulillah.... 3 org hero.... semoga semua menjadi anak2 yg soleh. tapi org kata selagi x keluar kemungkinan boy or girl masih ada... kita tunggu je la nanti... apa pun.. anak itu rezeki.

Doakan la my wife selamat melahirkan anak kami nanti tanpa sebarang masalah. doakan dipermudahkan segala2 nya... doakan juga kami dikurniakan anak yg cukup sifat & sedap mata memandang. hensem & macho mcm abah dia dah dikira bonus... hehehehhehe... doakan juga ia nanti menjadi anak yg soleh. hormat kedua ibu bapa dan org2 yg sepatutnya dihormati. taat perintah tuhan dan cerdik serta pandai.

Preparation x mcm masa nak sambut abg hairi dulu. iala kan watu tu mmg zero... hapa pun x ada. bila no 3 ni byk brg2 abag2 dia yg masih boleh digunakan. cuma belikan 2/3 helai baju baru... nanti x belikan merajuk pulak baby tu. hehehehhe

my Mentua plan nak buat Aqiqah cepat2. tapi dari pihak kami pulak... byk bende perlu dipikirkan... paling utama kewangan... my wife nanti bersalin kat spitak swasta.... byk gak pakai duit tu.... kami ni bukan la org senang sgt. tapi aku dah janji utk bg paling baik aku boleh bagi kat wife aku utk melahirkan. kalau nak diikutkan mmg la org kata kat mana2 pun sama jer... kalau nak jadi mana2 pun boleh jadi... tapi doakan la semua nya selamat tanpa sebarang masalah. but itu janji ku kepada isteriku.

Berbalik kepada isu Aqiqah. aku pun serba salah. kang x diikutkan kecik hati pulak mentua aku. nak di ikutkan terpaksa la dipikirkan jugak kantung ku ini.... anak lelaki 2 ekor kambing or 2 bahagian lembu tu beb.... ehhehehee... kalau kat shah alam ni... 2 ekor kambing siap masak... dlm RM1000 gak tu.... blum campur tolak bahagi punca kuasa bende2 lain... hehehehhe.....perancangan aku, kalau ada bonus tahun ni bleh la buat Aqiqah. but bonus biasanya company bayar bulan january. itupun kalau ada bonus. bukan apa. kenduri kendara ni byk pakai duit... bukan bekira..tapi kene gak bekira nak survive sampai hujung bulan... baby baru lahir byk bende nak kene preparekan... entahla...

Mentua aku mungkin x bekira sgt. tapi kenduri anak sendiri x kan nak suruh mentua support... x sesuai gitu.... ntah la.... mungkin tetiba ada cek jatuh dari langit.... pakcik kayo.... hahahahhaha...

Kalau isteri ku baca posting ni... jangan la susah ati... ini biar abah uruskan... cuma abah meluahkan apa yg abah tgh pikir kan... kang duk tahan2 migrain la plak... hahahahhaha... suami awak ni pepaham je ler... hehehhee...

Apapun, doakan la isteri ku selamat melahirkan dan dikurniakan anak yg cukup sifat dan sedap mata memandang... dan jgn lupa doakan dia menjadi anak yg soleh/solehah... amin....

Aku hanya ingin berkata-kata

Aku selalu menasihati/memperingati diriku dan isteriku dan mereka-mereka yg rapat dgn ku...

Kita tidak boleh mengandaikan org lain seperti kita. sama pemikiran, sama kemampuan, sama keinginan, sama perancangan..... sama segala-galanya.....

Hidup ini umpama roda yg beputar, hari ini kita diatas, ntah esok lusa kita mungkin akan berada di bawah. cuma masanya sahaja yg ditentukan oleh NYA.

Pepatah ada menyatakan, lembu dipegang pada tali, manusia dipegang pada JANJI. Sebagai manusia kita harus la berpegang pada janji kita selagi janji itu tidak menyalahi hukum/undang Islam.

Jangan membalas kejahatan yg org telah lakukan ke atas kita. sebab ianya hanya memanjangkan lagi perbalahan yg x akan berakhir. biarlah mereka di balas oleh NYA.

Jikalau kita inginkan org menghormati kita, kita perlulah belajar menghormati org lain terlebih dahulu.

Kita tidak akan dapat memuaskan hati semua org. cubalah memuaskan mereka setakat terdaya yg kita mampu lakukan.

X semua cerita kita boleh ceritakan.

Anak-anak kita merupakan cermin kepada diri kita.

[Linux] Copy Directory Structure

# cd /new/dir
# (cd /old/dir; find -type d ! -name .) | xargs mkdir

Danish Dan LEGO

Danish memang suka main lego.. lego yg ada kat rumah dah x cukup bilangan nya... hasil 'kerja keras' abg hairi.

Weekend aritu pegi tesco semenyih nak belikan birthday gift abg Hafiz. Danish pau abah lego baru. nak beli yg LEGO betul2 x da duit... hehehe... balik2 terus dia main.. padahal lepas bagun tido tu...

Push HASH into Array in Perl

Kawan yg bertanyakan Perl + AD bertanyakan soalan ini.. bagaimana nak bermain dgn perl array. lebih tepat sekali, memasukkan nilai HASH ke dlm ARRAY utk digunakan kemudian nanti.

contoh disini:

#define testing var
my %h = (
 1=>'k',
 2=>'l'
);

my @a = qw(
 a
 b
 c
);

#push hash to array
push @a, \%h;

#processing array
foreach my $insidea(@a){
 print "- $insidea\n"; 
 foreach my $insideh(keys %{$insidea}){
  print " ->${$insidea}{$insideh}\n";
 }  
}

Perl + Active Directory

dua minggu lepas, ada kawan dr forum mintak tolong bg idea + solution utk project involve Perl + AD.

Idea kawan tu, dia nak dpt automatic credential user yg browser dari perl script yg diaccess ke server utk membolehkan perl script tu auth kan user terus ke AD.

idea dia menarik dan praktikal tetapi implementation dia agak complicated. windows sendiri tidak membenarkan secara langsung browser access info yg diperlukan.

option pertama, Web server boleh mendapatkan maklumat REMOTE_USER dari environment variable. tapi REMOTE_USER x stable. kadang2 dpt maklumat, kadang2 x dpt. so cara ni x leh di laksanakan.

option kedua, pakai javascript + activeX. tetapi ini hanya jalan kalau mengunakan IE sahaja. firefox, chrome, opera.... X JALAN.... so cara ni pun x leh di laksanakan.

option ketiga, from server query balik client pakai LANMAN, tapi option ni hanya bleh buat bila dlm LAN shj, bukan WAN sebab server dgn client kene ada communication dalam network. so cara ni pun x leh di laksanakan.

aku kehabisan idea... other option x bleh mengharapkan perl shj la... Java Applet boleh membantu rasanya. ataupun 2rd patry aplication.

Aku ada baca pasal IIS dgn install certificate di client.. tapi aku x paham apa yg aku baca.... hahahha...

Distributor

Akhirnya... dpt gak aku tukar distributor kete aku yg dah nazak betul tu... x dpt yg ori proton tp made in taiwan... save budget. hehehehehe.

so far so good. dpt test dari workshop sampai rumah je td.. aircond on and roundabout x de masalah lg... harap2 berkekalan... penat & pening dah bawak kete yg bermasalah... bahaya gak, kene kuar simpang kete mati... naya jer... pernah jadi sekali aritu.. kuar sipang kete mati... sib baik kete lain jauh lg... kalau x x tau apa jadi...

Dari weekend aritu sakit kepala aku x ilang2... mlm td makin menjadi2... td kat opis balik lunch aku x leh buat keje dah... dah telan panadol pun x jalan... nak balik ada bende nak kene buat...

Esok org air cond nak dtg rumah cek air cond rumah aku yg mengong ni.... outdoor unit buat bunyi bising bila on... motor dia dah kaput. x sure diaorg ada sparepart or not... hopefully ada la... kalau x der.. buta2 aku kene bayor RM50 tanpa masalah dpt diselesaikan... worst case... nak kene ganti aircond baru... satu hal lg.... x leh la x de air cond... rumah ni panas gile waktu mlm... x leh nak tido...

mintak2 semua berjalan lancar la utk esok.... aminnnnnn

Open House

Last weekend... ada 4 open house...

3 aku dpt pegi... 1 x dpt pegi... sorry to azleena.. my best pren... x dpt nak pegi.. pakai kete pinjam... dah lambat kuar rumah.. x dan nak menjengah ke negeri sembilan tu....

Hari Sabtu open house umah Kak Ani, Mak Usu & Azleena... balik tumbang... hahahha

Hari Ahad rumah kak maz, aku dtg 3 trip... pagi ... ptg utk full majlis... and malam utk tapau nasi himpit & sambal kacang(ada org ngidam) hahahahhahaa. Nasi himpit + kuah kacang, kuah lodeh, ayam masak merah, kari daging.... laksa... nasi lemak.... mee hoon goreng.... drumet ayam.... mcm2 lg la.... kenyang giler... hahahahhaha

Ni Gambor Tuan Rumah yg kepenatan melayan tetamu.. siap leh lentok tepi tangga... sian tuan rumah..

gambor terpaksa di remove sebab owner gambor x sampai hati tgk muka sendiri mcm org asli katanya.... wakakakaka

Sorry Tuan rumah.. kami post gambar candid... hehehehe....

Bukan Raya Hairi Tahun Ni

Tahun ni bukan hari raya Hairi... raya ke-6 hairi kene air panas kat peha. water heater rosak. sian hairi.

Dr. x bg balut luka tu... biar cepat kering... tapi hairi takut bila tgk luka yg besar mcm tu.... so dia hanya baring shj. mengharapkan ibu n abah dia temankan/jaga dia.... x bg tinggal. sib abik ada cik nanang tolong jaga hairi sambil tgk TV..

Abah pun kuatkan semangat jer cuci luka hairi tu... tapi hari pertama abah x berani buat... abah hantar ke klinik suruh Dr. tolong buatkan.... lepas tu baru abah berani cuci bila dah x teruk sgt.

hairi takut tgk luka dia...sampai tertidor dia...

Masa ni baru kene... x mengelembung lg...

Life Goes On

Cukup la beraya seminggu... start keje balik... life goes on....

raya tahun ni meriah, cuma ada musibah sikit menimpa abg Hairi. Abg hairi kene air panas dari malfunction water heater kat kampung nenek ibu. sian abg hairi. teruk melecur peha dia. sib baik x kene 'bird' dia... hehehehhe...

Abg mie byk ambik gambar family raya ni... tapi x dpt nak ambik gambar kami sekeluarga sebab pertindihan masa dgn aktiviti lain. so, hanya kami sekeluarga jer yg x da gambar bersama raya ni... yg lain semua ada... sian kami kan....x pe... open house umah kak ani weekend ni kami vogue gila2 ..jgn x ambik gambar udah ler.

Hari Raya Aidilfitri 1430h/2009m

Copyright Reserved

Persiapan hari raya anak2 almost complete. tu yg penting. mak pak x kisah sgt. budak2 tu cepat membesar. byk baju2 dah x muat. nasib baik belikan baju melayu diaorg ambik 1 size bigger. bila balik test. ngam2 jer... terasa mcm cepat sgt anak2 tu membesar. mcm baru aritu mandikan diorg dlm bathtub.

Abg Hairi dah pandai nyanyi lagu raya, walaupun dlm versi gubahan dia sendiri. hehehe...

tinggal nak carikan sandal utk diorg.

utk ibu kita last minute shopping yer...

balik kg kali ni besar kemungkinan aku terpaksa pinjam kereta org utk balik kg. kereta aku x solve gak masalah mati2 nya tu. even aku dah hantar ke workshop last week pun masalah x hilang. pomen aku suh tukar distributor. tapi itupun dia x dpt nak janji problem will solve.so aku decide dari bg duit kat pomen ... baik aku simpan utk spent pada hari raya nanti. itu pun aku mcm dah menyesal antar g workshop last week.. duit melayang... masalah x ilang gak.

Nasib baik kak cha ada offer pakai MyVi dia. thanxs kak cha. hopefully muat la barang2 aku nak disumbat dlm boot MyVi tu nanti.

Raya ke-2 baru aku balik kg. tahun ni turn rumah wife kat shah alam. so sesapa yg ada kat shah alam jemput la dtg rumah kami.

Mood raya dah menguasai diri... semua kerja mcm x betul jer buat. even semalam g client site pun .. x leh nak solve kan problem kecik. aku x leh nak pikir lebih2 dah... mood raya sudah menguasai diri... hahahhahahaha

Selamat hari raya aidilfitri dari aku(Hairul, Mbek @ Ayun) + Fardahila bte Omar = Muhammad Luqman Hairi & Muhammad Luqman Danish. Maaf Zahir & batin.

Playing with PERL Hash

simple PERL script utk menunjukkan bagaimana bermain dgn Hash. cara pass hash ke sub/class/function dan cara retrive back value dari parameter/variable yg di terima. simple tapi cukup rasanya menerangkan pengunaan hash. amat berguna.

# init
my %t = (
 1=>'k',
 2=>'l'
);

foreach my $f(keys %t) {
 print $f,'=', $t{$f}, "\n";
}
print "\n";

# process
my $t = &passHash(\%t);

foreach my $f(keys %$t) {
 print $f,'=', $t->{$f}, "\n";
}
print "\n";

# copy
my %k = %$t;
foreach my $f(keys %k) {
 print $f,'=', $k{$f}, "\n";
}
print "\n";


sub passHash {
 my $r = shift;
 $r->{3} = 'new';
 return \%$r;
}

Perkerjaan yg pernah aku lakukan

tetiba aku teringatkan pekerjaan2 yg pernah aku lakukan satu ketika dulu hingga la kini... yg pasti semua pekerjaan itu mengharapkan bayaran..

Aku pernah:

• Jual mee siput(mee sanggul), kacang sira, kerepek sira masa zaman sekolah rendah dulu.
• Jual peyek/tumpee & mee siput dari rumah ke rumah naik basikal.
• Jual peyek/tumpee & mee siput dkt court badminton berhampiran rumah waktu malam bila ada org main badminton.
• Kutip biji getah pastu jual kat tokei cina yg nak buat benih pokok getah. sekilo dia ambik 4osen. kalau 10 kilo dpt la Rm4... masa tu dah kira beso dah.
• Jual shuttlecock terpakai yg abg aku dpt masa piala thomas kat KL dulu...
• Jual pelbagai jenis poster.
• Tolong member aku jual burger.
• Tolong jaga warung makcik member.
• Jadi jurulatih Sofbol x bertauliah sekolah lepas SPM.
• Ambik upah angkat kayu/papan utk org buat rumah...ni yg keje x sampai sehari pastu abah jemput sebab dpt surat dari UiTM. hehehhe..
• Tolong member buat networking computer. pintal cable UTP sampai naik keras jari2 tangan aku. pasang conduit. tebuk dinding... etc...
• Jadi driver + tukang angkat barang dari dlm lori.

Dan sekarang ni pekerjaan tetap aku adalah sebagai seorg computer programmer. Dlm bahasa melayu nya pengaturcara komputer. dan ada kerja2 yg pernah aku lakukan dulu aku masih lakukan sebagai hobby atau sekadar menolong mereka2 yg masih memerlukan pertolongan aku.

Aku juga pernah:

• Menoreh Getah (sampai sekarang ni wife aku x percaya yg aku pernah menoreh getah... siap aku tunjuk kebun nya pun dia ckp aku tipu... hahahahhahaa)
• Cari Ramban(rumput utk makanan kambing + lembu)
• Mengembala kambing & lembu(aku pernah kene seret dgn lembu bilamana tali yg mengikat lembu berbelit di tangan aku dan lembu tu lari sebab terkejutkan apa ntah... aku kene seret dlm kebuh kelapa sawit..dengan duri2 sawit menyucuk2 badan aku... tuhan je yg tau rasanya waktu tu.. sib abik x putus jari aku)
• Gali lubang utk tanam anak keladi. setiap lubang dlm nya lebih 1 kaki. dan setiap hari jumlah lubang yg perlu dikorek dlm 100 lubang... bayangkan....
• Packing tahi kambing utk dijadikan baja dan dijual. smell good...hehehehe

yg ni mostly aku buat utk membantu keluarga. ketawa sorg2 bila pikir balik yg aku pernah buat semua tu... sekarang ni menyangkul rumpun depan rumah skit pun tangan aku dah start pecah. isk.... lembut betul.. hehehehhee

setiap pekerjaan yg aku pernah lakukan memberi pengajaran yg cukup bermakna kepada aku. dari sudut pandangan masayrakat hingga la pulangan yg diterima. ada yg berbaloi... ada yg x berbaloi... ada yg dibayar... ada yg X DIBAYAR.... tapi pengalaman yg aku dpt... cukup bermakna....

Servis kereta sebelum balik kampung

esok plan nak servis kereta.

normal servis : minyak engine + oil filter + air filter + fuel filter(x pernah ganti selama aku pakai kete ni)
xtra servis : brake pump + brake shoes

* nak kene check distributor & timing... kete asyik mati2 jer...

Mama's DIY mini fish pond

DIY utk mama. 1st time buat... hehehhe .. plan asal nak pakai varnish biar cantik... tapi request nak pakai cat jer... ikut je la... kurang skit finishingnya pakai cat ni.

Kos x byk sgt. mama dah sediakan papan
12x7.5x3/4 = 2 keping
8x7.5x3/4 = 1 keping
bahan2 lain mmg dah ada dlm store or simpanan aku. so save budget kat situ..

Hello World

Koleksi Hello World yg pernah aku buat bedasarkan language yg pernah aku pakai & gunakan.. Kepada mereka2 yg begelar programmer.. pasti mengenali benar perkataan Hello World ini..

Perl:

print "Hello World!\n";

PHP:

< ?php
  echo 'Hello World!';
?>

JavaScript:

<script language="JavaScript" type="text/javascript">
// Hello World in JavaScript
document.write('Hello World');
</script>
</body>
</html>

VBScript:

msgbox "Hello, World!"

XML:

Hello, World

WML:

#define HELLOWORLD
  [message]
    speaker="narrator"
    message=_"Hello World"
  [/message]
#enddef

C++:

#include 

main()
{
    cout << "Hello World!" << endl;
    return 0;
}

HTML:

<HTML>

<HEAD>
<TITLE>Hello World!</TITLE>
</HEAD>
<BODY>
Hello World!
</BODY>
</HTML>

MSDOS:

@ECHO OFF
REM Hello World for DOS batch

ECHO Hello World!

Python 3000:

# Hello World in Python 3000
print("hello World")

Python:

# Hello World in Python
print "Hello World"

Ruby:

# Hello World in Ruby
puts "Hello World!"

Schwantz reunited with 1993 RGV500

http://www.motorcyclenews.com/MCN/News/newsresults/General-news/2009/September/sep1090-Schwantz-reunited-with-1993-RGV500-Roberts-rides-TZ750-flat-tracker/

Khairil Johari Johar - Sepasang Kurung Biru

Relink MS Access table from startup

original code from http://www.mvps.org/access/tables/tbl0009.htm and http://www.mvps.org/access/api/api0001.htm

I made some tweaking and changes to make it suite my application. actually this is combination of 2 different code from mvps.org site and litle function to check link source and check if file exist or not.

here's the code: (copy and name it as anything at module section. and then create a macro to runCode, select function fRefreshLinks and name this macro to autoExec)

Option Compare Database
'***************** Code Start **************
' This code was originally written by Ken Getz.
' It is not to be altered or distributed, 'except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code originally courtesy of:
' Microsoft Access 95 How-To
' Ken Getz and Paul Litwin
' Waite Group Press, 1996
' Revised to support multiple files:
' 28 December 2007

Type tagOPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    strFilter As String
    strCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    strFile As String
    nMaxFile As Long
    strFileTitle As String
    nMaxFileTitle As Long
    strInitialDir As String
    strTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    strDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

Global Const ahtOFN_READONLY = &H1
Global Const ahtOFN_OVERWRITEPROMPT = &H2
Global Const ahtOFN_HIDEREADONLY = &H4
Global Const ahtOFN_NOCHANGEDIR = &H8
Global Const ahtOFN_SHOWHELP = &H10
' You won't use these.
'Global Const ahtOFN_ENABLEHOOK = &H20
'Global Const ahtOFN_ENABLETEMPLATE = &H40
'Global Const ahtOFN_ENABLETEMPLATEHANDLE = &H80
Global Const ahtOFN_NOVALIDATE = &H100
Global Const ahtOFN_ALLOWMULTISELECT = &H200
Global Const ahtOFN_EXTENSIONDIFFERENT = &H400
Global Const ahtOFN_PATHMUSTEXIST = &H800
Global Const ahtOFN_FILEMUSTEXIST = &H1000
Global Const ahtOFN_CREATEPROMPT = &H2000
Global Const ahtOFN_SHAREAWARE = &H4000
Global Const ahtOFN_NOREADONLYRETURN = &H8000
Global Const ahtOFN_NOTESTFILECREATE = &H10000
Global Const ahtOFN_NONETWORKBUTTON = &H20000
Global Const ahtOFN_NOLONGNAMES = &H40000
' New for Windows 95
Global Const ahtOFN_EXPLORER = &H80000
Global Const ahtOFN_NODEREFERENCELINKS = &H100000
Global Const ahtOFN_LONGNAMES = &H200000

'***************** Code Start ***************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fRefreshLinks() As Boolean
Dim strMsg As String, collTbls As Collection
Dim i As Integer, strDBPath As String, strTbl As String
Dim dbCurr As Database, dbLink As Database
Dim tdfLocal As TableDef
Dim varRet As Variant
Dim strNewPath As String

Const cERR_USERCANCEL = vbObjectError + 1000
Const cERR_NOREMOTETABLE = vbObjectError + 2000

    On Local Error GoTo fRefreshLinks_Err

    If MsgBox("Are you want to reconnect all Access tables?", _
            vbQuestion + vbYesNo, "Please confirm...") = vbNo Then Err.Raise cERR_USERCANCEL

    'First get all linked tables in a collection
    Set collTbls = fGetLinkedTables

    'now link all of them
    Set dbCurr = CurrentDb

    strMsg = "Do you wish to specify a different path for the Access Tables?"
    
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Alternate data source...") = vbYes Then
        strNewPath = fGetMDBName("Please select a new datasource")
    Else
        strNewPath = vbNullString
    End If

    For i = collTbls.Count To 1 Step -1
        strDBPath = fParsePath(collTbls(i))
        strTbl = fParseTable(collTbls(i))
        varRet = SysCmd(acSysCmdSetStatus, "Now linking '" & strTbl & "'....")
        If Left$(strDBPath, 4) = "ODBC" Then
            'ODBC Tables
            'ODBC Tables handled separately
           ' Set tdfLocal = dbCurr.TableDefs(strTbl)
           ' With tdfLocal
           '     .Connect = pcCONNECT
           '     .RefreshLink
           '     collTbls.Remove (strTbl)
           ' End With
        Else
            If strNewPath <> vbNullString Then
                'Try this first
                strDBPath = strNewPath
            Else
                If Len(Dir(strDBPath)) = 0 Then
                    'File Doesn't Exist, call GetOpenFileName
                    strDBPath = fGetMDBName("'" & strDBPath & "' not found.")
                    If strDBPath = vbNullString Then
                        'user pressed cancel
                        Err.Raise cERR_USERCANCEL
                    End If
                End If
            End If

            'backend database exists
            'putting it here since we could have
            'tables from multiple sources
            Set dbLink = DBEngine(0).OpenDatabase(strDBPath)

            'check to see if the table is present in dbLink
            strTbl = fParseTable(collTbls(i))
            If fIsRemoteTable(dbLink, strTbl) Then
                'everything's ok, reconnect
                Set tdfLocal = dbCurr.TableDefs(strTbl)
                With tdfLocal
                    .Connect = ";Database=" & strDBPath
                    .RefreshLink
                    collTbls.Remove (.Name)
                End With
            Else
                Err.Raise cERR_NOREMOTETABLE
            End If
        End If
    Next
    fRefreshLinks = True
    varRet = SysCmd(acSysCmdClearStatus)
    MsgBox "All Access tables were successfully reconnected.", _
            vbInformation + vbOKOnly, _
            "Success"

fRefreshLinks_End:
    Set collTbls = Nothing
    Set tdfLocal = Nothing
    Set dbLink = Nothing
    Set dbCurr = Nothing
    Exit Function
fRefreshLinks_Err:
    fRefreshLinks = False
    Select Case Err
        Case 3059:

        Case cERR_USERCANCEL:
            Dim dbfile As String
            dbfile = fGetLinkPath("staff")
            
            
            If IsFileExist(dbfile) Then
                'MsgBox "connected"
            Else
                MsgBox "No Database was specified, couldn't link tables.", _
                        vbCritical + vbOKOnly, _
                        "Error in refreshing links."
            End If
            Resume fRefreshLinks_End
        Case cERR_NOREMOTETABLE:
            MsgBox "Table '" & strTbl & "' was not found in the database" & _
                    vbCrLf & dbLink.Name & ". Couldn't refresh links", _
                    vbCritical + vbOKOnly, _
                    "Error in refreshing links."
            Resume fRefreshLinks_End
        Case Else:
            strMsg = "Error Information..." & vbCrLf & vbCrLf
            strMsg = strMsg & "Function: fRefreshLinks" & vbCrLf
            strMsg = strMsg & "Description: " & Err.Description & vbCrLf
            strMsg = strMsg & "Error #: " & Format$(Err.Number) & vbCrLf
            MsgBox strMsg, vbOKOnly + vbCritical, "Error"
            Resume fRefreshLinks_End
    End Select
End Function

Function fIsRemoteTable(dbRemote As Database, strTbl As String) As Boolean
Dim tdf As TableDef
    On Error Resume Next
    Set tdf = dbRemote.TableDefs(strTbl)
    fIsRemoteTable = (Err = 0)
    Set tdf = Nothing
End Function

Function fGetMDBName(strIn As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

    strFilter = ahtAddFilterItem(strFilter, _
                    "Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
                    "*.mdb; *.mda; *.mde; *.mdw")
    strFilter = ahtAddFilterItem(strFilter, _
                    "All Files (*.*)", _
                    "*.*")

    fGetMDBName = ahtCommonFileOpenSave(Filter:=strFilter, _
                                OpenFile:=True, _
                                DialogTitle:=strIn, _
                                Flags:=ahtOFN_HIDEREADONLY)
End Function

Function fGetLinkedTables() As Collection
'Returns all linked tables
    Dim collTables As New Collection
    Dim tdf As TableDef, db As Database
    Set db = CurrentDb
    db.TableDefs.Refresh
    For Each tdf In db.TableDefs
        With tdf
            If Len(.Connect) > 0 Then
                If Left$(.Connect, 4) = "ODBC" Then
                '    collTables.Add Item:=.Name & ";" & .Connect, KEY:=.Name
                'ODBC Reconnect handled separately
                Else
                    collTables.Add Item:=.Name & .Connect, Key:=.Name
                End If
            End If
        End With
    Next
    Set fGetLinkedTables = collTables
    Set collTables = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Function

Function fParsePath(strIn As String) As String
    If Left$(strIn, 4) <> "ODBC" Then
        fParsePath = Right(strIn, Len(strIn) _
                        - (InStr(1, strIn, "DATABASE=") + 8))
    Else
        fParsePath = strIn
    End If
End Function

Function fParseTable(strIn As String) As String
    fParseTable = Left$(strIn, InStr(1, strIn, ";") - 1)
End Function
'***************** Code End ***************



Function TestIt()
    Dim strFilter As String
    Dim lngFlags As Long
    strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mda, *.mdb)", _
                    "*.MDA;*.MDB")
    strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)", "*.DBF")
    strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT")
    strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")

    ' Uncomment this line to try the example
    ' allowing multiple file names:
    ' lngFlags = ahtOFN_ALLOWMULTISELECT Or ahtOFN_EXPLORER

    Dim result As Variant

    result = ahtCommonFileOpenSave(InitialDir:="C:\", _
        Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
        DialogTitle:="Hello! Open Me!")

    If lngFlags And ahtOFN_ALLOWMULTISELECT Then
        If IsArray(result) Then
            Dim i As Integer
            For i = 0 To UBound(result)
                MsgBox result(i)
            Next i
        Else
            MsgBox result
        End If
    Else
        MsgBox result
    End If

    ' Since you passed in a variable for lngFlags,
    ' the function places the output flags value in the variable.
    Debug.Print Hex(lngFlags)
End Function

Function GetOpenFile(Optional varDirectory As Variant, _
    Optional varTitleForDialog As Variant) As Variant

    ' Here's an example that gets an Access database name.
    Dim strFilter As String
    Dim lngFlags As Long
    Dim varFileName As Variant

    ' Specify that the chosen file must already exist,
    ' don't change directories when you're done
    ' Also, don't bother displaying
    ' the read-only box. It'll only confuse people.
    lngFlags = ahtOFN_FILEMUSTEXIST Or _
                ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR
    If IsMissing(varDirectory) Then
        varDirectory = ""
    End If
    If IsMissing(varTitleForDialog) Then
        varTitleForDialog = ""
    End If

    ' Define the filter string and allocate space in the "c"
    ' string Duplicate this line with changes as necessary for
    ' more file templates.
    strFilter = ahtAddFilterItem(strFilter, _
                "Access (*.mdb)", "*.MDB;*.MDA")

    ' Now actually call to get the file name.
    varFileName = ahtCommonFileOpenSave( _
                    OpenFile:=True, _
                    InitialDir:=varDirectory, _
                    Filter:=strFilter, _
                    Flags:=lngFlags, _
                    DialogTitle:=varTitleForDialog)
    If Not IsNull(varFileName) Then
        varFileName = TrimNull(varFileName)
    End If
    GetOpenFile = varFileName
End Function

Function ahtCommonFileOpenSave( _
            Optional ByRef Flags As Variant, _
            Optional ByVal InitialDir As Variant, _
            Optional ByVal Filter As Variant, _
            Optional ByVal FilterIndex As Variant, _
            Optional ByVal DefaultExt As Variant, _
            Optional ByVal FileName As Variant, _
            Optional ByVal DialogTitle As Variant, _
            Optional ByVal hwnd As Variant, _
            Optional ByVal OpenFile As Variant) As Variant

    ' This is the entry point you'll use to call the common
    ' file open/save dialog. The parameters are listed
    ' below, and all are optional.
    '
    ' In:
    ' Flags: one or more of the ahtOFN_* constants, OR'd together.
    ' InitialDir: the directory in which to first look
    ' Filter: a set of file filters, set up by calling
    ' AddFilterItem. See examples.
    ' FilterIndex: 1-based integer indicating which filter
    ' set to use, by default (1 if unspecified)
    ' DefaultExt: Extension to use if the user doesn't enter one.
    ' Only useful on file saves.
    ' FileName: Default value for the file name text box.
    ' DialogTitle: Title for the dialog.
    ' hWnd: parent window handle
    ' OpenFile: Boolean(True=Open File/False=Save As)
    ' Out:
    ' Return Value: Either Null or the selected filename
    Dim OFN As tagOPENFILENAME
    Dim strFileName As String
    Dim strFileTitle As String
    Dim fResult As Boolean

    ' Give the dialog a caption title.
    If IsMissing(InitialDir) Then InitialDir = CurDir
    If IsMissing(Filter) Then Filter = ""
    If IsMissing(FilterIndex) Then FilterIndex = 1
    If IsMissing(Flags) Then Flags = 0&
    If IsMissing(DefaultExt) Then DefaultExt = ""
    If IsMissing(FileName) Then FileName = ""
    If IsMissing(DialogTitle) Then DialogTitle = ""
    If IsMissing(hwnd) Then hwnd = Application.hWndAccessApp
    If IsMissing(OpenFile) Then OpenFile = True
    ' Allocate string space for the returned strings.
    strFileName = Left(FileName & String(256, 0), 256)
    strFileTitle = String(256, 0)
    ' Set up the data structure before you call the function
    With OFN
        .lStructSize = Len(OFN)
        .hwndOwner = hwnd
        .strFilter = Filter
        .nFilterIndex = FilterIndex
        .strFile = strFileName
        .nMaxFile = Len(strFileName)
        .strFileTitle = strFileTitle
        .nMaxFileTitle = Len(strFileTitle)
        .strTitle = DialogTitle
        .Flags = Flags
        .strDefExt = DefaultExt
        .strInitialDir = InitialDir
        ' Didn't think most people would want to deal with
        ' these options.
        .hInstance = 0
        '.strCustomFilter = ""
        '.nMaxCustFilter = 0
        .lpfnHook = 0
        'New for NT 4.0
        .strCustomFilter = String(255, 0)
        .nMaxCustFilter = 255
    End With
    ' This will pass the desired data structure to the
    ' Windows API, which will in turn it uses to display
    ' the Open/Save As Dialog.
    If OpenFile Then
        fResult = aht_apiGetOpenFileName(OFN)
    Else
        fResult = aht_apiGetSaveFileName(OFN)
    End If

    ' The function call filled in the strFileTitle member
    ' of the structure. You'll have to write special code
    ' to retrieve that if you're interested.
    If fResult Then
        ' You might care to check the Flags member of the
        ' structure to get information about the chosen file.
        ' In this example, if you bothered to pass in a
        ' value for Flags, we'll fill it in with the outgoing
        ' Flags value.
        If Not IsMissing(Flags) Then Flags = OFN.Flags
        If Flags And ahtOFN_ALLOWMULTISELECT Then
            ' Return the full array.
            Dim items As Variant
            Dim value As String
            value = OFN.strFile
            ' Get rid of empty items:
            Dim i As Integer
            For i = Len(value) To 1 Step -1
              If Mid$(value, i, 1) <> Chr$(0) Then
                Exit For
              End If
            Next i
            value = Mid(value, 1, i)

            ' Break the list up at null characters:
            items = Split(value, Chr(0))

            ' Loop through the items in the "array",
            ' and build full file names:
            Dim numItems As Integer
            Dim result() As String

            numItems = UBound(items) + 1
            If numItems > 1 Then
                ReDim result(0 To numItems - 2)
                For i = 1 To numItems - 1
                    result(i - 1) = FixPath(items(0)) & items(i)
                Next i
                ahtCommonFileOpenSave = result
            Else
                ' If you only select a single item,
                ' Windows just places it in item 0.
                ahtCommonFileOpenSave = items(0)
            End If
        Else
            ahtCommonFileOpenSave = TrimNull(OFN.strFile)
        End If
    Else
        ahtCommonFileOpenSave = vbNullString
    End If
End Function

Function ahtAddFilterItem(strFilter As String, _
    strDescription As String, Optional varItem As Variant) As String

    ' Tack a new chunk onto the file filter.
    ' That is, take the old value, stick onto it the description,
    ' (like "Databases"), a null character, the skeleton
    ' (like "*.mdb;*.mda") and a final null character.

    If IsMissing(varItem) Then varItem = "*.*"
    ahtAddFilterItem = strFilter & _
                strDescription & vbNullChar & _
                varItem & vbNullChar
End Function

Private Function TrimNull(ByVal strItem As String) As String
    Dim intPos As Integer

    intPos = InStr(strItem, vbNullChar)
    If intPos > 0 Then
        TrimNull = Left(strItem, intPos - 1)
    Else
        TrimNull = strItem
    End If
End Function

Private Function FixPath(ByVal path As String) As String
    If Right$(path, 1) <> "\" Then
        FixPath = path & "\"
    Else
        FixPath = path
    End If
End Function

'************** Code End *****************

Function fGetLinkPath(strTable As String) As String
Dim dbs As Database, stPath As String

    Set dbs = CurrentDb()
    On Error Resume Next
    stPath = dbs.TableDefs(strTable).Connect
    If stPath = "" Then
        fGetLinkPath = vbNullString
        'can change this to currentdb.name
    Else
        fGetLinkPath = Right(stPath, Len(stPath) _
                        - (InStr(1, stPath, "DATABASE=") + 8))
    End If
    Set dbs = Nothing
End Function

Sub sListPath()
    Dim loTd As TableDef
    CurrentDb.TableDefs.Refresh
    For Each loTd In CurrentDb.TableDefs
        Debug.Print fGetLinkPath(loTd.Name)
    Next loTd
    Set loTd = Nothing
End Sub
Public Function IsFileExist(strPath) As Boolean
         If Len(Dir$(strPath)) > 0 Then
            IsFileExist = True
         Else
            IsFileExist = False
         End If
End Function

MS Access splitting Client and DB

sejak kebelakangan ini byk bermain dgn MS Access. lama gak la x bermain dgn MS Access ni. dulu sebelum berkenalan dgn MySQL mmg most of application yg perlukan Database akan gunakan MS Access.

dah terbiasa buat applikasi & sistem dgn mengasingkan database dan antaramuka untuk memudahkan proses development and updating patches & bugs. bil.a buat access mula2 tenson gak bila ada changes dgn GUI kene migrate data dari table2 berkaitan.

Terpikir utk splitkan. dgn pertolongan pakcik google, semua berjalan lancar. even discover satu method utk membolehkan access berfungsi style server <-> client. satu cara paling murah dan senang rasanya utk aplikasi2 bermodal rendah.

awal2 development kita buat la cara biasa.. semua dlm 1 aplication. bila dah ok... baru kita splitkan. dari client kita get external data dari db aplication. so dari client akan hanya linked table yg point ke db application. GUI yg kita buat semua x da ganguan. cuma kita kene tweak skit utk membolehkan user switch linked source kepada db application kita masa startup. boleh pilih source dari local pc or melalui network selagi ada privilege.

kelebihan utk update and buat changes kat GUI tanpa kacau live data yg dah ada kat DB. memudahkan ...

nanti saya uploadkan cth method ni... x sempat nak buat sekarang... ada keje skit...

My e-mail Database

Our e-mail Database

Volvo V40 Station Wagon

Aku berkenan dgn wagon ni... kalau ada kemampuan mmg berhajat memiliki sebuah... tapi bergantung dgn kemampuan gak ler... aku prefer V40 dari V50.. mmg V50 lg latest n hebat.. buat V50 2.5 manakala V40 cuma 2.0... cc besar2 nanti poket besar koyak nya... heheheh

MS Access Convert to MDE tips

Aku menghadapi masalah untuk convert database MS Access dari format *.MDB ke *.MDE

Puas aku cari kat mana silap nya... setiap kali aku compile mesti MS Access aku freeze .... x berjaya lansung...

finaly aku jumpa sebab remeh yg membuatkan aku punya file x leh nak convert ke MDE..... sebab utk form, queries, macro and report aku, ada '_' sebagai nama form, queries etc..... WTF.... tension betul aku.... aku dah terbiasa bagi naming split by '_' sebab x suka MS style ala2 'namaForm', aku lebih suka 'nama_form' sebab linux/unix compatibality ..... huruf besar n kecik memberi kesan di linux environment. apa daaa MS ni....

Selain dari '_', VBA code yg ada error pun akan menjadikan proses converting to MDE fail... selain penggunaan subform yg byk... mengong la MS ni...

Liknkedin

Kelmarin terbaca kat forum ittutor yg kawan kita sorg tu dpt job kat google selepas seseorg dr google tgk profile dia kat linkedin.com. Sebelum ni x pernah pun terlintas nak register, selalu membaca profile org je kat situ. lepas tgk keberkesanan nya... aku pun register la... mana tau Google or ada big2 company teringinkan khidmat aku... aminnnnn

http://www.linkedin.com/in/hairulmoktar

Lama X jumpa

Selamat Berpuasa Semua!!!!!

lama x update blog ni, kesuntukan masa sejak kebelakangan ini.

2 minggu sebelum puasa jadual harian penuh dgn bagi training utk DAMARC admin training. suppose last week gak aku kene attend external training, tapi dibatalkan atas sebab2 yg aku x pasti...

last week ada request dari member punya member nak 1 simple system pakai Ms Access utk depa punya travel agencyu... nak manage membership... simple jer... budget depa pun below RM500.. jadila utk prepare raya.... tu pun kalau dapat... aku dah buatkan demo.... doa je la... at least boleh buat modal tukar distributor kete aku yg dah kong tu.... tension asyik mati2 jer.... ni semua RON95 punya hal...

raya dah dekat budget utk raya pun nak kene prepare gak ni.... arghhhhhhhhh

Pergi Tak Kembali

Pergi Tak Kembali

Setiap insan pastikan merasa
Saat perpisahan terakhir
Dunia yang fana akan ditinggalkan
Hanya amalan yang akan dibawa

Terdengar sayup surah dibaca
Sayu alunan suara
Cemas di dada lemah tak bermaya
Terbuka hijap di depan mata

Selamat tinggal pada semua
Berpisah kita selamanya
Kita tak sama nasib di sana
Baiklah atau sebaliknya

Amalan dan taqwa jadi bekalan
Sejahtera, bahagia pulang...kesana

Sekujur badan berselimut putih
Rebah bersemadi sendiri
Mengharap kasih anak dan isteri
Apa mungkin pahala dikirim

Terbaring sempit seluas pusara
Soal bicara terus bermula
Sesal dan insaf tak berguna lagi
Hancurlah jasad dimamah bumi

Berpisah sudah segalanya
Yang tinggal hanyalah kanangan
Diiringi doa dan air mata
Yang pergi takkan kembali lagi

**AL-Fatiha itk arwah Ustaz Asri, semoga roh nya dicucuri rahmat

BBQ goreng + mashed potatoes + sirap garam

last week my family bergather2 kat kampung... aku sorg jer yg x balik... ada masalah skit... pastu dgr diaorg nak buat BBQ sabtu mlm tu... dgr BBQ dah start jeles/terliur kebetulan pagitu kene g pasar beli barang dapur... so aku beli ayam 2 ekor potong kecik2...

balik dr pasar aku buat merinade resepi sendiri... jgn ditanya apa aku letak... apa yg terpandang semua aku balik dlm kuali tu... hahahha... dari serai, madu, black pepper, white peper, italian herb, sos cili lada putih... janji terpandang jer aku humban dlm kuali... hehehhee... sudah gaul bg sebati ... kasi peram dlm peti ais... ptg nyer plan nak bakar..

sebelum asar aku rebus kentang, plan nak buat mashed potatoes... yg x pernah aku buat pun sebelum ni... resepi tgk kat internet... lepas asar start buat mashed potatoes.

resepi mashed potatoes aku:

Kentang(yg kulit gelap) buang kulit

potong dua(dua shj jgn potong kecik2... ni tips ni..kene ikut..hehehhe)

dan rebus dgn garam dlm satu sudu kecik. pakai api kecik jer.. biar lambat asal sedap. rebus sampai kentang empuk/lembut. aku rebus dlm 30 min aritu.

pastu tus/kering kan air

perlahan kan api dapur sampai paling kecik leh hidup. (api kecik ni sentiasa hidup sepanjang proses seterusnya)

tengekkan balik kentang yg dah dikering kan td. bagi dia kering .. sekejap je x sampai seminit pun..

tenyeh/lenyek pakai masher, jgn sampai lumat... dlm 2 round tenyeh/lenyek jer...

pastu masukkan butter dlm 1/3 or 1/4 ikut suka dari saiz masa baru2 beli tu..

tenyeh/lenyek agak2 sebati butter dgn kentang.

pastu masukkan serbuk black pepper.

pastu masukkan susu segar dlm 1 cawan. jgn byk sgt nanti lembik or berair + muak sgt...

pastu pukul pakai pemukul tepung/kek tu..aku x tau nama dia... bagi sebati dan tambah garam jika perlu... kalau rasa dah sedap... siap la tu...

siap resepi mashed potatoes aku.. tip kenapa aku biarkan api kecik/masak atas dapur berapi tu adalah utk prevent mashed potatoes aku dari berair.

pastu proses nak buat topping/dressing utk mashed potatoes lak..

didih kan susu segar dlm 3/4 kotak tu.

sementara mendidih. campur kan tepung gandum dlm secawan + black pepper + seasoning salt + serbuk onion + serbuk garlic dlm mangkuk... gaulkan sampai sebati... bancuh pakai air panas sedikit utk prevent dari dia berketul2...

bila susu dah mendidih masukkan campuran tepung td tu kedalam susu...

masak sampai mendidih... tambah garam mengikut keperluan..

siap....

siap jer aku buat mashed potatoes..jam dah kul 6 ptg... api utk bakar ayam x idup lg... hahaha...malas punya pasal... aku pakai jer dapur leper... wakakakkakaka.... cari daun pisang utk prevent dari ayam kehangusan...

sementara tunggu ayam BBQ goreng... aku sajer le nak buat ibu sirap (aku terikut style mak aku... sambil buat satu benda tgn berjalan buat bende lain... bior cepat siap)... aku pun masak la air.... masukkan pewarna sirap... pastu aku cari gula... pastu aku nampak la 'gula' dlm plastik atas microwave... dgn penuh confiden nyer aku masukkan semua setengah plastik 'gula' tu dlm ibu sirap yg tgh mendidih tu... kacau punya kacau... awat la lama benor gula ni nak cair... tension aku tunggu... x cair2... bila dah cair.. aku pun buatla air sirap... tgh kepanasan la katakan... ha kau... tersembur aku.... masin x ingat air sirap aku... rupanya yg kusangka gula itu adalah garam halus... wakakakkakakaka.....cilanat btul.... terpaksa la aku buang setengah periuk ibu sirap garam aku tu... hahahaha kene gelak kan dgn bini aku jer... hampeh....

siap jer BBQ goreng aku tu... kami pun melantak la.... lepas maghrib tu... sambil makan terbayang mereka2 kat kg tgh berBBQ bersama2... jelous sungguh...

Habis resepi ptg tu, BBQ goreng dgn mashed potatoes beserta sirap...yang dah dibuat semula pakai GULA yg betul.... hehhehehe....

**MORAL OF THE STORI - cek dulu apa yg nak kita pakai/guna...kalau x kang menyesal....

Crawler: update

my crawler dah melepasi 50ribu email... sebulan gak ambik masa nak kumpul 50ribu ni... aku biarkan dia running sendiri... slow skit progress nya..

bila aku push ke site2 yg berpotensi besar baru la angka tu begerak laju skit... and now dah melepasi 60ribu email.

tapi semua masih raw email yg masih perlu ditapis dan diperiksa.. sebab semua collection bergantung sepenuhnya kepada regex(sudah pasti perl tatap dihati). perlukan bantuan ibu utk filter 1 by 1.

aku dpt create 1 function utk counter/hack joomla punya javascript features yg bleh avoid spambot dari collect email... hehehhehe.. jgn marah aa joomla developer.. nak cari makan..kene la kreatif.. hehehe...
Pada asalnya nak pakai cppan punya javascript module utk counter bende ni, tapi x dpt nak install module sebab pre requirement module/apps x cukup. so aku create aku nya sub class sendiri. ok la... dpt gak collect email tu.

mintak2 berbaloi la apa yg aku buat ni.... selamat.....

RON92 vs RON97

ARGH!!!!!!!!!!!!!!!!!!

Kereta wira 1.5 auto carb tua aku start jerking bila aku gunakan minyak RON95. dah la mmg kereta aku ada masalah dkt distributor dia... bertambah teruk plak jadi nya... kalau low RPM mesti nak mati.... tensionnnnnnnnnnnnnnnnnnnnnnn!!!!!!!!!!!!!

Apa ni, PROTON ckp kereta dia semua x da masalah kalau pakai RON95... so now?????? &^%$# la.....

Start september ni RON97 akan naik sampai RM2 lebih.... mati la mcm ni kalau nak maintain pakai RON97... kalau nak teruskan pakai RON95 lak.. kene retuned balik kereta... pastu sure lost power.... arghhhhhhh!!!!!!!!!!!!!! somebody help meeeeeeeeee....................

nak tukar kereta baru duit x de....

Johnny's Steamboat

Semalam Kami g makan-makan di Johnny's Steamboat, Bukit Raja... lepas belanja dapur di Tesco Shah Alam.

Biasanya lepas dpt gaji ibu akan request makan steamboat kat Johnny's... kami biasa pegi kat bukit raja.. dekat dgn rumah. selain dari steamboat, ada gak nasi2 goreng serta lauk2 lain... so sapa yg x kenyang makan steamboat leh belasah nasi lg la...

Semalam abg hairi makan byk, sebab ada perjanjian kalau makan byk baru abah order kan ice-cream. hehehehe.. licin abg hairi makan ice-cream... x pelawa abah pun...

Adik apa mimpi ntah... masuk kete terus tido... sampai start makan pun masih tido lg... bagus gak.. tenang skit nak menjamu selera...

passwordless ssh (tanpa katalaluan)

Ada ketika kita memerlukan fungsi scp tanpa perlu kita meletakkan password. sbg cth jika kita set sesuatu script as conjob. ini ada tutorial ringkas bagaimana utk membuat passwordless ssh/scp.

step 1.
Server

make sure login as user account yang akan di gunakan oleh client.

dari home folder,

ssh-keygen -t rsa

make sure home folder permission NOT 777.

step 2.
Client

ssh-keygen -t rsa

scp .ssh/id_rsa.pub useraccount@server:.

step 3.
Server

cat id_rsa.pub >> .ssh/authorized_keys2

(yg ni bergantung kpd sshd version yg digunakan diserver, either authorized_keys2 or authorized_keys)

step 4.
Client

test connection. sepatutnya tahap ni terminal x kan promtp for password.

Kalau X menjadi jugak..

Troubleshooting.
Server

tail -f /var/log/messages

Client

test connection

Di server tu akan keluar log utk test connection dari client yg sedang diuji. Di situ dia akan bgtau apa masalah kalau wujud.

Jack Purcell

Mengidam kasut dah lama ... dari zaman sekolah dulu... tapi mastu hanya mamtu pakai kasut all star bukan converse.... hahahaha... x da kemampuan waktu tu...

sekarang ni pulak bila kemampuan dah ada...nak cari saiz pulak satu hal... saiz 11 susah betul nak jumpa kat m'sia ni... kalau ada sapa2 tau kedai2 kat KL or Shah Alam yg ada jual size 11 tolong inform yer... thanxs..

sekarang ni aku x da kasut dah.. tinggal kasut itam utk g meeting jer... kasut Clark aku kene rembat org ... hampeh btul... tu kasut kahwin tu... adidas aku lak cam hampeh... beli x sampai setahun dah koyak... worst adidas i eve have... x pernah mcm tu punya teruk quality dia... tension gila... sebelum ni sampai lunyai aku pakai adidas punya kasut... x de masalah... start migrate ke aother brand la kut... NIKE mcm bagus jer... Hairi & Danish pun pakai NIKE... so far ok jer kasut budak2 tu... abah nak 1 la kalau mcm tu...

apa pun nak cari Jack Purcell dulu.....

Cermin Mataku Patah .... Lagi

Untuk kali keberapa ntah tahun ni... cermin mataku patah lg.... arghhhh!!!!!!!!!!!!!!!!! tension nya.....

tgh dengar khutbah jumaat td... aku bersihkan cermin mata sambil mendengar khutbah... tiba2 bila aku tgh nak betulkan bukaan cermin mata tu... pap... patah 2.... tension gila... sib baik g sembahyan td berdua dgn ofismate.... bleh la dia drive balik... ni nak balik rumah tgh x tau mcmana... arghhhhhhhhhhhhh!!!!!!!!!!!

kene mandi bunga kut aku ni... tension!!!!!!!!!!!!!!!!!!!!!!!!!!