Saturday, January 14, 2012

Rahmat Anak

Tak der idea sebenarnya nak update blog... hmmm ... Tadi, baru lepas keluar makan malam ngan wife and her office mates, suka tengok anak kawan wife aku yang comel-comel...cute sangat.... beruntung dia dikurniakan anak-anak yang comel-comel, semoga anak-anak yang diberikan menjadi rahmat buat kita, menjadi seorang yang soleh dan solehah apabila besar nanti... amin

Setiap insan yang berkahwin mesti mahu dianugerahkan rahmat ini, tapi tidak semua yang kita kehendaki itu akan kita perolehi...kadang kita kena redha dan pasrah dengan ketentuan tuhan, Bersyukur dengan apa yang kita ada dan redha dengan ujian yang diberikan. Memang senang mengucapkan kata-kata, tapi bila hendak menerima hakikat umpama mengenggam bara api...

Kita tidak akan merasai sesuatu yang kita ada itu amat berharga setelah kita kehilangannya, Hargailah ia sebelum kita kehilangannya...

Banyak, ia banyak rahmat yang diberikan tuhan kepada kita, samaada kita sedar atau pun tidak.

Yang berkahwin
, kadang menyesali dengan perkahwinan mereka...sedangkan kita lupa ada berapa ramai gadis dan lelaki di luar sana yang belum bertemu jodoh mereka dan masih tercari-cari sehingga ke penghujung usia.
Yang punya anak , kadang sedih dengan anak yang ada pada mereka ...sehingga ada yang sanggup mengabaikan dan membuang anak mereka..sedangkan kita lupa , ada berapa ramai pasangan berkahwin yang merintih, berdoa dan berusaha untuk rahmat ini.
Yang berkerja , sering merungut dengan pekerjaan mereka, sedangkan kita lupa ada mereka yang diluar sana yang hidupnya kais pagi makan pagi untuk sesuap nasi, hidup mereka tidak sesempurna kita.

Kadang kita terlalu menginginkan apa yang kita tidak dapat, sampai kita lupa akan perkara yang telah banyak kita dapat, telah diberikan tuhan kepada kita.

Tetapi sekiranya kita, setelah berusaha dengan gigih dan mencuba sedaya upaya, tetap tidak berjaya, tetap tidak mendapatkan apa yang kita mahu, maka redha adalah jawapan kepada Allah SWT. Begitulah juga apabila kita ditimpa kelemahan, kerosakan, bencana. Kerana akhirnya, kita sebagai hambaNya tidak mengetahui apa-apa. Allah jualah yang mengetahui apa yang baik atau buruk bagi kita.

“Diwajibkan ke atas kamu berperang dan itu bukanlah disukai kamu. Tetapi boleh jadi apa yang kamu benci itu baik buat kamu. Dan boleh jadi apa yang kamu sukai itu buruk bagi kamu. Dan Allah Maha Mengetahui, manakala kamu tidak mengetahui. Surah Al-Baqarah ayat 216.

Persoalannya, adakah aku ini seorang insan yang bersyukur?

“Patutkah manusia menyangka bahawa mereka akan dibiarkan dengan hanya berkata: Kami beriman, sedang mereka tidak diuji (dengan sesuatu cubaan)? Dan demi sesungguhnya! Kami telah menguji orang-orang yang terdahulu daripada mereka, maka (dengan ujian yang demikian), nyata apa yang diketahui Allah tentang orang-orang yang sebenar-benarnya beriman, dan nyata pula apa yang diketahuiNya tentang orang-orang yang berdusta.” Surah Al-Ankabut ayat 2-3.

Wednesday, January 4, 2012

A Simple Hex Editor - Qbasic / FreeBASIC / QB64


This is A Simple Hex Editor I found on the net . This Editor reads one Character at a time (byte per byte),This method is really slow, specially with big files and not that efficient but still good for beginners in understanding the idea and concept

Source code can be found below :-

INPUT "Enter BINARY File's Name -->", Name$
OPEN Name$ FOR BINARY AS #1
DIM Size AS LONG: Size = LOF(1)
DIM CharNum AS LONG
CLS
DO
PRINT : PRINT "Menu - Last byte is currently"; Size
PRINT " 1) Read hex"
PRINT " 2) Write hex"
PRINT " 3) Finished"
SELECT CASE INPUT$(1)
CASE "1": GOSUB Read1
CASE "2": GOSUB Write1
CASE "3": EXIT DO
CASE ELSE: PRINT "GOOF use 1 2 3 only"
END SELECT
LOOP
CLOSE #1
SYSTEM

DIM TheChar AS STRING * 1
DIM TheHex AS STRING * 2


Read1:
INPUT "Character Number"; CharNum
IF CharNum < 1 THEN PRINT "Too little": RETURN
IF CharNum > Size THEN PRINT "Too big": RETURN
GET #1, CharNum, TheChar
TheHex = UCASE$(HEX$(ASC(TheChar)))
PRINT "Value is "; TheHex
RETURN


Write1:
INPUT "Character Number"; CharNum
IF CharNum < 1 THEN PRINT "Too little": RETURN

IF CharNum > Size + 1 THEN PRINT "Too big": RETURN
LINE INPUT "Value: "; TheHex
TheHex = UCASE$(TheHex)
IF LEN(TheHex) <> 2 THEN PRINT "Need two chars such as 3F": RETURN
DIM w1 AS INTEGER, W2 AS INTEGER
w1 = INSTR("0123456789ABCDEF", LEFT$(TheHex, 1))
IF w1 = 0 THEN PRINT "Use 0-F only": RETURN
W2 = (w1 - 1) * 16
w1 = INSTR("0123456789ABCDEF", RIGHT$(TheHex, 1))
IF w1 = 0 THEN PRINT "Use 0-F only": RETURN
W2 = W2 + w1 - 1
TheChar = CHR$(W2)
PUT #1, CharNum, TheChar
Size = LOF(1)
PRINT "Done"
RETURN