Aku Lihat

 AKU LIHAT.

AKU LIHAT SEBUAH KELUARGA KECIL , TAPI JIWA MEREKA BESAR
AKU LIHAT MEREKA MISKIN HARTA TAPI MEREKA SANGAT KAYA JIWA.
AKU LIHAT MEREKA TIDAK MEMINTA, TAPI MEREKA PEMBERI YANG SETIA
AKU LIHAT MANUSIA MEMANDANG MEREKA KECIL, TAPI MEREKA TIDAK MERASA KERDIL
AKU LIHAT MEREKA SEPERTI TIDAK MEMPUNYAI APA-APA, TAPI MEREKA BERKATA MEREKA PUNYA SEGALA-GALANYA.
AKU LIHAT MANUSIA MEMANDANG MEREKA HINA, TAPI MEREKA SENTIASA BERSYUKUR PADA YANG ESA
AKU LIHAT MEREKA DERITA, TAPI MEREKA TIDAK MEMINTA-MINTA.
AKU LIHAT MEREKA SABAR, MEREKA BERKATA KAMI ADA TUHAN YANG MAHA BESAR
AKU LIHAT MEREKA TIADA UJUB, SEBAB MEREKA SELALU SUJUD
AKU LIHAT MEREKA DI BAWAH, TAPI  DUNIA MEREKA INDAH.

DAN..AKU LIHAT KE BAWAH, KAKI KU MASIH MEMIJAK TANAH...

I Am Dying..

 Lama tak update blog...malam ni rasa nak menulis...lebih suka menulis di blog sebab di sini aku tidak berapa di kenali..

Kesihatan ku makin merosot...paras gula yang tak stabil ..selalu turun naik..menyebabkan badan ku jadi lesu...sendi ku jadi sakit-sakit... Hampir 20 tahun mengidap diabetes...banyak simpton yang telah ku rasai akibat dari diabetes...

Kesemua rakan-rakan karib di pejabat lama ku yang mengidap diabetes telah meninggal dunia...arwah abang lan, joli, wazir dan hairi..telah meninggalkan kami..tinggal diri ku yang terus bertahan...pelbagai supplement ..vitamin ...ubat-ubatan aku ambil untuk kelangsungan hidup...

 Aku semakin tidak bermaya...badan semakin letih dan selalu mengantuk , di hari cuti aku luangkan masa ku dengan tidur kerana kelesuan..malangnya apabila bangkit dari tidur lesu itu tidak hilang. Segala supplement dan ubat-ubatan yang aku ambil kini seperti tidak berkesan.

I'm dying... itu yang terlintas di fikiran ku.

 

WORK SUCKS..

Thinking about work and the future...whether I should move on or just quit..luck
seems isn't with me...Always the bad on my side...loosing everytime.

Have a discussion with spouse, decision is made...just wait and see.

