KE-ESAAN MU

Tuhan menitipkan kelebihan di setiap kekurangan

Menitipkan kekuatan di setiap kelemahan

Menitipkan sukacita di setiap dukacita

Menitipkan harapan di setiap keraguan

Tuhan berjanji untuk menjadikan semua itu

Semua itu indah pada waktunya

Diri mhu & Diri qhu

Keindahan mhu thag pernah dapat terlukiskan

Kecantikan mhu menajubkan hati qhu

Ketulusan mhu mengalir sebening kasih mhu

Kesetia mhu menguatkan qhu

Engkau begitu berarti

Sungguh sangat berarti

Kesempurnaan cinta telah engkau berikan

Qhu menyayangi mhu dalam senyum dan tangis qhu

Dan qhu mencintai mhu dalam hidup dan mati qhu

Belajar Seumur Hidup

Manusia hidup di dunia ini bukan hanya untuk bermain. Namun kita diciptakan untuk beribadah kepada-Nya. Belajar pun dapat dikategorikan sebagai suatu ibadah. Luas dan dalamnya ilmu pengetahuan yang ada di alam semesta ini, setidaknya harus kita pelajari dan kita amalkan. Belajar bukanlah sesuatu yang instan seperti mie, akan tetapi merupakan perjalanan panjang untuk berproses dalam membentuk pribadi yang lebih unggul, baik dan berkualitas. Akan banyak rintangan yang akan menghadang , tentu kita tidak boleh menyerah, harus selalu ingat kepada yang maha pengasih lagi maha penyayang, bahwa tujuan hidup kita adalah untuk belajar dan belajar untuk hidup.

Kita tentu ingat dengan sebuah pepatah kuno yang mengatakan “carilah ilmu sampai ke negeri Cina” kita harus membeli sebuah tiket pesawat untuk jauh-jauh ke Negeri Cina dalam rangka belajar, tetapi dapat kita artikan bahwa belajar itu tidak hanya diam berpangku tangan di tempat namun harus kemana, kapan saja, dan dimana saja kita berada.

Nabi Muhammad SAW pernah bersabda: “tuntutlah ilmu dari buaian sampai liang lahat”, maksudnya kita harus mencari atau belajar dari mulai kelahiran sampai kematian datang. Karena samudra ilmu pengetahuan tidak akan pernah kering, akan selalu bertambah dari hari kehari, bulan kebulan, tahun ketahun, dan waktu kewaktu yang akan datang. Dimana masih ada manusia yang peduli akan belajar, dari situlah akan muncul penemuan- penemuan atau ilmu- ilmu baru.

Dari bayi, kita mulai belajar untuk memninta sesuatu kepada orang tua dengan menangis , umur 1 tahun kita mulai belajar untuk merangkak, kemudian berjalan, belajar berbicara, dan berlajar untuk tersenyum ketika di sapa orang lain yang baru dia kenal. Umur 2 tahun kita belajar untuk menyanyi menirukan ibu. Tambah umur lagi kita belajar memakai baju sendiri, pegang sendok sendiri untuk makan, bersepeda  meskipun jatuh berulang kali sampai lutut lecet, belajar untuk membuat layang-layang, belajar untuk memainkan boneka, dan segudang pembelajaran lainnya yang tidak kita sadari.

Disekolah dasar kita pun belajar tambah semangat untuk belajar sambil bermain. Masuk ke jenjang berikutnya, di sekolah menengah pertama kita mulai bisa berfikir untuk belajar  menjadi dewasa dengan mulai pakai sepatu sendiri, naik bus atau angkot ke sekolah sendiri, tambah teman dan mulai mengerti bahwa semua manusia itu tidak sama dan lain sebagainya. Di sekolah menengah ke ataskita tabah dewasa untuk bisa membedaan mana yang baik dan mana yang buruk, mana yang harus di lakukan dan ditinggalkan, dan mulai tertarik dengan lawan jenis serta memahami cinta pada pendangan pertama yang membangkitkan semangat untuk membuka buku untuk belajar , belajar dan belajar lagi.

Belajar bukan hanya kegiatan membuka buku 1 jam dan membolak baliknya, namun belajar harus selama kita hidup di dunia. Selama otak masih bekerja dan jantung masih berdetak, selama itu punlah kita belajar. Bukan saja selembar ijazah tujuan yang kita inginkan dalam sekolah, namun prosesnya. Jika hanya selembar ijazah, sedetik sendiri dalam komputer dan prin out pun bisa.

Setelah lulus sekolah pun, belajar tidak aka pernah berhenti begitu saja. Namun akan terus berlangsung sampai dewasa, dan sampai ajal menjemput. Semoga belajar dapat kita jadikan sebagai kebutuhan untuk menikmati indahnya dunia. Dunia yang dengan ramah dan iklasnya menyambut semua untuuk memurnikan jiwa dalam meraih cita-cita.  

Tuhan memberi mhu cinta dan pilihan 

Ketika cinta itu datang

Dia memberi mhu kesempatan itu ada

Dia memberi mhu hati untuk memilih

......................Dan.........................

Ketika pilihan itu menjadi sebuah jawaban 

Dia memberi mhu ujian untuk setia 

