en en en en en en en en en en en en en en en en ru en en en en en en en en en en en en en en en en en en nl en en nl en en en ms id ms id id id ms id ms ms id ms ms id ms ms id id id id ms id ms id en fi id id id id id id ms en en id id id id id ms id en en en en id en en ms ms ms en id id ms ms en id en en id id en en id id id id ms id en id id ms en en id id id id en en id en id id id id id en en en en en en en en en en en en ru uk ceb en en ru en en en en en en en nl en en en en en en en en en en en nl en en en en en en en en en en en en en en en en nl en en en hu es zh en zh zh ja el en ast en en bn en ta en en uz en en en en en en en en en en en ru en en en en ja en en en zh en es en en en en fr en fr en en en en en en en en en en en en en en en en en en tr en en en en en en en en en en en en en en en en en en en en en en en en uz en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en en hu en en en en en en hbs_lat en az hu en en en en en en en es en en en en en az hu en en en en en en az hu en ceb en en ar en en hbs_lat en uk en en en en en en az hu en en en en en en en en en it en en en tr nb pt pt th en en en tr en pt it es en en en az hu en en en en en tr nb en mk en ru en en nb en en tr it en en tr tr en en en en en en en en en en en en tr tr en en en en tr en tr en de hu en en en en fa en en en en en en es es en ur ur en en az hu en en en en de de de de de de de de de de de de de de gl de gl hbs_lat en de de en en en de en en en en de en en de en en de de de de en en es en de en en en de de de en en en en en en en de en de nl de de en en de de de en de en de en de en es en de de de de de de en de en de hbs_lat fy id en de de de de de de de de en en en es en de en de en en ar en de ar en ar ar es en en de de en en de en en en en es en en en en en en tr en en es en en en en pt en en en ru en en en en en en fr en en tr en en tr en en en en en en en en en en en en en en en en en en en en en en en ja en es en en en en en en en en en en en en en en es es en en es en en cs en en en fr en is en en en kw en kw es en en en en en en en en de en cs en en en en en vi en en en en en en en en en en en es ja en en en es en en en zh vi en en en en kw en en en en en en en pt en en en ca en en en en en en en en ceb en en en en tr it nb en nb en gl es tr en en en az en en en nl en en es en en en en pt en en en de en en en en en en fr en en tr en en tr en en en en en en en en en en en en en en en en en en en en en en en ja en es en de en en en en en en en en en en en en es es en en es en en cs en en en fr en cs en en en kw en kw es en la en en en en en en de en cs en en en en en vi en en en en en en en de en en en es ja en en en es en en en zh vi en en en en cs en de en en en en ca en en en en en en en en ceb en en en en tr it en pt en gl es tr en en en fa en en en en en en tr en es ja es en en en en pt nb en en eo en en en en en fr en en tr en en tr en en en en en en en en en en en en en en en en en en en en en de de es en en en en en en en en en en en en en en en en es es es en es en en cs en en en fr en is en en en kw en kw es en en en en en en en en de en cs en en en en en vi en en en en en en en en en en en es ja en en en es en en en zh vi en en en en kw en en en en en en pt en en ca en en en en en en en en ceb en en en en tr it nb en nb en gl es tr en en en az en en id id id id id id id id id ms id id id ms id id id id id id id id id id ms id id id id en id id id ms ms ms id id id id id ms id id id id id id id id id id id id ms id id id en en ms ms id id ms id id id id id id ms ms en en en en en en en en en de cs cs cs cs cs cs en cs cs en cs cs cs en en cs cs cs en en cs cs cs cs da en en cs cs da en da en en en en en en en en da en en en en nl ms en en da en en en en en en en id id en cs en en en cs da en cs cs en en en en en en en en en en en en en en en en en id id en id en
Me , Myself and Nurul: 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.'
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.
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
4. Press 2 ( CHEAT PATCH is chosen)
ATARI 800 XL 8 bit
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 ??"
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.
Apa Yang Boleh Dipelajari dari Steve Jobs
Dunia sekarang memang terasa kehilangan Steve Jobs diatas kehilangannya. Bagi saya dia boleh dikategorikan antara insan yang hebat kerana mampu meninggalkan kesan sebagai seorang innovator yang berjaya.
Sebelum kita melihat pengajaran yang kita boleh ambil dari Steve Jobs, secara kesimpulannya beliau adalah insan biasa, sama seperti kita, beliau bukan anak raja atau anak orang kenamaan. Namun apa yang hebat mengenai beliau adalah, beliau sendiri yang menentukan kehidupannya. Tidak menyalahkan orang lain atau keadaan sekeliling, dan kemahiran dan kelebihan ini yang gagal kita pupuk.
Kebanyakan dari kita tidak mengenali Steve Jobs secara mendalam. Kita mungkin hanya mengetahui bahwa beliau adalah Bos kepada syarikat Apple. Berikut beberapa fakta mengenai Steve Jobs:
Dia dilahirkan sebagai anak di luar nikah, kepada pasangan pelajar yang masih lagi menuntut.
Ibubapanya melepaskannya kepada sesiapa yang ingin mengambil beliau sebagai anak angkat
Dia kemudian diambil oleh pasangan kelas pertengahan. Ayah angkatnya bekerja membaiki kereta
Pasangan ibubapa kandung beliau mahukan anak perempuan dan bukannya anak lelaki
Beliau dibuang kolej setelah menjalani pengajian selama 1 semester
Selepas dibuang kolej, beliau menumpang tidur di lantai rumah kawannya, mengutip botol air Coke untuk dijual, dan mendapatkan bantuan makanan percuma dari kuil Hare Krishn
Pada tahun 1985, beliau dipecat didepan umum, dari syarikat yang beliau asaskan sendiri (Apple), setelah kehilangan kuasa dalam bilik Lembaga Pengarah. (beliau kemudiannya kembali sebagai CEO Apple pada 1997, setelah Apple membeli Syarikat NeXT, kepunyaan beliau)
Pada tahun 2003, beliau didapati menghidap kanser pancreas yang jarang ditemui. Kemudian beliau hidup dalam pertarungan yang panjang menentang kanser itu sehinggalah beliau menemui ajalnya.
Kebanyakan dari kita yang tidak mengenali Steve mungkin beranggapan bahwa Steve mempunyai hidup yang serba serbi lengkap, mewah dan mempunyai kareer hidup yang terjamin kejayaan didepan mata.
Namun hakikatnya berbeza, seperti apa yang kita lihat fakta-fakta diatas. Beliau dilahirkan sebagai anak luar nikah. Ibubapa kandungnya tidak mahu menjaganya. Beliau telah dipecat dari syarikat yang disuahakannya, didepan umum dan sangat memalukan. Dan beliau menghidap kanser pancreas yang jarang ditemui yang mana akhirnya mengambil nyawa beliau.
Kehidupan beliau bukan selalunya indah, namun beliau tidak menyalahkan setiap apa yang berlaku dalam kehidupannya. Beliau tidak mahu mengadu atau menyerah nasib kepada keadaan yang menimpanya, namun beliau cuba mendapatkan yang terbaik dari apa yang dihadapinya – dengan mencipta sesuatu yang diimpikannya, dan menjadi CEO kepada syarikat yang paling bernilai didunia, menjadi billionwan selama beberapa tahun, dan menjadi orang yang disegani dalam dunia.
Cuba kita refleksi diri. Jika keadaan hidup kita menghimpit dan menekan kita, apa yang akan kita lakukan? Adakah kita (a) duduk dan bersedih mengenainya (b) mengambil apa yang terbaik dari apa yang berlaku (c) mengambil kesempatan yang ada dan mencipta peluang yang baru darinya? Kebanyakan dari kita akan melakukan (a) – ini adalah kategori orang yang suka merengek. Ada yang mungkin memilih (b) – mereka ini bagus, namun hanya sekadar itu sahaja. Sedikit sahaja yang memilih (c) – ini adalah pemenang sebenar.
Kita sebenarnya sentiasa mempunyai pilihan untuk dibuat dalam kehidupan. Jangan kita menyalahkan diri sendiri walaupun banyak benda dan keadaan buruk yang berlaku kepada kita sekarang ini, terdapat berates-ratus lagi orang dikuar sana yang lebih bernasib buruk dari kita. Apabila kita melonjak diluar dari kemampuan kita, itulah permulaan kepada kebangkitan kita.
Sebelum Apple mula melonjak naik, Microsoft adalah gergasi besar dalam industry computer pribadi. Sbelum iPod, mp3 player hanya dikenali sebagai mp3 player. Sbelum iTunes, ia kelihatan seperti mustahil untuk sesorang membeli lagu secara online, di zaman cetak rompak begitu berleluasa. Sebelum iPhone, Nokia adalah pemacu dalam pasaran handset untuk jangka masa yang lama. Sebelum iPad, kelihatannya kehidupan kita sudah selesa dengan PCs dan laptop dan tiada siapa Nampak kepentingan computer tablet.
Dalam setiap situasi, tiada siapa tahu yang ia boleh berubah menjadi sesuatu yang lebih baik, berbeza dan di luar jangkaan.
Namun setiap bidang yang dinyatakan diatas telah diatasi oleh Steve Jobs dengan hasil yang begitu menakjubkan. Setiap produk yang dihasilkan, ia adalah satu revolusi dan satu perubahan baru yang ditampilkan oleh Steve Jobs dan pasukannya – dari computer pribadi, mp3 player, penjualan muzik, handset dan computer tablet.
iPod menjadi sesuatu yang amat penting dalam kebanyakan cara hidup setiap orang di seluruh dunia, menjadi sesuatu yang amat sinonim dengan mp3 player dan telah menyebabkan penjualan cd muzik hampir terkubur. iTunes pula menjaddi pusat penjualan muzik no 1 di US pada tahun 2008, dengan 10 billion lagu telah dimuat turun pada 2010 (setelah baru 7 tahun di alam maya). iPhone telah mencipta keperluan kepada handset skrin sesentuh, memcah monopoli Nokia dan telah merubah industry permainan game dalam handset. iPad2 telah terjual melebihi jumlah jualan tablet-tablet lain semenjak perasmian jualan iPad pada 2010 dan telah merangkumi 83% jualan tablet di pasaran US pada 2011.
Kesemuanya berlaku kerana izin Allah dan juga kerana impian besar oleh Steve Jobs – melihat sesuatu melebihi jangkauan reality semasa, berfikir di luar kotak, dan untuk menjangkau suatu inovasi yang belum diterokai oleh orang lain.
“Here’s to the crazy ones, the misfits, the rebels, the troublemakers, the round pegs in the square holes… the ones who see things differently — they’re not fond of rules… You can quote them, disagree with them, glorify or vilify them, but the only thing you can’t do is ignore them because they change things… they push the human race forward, and while some may see them as the crazy ones, we see genius, because the ones who are crazy enough to think that they can change the world, are the ones who do.” – Apple’s Think Different commercial (#9 on the list)
Bagaimana pula kita dalam menentukan matlamat kehidupan? Adakah kita meletakkan matlamat berdasarkan apa yang telah dicapai oleh orang lain? Atau kita meletakkan matlamat kita berdasarkan apa sebenarnya yang kita inginkan, apa yang hasrrat naluri kita inginkan sebenarnya? Kemudian bagaimana kita mahu melakukannya dan menggoncangkan dunia ini. Apakah impian terbesar dan terhebat kita? Tentukannya dan jom laksanakannya.
Steve Job memulakan Apple dari garaj ibubapanya, bersama dengan rakan sekolah tingginya Steven Wozniak. Ia bukanlah suatu tempat yang glamor untuk permulaan sebuah syarikat teknologi terbesar didunia. Namun syarikat itu pasti tidak akan wujud jika ia tidak pernah bermula jika faktor persekitaran wajib diambil kira.
Kita biasa bertemu dengan mereka yang kerap memberi alas an tidak boleh melakukan X kerana mereka memerlukan A, B dan C terlebih dahulu. Adakah semua pra-syarat ini penting atau ia hanya sekadar alas an untuk tidak memulakan sesuatu? Jika kita selamanya mahu menunggu agar suasana menjadi sempurna untuk kita bermula, maka bilakah masanya kita akan bermula? Adakah wujud suasana yang 100% kondusif dan sempurna?
Ustaz Hasrizal bermula dengan hanya menulis artikel di Wordpress sahaja. Apa yang ada seperti di laman web beliau sekarang ini adalah jauh dari jangkauan semasa beliau mula-mula menceburi bidang penulisan di alam maya. Namun sekarang laman web beliau adalah antara laman web perkembangan kendiri terbaik di Malaysia. Begitu juga dengan laman web Ustaz Kapten Hafiz Firdaus, Dr. Zaharuddin dan Dr. MAZA (sekadar menyebut beberapa personality).
Bagaimana dengan kita? Adakah kita berani memulakan langkah mencapai impian walau dengan hanya ruang dan peluang yang kecil? Hakikatnya kita bermula dari sesuatu baru kita mendapatkan sesuatu yang lain. Setiap perkara yang hebat bermula dengan impian.
“Truth be told, I never graduated from college. And this is the closest I’ve ever gotten to a college graduation.” – Steve Jobs, during his address at Stanford Commencement 2005
“I’m convinced that about half of what separates the successful entrepreneurs from the non-successful ones is pure perseverance.” – Steve Jobs
Steve Jobs tercicir dari kolej setelah hanya 1 semester mengikuti pengajian. Taraf pendidikan Steve Jobs hanya setakat sijil sekolah tinggi. Mungkin dia diantara ramai billionair yang pernah tercicir dari kolej akan melenyapkan idea tentang kepentingan ijazah dalam kehidupan.
Kita bukan ingin mempromosi supaya berhenti mengejar segulung ijazah. Saya sendiri mempunyai segulung ijazah dan adalah hasil produk dari sistem pendidikan di Negara kita
Apa yang ingin ditekankan disini ialah, samada kita berjaya atau tidak dalam kehidupan, ia bukannya bergantung kepada ijazah yang dimiliki. Diluar sana ramai yang berjaya dalam hidup dan mereka memiliki ijazah. Diluar sana juga ramai yang berjaya dan tidak memiliki segulung ijazah pun. Apa yang penting ialah tahap kemahiran kita, sikap dan kebolehankita dalam mengharungi kehidupan.
Jika kita sedang dalam proses mendapatkan segulung ijazah sekarang ini, atau sedang merangka untuk menyambung pengajian, cuba kita amati semualkenapa kita ingin mendapatkannya dan adakah ia benar-benar bidang yang kita inginkan?
Untuk adik-adik di sekolah – Adakah anda menghadiri sekolah hanya semata-mata untuk mendapatkan sijil yang boleh menjamin kita untuk masuk ke university? Untuk mereka yang sudah mendapatkan sijil itu – adakah anda sekarang hanya berlindung di belakang sijil itu dan menggunakannya sebagai alasan untuk tidak mampu melakukan lebih dari itu?
Steve Jobs adalah seorang yang dikenali sebagai insan yang akan menoptimumkan sebaik mungkin kehidupannya – setiap hari. Ini terbukti dari beberapa ungkapan dari mulutnya:
“When I was 17, I read a quote that went something like: “If you live each day as if it was your last, someday you’ll most certainly be right.” It made an impression on me, and since then, for the past 33 years, I have looked in the mirror and asked myself: “If today were the last day of my life, would I want to do what I am about to do today?” And whenever the answer has been “No” for too many days in a row, I know I need to change something.”
“Being the richest man in the cemetery doesn’t matter to me. Going to bed at night saying we’ve done something wonderful, that’s what matters to me.”
“Remembering that you are going to die is the best way I know to avoid the trap of thinking you have something to lose.”
“No one wants to die. Even people who want to go to heaven don’t want to die to get there. And yet death is the destination we all share. No one has ever escaped it. And that is as it should be, because Death is very likely the single best invention of Life. It is Life’s change agent. It clears out the old to make way for the new. Right now the new is you, but someday not too long from now, you will gradually become the old and be cleared away. Sorry to be so dramatic, but it is quite true.”
Refleksi diri kita: adakah kita benar-benar mengoptimumkan kehidupan seharian kita? Atau kita hanya membazirkan kehidupan dengan membiarkan ia berlalu begitu sahaja? Jika kita ditakdirkan mati pada hari ini, adakh kita akan mati dengan gembira atau sedih? Apa yang kita akan lakukan jika kita ingin mengubah kesedihan itu kepada kegembiraan? Apakah perkara-perkara yang ingin kita lakukan sebelum mati? Bagaimana kita ingin memulakan pencarian itu sekarang?
“Your time is limited, so don’t waste it living someone else’s life. Don’t be trapped by dogma – which is living with the results of other people’s thinking. Don’t let the noise of other’s opinions drown out your own inner voice. And most important, have the courage to follow your heart and intuition. They somehow already know what you truly want to become. Everything else is secondary.” – Steve Jobs, Stanford Commencement Speech 2005
Steve Jobs berhadapan dengan pengalaman yang menarik berkenaan dengan mereka yang suka mengata. Apabila secara umum beliau telah dipecat dari Apple pada tahun 1985, beliau telah dibuang dari industry dan dilabel sebagai seseorang yang berlagak pada mula-mula, tetapi hakikatnya tiada apa-apa pun yang dihasilkan. Pemimpin-pemimpin dalam dunia perniagaan melihat beliau sebagai seseorang yang telah berlalu (telah melepasi zaman kegemilangan).
Tetapi hakikatnya, beliau berusaha untuk kembali dan berjaya dengan kemunculan yang amat mengkagumkan.
Setelah dipecat, Steve Jobs menubuhkan NeXt, sebuah syarikat yang menyediakan platform untuk computer. Beliau juga membeli anak syarikat Lucas Film Ltd, berkenaan computer grafik, yang kemudiaannya dikenali sebagai Pixar (telah dibeli oleh Disney pada tahun 2006)
“I didn’t see it then, but it turned out that getting fired from Apple was the best thing that could have ever happened to me. The heaviness of being successful was replaced by the lightness of being a beginner again, less sure about everything. It freed me to enter one of the most creative periods of my life.” – Steve Jobs, Stanford Commencement Speech 2005
Pada tahun 1996, satu kejadian hebat berlaku, Apple, semenjak memcat Steve Jobs mengalami kerugian yang banyak, telah membeli NeXT kerana mereka kekurangan aspek platform computer sejak sekian lama. Steve Jobs kembali sebagai CEO sementara pada 1997, sebelum secara rasmi dilantik ke jawatan itu pada tahun 2000.
Dibawah kepimpinannya, Apple telah dibawa kembali dari hampir jatuh muflis, dan sekarang Apple adalah syarikat terbesar didunia (mengalahkan Microsoft pada tahun 2011) dari segi modal dan juga keuntungan. Steve Jobs memegang jawatan itu sehingga pada tahun 2011, dia melepaskan jawatan itu atas faktor kesihatan.
Apakah tahap kejayaan yang kita boleh berikan kepada Steve Jobs?
Jika Steve Jobs mendengar kepada kritikan dan apa yang diperkatakan oleh orang lain ketika beliau dipecat, beliau pasti tidak mencapai apa yang dicapainya sekarang. Sebaliknya Steve Jobs mendengar kepada kata hatinya, apa yang dia patut lakukan. Dengan berdasarkan intuisi dari hati, beliau berjaya mencapai apa yang dicita-citakan – bukan sekali, tapi banyak kali beliau berjaya.
“People sometimes have goals in life. Steve Jobs exceeded every goal he ever set for himself.” - Steve Wozniak, Apple co-founder, on Steve Jobs
Apa jua impian kita, kita dibenarkan untuk mencapainya. Pedulikan apa orang kata, mereka hanya menyekat kita dari kehidupan yang kita inginkan. Dengan mendengar kata-kata mereka hanya membuatkan hidup kita menjadi baying-bayang mereka, bukannnya kehidupan yang kita sendiri mahukan.
“I want to put a ding in the universe.” – Steve Jobs
Steve Jobs hanyalah seorang individu, namun kita pasti kagum dengan segala revolusi dalam industry teknologi dan kesan yang besar hasil dari kerjanya kepada seluruh dunia. Tidak keterlaluan dikatakan iPod, iPhone, iTunes, iPad dan beberapa gajet lain lagi telah memberi kesan yang positif kepada jutaan (jika bukan billion) insan seluruh dunia. Ini semua tidak akan berlaku jika beliau tidak mahu mencapai impiannya.
Begitu juga dengan kita, dunia sedang menanti kita untuk menggegarkannya. Adakah kita sudah bersedia untuk menggoncangkan dunia?
“Do you want to sell sugar water for the rest of your life, or do you want to come with me and change the world?” — Steve Jobs’ legendary pitch to John Sculley (then PepsiCo CEO) in 1983, to get him to run Apple (Sculley later pushed Jobs out of Apple in 1985)
“We’re here to put a dent in the universe. Otherwise why else even be here?” – Steve Jobs
Apakah perubahan yang ingin kita lakukan terhadap dunia? Apa yang perlu lakukan untuk memastikan ianya berlaku? Bagaimana kita akan memulakan revolusi kita, bermula dengan hari ini?
Steve Jobs telah dipecat dari syarikat yang diusahakannya sendiri. Jika kita memahami dari sudut norma kehidupan, ia ibarat kegagalan yang paling teruk. Kebanyakan orang pasti akan berputus-asa, menyembunyikan diri, dan bermurung untuk jangka masa yang lama.
Tapi itu bukan Steve Jobs. Seperti yang dinyatakan dalam pengajaran #2, dia sebaliknya kembali dengan dua syarikat yang hebat NeXT dan Pixar, diambil kembali oleh Apple, dan menjadikan Apple syarikat teknologi yang terbesar. Beliau tidak pernah berputus asa dan sentiasa berusaha memeperjuangkan kepercayaannya.
Hakikat mengenai kegagalan ialah kegagalan tidak akan hadir melainkan kita sendiri membiarkan ia hadir dalam hidup kita. Ini bermakna, tidak kira jika kita kehilangan semua duit, menjadi muflis, hilang rumah, mengalami waktu-waktu sukar bertimpa-timpa, namun ia bukan lagi kegagalan. Ia hanya episode-episod sementara yang singgah dalam kehidupan sebelum kita berjaya mencapai impian kita. Kemuncak kepada bila kegagalan itu akan hadir ialah apabila kita mula berputus asa – kerana itulah kegagalan apabila cerita telah berakhir.
“Your work is going to fill a large part of your life, and the only way to be truly satisfied is [...] to love what you do. If you haven’t found it yet, keep looking, and don’t settle.” – Steve Jobs
Adakah hidup ini tidak membenarkan kita melakukan apa yang kita suka? Adakah apa-apa yang kita suka pasti bertentangan dengan syariat? Berapa banyak benda diluar sana yang kita suka dan ia tidak bertentangan dengan syariat. Adakah keterlaluan jika kita mengambil keputusan berhenti dari kerja yang kita tidak suka, dan mencari pekerjaan yang kita suka dan selari dengan apa yang kita inginkan? Selagimana kita memberikan yang terbaik dalam apa yang kita lakukan, dan kita sentiasa memberi melebihi dari apa yang kita mampu, maka ia hanyalah sekadar masa untuk kita capai apa yang kita impikan – bukan sekadar impian, malah duit juga akan kita berjaya perolehi.
Jangan kita menipu dengan melakukan apa yang kita tidak suka, kerana ia sebenarnya hanya membazirkan masa kita. Lakukan apa yang kita suka, kerana itulah erti sebenar kehidupan.
“Sometimes life’s going to hit you in the head with a brick. Don’t lose faith.” – Steve Jobs, on getting fired from Apple back in 1985
“You can’t connect the dots looking forward; you can only connect them looking backwards. So you have to trust that the dots will somehow connect in your future. You have to trust in something – your gut, destiny, life, karma, whatever. This approach has never let me down, and it has made all the difference in my life.” – Steve Jobs, Stanford Commencement Speech 2005
Walaupun berhadapan dengan situasi yang sukar, Steve Jobs sentiasa yakin bahawa semua itu hanya sementara dan ia akan bertukar menjadi situasi yang pasti hebat. Itulah pegangan Steve Jobs, dan itulah yang dilakukannya dalam kehidupan untuk mendapatkan yang terbaik darinya.
Refleksi diri: Tidak kira seteruk mana pun situasi yang kita lalui, jangan kita sekali-kali berputus asa. Selagi mana kita terus berusaha, yakinlah bahawa Allah akan membalas apa yang kita usahakan. Allah itu Maha Adil. Allah itdak cipta kita didunia ini untuk diseksa dan sengsara, kita dijadikan untuk menjadi hamba dan KhalifahNYA. Setiap apa yang berlaku mempunyai sebab, dan ia bergantung kepada kita untuk mengurus sebab-sebab itu.
Walaupun mungkin ada diantara kita yang tidak pernah mencuba segala gadjet yang dihasilkan oleh Steve Jobs, namun hakikatnya ramai insan diluar sana memang ambil peduli tentang model-model keluaran Apple, berbincang mengenainya dalam forum-forum, dan membeli produk-produk ini berulang kali (selepas iphone, kemudian iphone 3g, kemudian iphone 3gs, kemudian iphone 4 dan seterusnya). Samaada faktor kenipisannya, lebih ringan, kelajuan yang dipertingkat, jangka hayat bateri yang lebih lama atau kamampuan pelbagai fungsi yang diperhebatkan, kesemuanya adalah ciri-ciri yang pengguna-pengguna diluar sana rasakan sangat berbaloi dan bernilai.
“You can’t just ask customers what they want and then try to give that to them. By the time you get it built, they’ll want something new.” – Steve Jobs
“None. It’s not the consumers’ job to know what they want.” – Jobs responding to whether he did market research for the iPad
Apa yang mungkin menjadi daya penarik kepada Steve Jobs adalah kesungguhannya mengejar sesuatu yang lebih baik, samaada keluarga dan kerjaya. Dia kelihatannya telah berjaya di awal kareer dan kerjayanya, tapi itu semua tidak mematikan niatnya untuk menjadi lebih baik. Beliau tidak mudah berpuas hati dengan kejayaan yang dicapai, baginya setiap apa yang dicapai, pasti ada sesuatu yang lebih baik lagi menanti.oleh kerana faktor ini Steve Jobs semakin heabt dengan idea inovasinya, begitu juga dengan Apple, semakin kukuh bertapak dalam industry teknologi inovasi.
“Innovation distinguishes between a leader and a follower.” – Steve Jobs
Refleksi diri: Cuba kita lihat diri kita untuk 3-5 tahun kebelakangan ini, adakah kita sudah berusaha menjangkaui batasan yang kita mampu? Atau kita hanya sekadar terperuk dengan kejayaan yang sama? Apa yang boleh kita lakukan untuk menjangkaui batasan kita? Kita hakikatnya adalah CEO kepada diri kita sendiri. Sejauh mana kita telah berusaha untuk memajukan syarikat kita (diri kita sendiri)? Apa yang telah kita rancang untuk kelangsungan syarikat kita (diri kita) untuk beberapa tahun akan datang?
Mungkin ada yang mengatakan kita sebagai umat Islam berusaha mencari kejayaan akhirat. Kejayaan dunia adalah perkara-perkara duniawi yang melalaikan.
Tetapi cuba kita lihat zaman kegemilangan umat Islam dahulu. Mereka memang betul-betul mencari kejayaan akhirat, maka dunia benar-benar sujud di depan mereka. Maka mereka menguasai dunia dari segala aspek.
Kita? Adakah kita benar-benar mencari akhirat? Kenapa dunia masih belum sujud didepan kita? Renung-renungkan. Jangan kita menggunakan alas an mengejar akhirat dan meninggalkan dunia, tapi hakikatnya, kita tidak mengejar akhirat atau dunia. Kedua-duanya kita tinggalkan.
Steve Jobs (1955-2011) – A visionary, genius, and legend.
QBASIC MONEY MANAGER FOR WINDOWS
Byte Number in Hex Editor Usually in Hexadecimal
..0..1..2..3..4..5..6..7 Hex Editor Offset Byte Number
PRINT " BYTE PATCHER "
PRINT " JALI Software 2011 "
OPEN "SMILE.COM" FOR INPUT AS #2
OPEN "SMILE.COM" FOR BINARY AS #1
a$ = CHR$(&H2) ' Byte value that we want to change
PUT #1, &H3 + 1, a$
LOCATE 15, 30: PRINT "** DONE **"
LOCATE 23, 25: PRINT "--- Press Any Key ---"
WHILE INKEY$ = "": WEND
LOCATE 10, 4: PRINT " ERROR - FILE NOT FOUND "
Run the Patch and see how the program change :)
When used in its "QB" language mode " -lang qb " for compatibility,, FreeBASIC provides a high level of support for programs written for QuickBASIC. Many programs written for QuickBASIC will compile and run in this mode with no changes needed. However, for compilation in the FreeBASIC default language mode, most substantial programs will require changes.
FreeBASIC has been rated close in speed with mainstream tools, such as GCC.
REM SHEAR AND MOMENT ENVELOPES FOR A CONTINUOUS BEAM
DIM VS(10, 11), VE(10, 11), MS(10, 21), MN(10, 21), MP(10, 21)
REM *************************************** Input of data
REM *************************** Partial factors of safety
PRINT "ENTER PARTIAL FACTOR OF SAFETY FOR DEAD LOAD,GK"
PRINT "ENTER NO. OF SPANS"
FOR I = 1 TO NumberOfSpan
PRINT "ENTER '2ND MOMENT OF AREA OF SPAN'S SECTION,IZ-mm^4"
REM ***************** Characteristic loading information
PRINT "ENTER NO. OF LOADS ON SPAN"; I
IF NumberOfLoads(I) = 0 THEN 390
FOR J = 1 TO NumberOfLoads(I)
PRINT "SPAN NO. "; I; "LOAD NO. "; J
PRINT "ENTER LOAD'S CHARACTERISTIC WEIGHT-kN"
PRINT "ENTER LOAD START DISTANCE,A-metres "
PRINT "ENTER LOAD COVER DISTANCE,C-metres"
PRINT "ENTER LOAD DEAD OR IMPOSED - D OR I"
REM ***************** Cantilevers characteristic moments
PRINT "ENTER CANTILEVER CHARACTERISTIC DEAD MOMENT AT L.H.S.-kN.m"
CL = 0: CR = 0
FOR I = 1 TO NumberOfSpan
MM(I) = 0: SM(I) = 0
FOR K = 1 TO 21
GOSUB 4000: REM ******* Subroutine for slope deflection equations -- L.H.S
REM No. of load patterns = NP
NP = NumberOfSpan + 1
IF CantileverLeft(1) + CantileverLeft(2) > 0 THEN NP = NP + 1
IF CantileverRight(1) + CantileverRight(2) > 0 THEN NP = NP + 1
REM ********************* Analysis for each load pattern
680 LP = LP + 1
GOSUB 9000: REM ***Subroutine to calculate design loads
GOSUB 5000: REM ****** Subroutine for fixed end moments
GOSUB 6000: REM ******* Subroutine for slope deflection equations - R.H.S.
GOSUB 7000: REM Subroutine for sol'n of eq'ons and c'tion of end moments
GOSUB 8000: REM Subroutine for span shear and moments
GOSUB 10000: REM Subroutine to sort for shear and moment envelopes
IF LP   MM(I) THEN MM(I) = MP(I, K): SM(I) = Length(I) * (K - 1) / 20
REM *********************** Printout of data and results
OPEN "BEAMOUT.TXT" FOR OUTPUT AS #1
PRINT #1, "TITLE "
PRINT #1, "PARTIAL FACTORS OF SAFETY"
PRINT #1, "FACTOR OF SAFETY FOR DEAD LOAD ="; GK
PRINT #1, "FACTOR OF SAFETY FOR DEAD LOAD ="; GK
PRINT #1, "FACTOR OF SAFETY FOR IMPOSED LOAD="; QK
PRINT #1, : PRINT #1, "STRUCTURE INFORMATION"
PRINT #1, "NO. OF SPANS "; NumberOfSpan
PRINT #1, " SPAN SPAN 2ND MOMENT"
PRINT #1, " NO. LENGTH(m) OF AREA(mm^4)"
FOR I = 1 TO NumberOfSpan
PRINT #1, USING " ## ####.## ####.##"; I; Length(I); MomentArea(I)
PRINT #1, : PRINT #1, : PRINT #1, "LOADING INFORMATION"
PRINT #1, " SPAN LOAD START COVER DEAD "
PRINT #1, " NO. WEIGHT(kN) DISTANCE(m) DISTANCE(m) OR IMPOSED"
FOR I = 1 TO NumberOfSpan
IF NumberOfLoads(I) = 0 THEN 1080
FOR J = 1 TO NumberOfLoads(I)
PRINT #1, USING " ## ####.## ####.## ####.## \ \"; I; LoadWeight(I, J); LoadStart(I, J); LoadCover(I, J); DeadOrImposedLoad$(I, J)
PRINT #1, "CANTILEVER CHARACTERISTIC DEAD MOMENT AT L.H.S.="; CantileverLeft(1); "kN.m"
PRINT #1, "CANTILEVER CHARACTERISTIC IMPOSED MOMENT AT L.H.S.="; CantileverLeft(2); "kN.m"
PRINT #1, "CANTILEVER CHARACTERISTIC DEAD MOMENT AT R.H.S.="; CantileverRight(1); "kN.m"
PRINT #1, "CANTILEVER CHARACTERISTIC IMPOSED MOMENT AT R.H.S.="; CantileverRight(2); "kN.m"
REM ******************************* Printout of results
PRINT "PRINT RESULT IN BEAMOUT.TXT FILE"
PRINT #1, : PRINT #1, : PRINT #1, "SHEAR AND MOMENT ENVELOPES"
PRINT #1, "SHEARS,kN AND MOMENTS,kN.m AT 10TH INTERVALS ALONG SPANS"
FOR I = 1 TO NumberOfSpan
PRINT #1, : PRINT #1, "SPAN NO."; I
PRINT #1, "SECTION SHEAR HOGGING SAGGING"
PRINT #1, " NO. MOMENT MOMENT"
FOR K = 1 TO 21 STEP 2
PRINT #1, USING " ## ####.## ####.## ####.##"; (K + 1) / 2; VE(I, (K + 1) / 2); MN(I, K); MP(I, K)
PRINT #1, "MAXIMUM SPAN MOMENT = "; INT(MM(I) * 100) / 100; "kN.m"
PRINT #1, "AT A DISTANCE = "; INT(SM(I) * 100) / 100; "metres"
4000 REM Subroutine for slope deflection equations - L.H.S.
DVar(1) = 4 * K2(1): E(1) = 2 * K2(1)
FOR I = 2 TO NumberOfSpan
DVar(I) = 4 * (K2(I - 1) + K2(I))
E(I) = 2 * K2(I)
DVar(NumberOfSpan + 1) = 4 * K2(NumberOfSpan)
E(NumberOfSpan + 1) = 0
5000 REM ********* Subroutine to calculate fixed end moments
FOR I = 1 TO NumberOfSpan
FLeft(I) = 0: FRight(I) = 0
IF NumberOfLoads(I) = 0 THEN 5120
FOR J = 1 TO NumberOfLoads(I)
W = WD(I, J): A = LoadStart(I, J): C = LoadCover(I, J): L = Length(I)
S = A + C / 2: T = L - S
FL = W * (S * T ^ 2 + (S - 2 * T) * C ^ 2 / 12) / L ^ 2
FR = W * (T * S ^ 2 + (T - 2 * S) * C ^ 2 / 12) / L ^ 2
FLeft(I) = FLeft(I) + FL
FRight(I) = FRight(I) + FR
6000 REM Subroutine for slope deflection equations - R.H.S.
FVar(1) = -(FLeft(1)) + CL
FOR I = 2 TO NumberOfSpan
FVar(I) = FRight(I - 1) - FLeft(I)
FVar(NumberOfSpan + 1) = FRight(NumberOfSpan) - CR
7000 REM *** Subroutine for equation solution and end moment calculation
D = DVar(1): F = FVar(1)
FOR I = 2 TO NumberOfSpan + 1
F = FVar(I) - E(I - 1) * F / D
D = DVar(I) - E(I - 1) ^ 2 / D
R(NumberOfSpan + 1) = F / D
R(NumberOfSpan) = (FVar(NumberOfSpan + 1) - DVar(NumberOfSpan + 1) * R(NumberOfSpan + 1)) / E(NumberOfSpan)
FOR I = NumberOfSpan TO 2 STEP -1
R(I - 1) = (FVar(I) - DVar(I) * R(I) - E(I) * R(I + 1)) / E(I - 1)
FOR I = 1 TO NumberOfSpan
ML(I) = (4 * R(I) + 2 * R(I + 1)) * K2(I) + FLeft(I)
MR(I) = (2 * R(I) + 4 * R(I + 1)) * K2(I) - FRight(I)
8000 REM *** Subroutine to calculate span shears and moments
FOR I = 1 TO NumberOfSpan
REM ***** Calculation of span shears and moments due to end moments
RL = (ML(I) + MR(I)) / Length(I)
FOR K = 1 TO 11: VS(I, K) = RL: NEXT K
FOR K = 1 TO 21: MS(I, K) = -ML(I) + RL * Length(I) * (K - 1) / 20: NEXT K
FOR J = 1 TO NumberOfLoads(I)
IF NumberOfLoads(I) = 0 THEN 8300
W = WD(I, J): A = LoadStart(I, J): C = LoadCover(I, J): L = Length(I)
S = L - A - C / 2
RL = W * S / L: RR = W - RL
REM ********************* Span shears at 10th intervals
FOR K = 1 TO 11
Z = (K - 1) * L / 10
IF Z   A + C THEN VK = -RR: GOTO 8180
Z1 = Z - A
VK = RL - W * Z1 / C
8180 VS(I, K) = VS(I, K) + VK
REM ******************** Span moments at 20th intervals
FOR K = 1 TO 21
Z = (K - 1) * L / 20
IF Z  = A + C THEN MK = RR * (L - Z): GOTO 8270
Z1 = Z - A: WZ = W * Z1 / C
MK = RL * Z - WZ * Z1 / 2
8270 MS(I, K) = MS(I, K) + MK
9000 REM ************** Subroutine to calculate design loads
FOR I = 1 TO NumberOfSpan
IF NumberOfLoads(I) = 0 THEN 9290
REM **************************** Partial safety factors
GG = 1: QG = 0
IF LP = 1 THEN 9090
IF LP = 2 THEN 9120
IF LP > 2 AND LP < NumberOfSpan + 2 THEN 9150
IF LP > NumberOfSpan + 1 THEN 9190
9090 REM ******* Odd numbered spans, maximum sagging moments
IF I / 2 > INT(I / 2) THEN 9230
9120 REM ****** Even numbered spans, maximum sagging moments
IF I / 2 = INT(I / 2) THEN 9230
9150 REM *************************** Maximum support moments
IF I = LP - 2 THEN 9230
IF I = LP - 1 THEN 9230
9190 REM **** Maximum shear at end supports with cantilevers
IF LP = NumberOfSpan + 2 AND I = 1 THEN 9230
IF LP = NumberOfSpan + 3 AND I = NumberOfSpan THEN 9230
9230 GG = GK: QG = QK
9240 REM ************************************** Design loads
FOR J = 1 TO NumberOfLoads(I)
IF UCASE$(DeadOrImposedLoad$(I, J)) = "D" THEN WD(I, J) = LoadWeight(I, J) * GG
IF UCASE$(DeadOrImposedLoad$(I, J)) = "I" THEN WD(I, J) = LoadWeight(I, J) * QG
REM ************************* Cantilever design moments
IF CantileverLeft(1) + CantileverLeft(2) = 0 THEN 9370
GG = 1: QG = 0
REM *********************************** Left cantilever
IF LP = 2 THEN GG = GK: QG = QK
IF LP = NumberOfSpan + 2 THEN GG = GK: QG = QK
CL = CantileverLeft(1) * GG + CantileverLeft(2) * QG
9370 REM ********************************** Right cantilever
IF CantileverRight(1) + CantileverRight(2) = 0 THEN 9440
GG = 1: QG = 0
IF LP = 1 AND NumberOfSpan / 2 = INT(NumberOfSpan / 2) THEN GG = GK: QG = QK
IF LP = 2 AND NumberOfSpan / 2 > INT(NumberOfSpan / 2) THEN GG = GK: QG = QK
IF LP = NumberOfSpan + 3 THEN GG = GK: QG = QK
CR = CantileverRight(1) * GG + CantileverRight(2) * QG
10000 REM *** Subroutine to sort for shear force and bending moment envelopes
REM *********************************** Shear envelope
FOR I = 1 TO NumberOfSpan
FOR K = 1 TO 11
IF ABS(VE(I, K)) < ABS(VS(I, K)) THEN VE(I, K) = VS(I, K)
REM ************************** Bending moment envelope
FOR I = 1 TO NumberOfSpan
FOR K = 1 TO 21
REM ********************************* Hogging envelope
IF MN(I, K) > MS(I, K) THEN MN(I, K) = MS(I, K)
IF MN(I, K) > 0 THEN MN(I, K) = 0
REM ********************************* Sagging envelope
IF MP(I, K) < MS(I, K) THEN MP(I, K) = MS(I, K)
IF MP(I, K) < 0 THEN MP(I, K) = 0
Posted by fixxxxxer at 8:31 PM No comments:
A small Boulderdash design for QBasic / FreeBASIC by Movax
'A small Boulderdash design for QBasic by Movax
'hey wesker_re! (was bedeutet das eigentlich?)
'hab mich mal eben hingesetzt und dir schnell so 'nen boulder-dash-code
'hingehackt um dir zu zeigen, wie ich das meinte..
'du bewegst die figur mit den pfeil-tasten und mit esc ist schluss.
'man könnte natürlich jetzt noch eine abfrage einbauen, was passieren soll,
'wenn dem spieler ein stein auf den kopf fällt oder eine verzögerung ein-
'bauen, damit die steine nicht so *zack* unten sind..
'aber um nur mal die idee zu verstehen, sollte der code hier eigentlich
'ich hab auch schon direkt mit eingebaut, dass steine, welche auf steinen
'landen, NEBEN diesen landen, falls das feld dort frei ist (so ist's beim
'original boulder dash auch) ;) ..
'ich schreib jetzt noch ein paar kommentare dran, damit das alles (hoff ich)
'und falls nicht -> movax@gmx.de ;)
DECLARE SUB check () '<--------- überprüft, ob ein stein "absinken" kann..
DECLARE SUB feldzeichnen () '<-- oh mein GOTT! was ist DAS?! ;)
CONST ESC = 27, UNTEN = 80, OBEN = 72, LINKS = 75, RECHTS = 77
CONST frei = 0, dreck = 1, stein = 2, monsieur = 3
TYPE figur '<- *hach*, ich liebe typen-definitionen :)
c AS STRING * 1 '<- das ist einfach nur das zeichen das den spieler darstellt
DIM SHARED player AS figur
DIM SHARED feld(16, 10) '<- das spielfeld
'Die Variablen oben sind SHARED, weil die zwei anderen SUBs ebenfalls darauf
offX = 10: offY = 5 '<- das spielfeld beginnt erst bei 10,5
FOR x = 1 TO 16 '<- wir füllen das feld mit dreck :)
FOR y = 1 TO 10
feld(x, y) = dreck
FOR i = 5 TO 10 '<- das sind die 2 steine-reihen
feld(i, 2) = stein
feld(i, 5) = stein
feldzeichnen '<- ??? *g*
COLOR 6 '<-------- das hier wird der braune spielfeld-rahmen.
FOR i = 10 TO 26 ' braucht man zwar nicht unbedingt aber..
LOCATE 5, i: PRINT CHR$(176)' ach was soll's, sieht schicker aus..
LOCATE 15, i: PRINT CHR$(176)
FOR i = 6 TO 14
LOCATE i, 10: PRINT CHR$(176)
LOCATE i, 26: PRINT CHR$(176)
player.x = 2: player.y = 2 '<- die spieler-variablen setzen..
player.oldX = 2: player.oldy = 2
player.c = CHR$(1) '<- ja, es ist der smiley [:D]
LOCATE 1, 1: PRINT "X:"; player.x '<- hm.. irgendwie muss ich sowas immer
LOCATE 2, 1: PRINT "Y:"; player.y ' irgendwo stehen haben :)
eingabe$ = RIGHT$(INKEY$, 1)
SELECT CASE eingabe$ '<- welche taste wurde gedrückt?
IF player.y > 1 AND feld(player.x, player.y - 1)   stein THEN player.y = player.y - 1
IF player.y   stein THEN player.y = player.y + 1
IF player.x > 1 AND feld(player.x - 1, player.y)   stein THEN player.x = player.x - 1
IF player.x   stein THEN player.x = player.x + 1
feld(player.oldX, player.oldy) = frei '<- is ja klar: der spieler geht weg,
' also wird das feld "frei"
feld(player.x, player.y) = monsieur '<- den spieler an die neue Koord.
' auf (oder in?) der karte setzen.
check '<--------------------------------- das ist die routine, die über-
' prüft, ob das feld unter einem
' stein frei ist..
feldzeichnen '<- und das feld zeichnen..
LOCATE player.y + offY, player.x + offX: COLOR 15: PRINT player.c
LOOP '<- hier endet die hauptschleife..
'Martijn's Boulder Dash Fan Site
'das hier ist die routine, wie ich sie dir mal in der mail beschrieben hab.
'das gesamte spielfeld wird durchlaufen. trifft die routine auf einen
'stein, dann wird überprüft, ob das feld darunter "frei" ist.
'ist dies der fall, dann wird das feld, auf dem der stein momentan liegt frei
'und der stein sinkt ein feld hinab..
'ist das feld unter einem stein EBENFALLS ein stein und ist rechts oder links
'daneben ein freies feld, dann fällt der stein in dieses leere feld NEBEN dem
'stein.. ist eigentlich gar nicht sooo kompliziert..
FOR x = 1 TO 16
FOR y = 1 TO 10
IF feld(x, y) = stein THEN
IF y + 1 < 11 THEN
SELECT CASE feld(x, y + 1)
CASE frei '<-- ist das feld unter dem stein frei?
feld(x, y) = frei: feld(x, y + 1) = stein
CASE stein '<-- ist der stein auf einen stein gefallen (*aua*) ?
IF feld(x - 1, y + 1) = frei AND feld(x - 1, y) = frei THEN '<- links?
feld(x, y) = frei: feld(x - 1, y + 1) = stein
IF feld(x + 1, y + 1) = frei AND feld(x + 1, y) = frei THEN '<- rechts?
feld(x, y) = frei: feld(x + 1, y + 1) = stein
'ich hab keine ahnung, was diese routine macht.. echt nicht! *g*
FOR x = 1 TO 15
FOR y = 1 TO 9
LOCATE y + offY, x + offX '<- ha! OffX und OffY tuen ihren Dienst :)
IF feld(x, y) = frei THEN PRINT " "
IF feld(x, y) = dreck THEN COLOR 7: PRINT CHR$(176)
IF feld(x, y) = stein THEN COLOR 8: PRINT CHR$(254)
IF feld(x, y) = monsieur THEN COLOR 15: PRINT player.c
Posted by fixxxxxer at 1:41 AM No comments:
Sunday, September 25, 2011
QBASIC BREAKOUT SOURCE CODES !!
REM ibm pc spinout
REM K.R. Sloan, Jr.
REM 1 January 1982
KEY OFF: PLAY "mb"
T = 8: B = 188: L = 8: R = 308
BH = 8: BW = (R - L) / 20
BT = T + (BH * 4): BB = BT + (BH * 4)
LOCATE 7, 12: PRINT "Welcome to Spinout";
LOCATE 8, 12: PRINT "ArchMach Version 1";
160 LOCATE 12, 1: PRINT "Choose a key to move the paddle right";
170 R$ = INKEY$: IF R$ = "" GOTO 170
LOCATE 12, 1: PRINT "Choose a key to move the paddle left ";
190 L$ = INKEY$: IF L$ = "" GOTO 190
IF R$ = L$ GOTO 160
LOCATE 12, 1: PRINT "Choose a key to serve ";
220 S$ = INKEY$: IF S$ = "" GOTO 220
IF (R$ = S$) OR (L$ = S$) GOTO 160
LOCATE 12, 1: PRINT "Choose a key to turn noise on/off ";
250 N$ = INKEY$: IF N$ = "" GOTO 250
IF (R$ = N$) OR (L$ = N$) OR (S$ = N$) GOTO 160
270 LOCATE 12, 1: INPUT ; "How good are you at this game (1-10)"; SKILL
IF SKILL < 1 GOTO 270
IF SKILL > 10 GOTO 270
SKILL = SKILL / 10
MAXVX = 6 + (4 * SKILL): MAXVY = MAXVX
G = SKILL / 5
DEF SEG = 0: EQUIPMENT% = PEEK(&H410): POKE &H410, EQUIPMENT% - &H10
WIDTH 40: WIDTH 80: SCREEN 0, 0, 0: SCREEN 1: COLOR 1, 0: CLS
LINE (0, 0)-(319, 199), 0, BF
FOR BY = 0 TO 3
FOR BX = 0 TO 19
BRICK(1 + BX, 1 + BY) = 10 + 50 * BY
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
LINE (L, T)-(R, T)
X = 160: Y = 100
FOR I = 1 TO 5
FOR J = 1 TO 5
IF ((I - 3) * (I - 3)) + ((J - 3) * (J - 3)) < 6.25 THEN PSET (X - 3 + I, Y - 3 + J)
GET (X - 2, Y - 2)-(X + 2, Y + 2), BALL
PL = 150: PR = 170: PY = B - 20
LINE (PL, PY)-(PR, PY), 1, BF
GET (PL, PY)-(PR, PY), PADDLE
IF LOUD = 1 THEN PLAY BRUNO$
FOR SHOT = 1 TO 4
PRINT USING "#####"; SCORE;
PRINT USING "Ball # "; SHOT;
IF X > R THEN X = R
IF X < L THEN X = L
IF Y < T THEN Y = T
IF Y > B THEN Y = B
PUT (X - 2, Y - 2), BALL
X = L + RND(X) * (R - L)
Y = B - 10
PUT (X - 2, Y - 2), BALL
VX = 6 * RND(1) - 3
VY = -5 - 2 * RND(1)
FAST = 1 + SKILL
720 GOSUB 1410 'MOVE PADDLE
IF D$   S$ GOTO 720
740 OX = X: OY = Y: OBX = BX: OBY = BY
OVX = VX: OVY = VY
VX = OVX - (SPIN * OVY * .05): VY = OVY + (SPIN * OVX * .05) + G
SPIN = SPIN * .9999
IF VX > MAXVX THEN VX = MAXVX
IF VY > MAXVY THEN VY = MAXVY
IF VX < -MAXVX THEN VX = -MAXVX
IF VY < -MAXVY THEN VY = -MAXVY
X = X + VX: Y = Y + VY
BX = INT((X - L) / BW)
IF BX > 19 THEN BX = 19
IF BX < 0 THEN BX = 0
BY = INT((Y - BT) / BH)
IF BY > 3 GOTO 1050
IF BY < 0 GOTO 1050
IF BRICK(1 + BX, 1 + BY) <= 0 GOTO 1050
IF BY > 1 GOTO 890
VY = VY * FAST
890 IF (OBX   BX) THEN VX = -VX
IF (OBY   BY) THEN VY = -VY
SCORE = SCORE + BRICK(1 + BX, 1 + BY)
SOUND 440, 2 * LOUD
PUT (OX - 2, OY - 2), BALL, XOR
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 0, BF
PUT (OX - 2, OY - 2), BALL, XOR
BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
IF SCORE < 6800 GOTO 1050
PRINT USING "#####"; SCORE;
FOR FLASH = 1 TO 8
COLOR FLASH, .5 + RND(FLASH)
1050 IF X <= L THEN X = L + L - X: VX = -VX: VY = VY + SPIN: SOUND 600, 2 * LOUD
IF X >= R THEN X = R + R - X: VX = -VX: VY = VY - SPIN: SOUND 1200, 2 * LOUD
IF Y <= T THEN Y = T + T - Y: VY = -VY: VX = VX - SPIN: SOUND 880, 2 * LOUD
IF Y >= B GOTO 1310
IF (Y   PY) THEN GOTO 1270
IF ((PL - 2) < X) AND (X < (PR + 2)) GOTO 1130
IF ((PL - 2) < OX) AND (OX < (PR + 2)) GOTO 1130
1130 Y = PY + PY - Y
SOUND 300, 5 * LOUD
IF (RND(1) * 2) > SKILL GOTO 1210
BX = INT(RND(1) * 19.99): BY = INT(RND(1) * 3.99):
IF BRICK(1 + BX, 1 + BY) > 0 GOTO 1210
BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
SCORE = SCORE - BRICK(1 + BX, 1 + BY)
1210 LOCATE 25, 1
MISS = (X - (PL + PR) / 2) / (PL - PR)
VX = VX + VY * MISS * SKILL * 5
SPIN = (SPIN * SKILL) + MISS * SKILL
1270 PUT (X - 2, Y - 2), BALL, XOR
PUT (OX - 2, OY - 2), BALL, XOR
LOOP UNTIL TIMER > Start + .1
GOSUB 1410 'move paddle
1310 REM lost ball
IF LOUD = 1 THEN SOUND 200, 20
1340 REM End of Game
DEF SEG = 0: POKE &H410, 125: WIDTH 40: WIDTH 80: SCREEN 0, 0, 0
WIDTH 80: SCREEN 0, 0, 0
PRINT "Do you want to play another game?\";
1370 D$ = INKEY$
IF D$ = "y" THEN RUN
IF D$ = "n" THEN STOP
1410 REM move paddle routine
1430 D$ = INKEY$
IF D$ = CHR$(27) THEN END
IF D$ = N$ THEN LOUD = -1 * LOUD + 1
IF D$ = L$ THEN PL = PL - 5: GOTO 1430
IF D$ = R$ THEN PL = PL + 5: GOTO 1430
IF PL < L THEN PL = L
IF PL > (R - 20) THEN PL = R - 20
IF OPL = PL THEN RETURN
PR = PL + 20
PUT (OPL, PY), PADDLE, XOR
PUT (PL, PY), PADDLE, XOR
Posted by fixxxxxer at 6:58 PM No comments:
GWBASIC BREAKOUT SOURCE CODES
10 REM ibm pc spinout
20 REM K.R. Sloan, Jr.
30 REM 1 January 1982
60 DIM BRICK(20, 4)
65 RANDOMIZE (VAL(RIGHT$(TIME$, 2)))
70 KEY OFF: PLAY "mb"
80 LOUD = 0
90 BRUNO$ = "l16o2b-o3cl8ddc+16do2fp1"
110 T = 8: B = 188: L = 8: R = 308
120 BH = 8: BW = (R - L) / 20
130 BT = T + (BH * 4): BB = BT + (BH * 4)
140 LOCATE 7, 12: PRINT "Welcome to Spinout";
150 LOCATE 8, 12: PRINT "ArchMach Version 1";
160 LOCATE 12, 1: PRINT "Choose a key to move the paddle right";
170 R$ = INKEY$: IF R$ = "" GOTO 170
180 LOCATE 12, 1: PRINT "Choose a key to move the paddle left ";
190 L$ = INKEY$: IF L$ = "" GOTO 190
200 IF R$ = L$ GOTO 160
210 LOCATE 12, 1: PRINT "Choose a key to serve ";
220 S$ = INKEY$: IF S$ = "" GOTO 220
230 IF (R$ = S$) OR (L$ = S$) GOTO 160
240 LOCATE 12, 1: PRINT "Choose a key to turn noise on/off ";
250 N$ = INKEY$: IF N$ = "" GOTO 250
260 IF (R$ = N$) OR (L$ = N$) OR (S$ = N$) GOTO 160
270 LOCATE 12, 1: INPUT ; "How good are you at this game (1-10)"; SKILL
275 IF SKILL < 1 GOTO 270
276 IF SKILL > 10 GOTO 270
280 SKILL = SKILL / 10
290 MAXVX = 6 + (4 * SKILL): MAXVY = MAXVX
295 G = SKILL / 5
296 DEF SEG = 0: EQUIPMENT% = PEEK(&H410): POKE &H410, EQUIPMENT% - &H10
297 WIDTH 40: WIDTH 80: SCREEN 0, 0, 0: SCREEN 1: COLOR 1, 0: CLS
300 LINE (0, 0)-(319, 199), 0, BF
310 FOR BY = 0 TO 3
320 FOR BX = 0 TO 19
330 BRICK(1 + BX, 1 + BY) = 10 + 50 * BY
340 LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
350 NEXT BX, BY
360 SCORE = 0
370 LINE (L, T)-(R, T)
380 LINE -(R, B)
390 LINE -(L, B)
400 LINE -(L, T)
410 X = 160: Y = 100
420 LASTD$ = ""
430 FOR I = 1 TO 5
440 FOR J = 1 TO 5
450 IF ((I - 3) * (I - 3)) + ((J - 3) * (J - 3)) < 6.25 THEN PSET (X - 3 + I, Y - 3 + J)
460 NEXT J, I
470 GET (X - 2, Y - 2)-(X + 2, Y + 2), BALL
480 PL = 150: PR = 170: PY = B - 20
490 LINE (PL, PY)-(PR, PY), 1, BF
500 GET (PL, PY)-(PR, PY), PADDLE
510 REM main loop
520 IF LOUD = 1 THEN PLAY BRUNO$
530 FOR SHOT = 1 TO 4
540 LOCATE 25, 1
550 PRINT USING "#####"; SCORE;
560 LOCATE 25, 8
570 PRINT USING "Ball # "; SHOT;
580 LOCATE 25, 18
590 PRINT "K.R.Sloan,Jr. 1Jan82";
600 IF X > R THEN X = R
610 IF X < L THEN X = L
620 IF Y < T THEN Y = T
630 IF Y > B THEN Y = B
640 PUT (X - 2, Y - 2), BALL
650 X = L + RND(X) * (R - L)
660 Y = B - 10
670 PUT (X - 2, Y - 2), BALL
680 VX = 6 * RND(1) - 3
690 VY = -5 - 2 * RND(1)
700 SPIN = 0
710 FAST = 1 + SKILL
720 GOSUB 1410 'MOVE PADDLE
730 IF D$   S$ GOTO 720
740 OX = X: OY = Y: OBX = BX: OBY = BY
750 OVX = VX: OVY = VY
760 VX = OVX - (SPIN * OVY * .05): VY = OVY + (SPIN * OVX * .05) + G
761 SPIN = SPIN * .9999
770 IF VX > MAXVX THEN VX = MAXVX
771 IF VY > MAXVY THEN VY = MAXVY
780 IF VX < -MAXVX THEN VX = -MAXVX
781 IF VY < -MAXVY THEN VY = -MAXVY
790 X = X + VX: Y = Y + VY
800 BX = INT((X - L) / BW)
810 IF BX > 19 THEN BX = 19
820 IF BX < 0 THEN BX = 0
830 BY = INT((Y - BT) / BH)
840 IF BY > 3 GOTO 1050
850 IF BY < 0 GOTO 1050
860 IF BRICK(1 + BX, 1 + BY) <= 0 GOTO 1050
870 IF BY > 1 GOTO 890
880 VY = VY * FAST
890 IF (OBX   BX) THEN VX = -VX
900 IF (OBY   BY) THEN VY = -VY
910 SCORE = SCORE + BRICK(1 + BX, 1 + BY)
920 SOUND 440, 2 * LOUD
930 PUT (OX - 2, OY - 2), BALL, XOR
940 LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 0, BF
950 PUT (OX - 2, OY - 2), BALL, XOR
960 BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
970 IF SCORE < 6800 GOTO 1050
972 LOCATE 25, 1
974 PRINT USING "#####"; SCORE;
980 FOR FLASH = 1 TO 8
990 COLOR FLASH, .5 + RND(FLASH)
1050 IF X <= L THEN X = L + L - X: VX = -VX: VY = VY + SPIN: SOUND 600, 2 * LOUD
1060 IF X >= R THEN X = R + R - X: VX = -VX: VY = VY - SPIN: SOUND 1200, 2 * LOUD
1070 IF Y <= T THEN Y = T + T - Y: VY = -VY: VX = VX - SPIN: SOUND 880, 2 * LOUD
1080 IF Y >= B GOTO 1310
1090 IF (Y   PY) THEN GOTO 1270
1100 IF ((PL - 2) < X) AND (X < (PR + 2)) GOTO 1130
1110 IF ((PL - 2) < OX) AND (OX < (PR + 2)) GOTO 1130
1130 Y = PY + PY - Y
1140 SOUND 300, 5 * LOUD
1150 IF (RND(1) * 2) > SKILL GOTO 1210
1160 BX = INT(RND(1) * 19.99): BY = INT(RND(1) * 3.99):
1170 IF BRICK(1 + BX, 1 + BY) > 0 GOTO 1210
1180 BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
1190 LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
1200 SCORE = SCORE - BRICK(1 + BX, 1 + BY)
1210 LOCATE 25, 1
1230 VY = -VY
1240 MISS = (X - (PL + PR) / 2) / (PL - PR)
1250 VX = VX + VY * MISS * SKILL * 5
1260 SPIN = (SPIN * SKILL) + MISS * SKILL
1270 PUT (X - 2, Y - 2), BALL, XOR
1280 PUT (OX - 2, OY - 2), BALL, XOR
1290 GOSUB 1410 'move paddle
1310 REM lost ball
1320 IF LOUD = 1 THEN SOUND 200, 20
1340 REM End of Game
1341 DEF SEG = 0: POKE &H410, 125: WIDTH 40: WIDTH 80: SCREEN 0, 0, 0
1342 WIDTH 80: SCREEN 0, 0, 0
1350 LOCATE 12, 20
1360 PRINT "Do you want to play another game?\";
1370 D$ = INKEY$
1380 IF D$ = "y" THEN RUN
1390 IF D$ = "n" THEN STOP
1410 REM move paddle routine
1420 OPL = PL
1430 D$ = INKEY$
1440 IF D$ = N$ THEN LOUD = -1 * LOUD + 1
1450 IF D$ = L$ THEN PL = PL - 5: GOTO 1430
1460 IF D$ = R$ THEN PL = PL + 5: GOTO 1430
1470 IF PL < L THEN PL = L
1480 IF PL > (R - 20) THEN PL = R - 20
1490 IF OPL = PL THEN RETURN
1500 PR = PL + 20
1510 PUT (OPL, PY), PADDLE, XOR
1520 PUT (PL, PY), PADDLE, XOR
Posted by fixxxxxer at 6:56 PM No comments:
FREEBASIC BREAKOUT SOURCE CODES !!
'Recoded From K.R. Sloan, Jr. GWBASIC Spinout.
'GWBASIC version uses Screen 1 ( 320 x 200 Resolution - CGA Graphics )
'FreeBASIC Version uses Screen 19 ( 800 x 600 Resolution 256K colors to 256 attributes or direct color )
REM ibm pc spinout
REM K.R. Sloan, Jr.
REM 1 January 1982
Screen 19 ' ( 800x 600)
' KEY OFF: PLAY "mb"
T = 24: B = 580: L = 20: R = 770 ' T=8 B=188 L = 8 R = 308
BH = 20: BW = (R - L) / 20 ' BH = 8: BW = (R - L) / 20
BT = T + (BH * 4): BB = BT + (BH * 4) ' BT = T + (BH * 4): BB = BT + (BH * 4)
160 LOCATE 32, 10: PRINT "Choose a key to move the paddle right";
170 R$ = INKEY$: IF R$ = "" GOTO 170
LOCATE 32, 10: PRINT "Choose a key to move the paddle left ";
190 L$ = INKEY$: IF L$ = "" GOTO 190
IF R$ = L$ GOTO 160
LOCATE 32, 10: PRINT "Choose a key to serve ";
220 S$ = INKEY$: IF S$ = "" GOTO 220
IF (R$ = S$) OR (L$ = S$) GOTO 160
LOCATE 32, 10: PRINT "Choose a key to turn noise on/off ";
250 N$ = INKEY$: IF N$ = "" GOTO 250
IF (R$ = N$) OR (L$ = N$) OR (S$ = N$) GOTO 160
270 LOCATE 32, 10: INPUT ; "How good are you at this game (1-10)"; SKILL
IF SKILL < 1 GOTO 270
IF SKILL > 10 GOTO 270
SKILL = SKILL / 10
MAXVX = 6 + (4 * SKILL): MAXVY = MAXVX
G = SKILL / 5
' DEF SEG = 0: EQUIPMENT% = PEEK(&H410): POKE &H410, EQUIPMENT% - &H10
SCREEN 19: COLOR 1, 0: CLS
LINE (0, 0)-(799, 599), 0, BF
FOR BY = 0 TO 3
FOR BX = 0 TO 19 '19
BRICK(1 + BX, 1 + BY) = 10 + 50 * BY
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
LINE (L, T)-(R, T)
X = 160: Y = 10
GET (X - 5, Y - 5)-(X + 5, Y + 5), BALL
PL = 120: PR = 170: PY = B - 20
LINE (PL, PY)-(PR, PY+10), 1, BF
GET (PL, PY)-(PR, PY+10), PADDLE
'IF LOUD = 1 THEN PLAY BRUNO$
FOR SHOT = 1 TO 4
PRINT USING "#####"; SCORE;
PRINT USING "Ball # "; SHOT;
PRINT "K.R.Sloan,Jr. 1st Jan 1982 , JALI Software 2011";
IF X > R THEN X = R
IF X < L THEN X = L
IF Y < T THEN Y = T
IF Y > B THEN Y = B
'PUT (X - 2, Y - 2), BALL
X = L + RND(X) * (R - L)
Y = B - 10
PUT (X - 2, Y - 2), BALL
VX = 6 * RND(1) - 3
VY = -5 - 2 * RND(1)
FAST = 1 + SKILL
720 GOSUB 1410 'MOVE PADDLE
IF D$   S$ GOTO 720
740 OX = X: OY = Y: OBX = BX: OBY = BY
OVX = VX: OVY = VY
VX = OVX - (SPIN * OVY * .05): VY = OVY + (SPIN * OVX * .05) + G
SPIN = SPIN * .9999
IF VX > MAXVX THEN VX = MAXVX
IF VY > MAXVY THEN VY = MAXVY
IF VX < -MAXVX THEN VX = -MAXVX
IF VY < -MAXVY THEN VY = -MAXVY
X = X + VX: Y = Y + VY
BX = INT((X - L) / BW)
IF BX > 19 THEN BX = 19
IF BX < 0 THEN BX = 0
BY = INT((Y - BT) / BH)
IF BY > 3 GOTO 1050
IF BY < 0 GOTO 1050
IF BRICK(1 + BX, 1 + BY) <= 0 GOTO 1050
IF BY > 1 GOTO 890
VY = VY * FAST
890 IF (OBX   BX) THEN VX = -VX
IF (OBY   BY) THEN VY = -VY
SCORE = SCORE + BRICK(1 + BX, 1 + BY)
' SOUND 440, 2 * LOUD
PUT (OX - 2, OY - 2), BALL, XOR
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 0, BF
PUT (OX - 2, OY - 2), BALL, XOR
BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
IF SCORE < 6800 GOTO 1050
PRINT USING "#####"; SCORE;
FOR FLASH = 1 TO 8
COLOR FLASH, .5 + RND(FLASH)
1050 IF X <= L THEN X = L + L - X: VX = -VX: VY = VY + SPIN: 'SOUND 600, 2 * LOUD
IF X >= R THEN X = R + R - X: VX = -VX: VY = VY - SPIN: 'SOUND 1200, 2 * LOUD
IF Y <= T THEN Y = T + T - Y: VY = -VY: VX = VX - SPIN: 'SOUND 880, 2 * LOUD
IF Y >= B GOTO 1310
IF (Y   PY) THEN GOTO 1270
IF ((PL - 2) < X) AND (X < (PR + 2)) GOTO 1130
IF ((PL - 2) < OX) AND (OX < (PR + 2)) GOTO 1130
1130 Y = PY + PY - Y
' SOUND 300, 5 * LOUD
IF (RND(1) * 2) > SKILL GOTO 1210
BX = INT(RND(1) * 19.99): BY = INT(RND(1) * 3.99):
IF BRICK(1 + BX, 1 + BY) > 0 GOTO 1210
BRICK(1 + BX, 1 + BY) = -BRICK(1 + BX, 1 + BY)
LINE (L + 2 + (BW * BX), BT + 2 + (BH * BY))-STEP(BW - 4, BH - 4), 2 + INT(BY / 2), BF
SCORE = SCORE - BRICK(1 + BX, 1 + BY)
1210 LOCATE 1, 1
MISS = (X - (PL + PR) / 2) / (PL - PR)
VX = VX + VY * MISS * SKILL * 5
SPIN = (SPIN * SKILL) + MISS * SKILL
1270 PUT (X - 2, Y - 2), BALL, XOR
PUT (OX - 2, OY - 2), BALL, XOR
LOOP UNTIL TIMER > Start + .05
GOSUB 1410 'move paddle
1310 REM lost ball
' IF LOUD = 1 THEN SOUND 200, 20
1340 REM End of Game
' DEF SEG = 0: POKE &H410, 125: WIDTH 40: WIDTH 80: SCREEN 0, 0, 0
'WIDTH 80: SCREEN 0, 0, 0
PRINT "Do you want to play another game? ";
1370 D$ = INKEY$
IF D$ = "y" THEN RUN"BRKFB.EXE"
IF D$ = "n" THEN STOP
1410 REM move paddle routine
1430 D$ = INKEY$
IF D$ = CHR$(27) THEN END
IF D$ = N$ THEN LOUD = -1 * LOUD + 1
IF D$ = L$ THEN PL = PL - 5: GOTO 1430
IF D$ = R$ THEN PL = PL + 5: GOTO 1430
IF PL < L THEN PL = L
IF PL > (R - 50) THEN PL = R - 50
IF OPL = PL THEN RETURN
PR = PL + 50
PUT (OPL, PY), PADDLE, XOR
PUT (PL, PY), PADDLE, XOR
Posted by fixxxxxer at 6:50 PM No comments:
Friday, September 23, 2011
Kisah 5 perkara aneh-kisah dan teladan
"Abu Laits as-Samarqandi adalah seorang ahli fiqh yang masyhur. Suatu ketika dia pernah berkata, ayahku menceritakan bahawa antara Nabi-nabi yang bukan Rasul ada menerima wahyu dalam bentuk mimpi dan ada yang hanya mendengar suara.
Maka salah seorang Nabi yang menerima wahyu melalui mimpi itu, pada suatu malam bermimpi diperintahkan yang berbunyi,
\"Esok engkau dikehendaki keluar dari rumah pada waktu pagi menghala ke barat. Engkau dikehendaki berbuat, pertama; apa yang engkau lihat (hadapi) maka makanlah, kedua; engkau sembunyikan, ketiga; engkau terimalah, keempat; jangan engkau putuskan harapan, yang kelima; larilah engkau daripadanya.\"
Pada keesokan harinya, Nabi itu pun keluar dari rumahnya menuju ke barat dan kebetulan yang pertama dihadapinya ialah sebuah bukit besar berwarna hitam. Nabi itu kebingungan sambil berkata,
\"Aku diperintahkan memakan perkara pertama yang aku hadapi, tapi sungguh aneh sesuatu yang mustahil yang tidak dapat dilaksanakan.\"
Maka Nabi itu terus berjalan menuju ke bukit itu dengan hasrat untuk memakannya. Ketika dia menghampirinya, tiba-tiba bukit itu mengecilkan diri sehingga menjadi sebesar sebuku roti.
Maka Nabi itu pun mengambilnya lalu disuapkan ke mulutnya. Bila ditelan terasa sungguh manis bagaikan madu. Dia pun mengucapkan syukur \'Alhamdulillah\'.
Kemudian Nabi itu meneruskan perjalanannya lalu bertemu pula dengan sebuah mangkuk emas. Dia teringat akan arahan mimpinya supaya disembunyikan, lantas Nabi itu pun menggali sebuah lubang lalu ditanamkan mangkuk emas itu, kemudian ditinggalkannya.
Tiba-tiba mangkuk emas itu terkeluar semula. Nabi itu pun menanamkannya semula sehingga tiga kali berturut-turut. Maka berkatalah Nabi itu, \"Aku telah melaksanakan perintahmu.\"
Lalu dia pun meneruskan perjalanannya tanpa disadari oleh Nabi itu yang mangkuk emas itu terkeluar semula dari tempat ia ditanam.
Ketika dia sedang berjalan, tiba-tiba dia ternampak seekor burung helang sedang mengejar seekor burung kecil. Kemudian terdengarlah burung kecil itu berkata, \"Wahai Nabi Allah, tolonglah aku.\"
Mendengar rayuan burung itu, hatinya merasa simpati lalu dia pun mengambil burung itu dan dimasukkan ke dalam bajunya. Melihatkan keadaan itu, lantas burung helang itu pun datang menghampiri Nabi itu sambil berkata, \"Wahai Nabi Allah, aku sangat lapar dan aku mengejar burung itu sejak pagi tadi. Oleh itu janganlah engkau patahkan harapanku dari rezekiku.\"
Nabi itu teringatkan pesanan arahan dalam mimpinya yang keempat, iaitu tidak boleh putuskan harapan. Dia menjadi kebingungan untuk menyelesaikan perkara itu.
Akhirnya dia membuat keputusan untuk mengambil pedangnya lalu memotong sedikit daging pehanya dan diberikan kepada helang itu. Setelah mendapat daging itu, helang pun terbang dan burung kecil tadi dilepaskan dari dalam bajunya. Selepas kejadian itu, Nabi meneruskan perjalannya.
Tidak lama kemudian dia bertemu dengan satu bangkai yang amat busuk baunya, maka dia pun bergegas lari dari situ kerana tidak tahan menghidu bau yang menyakitkan hidungnya.
Setelah menemui kelima-lima peristiwa itu, maka kembalilah Nabi ke rumahnya. Pada malam itu, Nabi pun berdoa. Dalam doanya dia berkata,
\"Ya Allah, aku telah pun melaksanakan perintah-Mu sebagaimana yang diberitahu di dalam mimpiku, maka jelaskanlah kepadaku erti semuanya ini.\"
Dalam mimpi beliau telah diberitahu oleh Allah S.W.T. bahwa, \"Yang pertama engkau makan itu ialah marah. Pada mulanya nampak besar seperti bukit tetapi pada akhirnya jika bersabar dan dapat mengawal serta menahannya, maka marah itu pun akan menjadi lebih manis daripada madu.
Kedua; semua amal kebaikan (budi), walaupun disembunyikan, maka ia tetap akan nampak jua.
Ketiga; jika sudah menerima amanah seseorang, maka janganlah kamu khianat kepadanya.
Keempat; jika orang meminta kepadamu, maka usahakanlah untuknya demi membantu kepadanya meskipun kau sendiri berhajat.
Kelima; bau yang busuk itu ialah ghibah (menceritakan hal seseorang). Maka larilah dari orang-orang yang sedang duduk berkumpul membuat ghibah.\"
Kelima-lima kisah ini hendaklah kita semaikan dalam diri kita, sebab kelima-lima perkara ini sentiasa saja berlaku dalam kehidupan kita sehari-hari.
Perkara yang tidak dapat kita elakkan setiap hari ialah mengata hal orang, memang menjadi tabiat seseorang itu suka mengata hal orang lain.
Haruslah kita ingat bahwa kata-mengata hal seseorang itu akan menghilangkan pahala kita, sebab ada sebuah hadis mengatakan di akhirat nanti ada seorang hamba Allah akan terkejut melihat pahala yang tidak pernah dikerjakannya. Lalu dia bertanya,
\"Wahai Allah, sesungguhnya pahala yang Kamu berikan ini tidak pernah aku kerjakan di dunia dulu.\"
Maka berkata Allah S.W.T., \"Ini adalah pahala orang yang mengata-ngata tentang dirimu.\"
Dengan ini haruslah kita sedar bahwa walaupun apa yang kita kata itu memang benar, tetapi kata-mengata itu akan merugikan diri kita sendiri. Oleh kerana itu, hendaklah kita jangan mengata hal orang walaupun ia benar.
Posted by fixxxxxer at 12:27 AM No comments:
Abu Yazid Al Busthami, pelopor sufi, pada suatu hari pernah didatangi
seorang lelaki yang wajahnya kusam dan keningnya selalu berkerut.Dengan
murung lelaki itu mengadu,\'Tuan Guru, sepanjang hidup saya, rasanya tak
pernah lepas saya beribadah kepada Allah. Orang lain sudah lelap, saya
masih bermunajat. Isteri saya belum bangun, saya sudah mengaji. Saya juga
bukan pemalas yang enggan mencari rezeki. Tetapi mengapa saya selalu malang
dan kehidupan saya penuh kesulitan?\'
Sang Guru menjawab sederhana, \'Perbaiki penampilanmu dan ubahlah riak
mukamu. Kau tahu, Rasulullah SAW adalah penduduk dunia yang miskin namun
wajahnya tak pernah keruh dan selalu ceria. Sebab menurut Rasulullah SAW,
salah satu tanda penghuni neraka ialah muka masam yang membuat orang curiga
kepadanya.\' Lelaki itu tertunduk. Ia pun berjanji akan memperbaiki
Mulai hari itu, wajahnya sentiasa berseri. Setiap kesedihan diterima dengan
sabar, tanpa mengeluh. Alhamdullilah sesudah itu ia tak pernah datang lagi
untuk berkeluh kesah. Keserasian selalu dijaga. Sikapnya ramah,wajahnya
sentiasa menguntum senyum bersahabat. Riak mukanya berseri.
Tak heran jika Imam Hasan Al Basri berpendapat, awal keberhasilan suatu
pekerjaan adalah air muka yang ramah dan penuh senyum.Bahkan Rasulullah SAW
menegaskan, senyum adalah sedekah paling murah tetapi paling besar
Demikian pula seorang suami atau seorang isteri. Alangkah celakanya rumah
tangga jika suami isteri selalu berwajah tegang. Sebab tak ada persoalan
yang diselesaikan dengan mudah melalui kekeruhan dan ketegangan. Dalam hati
yang tenang, fikiran yang dingin dan wajah cerah, Insya Allah, apapun
persoalannya nescaya dapat di atasi. Inilah yang dinamakan keluarga
sakinah, yang didalamnya penuh dengan cinta dan kasih sayang.
Posted by fixxxxxer at 12:25 AM No comments:
Cerita anak Umar Abdul Aziz
Semua kita tentu mengenali Umar Abdul Aziz, Khalifah Bani Umaiyah yang kelima dan terkenal itu. Walaubagaimanapun kita agak kurang mengenali anak beliau yang bernama Abdul Malik bin Umar Bin Abdul Aziz. Secara ringkas, beliau merupakan anak yang sangat disayangi oleh Khalifah dan dikatakan kerana beliaulah Khalifah menjadi lebih zuhud dan bertanggungjawap.
Sebelum itu kita kembali secara ringkas kepada waktu dimana Umar Abdul Aziz selepas dilantik menjadi Khalifah. Selepas sahaja beliau dilantik menjadi khalifah dalam satu majlis selepas kematian Sulaiman Abdul Malik, beliau hendak balik ke rumah, tatkala itu dia terdengar bunyi kenderaan berkuda yang hebat dan kuat dibawa kepadanya dan disamping itu sejumlah pengawal-pengawal dan tentera-tentera datang mengelilingi beliau , maklumlah beliau merupakan Amirul Mukminin yang memerintah ¼ dunia pada waktu itu.
Lantas Umar Abdul Aziz berkata, \'apakah yang kamu bawa kepada aku ini? \'. Mereka berkata\' ini adalah kenderaan khalifah\'. Maka Umar Abdul Aziz berkata\' aku adalah salah seorang dari kamu iaitu kaum muslimin, pulangkan kenderaan itu ke Baitulmal, begitu juga kamu tentera-tentera, kamu pergilah bekerja dengan tentera kerajaan jika kamu mahu bekerja, jika tidak, kamu juga boleh ambil cuti\'. Lantas beliau menaiki baghal sebagai kenderaan dan balik ke rumah.
Setibanya beliau dirumah, beliau hendak berehat setelah letih menguruskan jenazah mantan khalifah iaitu bapa saudara beliau sendiri. Semasa itulah Abdul Malik(anak beliau) menegurnya dan bertanya \' Kemana ayah hendak pergi? \'. Lantas ayahnya berkata \'ayah letih, hendak berehat sebentar sebelum masuk waktu Zuhur\'. Lantas anaknya bertanya \'kenapa ayah tidak memulakan kerja dan mengembalikan hak-hak orang yang terinaya? \'. Umar pun berkata\' bagilah ayah berehat dahulu\'. Maka anaknya berkata \'Siapakah yang menjamin ayah akan hidup selepas ini dan apabila nanti hak-hak ini dituntut disisi Allah? \' Maka lantas Umar Abdul Aziz bangun dan mencium antara kedua kening anaknya dan berkata \' Segala puji bagi Allah yang mengurniakan aku Abdul Malik !\'.
Dikatakan anaknya yang ini mengheretnya kealam kezuhudan. Abdul Malik dihantar ke sempadan iaitu hampir-hampir dekat dengan tentera untuk melihat aktiviti –aktiviti tentera dalam membuka wilayah yang baru. Umar Abdul Aziz sangat sayang kepada anaknya ini.
Suatu hari terdengar ditelinga Umar abdul Azizi mengenai anaknya itu yang dikatakan ada sedikit \'ego\' dan ini menyebabkan beliau tidak merasa selesa. Lantas memanggil orang kanannya iaitu Maimun Bin Mahram lantas berkata \' Wahai Maimun, anakku ini telah menghiasi mataku (maksudnya segala-gala mengenai anaknya indah baginya), aku bimbang kecintaanku kepadanya membuatkan aku tidak dapat melihat kecacatannya, maka engkau pergilah jumpa dengannya, kerana orang kata dia ada sifat sombong\'.
Maka Maimun pun pergi kesempadan iaitu tempat anaknya tinggal, apa yang Maimun nampak apabila berjumpa dengan Abdul Malik ialah seorang pemuda yanag sangat tacap, sangat berakhlak dan sangat beradap. Tempat tidurnya sangat sederhana(tikar sahaja). Maimun bertanya \' dimanakah kau mengambil makanan setiap hari? \'. Abdul Malik menjawap \' Alhamdulliah makanan halal, aku bekerja diatas tanah bapa saudaraku setiap hari\'. Kemudian Abdul Malik menyatakan kebimbangan terhadap ayahnya iaitu \' aku bimbang kecintaan bapaku kepadaku menyebabkan beliau tidak dapat melihat kecacatanku! \'. Maka bertambah lagilah kekaguman Maimun kepada Abdul Malik kerana bapanya menyatakan perkara yang sama sebelum beliau datang ke sini.
Kemudiannya, samasa Maimun duduk sebentar disitu, tiba-tiba datanglah \'tokey\' tempat mandi awam (hammam- tempat mandi air panas – zaman tersebut tiada heater semasa musim sejuk) lantas memberi kunci kepada anak Umar Abdul Aziz. Lalu Maimun bertanya \' untuk apakah ini? \'. Maka Abul Malik menjawap, \'aku hendak mandi\'. Disamping itu juga \'tokey\' itu berkata \'kau pergilah mandi sekarang, aku telah mengeluarkan semua orang ramai dari tempat mandian tersebut\'.
Mendengarnya perkataan itu, Maimun berkata \'aku sangat mengkagumimu sehiggalah tadi , sebab apakah kau mengeluarkan semua orang ramai dari tempat mandian itu, kau sombong? \'. Abdul Aziz berkata \' saya tak sombong tapi saya sudah bayar kepada tuannya dengan kadar untuk semua orang\'. Lantas Maimun berkata \' kau membazir? \'. Anak Umar Abdul Azizi berkata \'saya bukan membazir, tetapi mereka ini orang kampong, kebiasaannya kadang-kadang mereka tidak menjaga aurat, susah saya, kalau ditegur, mereka kata saya sombong dan sebagainya. Jadi kan elok saya membayar untuk menjadikannya hanya saya sahaja mandi ditempat ini\'. \'Kau sombong !\' kata Maimun, \'kenapa kau sabar sahaja dan menunggu hingga mereka semua keluar, penghujungya baru kamu mandi, kenapa perlu membazir? \'.
Anak Umar Abdul Aziz pun berkata \' aku berjanji aku tidak akan membuatnya lagi kalau itu tanda ornag yang sombong \'. Kemudianya Maimun berkata \' macamana aku hendak melapurkan kepada bapa engkau ? \' ( Maimun ingin menguji lagi anak Umar Abdul Aziz). Lantas Abdul Malik berkata \' kau kata kepada ayahku, engkau ada melihat perkara yang kurang elok padaku, dan engkau telah menasihatku dan aku telah beristifar dan menginsafinya dan berjanji tidak akan mengulanginya lagi\'. \'Bagaimana pula jika ayah engkau bertanya apakah perkara tidak elok itu? \'. Lantas anak Umar Abdul Aziz berkata \'TIDAK!\', ‘Ayahku tidak akan bertanya sebab ayahku pun tahu Allah tidak menyuruh membuka aib orang\'. Tambahnya lagi \' Ayahku tidak akan bertanya aib orang termasuklah aib anaknya kerana ianya bukanlah keperluan\'. Maimun berkata didalam hatinya \' aku kagum kepada bapa dan anak yang kedua-duanya taat kepada Allah dan Rasulnya\'.
Begitulah sedikit coretan mengenai akhlak Umar dan anaknya, semoga ianya bermanafaat. Maka dapat disimpulkan bahawa:
1. Kita tidak boleh mendedahkah aib orang ( lebih kepada peribadi)
2. Kita boleh mendedahkan aib orang pada kadar-kadar tertentu sekiranya melibatkan hak-hak orang awam yang mana kalau dibiarkan akan merosakkan masyarakat awam ( contoh rasuah , mencuri dan sebagainya)
Posted by fixxxxxer at 12:24 AM No comments:
Newer Posts Older Posts Home
Subscribe to: Posts (Atom)
View my complete profile
Carbon nanotubes: Saladin's secret weapon
CHEAT Patch for GUNBOLT
ATARI 800 XL 8 bit
Apa Yang Boleh Dipelajari dari Steve Jobs
QBASIC MONEY MANAGER FOR WINDOWS
HOW TO PATCH A BYTE OF A BINARY FILE USING QBASIC ...
Chengdu J-7/F-7 Air Guard
What is FreeBASIC ??
CONTINUOUS BEAM ANALYSIS - QBASIC / FREEBASIC - ST...
A small Boulderdash design for QBasic / FreeBASIC...
QBASIC BREAKOUT SOURCE CODES !!
GWBASIC BREAKOUT SOURCE CODES
FREEBASIC BREAKOUT SOURCE CODES !!
Kisah 5 perkara aneh-kisah dan teladan
Cerita anak Umar Abdul Aziz
CAMBODIA AutoCAD Virus Removal
Infected with CAMBODIA AUTOCAD Virus? Download CAMBODIA AUTOCAD Virus Removal...FREE!!! CAMBODIA AUTOCAD Virus Removal: Do...
QBASIC MONEY MANAGER FOR WINDOWS
MONEY MANAGER For Windows Download Money Manager.zip
Design Of Small Dam
My boss asked me to redesign this small Gabion Dam because it has some scouring problems in the downstream., taking account in the desi...
EASY STEEL PORTAL FRAME TO BS5950
EASY STEEL PORTAL FRAME TO BS5950 A Simple and Easy to use Steel Portal Frame Design Software!!! Selling Price : USD 300. 00 Only ...
CONTINUOUS BEAM ANALYSIS - QBASIC / FREEBASIC - STRUCTURAL ANALYSIS / CIVIL ENGINEERING
REM SHEAR AND MOMENT ENVELOPES FOR A CONTINUOUS BEAM REM ************************************************ DIM VS(10,...
A simple STEEL PORTAL FRAME to BS5950 ( Plastic Design )
A simple STEEL PORTAL FRAME to BS5950 ( Plastic Design ) software has been added with source code. This simple program is not a demo and  ...
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, spec...
Low Weir / Tidal Gate / Head Work
This is what so called Low Weir / Tidal Gate / Head Work. The design is based on BS8110 - 1985 Front View Piling Key Plan Se...
PENTAULIAHAN DIRAJA KE-14 17 JUN 1995
PEGAWAI MUDA YANG DITAULIAHKAN PADA PENTAULIAHAN DIRAJA KE-14 17 JUN 1995 LT M Abdul Aziz bin Misngat LT M Abdul Halim bin Mohamed Ikbar ...
Bagi aku, dalam kehidupan sebagai seorang yang dewasa, ada 2 benda yang aku tak boleh gagal .. 1. Perkahwinan 2. Pekerjaan Kalau aku ga...
Ethereal theme. Powered by Blogger.