Perintahnya :Format('%8.2f'[])
2 menunjukan jumlah angka di belakang komanya, yakni 2.
diganti dengan angka floatnyaFungsi di atas menghasilkan keluaran bertipe string....
Kamis, 08 Desember 2011
Minggu, 25 September 2011
Menyimpan jpg ke database
Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan
uses DB, jpeg;
Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adalah sebagai berikut :
Tambahkan komponen bernama OpenDialog1, ADOQuery1, Button1, dan Image1
Pada event onClick komponen tombol Button1, tuliskan kode berikut :
procedure TFormPustaka.Button1Click(Sender: TObject);
var
FileStream:...
Kamis, 22 September 2011
Enkripsi dan Deskripsi Password
unit uEncrypt;
interface
function Decrypt(const S: AnsiString; Key: Word): AnsiString;
function Encrypt(const S: AnsiString; Key: Word): AnsiString;
implementation
const
C1 = 52845;
C2 = 22719;
function Decode(const S: AnsiString): AnsiString;
const
Map: array[Char] of Byte = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 0, 63,...
Senin, 05 September 2011
Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb-Nya
Kebetulan dapat kutipan perkataan Yesus dalam Injil Thomas yang dikutip dari buku kajian tentang perpustakaan Nag Hamady, sebagai berikut :
"ketika kalian semua mengenali diri kalian saat itu kalian akan menjadi mengerti (Arifin) …"
Perkataan ini mirip dengan “Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb (Tuhan)-Nya”. yang dianggap Imam Ghazali dalam kitab Kimiya-i Sa'adah sebagai hadits Qudsi. Sejumlah ulama...
Kamis, 01 September 2011
Asal Dosa Manusia
Asal dosa itu adalah mengikuti tipu daya setan jin dan setan manusia.
Dan demikianlah Kami jadikan bagi tiap-tiap nabi itu musuh, yaitu syaitan-syaitan (dari jenis) manusia dan (dan jenis) jin, sebahagian mereka membisikkan kepada sebahagian yang lain perkataan-perkataan yang indah-indah untuk menipu (manusia). Jikalau...
Senin, 08 Agustus 2011
Mengkonversi IP address ke Hostname
Menggunakan winsock
function IPAddrToName(IPAddr: string): string;
var SockAddrIn:TSockAddrIn;HostEnt:PHostEnt;WSAData:TWSAData;
begin
WSAStartup($101,WSAData);
SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr,4,AF_INET);
if HostEnt<>nil then Rresult:=StrPas(Hostent^.h_name)
else Result:='';
end;
...
Senin, 01 Agustus 2011
Perkawinan di bawah umur perlu diberi sangsi?
Latar belakang sangsi terhadap perkawinan di bawah umur adalah untuk melindungi perempuan dari resiko yang timbul akibat aktivitas seksual dalam kondisi organ seksual perempuan yang belum matang. Dirjen Bimas Islam Depag, Prof Dr Nasaruddin Umar seusai Konsultasi Nasional Hukum Keluarga Islam di Indonesia di Jakarta mengemukakan beberapa resiko tersebut, antara lain angka perceraian yang meningkat, kematian ibu saat melahirkan, dan perceraian...
Senin, 18 Juli 2011
Apakah di Syurga Istri cemburu terhadap istri lainnya?
Di syurga Allah mengkawinkan lelaki penghuni syurga dengan bidadari-bidadari yang cantik bermata jeli (ath-Thuur 17-20).
Apakah istri dunia kita akan cemburu terhadap mereka?
Kecemburuan itu kesusahan dan di syurga tidak ada kesusahan. Istri-istri di syurga itu pemberian Allah dan pilihan Allah adalah...
Sabtu, 04 Juni 2011
Mengelola Kiriman Tugas Mahasiswa di Yahoo
Berikut ini adalah tips bagi pengajar yang ingin mengelola kiriman tugas pelajarnya dengan layanan email Yahoo yang baru. Tujuan langkah ini adalah menjadikan Yahoo sebagai agent yang dapat memilah sendiri kiriman surat dan memasukannya ke dalam folder berdasarkan kategori subject kiriman.
Langkah pertama, menetapkan...
Sabtu, 28 Mei 2011
Alam Indah Garut
Garut dijadikan kota wisata oleh Gubernur Belanda bernama Holke van Garut (1930-1940) dan memberi julukan ”Switzerland van Java” karena keindahan alamnya. Keindahan Garut pada masa lampau dihiasi oleh kecantikan penguasanya yang bernanam Ratna Inten Dewata.
...
Minggu, 22 Mei 2011
Menangani Masalah Epson Stylus TX111 : General Error, semua lampu indikator blinking
Berikut ini cara yang dapat ditempuh untuk menyelesaikan kasus General Error pada printer Epson Stylus TX111 yang menggunakan tinta infus, di mana semua lampu indikator (power, paper, dan ink) berkedip dan tombol untuk membuka cartridge tidak berfungsi :
Dalam keadaan mati, tekan tombol power, lalu cabut kabel power begitu...
Sabtu, 21 Mei 2011
Menjalankan Game Flash Secara Offline
Internet banyak sekali menyediakan permainan flash. Umumnya permainan ini dijalankan dari situs penyedianya menggunakan internet browser, artinya penikmatnya harus online atau terhubung dengan internet. Untuk membuat permainan oflline dapat dimainkan tanpa perlu selalu membuka situs penyedianya, berikut ini langkah yang...
Minggu, 15 Mei 2011
Saluran Informasi Akademik Self-Service
Self-service adalah praktik atau suatu usaha di mana pelanggan melayani dirinya sendiri (www23), seperti misalnya Automatic Teller Machines (ATM) di mana orang mengambil dan menyimpan uangnya sendiri (www24). Salira self-service dapat difahami sebagai media informasi elektronik yang hanya menampilkan informasi akademik...
Minggu, 15 Mei 2011
Saluran Informasi Akademik adalah Media Informasi Elektronik
Salira (Saluran informasi) adalah media apapun yang mengandung informasi dan menyediakan “pipa” di mana informasi mengalir satu arah dari satu ruang informasi ke ruang informasi lainnya (Ringland, 2008). Dengan demikian saluran informasi dapat difahami sebagai media informasi karena mengandung informasi serta memiliki...
Sabtu, 07 Mei 2011
Masalah instalasi driver printer HP Laserjet 1000 di Ubuntu 10.10
Tatkala kabel USB dari printer HP Laserjet 1000 dihubungkan ke port USB pada unit sistem, Ubuntu 10.10 langsung dapat megenalinya. Namun untuk memasang driver printer tersebut, perlu koneksi internet untuk mengunduh sejumlah kelengkapan file dari HP. Sayangnya setelah driver terpasang, kita tidak pernah dapat menggunakan...
Sabtu, 30 April 2011
Kenikmatan rokok dalam bayangan Kubur
Mazhad Hanafi > al-Hashkafi r.m : tembakau dianggap tidak memabukan namun melemahkan badan, hukumnya haram berdasarkan hadits Ummu Salamah : Rasulullah SAW mengharamkan setiap barang yang memabukan dan melemahkan badan (HR Ahmad dan Abu Dawud, disahihkan oleh Zainuddin al-Iraqi)
Madzhab Safi'i > Tembakau melemahkan...
Minggu, 24 April 2011
Perangkat input TV
Saat internet telah berintegrasi dengan TV, remote TV berubah menjadi keyboard dan mouse yang terintegrasi. Setiap orang dapat melakukan komunikasi audio visual melalui TV mana saja dalam rumahnya.Implementasi : http://www.youtube.com/watch?v=dFaf_Y-CpgQ&playnext=1&list=PL5602D37EE4E3F8...
Jumat, 15 April 2011
Pengadaan Internet Dengan Pajak
Di saat internet sudah menjadi elemen penting bagi perekonomian negara khususnya, maka ia akan dikelola pemerintah seperti jalan raya, yang diadakan dan dipelihara dengan dana pajak, yang masyarakat bisa mengakses kapanpun dengan kecepatan akses sesuai dengan mesin yang digunakan dan bukan sesuai dengan kontrak layanan interne...
Selasa, 05 April 2011
Menangani masalah instalasi Lazarus di Ubuntu 10
Untuk menginstall Lazarus di Ubuntu 10, cara paling mudah adalah mencari installer nya di Ubuntu Software Center. Anda bisa menemukannya dengan memberikan kata kunci Lazarus. Setelah installer ditemukan, tinggal klik tombol install nya.
Jika setelah proses instal tersebut anda mencoba menjalankannya, sebelum masuk ke dalam IDE Lazarus akan ada informasi yang menyatakan bahwa direktory source free pascal tidak ditemukan. Jika diabaikan, kemudian...
Sabtu, 02 April 2011
alKhowarizmi
Perangkat lunak alKhowarizmi yang dibuat dengan Lazarus ini digunakan untuk membuat program dengan kode Pascal berbahasa Indonesia. Prototipe diluncurkan 2 April 2011 ...Sementara ini baru tersedia sebatas prototipe. Untuk menjalankannya:Install Lazarus pada Sistem Operasi Microsoft Windows anda, installernya ada di siniUnduh...
Minggu, 20 Maret 2011
Semua muslim masuk neraka?
Seringkali muslim disebut sebagai ahli neraka karena berkaitan dengan ayat berikut ini:
Dan tidak ada seorangpun dari padamu, melainkan mendatangi neraka itu. Hal itu bagi Tuhanmu adalah suatu kemestian yang sudah ditetapkan. (QS 19:71)
Benarkah semua muslim akan masuk neraka?Mari kita lihat tafsir Ibnu Katsir:
Imam Ahmad meriwayatkan dari Abu Samiyah, dia berkata, "Kami berselisih mengenai kedatangan di neraka. Sebagian dari kami mengatakan,...
Rabu, 16 Maret 2011
Memfitnah Muhammad SAW dan menafsirkan alQuran semaunya?
Mahmud bin Ghailan meriwayatkan kepada kami, Bisyr bin as-Sari meriwayatkan kepada kami, Sufyan mengabarkan kepada kami, dari Abdul a’laa, dari Said bin Jubair, dari Ibnu Abbas radhiyAllahu ‘anhuma, ia mengatakan bahwa Rosulullah [saw] bersabda (yg artinya): “Barang siapa berkata-kata tentang al-Qur’an (menafsirkan) tanpa ilmu, maka hendaklah ia menempati tempat duduknya dari neraka” (HR.Tirmidzi,no.2950) Imam Abu Isa berkata,”Hadits ini derajatnya...
Sabtu, 12 Maret 2011
Muhammad SAW berkhitan
"Dari Ubaidillah bin Abdullah bin Utbah bin Mas'ud bahwasanya Abdulah bin Abbas memberitahukan kepadanya bahwasanya Abu Sufyan bin Harb menceritakan kepadanya bahwa Heraklius minta kedatangannya serta rombongan dagang Quraisy di Syam pada masa Rasulullah saw. membuat gecatan senjata kepada Abu Sufyan dan kafir Quraisy. Maka mereka (rombongan itu) datang kepada Heraklius di Ilia lalu Heraklius memanggil mereka dan disekelilingnya para pembesar...
