28 April 2012

Ibu By : Iwan Fals


Ribuan kilo jalan yang kau tempuh
Lewati rintang untuk aku anakmu
Ibuku sayang masih terus berjalan
Walau tapak kaki, penuh darah... penuh nanah
Seperti udara... kasih yang engkau berikan
Tak mampu ku membalas...ibu...ibu
Ingin kudekat dan menangis di pangkuanmu
Sampai aku tertidur, bagai masa kecil dulu
Lalu doa-doa baluri sekujur tubuhku
Dengan apa membalas...ibu...ibu....
Seperti udara... kasih yang engkau berikan
Tak mampu ku membalas...ibu...ibu

Nabi telah menjadikan bakti kepada orang tua lebih diutamakan daripada berjihad di jalan Allah. Disebutkan dalam shahîhaian dari 'Abdullâh bin Mas'ûd, ia berkata: 
"Aku bertanya kepada Nabi; "Amalan apakah yang paling utama?" Beliau menjawab,"Shalat pada waktunya." Aku bertanya lagi: "Kemudian apa lagi?" Beliau menjawab,”Berbakti kepada kedua orang tua.” Aku bertanya lagi: ”Kemudian apa lagi?” Beliau menjawab,”Berjihad di jalan Allah.” 

27 Maret 2012

Visual Basic : Membaca dan Menulis File Text



1. Menulis Ke File Text

Dim LocTextFile As String
LocTextFile = “C:\windows\SvAdd.txt”

Open LocTextFile For Output As #1 ‘Buka file text
Print #1, “Server_Name” ‘Modify Baris Pertama”
Print #1, “Database_Name” ‘Modify Baris Kedua
Print #1, “User” ‘Modify Baris Ketiga
Print #1, “Pwd” ‘Modify Baris Keempat
Close #1
2. Membaca dari File Text


Dim LocTextFile As String
Dim ServerAddress As String
Dim DatabaseName As String
Dim UserID As String
Dim PwdSql As String
LocTextFile = “C:\windows\SvAdd.txt”
Open LocTextFile For Input As #1 ‘Buka file text
Line Input #1, ServerAddress ‘Baca Baris Pertama
Line Input #1, DatabaseName ‘Baca Baris Kedua
Line Input #1, UserID ‘Baca Baris Ketiga
Line Input #1, PwdSql ‘Baca Baris Keempat
Close #1 ‘Tutup File file text
Selamat Mencoba !!

sumber : link

17 Januari 2012

RUMUS GABUNG NAMA DAN GELAR

#QUERY ACCESS#

NAMAA: IIf([GELAR_BLKNG]<>"";Trim([GELAR_DPN] & " " & [NAMA] & ", " & [GELAR_BLKNG]);Trim([GELAR_DPN] & " " & [NAMA]))

#RUMUS EXCEL#

=IF(C1<>"";TRIM(A1&" "&B1&", "&C1);TRIM(A1&" "&B1))


KET :

A1 = GELAR DEPAN

B1 = NAMA

C1 = GELAR BELAKANG