Bangun dari tidur panjang

Sekian lama terbengkalai

Bingung
M nulis paan

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.” 

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

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

VB6 Menghapus spasi berlebih

seringkali kita dihadapkan dengan spasi berlebih, baik di sebelum teks maupun sesudah text atau ditengah teks.
disini diberikan contoh penggunaan, TRIM dan REPLACE untuk menghilangkan spasi berlebih atau menghilangkan spasi

Private Sub Form_Activate()
'Trim: Untuk menghilangkan spasi
'dari kiri dan kanan teks
'Relace : untuk mengganti karakter
'dengan karakter yang kita inginkan
'dlam hal ini (2 spasi diganti 1 spasi di ulang)
A = " Mohu "
b = " Lo du " 'spasi ditengah lebih dari 3
c = "55 5A F2 B0 93 86 90 B5 6A 43 78 73 84 AD FC AF"
Do Until InStr(b, " ") = 0 'di ulang sampai tidak ditemukan 2 spasi
b = Replace(b, " ", " ")
Loop
c = Replace(c, " ", "")
Print Trim(A) ' "Mohu"
Print Trim(b) ' "Lo du"
Print c '"555AF2B0938690B56A43787384ADFCAF"
End Sub

terima kasih

PAKET HARGA ID CARD

Untuk Kartu Pegawai, Kartu Karyawan, Kartu Mahasiswa, Kartu Pelajar dll

Pemesanan untuk wilayah Kota Gorontalo, Kab. Gorontalo, Kab. Bone Bolango

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 10.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.7.000,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Pemesanan untuk wilayah Kab. Gorontalo Utara, Kab. Pohuwato, Kab. Boalemo

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 15.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.10.500,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Desain disesuaikan dengan keinginan, mendukung BarCode

Format Excel dapat di download disini dapat di sesuaikan dengan kebutuhan

Hubungi : agusksaid@yahoo.com

User Manager Mikrotik

Setelah obrak abrik om google.. upggrate mikrotik dengan perasaan deg-degan... akhirnya mikrotikku bisa berfungsi "user managernya"
versi yang digunakan dapat dilihat di :
http://www.mikrotik.com/download.html
in filenya

http://download.mikrotik.com/routeros-mipsbe-5.0rc7.npk
file user manag nya disini :
http://download.mikrotik.com/all_packages-mipsbe-5.0rc7.zip