I just dont understand working in a technical department ( well, at least that's what they claim), but in truth it's not technical at all...I just dont understand for those who claim themselves as technical heads, don't appreciate technical subordinates at all.

What's so technical if it's all about sugar coat mouth talking ..?? Ass licking cock sucking motherfucker??

I guess I just don't belong here....really it's time to move on...


Sucks!!

QBASIC / QB64 / FREEBASIC - TILEMAP

DarkDread's 2D TileMap Engine

DIM SHARED Map%(0 TO 15, 0 TO 9) ' This is the 2d array which will be
' used to hold the map data.

FOR Y = 0 TO 9 ' This little routine reads the DATA
    FOR X = 0 TO 15 ' into the map array.  We will use
        READ Map%(X, Y) ' this DATA to draw the map and test
    NEXT X ' where the player can and can't
NEXT Y ' move.

' Below is the data for a boring little level which I have created.  You can
' change it around in any way you want.
DATA 5,7,7,7,7,7,7,6,6,7,7,7,7,7,7,5
DATA 5,1,1,0,0,0,0,3,3,0,0,0,0,1,1,5
DATA 5,5,5,5,5,5,5,4,4,5,5,5,5,5,5,5
DATA 6,6,6,6,0,0,0,3,3,0,0,0,1,6,6,6
DATA 6,6,1,1,1,1,0,3,3,0,1,1,1,1,6,6
DATA 2,6,6,1,1,1,1,3,3,0,1,1,1,1,6,6
DATA 2,6,6,1,1,1,1,3,3,1,1,1,1,1,1,6
DATA 2,2,6,6,1,1,1,3,3,1,1,1,1,1,0,5
DATA 2,2,2,6,6,1,1,3,3,1,1,1,0,0,5,5
DATA 2,2,6,6,6,5,5,5,5,5,5,5,5,5,5,5

SCREEN 13 ' We will be using screen mode 13h
' which has a resolution of 320x200
' and can display up to 256 colours.

DIM SHARED Grass%(210) ' These are the arrays we need to
DIM SHARED Forest%(210) ' dimension in order to hold all of
DIM SHARED Desert%(210) ' our graphics.
DIM SHARED Dirt%(210)
DIM SHARED Bridge%(210)
DIM SHARED Water%(210)
DIM SHARED Rock%(210)
DIM SHARED Wall%(210)

LINE (0, 0)-(19, 19), 2, BF ' This is our grass tile.
LINE (5, 5)-(3, 3), 120
LINE (5, 5)-(7, 3), 120
LINE (15, 15)-(13, 13), 120
LINE (15, 15)-(17, 13), 120

GET (0, 0)-(19, 19), Grass%() ' This puts what we have just drawn
' into the Grass% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 19), 120, BF ' This is our forest tile.
LINE (0, 10)-(10, 5), 2
LINE (10, 5)-(20, 10), 2

GET (0, 0)-(19, 19), Forest%() ' This puts what we have just drawn
' into the Forest% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 19), 43, BF ' This is our desert tile.
RANDOMIZE TIMER ' This is just a simple way of
FOR I = 1 TO 10 ' drawing 10 random dots on our tile.
    X = INT(RND * 19)
    Y = INT(RND * 19)
    PSET (X, Y), 6
NEXT I

GET (0, 0)-(19, 19), Desert%() ' This puts what we have just drawn
' into the Desert% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 19), 113, BF ' This is our dirt path tile.
CIRCLE (9, 9), 8, 6
PAINT (9, 9), 6, 6

GET (0, 0)-(19, 19), Dirt%() ' This puts what we have just drawn
' into the Dirt% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 9), 6, BF ' This is our bridge tile.
LINE (0, 10)-(19, 19), 113, BF

GET (0, 0)-(19, 19), Bridge%() ' This puts what we have just drawn
' into the Bridge% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 19), 105, BF ' This is our water tile.
LINE (0, 10)-(10, 5), 9
LINE (10, 5)-(20, 10), 9

GET (0, 0)-(19, 19), Water%() ' This puts what we have just drawn
' into the Water% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 19), 2, BF ' This is our rock/mountain tile.
LINE (1, 17)-(18, 17), 185
LINE (18, 17)-(9, 2), 185
LINE (9, 2)-(1, 17), 185
PAINT (9, 9), 185, 185

GET (0, 0)-(19, 19), Rock%() ' This puts what we have just drawn
' into the Rock% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn so that we may draw our
' next tile.

LINE (0, 0)-(19, 9), 23, BF ' This is our wall tile.
LINE (0, 10)-(19, 19), 25, BF

GET (0, 0)-(19, 19), Wall%() ' This puts what we have just drawn
' into the Wall% array.

LINE (0, 0)-(19, 19), 0, BF ' This command clears what we have
' just drawn.
' Basically, this code will check what number is at every position in the
' map and put the right graphic, in the right spot on the screen according
' to what number is associated with what graphic.
FOR Y = 0 TO 9
    FOR X = 0 TO 15
        IF Map%(X, Y) = 0 THEN
            PUT (X * 20, Y * 20), Grass%(), PSET
        ELSEIF Map%(X, Y) = 1 THEN
            PUT (X * 20, Y * 20), Forest%(), PSET
        ELSEIF Map%(X, Y) = 2 THEN
            PUT (X * 20, Y * 20), Desert%(), PSET
        ELSEIF Map%(X, Y) = 3 THEN
            PUT (X * 20, Y * 20), Dirt%(), PSET
        ELSEIF Map%(X, Y) = 4 THEN
            PUT (X * 20, Y * 20), Bridge%(), PSET
        ELSEIF Map%(X, Y) = 5 THEN
            PUT (X * 20, Y * 20), Water%(), PSET
        ELSEIF Map%(X, Y) = 6 THEN
            PUT (X * 20, Y * 20), Rock%(), PSET
        ELSEIF Map%(X, Y) = 7 THEN
            PUT (X * 20, Y * 20), Wall%(), PSET
        END IF
    NEXT X
NEXT Y


DIM SHARED PlayerX%, PlayerY%
' We must create global variables
' for the character's X and Y
' position, relative to the map.

PlayerX% = 7 ' We give our player any ol' starting
PlayerY% = 8 ' position.  Just make sure they are
' not standing on an impassable tile.

Moved = 1
DO
    SELECT CASE INKEY$
        CASE CHR$(0) + CHR$(77) ' Code for right arrow key.
            IF Map%(PlayerX% + 1, PlayerY%) < 5 THEN
                GOSUB DrawBackGround
                PlayerX% = PlayerX% + 1
                Moved = 1
            END IF
        CASE CHR$(0) + CHR$(75) ' Code for left arrow key.
            IF Map%(PlayerX% - 1, PlayerY%) < 5 THEN
                GOSUB DrawBackGround
                PlayerX% = PlayerX% - 1
                Moved = 1
            END IF
        CASE CHR$(0) + CHR$(80) ' Code for down arrow key.
            IF Map%(PlayerX%, PlayerY% + 1) < 5 THEN
                GOSUB DrawBackGround
                PlayerY% = PlayerY% + 1
                Moved = 1
            END IF
        CASE CHR$(0) + CHR$(72) ' Code for up arrow key.
            IF Map%(PlayerX%, PlayerY% - 1) < 5 THEN
                GOSUB DrawBackGround
                PlayerY% = PlayerY% - 1
                Moved = 1
            END IF
        CASE CHR$(27) ' Code for Esc key.
            Quit = 1
    END SELECT

    IF Moved = 1 THEN
        X% = PlayerX% * 20 ' This little routine draws our
        Y% = PlayerY% * 20 ' character in the right position
        CIRCLE (X% + 9, Y% + 9), 9, 40 ' on the screen.
        PAINT (X% + 9, Y% + 9), 40, 40
        CIRCLE (X% + 5, Y% + 6), 3, 31
        PAINT (X% + 5, Y% + 6), 31, 31
        CIRCLE (X% + 13, Y% + 6), 3, 31
        PAINT (X% + 13, Y% + 6), 31, 31
        CIRCLE (X% + 5, Y% + 6), 0, 16
        CIRCLE (X% + 13, Y% + 6), 0, 16
        CIRCLE (X% + 4, Y% + 17), 2, 4
        PAINT (X% + 4, Y% + 17), 4, 4
        CIRCLE (X% + 14, Y% + 17), 2, 4
        PAINT (X% + 14, Y% + 17), 4, 4
        CIRCLE (X% + 9, Y% + 9), 2, 16
        PAINT (X% + 9, Y% + 9), 16, 16
        Moved = 0
    END IF
  
LOOP UNTIL Quit = 1

SCREEN 0: WIDTH 80
PRINT "Thank you for trying this demo."
SYSTEM

DrawBackGround:
X = PlayerX%
Y = PlayerY%
IF Map%(X, Y) = 0 THEN
    PUT (X * 20, Y * 20), Grass%(), PSET
ELSEIF Map%(X, Y) = 1 THEN
    PUT (X * 20, Y * 20), Forest%(), PSET
ELSEIF Map%(X, Y) = 2 THEN
    PUT (X * 20, Y * 20), Desert%(), PSET
ELSEIF Map%(X, Y) = 3 THEN
    PUT (X * 20, Y * 20), Dirt%(), PSET
ELSEIF Map%(X, Y) = 4 THEN
    PUT (X * 20, Y * 20), Bridge%(), PSET
ELSEIF Map%(X, Y) = 5 THEN
    PUT (X * 20, Y * 20), Water%(), PSET
ELSEIF Map%(X, Y) = 6 THEN
    PUT (X * 20, Y * 20), Rock%(), PSET
ELSEIF Map%(X, Y) = 7 THEN
    PUT (X * 20, Y * 20), Wall%(), PSET
END IF
RETURN

SYUKUR

Sesungguhnya jika kamu bersyukur, nescaya kami akan menambah nikmat kepadamu.
(QS Ibrahim : 7)

NEW SMARTPHONE

Yesterday , I bought a new made in malaysia smartphone for RM250
OCONO N2,
2 gig RAM and 16 gig ROM

PAHLAWAN - GAME BARU UNTUK TAHUN 2020

Lama betul tak buat game...tak der masa , agak sibuk dengan kerja...
di musim COVID19 ni , terasa bosan yang amat sangat duk dirumah,
Jadi aku godek-godek komputer, terasa nak buat game semula guna GameMaker

Ini Screen shot untuk some part of the game which I call "PAHLAWAN", a Real Time Strategy ( RTS ) Game

Sempat buat sampai 5 level, then stop kejap....cari idea baru

BENCI , MARAH DAN SABAR

Kita kata kita tak benci..tapi kita tetap benci...kita kata kita tidak marah...tapi kita tetap marah...kita kata kita sabar...tapi kita tetap tidak sabar....
kenapa yer?
Mungkin kerana hati kita kotor...kelam dengan dosa..., penuh rasa ujub dan mazmumah...
Bagaimanakah kita esok hari bila bertemu tuhan dengan hati yang begitu...

"Live a simple life..for a decent living..."..ahhh...grit..!!

Nothing...

I have nothing....nothing to offer you..whether it's wealth or posession,
But I appreciate sincerity, trust and friendship.

What I have is just Me, Myself and...

Antara Istighfar dan Tasbih

Ibnu Al-Jauzi ditanya :
Manakah yang lebih utama? Istighfar atau Bertasbih? Beliau menjawab:
Pakaian yang kotor itu lebih memerlukan sabun daripada minyak wangi. Istighfar itu ibarat sabun manakala tasbih umpama minyak wangi. Hati kita yang kotor ini lebih memerlukan sabun daripada minyak wangi . Maka mari kita bersihkan hati kita dengan ISTIGHFAR dan kita wangikannya dengan TASBIH...
Semoga Dapat kita amalkan, kita sampaikan dan kita ambil ikhtibar.

War No More...

HADIS AKHIR ZAMAN

Pendusta Dan Pengkhianat
Daripada Abu Hurairah r.a. Beliau berkata, Rasulullah SAW bersabda “Akan datang kepada manusia tahun-tahun yang penuh dengan tipuan. Pada waktu itu si pendusta dikatakan benar dan orang yang benar dikatakan dusta. Pengkhianat akan disuruh memegang amanah dan orang yang amanah dikatakan pengkhianat. Dan yang berkesempatan berbicara (cuba membetulkan) hanyalah golongan “Ruwaibidhah”. Sahabat bertanya “Apakah Ruwaibidhah itu wahai Rasulullah?” Nabi SAW menjawab “Orang kerdil, hina, dan tidak mengetahui bagaimana hendak mengurus orang yang ramai” (HR Ibnu Majah)

Kefasikan Berleluasa
Daripada Abu Hurairah r.a, bahawasanya Rasulullah SAW bersabda “Bersegeralah kamu beramal sebelum menemui fitnah (ujian berat) seumpama malam yang sangat gelap. Seseorang yang masih beriman pada waktu pagi, kemudian pada waktu petang dia sudah menjadi kafir, atau seseorang yang masih beriman pada waktu petang, kemudian pada keesokan harinya dia sudah menjadi kafir. Dia telah menjual agamanya dengan sedikit harta benda dunia” (HR Muslim)

Penindasan Terhadap Umat Islam
Daripada Tsauban r.a. Beliau berkata, Rasulullah SAW bersabda “Hampir tiba suatu zaman di mana bangsa-bangsa dari seluruh dunia akan datang mengerumuni kamu bagaikan orang-orang yang kelaparan mengerumuni bekas hidangan mereka” Maka salah seorang sahabat bertanya “Apakah kerana kami sedikit pada hari itu?” Nabi SAW menjawab “Bahkan kamu pada hari itu terlalu ramai, tetapi kamu umpama buih pada masa banjir, dan Allah akan mencabut rasa gentar terhadap kamu daripada hati musuh-musuh kamu, dan Allah akan melemparkan ke dalam hati kamu penyakit ‘wahan’. Seorang sahabat bertanya “Apakah ‘wahan’ itu, wahai Rasulullah?” Rasulullah menjawab “Cinta dunia dan takut mati” (HR Abu Daud)

It's My Life

Bagi aku, dalam kehidupan sebagai seorang yang dewasa, ada 2 benda yang aku tak boleh gagal ..

1. Perkahwinan
2. Pekerjaan

Kalau aku gagal salah satu dari dua perkara ini...maka seluruh hidup ku telah gagal...

Aku memerlukan isteri dalam perkahwinan untuk menemani diri sebagai rakan dan sahabat yang sama-sama berkongsi susah dan senang hidup ini.Teman ketawa senang dicari, sahabat tika menangis pengalaman mengajar aku untuk hanya bergantung pada tuhan dan diri sendiri sahaja. Kesetiaan dalam perkahwinan amatlah penting kerana ia menyatukan hati-hati yang berbeza menjadi satu

Kebahagian dalam Perkahwinan juga ditentukan oleh perkerjaan, kerana ianya menjamin kualiti hidup aku. Tidak lah aku terlalu papa sehingga boleh menyebabkan aku kufur, dan sekiranya aku kaya , jangan lah juga aku kufur. Hidup yang hanya berorientasikan pekerjaan juga bukan pilihan ku, aku mahu kerja yang bukan sahaja memberikan aku wang sumber pendapatan tetapi juga memberikan aku masa bersama keluarga dan rakan-rakan.

Lelaki Juga Menangis

Jangan di sangka lelaki itu sentiasanya perkasa,

Besi yang disangka pejal itu pun boleh di tempa..

Selagi makhluk yang mempunyai jiwa...

Sampai masa.. air mata menitis jua..

Jangan Kita Melampaui Batas

*JANGAN MERASA DIRI BAIK...*

*.. Jangan merasa diri kita " Baik " walaupun kita solat cukup 5 waktu serta tepat pada waktunya.*

*.. Jangan merasa diri kita " Baik " walaupun kita bersedekah setiap hari malah lebih banyak nilai disedekahkan.*
*.. Jangan merasa diri kita " Baik " walaupun hari hari kita nasihat dan tegur orang lain yang berbuat silap.*
*.. Jangan merasa diri kita " Baik " walaupun kita sudah pakai jubah,beserban, bertutup litup dengan sempurna.*
*.. Jangan merasa diri kita " Baik " walaupun setiap malam kita jaga solat Tahajjud, Witir, Hajat dan amalan sunat lain.*
*.. Jangan merasa diri kita " Baik " walaupun hari hari kita ke masjid atau surau untuk beribadah dan menambah ilmu.*
*.. Jangan merasa diri kita " Baik " walaupun setiap saat kita update status berunsur nasihat dan dakwah*.
*.. Jangan merasa diri kita " Baik " walaupun setiap masa kita menolong orang lain.*
*.. Jangan merasa diri kita " Baik " walaupun setiap hari kita menghantar tazkirah.*
*.. Jangan merasa diri kita " Baik " walaupun kita seorang GURU.*
pendek kata

*JANGAN MERASA DIRI KITA LEBIH BAIK DARIPADA ORANG LAIN.*

Kerana kita takkan pernah tahu dimanakah dan bilakah saat HATI kita IKHLAS melakukan amalan amalan soleh, menasihati orang serta beramal ibadah lain yang bakal diterima oleh Allah Swt.
Kita tak tahu amal manakah yang Allah terima.
Selalu letak diri kita dalam keadaan " aku sedang perbaiki diriku dan cuba bantu orang lain " untuk menjadi lebih baik.
Kerana Allah hanya menerima hati hambaNya yg IKHLAS. Wujud keikhlasan atau sekadar penuh Riak dan Hasad.
Jadi laksanakanlah sesuatu kebaikan hanya kerana mengharapkan REDHA Allah. Disamping kita perbaiki diri sendiri serta orang lain.
Hanya Allah yang akan terus beri kita PETUNJUK serta JALAN KEBENARAN

"Ketahuilah! Sesungguhnya manusia benar-benar melampaui batas,

karena Dia melihat dirinya serba cukup.

Sesungguhnya hanya kepada Tuhanmulah kembali(mu)."

Surah Al-Alaq:6-8

My Beloved One

My Beloved Daughter...Then One and only..

The Unforgiven Too

"The Unforgiven Too"

Lay beside me, tell me what they've done
Speak the words I wanna hear, to make my demons run
The door is locked now, but it's opened if you're true
If you can understand the me, then I can understand the you
Lay beside me, under wicked sky
Through black of day, dark of night, we share this paralyze
The door cracks open but there's no sun shining through
Black heart scarring darker still, but there's no sun shining through
No, there's no sun shining through
No, there's no sun shining...

What I've felt, what I've known
Turn the pages, turn the stone
Behind the door, should I open it for you?

What I've felt, what I've known
Sick and tired, I stand alone
Could you be there? 'Cause I'm the one who waits for you
Or are you unforgiven, too?

Come lay beside me, this won't hurt, I swear
She loves me not, she loves me still, but she'll never love again
She lay beside me but she'll be there when I'm gone
Black heart scarring darker still, yes, she'll be there when I'm gone
Yes, she'll be there when I'm gone
Dead sure she'll be there...

What I've felt, what I've known
Turn the pages, turn the stone
Behind the door, should I open it for you?

What I've felt, what I've known
Sick and tired, I stand alone
Could you be there? 'Cause I'm the one who waits for you
Or are you unforgiven, too?

Lay beside me, tell me what I've done
The door is closed, so are your eyes
But now I see the sun, now I see the sun
Yes, now I see it

What I've felt, what I've known
Turn the pages, turn the stone
Behind the door, should I open it for you?

What I've felt, what I've known
So sick and tired, I stand alone
Could you be there? 'Cause I'm the one who waits,
The one who waits for you....

Oh, what I've felt, what I've known
Turn the pages, turn the stone
Behind the door, should I open it for you? (so I dub thee Unforgiven)

Oh, what I've felt...
Oh, what I've known...

I take this key (never free...)
And I bury it (never me...) in you
Because you're unforgiven, too...

Never free...
Never me...
'Cause you're unforgiven, too...
Oh

ASB (Amanah Saham Bumiputra) Loan Calculator

Berminat untuk membuat pinjaman ASB ??
Berikut saya lampirkan perisian untuk mengira kadar pulangan melalui pinjaman ASB yang boleh dibuat di mana-mana bank berhampiran anda.

Download:
 ASBLoanCalculator.zip

I'm Just A Drop of Water..

Setitik air di lautan yg luas..kehadirannya tidak menambah dan tidak mengurangkan jumlah air yang terlalu banyak...begitu lah juga kita insan yg terlalu kerdil di mata manusia...tidak akan di lihat , di hargai dan tidak di nilai pada penglihatan manusia...cari lah redha tuhan mu... kerana hanya dia yg kamu ada selain dari diri mu... jangan lah menumpukan hanya pada satu titik hitam..sedangkan kita lupa di latarnya ada papan putih yg lebih besar ..lumrah manusia suka melihat keburukan dan kelemahan tetapi sukar melihat kebaikan pada seseorang ..... ingatlah , syurga itu hanya dengan rahmat tuhan.....dan bacalah dengan nama tuhan mu yang mengajarkan dengan kalam.

CONCRETE SLAB DESIGN TO BS8110

Rectangular Concrete Slab Design to BS8110:1985

Free Download:
slabsetup.zip