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

Sunday, December 18, 2011

Carbon nanotubes: Saladin's secret weapon

Mediaeval nanotubes, a cut above the rest

Carbon nanotubes are no longer the proud boast of 21st century materials scientists. It appears their discovery was unwittingly pre-empted by mediaeval Muslim sword-smiths whose tough Damascus blades taught the Crusaders the true meaning of cold steel when they fought over the Holy Land.

Peter Paufler and colleagues at Dresden's Technical University discovered carbon nanotubes in the microstructure of a 17th century Damascus sabre. Intriguingly, the nanotubes could have encapsulated iron-carbide nanowires that might give clues to the mechanical strength and sharpness of these swords.


To Europeans, Damascus steel blades seemed magical. Not only could they cut a piece of silk in half as it fell to the floor, they could cleave rocks and their own swords without losing sharpness. The problem facing sword smiths was how to produce steel that was both hard and malleable. Too much carbon and the steel is hard and brittle; too little and it is too soft and malleable to hold an edge when sharpened. Damascus steel blades were forged out of small pure cakes of steel containing around 1.6-1.7 per cent carbon, called wootz. Produced in India, wootz cakes were shipped to Damascus where expert sword smiths fashioned them into blades.

Steel that contains this amount of carbon forms plates of cementite (Fe3C) which, on its own, makes the steel brittle. However, during the forging process at around 800oC, small amounts of 'impurities' were added containing many first-row transition elements (such as V, Cr, Mn, Co, and Ni), tungsten, and some rare-earths. which together had the effect of forming the cementite into bands. This gave the blades great strength, malleability, and a distinctive wavy-band pattern known as a damask. The skill had been lost by the 18th century, when supplies of these ores and impurities ran out.

Micro-structural examination of the bands had previously shown they contained nanowires of Fe3C. Now, Paufler's team has uncovered the presence of carbon nanotubes by exposing a small piece of a blade to corrosion by hydrofluoric acid, and examining the effects under a high resolution scanning electron microscope. In some remnants the researchers saw evidence of incompletely dissolved Fe3C nanowires, suggesting the nanotubes could have encapsulated the nanowires. This would not only have given the blades their renowned strength and sharpness, but also their characteristic banding pattern. 'The nanotubes probably came from the addition of mandatory organic ingredients we know were added during wootz production, such as wood from the tree Cassia auriculata and leaves from Coltropis gigantean,' said Paufler. 'So, by empirically optimising their blade-treatment procedures, these craftsmen made nanotubes more than 400 years ago.'

source: http://www.rsc.org/chemistryworld/News/2006/November/15110602.asp

Thursday, November 3, 2011

CHEAT Patch for GUNBOLT

What is GUNBOLT?
If you are one for games that include great graphics, shoot'em up action and fun all around game play, then Gunbolt is the game for you. The game, features wonderful Sega-like graphics that anyone who owns a PC can give a try for an hour of free gameplay by simply downloading the game to one's computer.


download: Gunbolt.zip

What is GUNBOLT CHEAT Patch?
If you have problems in completing the game, you can use this patch , coded by me. This patch changes all the default values such as "live" into bigger value ( that is 65,535 ). This make the game much easier to play and win.




1. simply download the patch : GunBolt-Cheat.exe
2. Copy downloaded GunBolt-Cheat.exe file inside Gunbolt game files' folder
3. run/double click GunBolt-Cheat.exe
4. Press 2 ( CHEAT PATCH is chosen)
5. DONE





Tuesday, November 1, 2011

ATARI 800 XL 8 bit



I'm first introduced to ATARI 800XL 8 bit computer when I was 14 years old, and that was in year 1986. Get hooked with 8 bit games and introduced to BASIC Language ( ATARI BASIC) . 25 Years later I find out , I still addict to BASIC Programming and never tired in learning the new form of it. BASIC Forever.

Monday, October 31, 2011

HESA Saeqeh














HESA Saeqeh is an Iranian built single-seater fighter jet, derived from the American Northrop F-5. A joint product of the Islamic Republic of Iran Air Force and the Iranian Ministry of Defense, it is the second generation of the Iranian Azarakhsh fighter. Saeqeh aircraft were tested successfully in Iran 20 September 2007.

Despite being under tight santions by the US , Iran is still capable of being self sufficents in producing domestic weaponary. No bad for a third world country.

Good for Iran, The question is , "When Can We ??"

FreeBasic Miner

niz567: FreeBasic Miner is a puzzle game in the vein of BoulderDash and Mole Mole, but manages to add a whole new level of depth to the classic concept by introducing tools the player can use, from bombs to drills and pickaxes, as well as features like flooded areas you can explore for a longer time only if you have a swimsuit. Digging and pushing objects remains the basis of the gameplay, but pretty much all the gameplay elements are equally present and beautifully intertwined in the 31 mines (levels) the game features. Most mines are single screen, but a great deal of them span over several screens and the camera scrolls through them.
Downloads :
FreeBasicMiner.zip

Screen Shots :