RPL smkn 1 pandeglang 2nd: Februari 2010

Jumat, 26 Februari 2010

Membuat split page

Author: Rekayasa Perangkat Lunak |

Split File berdasarkan Separator di VB 6.0

Misalkan isi file yang akan displit seperti ini:

insert into siswa
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
commit;
insert into guru
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
insert into …..
insert into ….
commit;
insert into pegawai
insert into ….
insert into …..
insert into ….
insert into …..
commit;
insert into pelajaran
insert into…
insert into…
commit;
dan seterusnya.

Dan akan displit berdasarkan separator ”commit;”. Berikut ini sintaksnya:

Option Explicit
Const Pembatas = “commit;”
Dim i As Long
Dim posisi As Integer
Dim pembagi As Variant
Dim batas() As String

‘Script untuk buka file
Open the “D:\sourcefile.txt” For Input As #1
pembagi = Input(LOF(1), 1)
Close #1

‘script untuk membagi file
posisi = 1
List1.Clear
batas = Split(pembagi, Pembatas)
For i = LBound(batas) To UBound(batas)
Open “C:\text” & posisi & “.txt” For Output As #posisi
Print #posisi, batas(i)
List1.AddItem batas(i)
posisi = posisi + 1
Close #1
Next i

Itulah sekelumit sintaks yang diperlukan untuk split file berdasarkan separator.
Mudah-mudahan bisa membantu.

Nikmatnya iman

Sujud itu ada yang zhahir dan ada yang batin. Sujud yang zhahir adalah sujudnya tubuh kita sebagaimana kita ketahui, namun sujud batin adalah ketika tubuh kita sujud, hati kita juga sujud kepada Allah, dan setelah itu hati akan terus sujud walaupun tubuh kita beraktifitas. Hati kita akan tetap sujud dan merendahkan diri kepada Allah walaupun siang dan malam kita dalam aktifitas lain, sampai kembali ke waktu sujud lagi yaitu waktu sholat.

Siapa yang tidak ingin dan merindukan hal seperti di atas. Tunduknya hati dan jiwa sebagaimana tunduknya jasad kita sewaktu melakukan sujud saat mendirikan sholat. Tiada kekuatan yang paling kita besarkan dan agungkan pada saat itu selain kekuataan Allah Subhanahu wa ta’ala, Dzat yang telah menciptakan diri kita dan memelihara setiap sel tubuh di dalamnya. Tiada yang kita tuju dan harapkan pada saat itu selain pertolongan dari-Nya, dan tiada yang membuat kita merasa takut pada saat itu selain takut akan kemurkaan-Nya, adzab-Nya, dan jauhnya rahmat yang senantiasa Dia curahkan setiap detiknya pada hari-hari kita.

Semoga Allah Subhanahu wa ta’ala menerima setiap ibadah sholat-sholat kita, menutupi segala kekurangan di dalamnya, juga segala kekurangan dari bentuk ibadah yang kita tujukan untuk mendekatkan diri kita kepada-Nya, sehingga kesan yang ditinggalkan oleh ibadah itu sangat bermakna dan terlihat dalam sikap keseharian kita…aamiin Allahumma aamin.

Ya Rahmaan Ya Rahiim,
Duhai Dzat yang mencukupkan makhluk-Nya dari segala kekurangan
Duhai Dzat yang melapangkan setiap kesempitan

Ya Robbana,
Terimalah segala amal ibadah kami kepada-Mu
Tutupilah segala kekurangan yang ada
Bimbinglah kami untuk memperbaiki dan menyempurnakan setiap persembahan amal-amal kami kepada-Mu

Ya Robbana,
Tundukkan selalu hati dan jiwa kami sebagaimana tunduknya jasad kami saat bersujud kepada-Mu
Hilangkahlah segala kesombongan yang ada di hati kami sekecil apapun, baik yang kami ketahui dan sadari maupun yang tidak kami ketahui dan sadari
Kami berlindung kepada-Mu dari setiap keburukan amal-amal kami
Berlindung dari setiap ibadah yang jauh dari rasa khusyu’, ikhlas, ketundukkan, rasa takut, pengharapan dan cinta

Ya Robbana,
Kurniakan pada diri kami rasa cinta kepada makhluk-makhluk-Mu, khususnya kepada kedua orang tua kami, guru-guru mulia kami, pendahulu-pendahulu kami yang sholeh, serta saudara-saudara kami yang muslim
Dan jadikanlah puncak kecintaan kami adalah pada-Mu dan kepada junjungan kami, Baginda Rasulullah Muhammad Shollallahu ‘alaihi wa sallam dan keluarga serta para sahabat beliau…
Aamiin Allahumma aamiin

CINTA

Ada 2 titis air mata mengalir di sebuah sungai. Satu titis air mata tu menyapa air mata yg satu lagi,” Saya air mata seorang gadis yang mencintai seorang lelaki tetapi telah kehilangannya. Siapa kamu pula?”. Jawab titis air mata kedua tu,” Saya air mata seorang lelaki yang menyesal membiarkan seorang gadis yang mencintai saya berlalu begitu sahaja.”

Cinta sejati adalah ketika dia mencintai orang lain, dan kamu masih mampu tersenyum, sambil berkata: aku turut bahagia untukmu.

Jika kita mencintai seseorang, kita akan sentiasa mendoakannya walaupun dia tidak berada disisi kita.

Jangan sesekali mengucapkan selamat tinggal jika kamu masih mau mencoba. Jangan sesekali menyerah jika kamu masih merasa sanggup. Jangan sesekali mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

Perasaan cinta itu dimulai dari mata, sedangkan rasa suka dimulai dari telinga. Jadi jika kamu mahu berhenti menyukai seseorang, cukup dengan menutup telinga. Tapi apabila kamu Coba menutup matamu dari orang yang kamu cintai, cinta itu berubah menjadi titisan air mata dan terus tinggal dihatimu dalam jarak waktu yang cukup lama.

Cinta datang kepada orang yang masih mempunyai harapan walaupun mereka telah dikecewakan. Kepada mereka yang masih percaya, walaupun mereka telah dikhianati. Kepada mereka yang masih ingin mencintai, walaupun mereka telah disakiti sebelumnya dan kepada mereka yang mempunyai keberanian dan keyakinan untuk membangunkan kembali kepercayaan.

Jangan simpan kata-kata cinta pada orang yang tersayang sehingga dia meninggal dunia , lantaran akhirnya kamu terpaksa catatkan kata-kata cinta itu pada pusaranya . Sebaliknya ucapkan kata-kata cinta yang tersimpan dibenakmu itu sekarang selagi ada hayatnya.

Mungkin Tuhan menginginkan kita bertemu dan bercinta dengan orang yang salah sebelum bertemu dengan orang yang tepat, kita harus mengerti bagaimana berterima kasih atas kurniaan itu.