Teruslah menlangkah sesuai kata hati mhu 

Yang lalu adalah kenangan 

Saat ini adalah jawaban 

Dan 

Esok adalah kenyataan 

Hanya kata hati 

Yang bisa menjadikan kenangan

Dan jawaban yang menjadikan harapan

Thug sebuah kenyataan yang indah

Cara Membuat Aplikasi Input Data Mahasiswa dengan Macro

APLIKASI EXCELFORM INPUT DATA MAHASISWA DENGAN MACRO

Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, disini saya akan contohkan bagaimana menginput (memasukan) data Mahasiswa ke beberapa cells di excel dengan menggunakan "Form Input Data Mahasiswa". Ya setidaknya kelihatan sedikit keren!  Lihat Sreenshoot Aplikasi di bawah ini

                                                                                                                  

1.       Buka atau klik start lalu pilih Mr. Excel

2.       Untuk membuka atau memunculkan menu Developer

a.       Klik menu File

b.      Pilih Options > pilih Customize Ribbon

c.       Pada kotak dialog Cumtomize Ribbon > pilih atau centang menu Developer

d.      Kilik OK

Maka menu Developer akan muncul dan dapat berfungsi di gunakan

3.       Mengaktifkan Macro Security

a.       Klik menu Developer

b.      Klik macro security > pilih Enable all macros ( not recommended; potentially dangerous code can run)

c.       Kilk OK

4.       Membuat macros

a.       Klik macros pada menu developer

b.      Tulis nama,seperti ninda pada kotak dialog macro name

c.       Pilih Create

d.      Tulis form1.show atau userform1.show , seperti contoh di bawah
 

Sub ninda ()

Form1.show

End Sub

e.      Pilih Save > tulis nama > pada save a type > pilih Excel Macro- Enable Workbook > Save

f.        Kilik Insert User Form pada menu visual basic (di sebelah save)

g.       Akan muncul kotak dialog User form1

h.      Kilik toolbox > pilih tombol Label  lalu drag pada kotak dialog User form 1

i.        Pilih  tombolTexbox lakukan seperti membuat tombol Label

Tombol Label : untuk nama,tgl lahir, alamat, agama, jenis kelamin, no.hp, dan jurusan

Tombol Texbox : untuk menulis atau mengisi rumus

j.        Pilih save

k.       Ganti nama Label 1 dengan nama pada kotak dialog properties

l.        Pilih captions lalu ganti

5.       Untuk membuat rumus pada tombol Texbox

a.       Klik kotax texbox pada kotak userform1

b.      Pada kotak dialog ptoperties > pada name

c.       Ganti dengan rumus

·         Nama            : tnama

·         Tgl lahir        : tgglhr

·         Alamat         : talamat

·         Agama          : tamaga

·         Jnis kelamin : tjenkel

·         No. Hp          : thp

·         Jurusan        : tjurusan

6.       Untuk membuat tombol keluar dan simpan

a.       Tombol keluar

·         Pilih toolbox > pilih tombol Command Button > drag and drop pada kotak user form 1

·         Ganti nama command button dengan keluar pada kotak dialog properties > pilih captions > lalu ganti

·         Klik 2x pada kotak keluar

·         Maka akan muncul kotak dialog command button 1

·         lalu tulis rumus yaitu Unload Me, seperti gambar di bawah

Private Sub Command Button 1_Click ()

Unload Me

End Sub

·         Pilih Save

b.      Tombol Simpan

·         Lakukan buat tombol simpan dengan cara yang sama membuat tombol keluar

·         Dengan rumus

Dim lilik As Long

Dim ws As Worksheet

Set ws = Worksheets("sheet1")

'menemukan baris kosong pada database

lilik = ws.Cells(Rows.Count, 1) _

            .End(xlUp).Offset(1, 0).Row

'check untuk sebuah kode

If Trim(Me.tnama.Value) = "" Then

            Me.tnama.SetFocus

            MsgBox "Isi Data Terlebih Dahulu"

            Exit Sub

End If

'copy data ke database

ws.Cells(lilik, 1).Value = Me.tnama.Value

ws.Cells(lilik, 2).Value = Me.tgllhr.Value

ws.Cells(lilik, 3).Value = Me.talamat.Value

ws.Cells(lilik, 4).Value = Me.tagama.Value

ws.Cells(lilik, 5).Value = Me.tjenkel.Value

ws.Cells(lilik, 6).Value = Me.thp.Value

ws.Cells(lilik, 7).Value = Me.tjurusan.Value

'clear data

Me.tnama.Value = ""

Me.tgllhr.Value = ""

Me.talamat.Value = ""

Me.tagama.Value = ""

Me.tjenkel.Value= ""

Me.thp.Value = ""

Me.tjurusan.Value = ""

Me.tnama.SetFocus

End Sub

·         Lalu Save

·         Klik close pada pojok kanan atas

7.      Membuat tombol Klik pada lembar kerja

·         Pilih Insert pada menu developer > pilih tombol Button dengan cara di drag and drop

·         Letakan pada lembar kerja

·         Akan muncul kotak dialog macro name

·         Tulis atau pilih dengan ninda > klik OK  

.      Lalu simpan dan jalankan

          Selamat mencoba dan moga berhasil

>>