hewan-hewan yang hidup di hutan maupun di lingkungan sekitar kita, jaga, lindungi dan sayangi lah, karena kalau kita bisa menjaga dengan baik hewan pun sayang dan bisa melindungi kita.. jadi jangan pernah sakiti hewan dan jangan pernah kita rusak hutan atau tempat berlindung mereka, kalau kita merusak hutan berarti kita merusak kenyamanan hewan. dan apakah kalian mau tempat berlindung kalian dirusak?? begitu juga dengan hewan, mereka juga ingin kenyamanan dan kenikmatan dalam hidup, seperti manusia.. jagalah hutan, karena kalau kita bisa menjaga hutan berarti kita bisa menjaga hewan. hewan juga patut untuk kita sayangi...
Pada suatu hari, hiduplah sebuah keluarga di pesisir pantai wilayah Sumatra. Keluarga itu mempunyai seorang anak yang diberi nama Malin Kundang. Karena kondisi keluarga mereka sangat memprihatinkan, maka ayah malin memutuskan untuk pergi ke negeri seberang.
Besar harapan malin dan ibunya, suatu hari nanti ayahnya pulang dengan membawa uang banyak yang nantinya dapat untuk membeli keperluan sehari-hari. Setelah berbulan-bulan lamanya ternyata ayah malin tidak kunjung datang, dan akhirnya pupuslah harapan Malin Kundang dan ibunya.
Setelah Malin Kundang beranjak dewasa, ia berpikir untuk mencari nafkah di negeri seberang dengan harapan nantinya ketika kembali ke kampung halaman, ia sudah menjadi seorang yang kaya raya. Akhirnya Malin Kundang ikut berlayar bersama dengan seorang nahkoda kapal dagang di kampung halamannya yang sudah sukses.
Selama berada di kapal, Malin Kundang banyak belajar tentang ilmu pelayaran pada anak buah kapal yang sudah berpengalaman. Malin belajar dengan tekun tentang perkapalan pada teman-temannya yang lebih berpengalaman, dan akhirnya dia sangat mahir dalam hal perkapalan.
Banyak pulau sudah dikunjunginya, sampai dengan suatu hari di tengah perjalanan, tiba-tiba kapal yang dinaiki Malin Kundang di serang oleh bajak laut. Semua barang dagangan para pedagang yang berada di kapal dirampas oleh bajak laut. Bahkan sebagian besar awak kapal dan orang yang berada di kapal tersebut dibunuh oleh para bajak laut. Malin Kundang sangat beruntung dirinya tidak dibunuh oleh para bajak laut, karena ketika peristiwa itu terjadi, Malin segera bersembunyi di sebuah ruang kecil yang tertutup oleh kayu.
Malin Kundang terkatung-katung ditengah laut, hingga akhirnya kapal yang ditumpanginya terdampar di sebuah pantai. Dengan sisa tenaga yang ada, Malin Kundang berjalan menuju ke desa yang terdekat dari pantai. Sesampainya di desa tersebut, Malin Kundang ditolong oleh masyarakat di desa tersebut setelah sebelumnya menceritakan kejadian yang menimpanya. Desa tempat Malin terdampar adalah desa yang sangat subur. Dengan keuletan dan kegigihannya dalam bekerja, Malin lama kelamaan berhasil menjadi seorang yang kaya raya. Ia memiliki banyak kapal dagang dengan anak buah yang jumlahnya lebih dari 100 orang. Setelah menjadi kaya raya, Malin Kundang mempersunting seorang gadis untuk menjadi istrinya.
Setelah beberapa lama menikah, Malin dan istrinya melakukan pelayaran dengan kapal yang besar dan indah disertai anak buah kapal serta pengawalnya yang banyak. Ibu Malin Kundang yang setiap hari menunggui anaknya, melihat kapal yang sangat indah itu, masuk ke pelabuhan. Ia melihat ada dua orang yang sedang berdiri di atas geladak kapal. Ia yakin kalau yang sedang berdiri itu adalah anaknya Malin Kundang beserta istrinya.
Malin Kundang pun turun dari kapal. Ia disambut oleh ibunya. Setelah cukup dekat, ibunya melihat belas luka dilengan kanan orang tersebut, semakin yakinlah ibunya bahwa yang ia dekati adalah Malin Kundang. "Malin Kundang, anakku, mengapa kau pergi begitu lama tanpa mengirimkan kabar?", katanya sambil memeluk Malin Kundang. Tetapi Kundang segera melepaskan pelukan ibunya dan mendorongnya hingga terjatuh. "Wanita tak tahu diri, sembarangan saja mengaku sebagai ibuku", kata Malin Kundang pada ibunya. Malin Kundang pura-pura tidak mengenali ibunya, karena malu dengan ibunya yang sudah tua dan mengenakan baju compang-camping. "Wanita itu ibumu?", Tanya istri Malin Kundang. "Tidak, ia hanya seorang pengemis yang pura-pura mengaku sebagai ibuku agar mendapatkan harta ku", sahut Malin kepada istrinya. Mendengar pernyataan dan diperlakukan semena-mena oleh anaknya, ibu Malin Kundang sangat marah. Ia tidak menduga anaknya menjadi anak durhaka. Karena kemarahannya yang memuncak, ibu Malin menengadahkan tangannya sambil berkata "Oh Tuhan, kalau benar ia anakku, aku sumpahi dia menjadi sebuah batu". Tidak berapa lama kemudian angin bergemuruh kencang dan badai dahsyat datang menghancurkan kapal Malin Kundang. Setelah itu tubuh Malin Kundang perlahan menjadi kaku dan lama-kelamaan akhirnya berbentuk menjadi sebuah batu karang.
| Print Cerpen
Posting cerpen by: widy
Total cerpen di baca: 1845
Total kata dlm cerpen: 397
Tanggal cerpen diinput: 12 May 2010 Jam cerpen diinput: 3:08 AM
0 Komentar cerpen
Jamilah,seorang Perempuan paruh baya beranak tiga itu tampak meringis kesakitan,akibat luka lebam di sekujur tubuh,kepala,dan juga wajahnya.Sambil menangis dan menunduk menutupi wajahnya dari pandangan seluruh warga yang sedang menontonnya.
Yah,Jamilah tertangkap tangan hendak mencuri sepasang sendal oleh beberapa warga yang kebetulan melintas di depan halaman Mushola Al-Falah,saat di Mushola itu sedang ada acara pengajian rutin setiap malam Jumat di kampung tersebut. Alhasil,Jamilah pun akhirnya menjadi bulan-bulanan seluruh warga yang mengejar dan berhasil menangkapnya,habislah ia dikeroyok oleh puluhan warga yang berbadan cukup besar itu.
Untunglah saat itu,pak Ustad dan beberapa muridnya segera keluar dari Mushola setelah mendengar ada keributan tersebut,dan berusaha menyelamatkan nyawa Jamilah yang sudah babak beluk,hingga hampir sulit dikenali lagi wajahnya yang hampir keriput itu.
Tiba-tiba,salah satu murid pak Ustad berteriak sambil berlari,"Jangan pukul lagi..," semua berpaling melihat ke arahnya,anak muda itu langsung menarik dan memeriksa lengan kiri Jamilah yang ternyata ada bekas luka yang lumayan besar. Jamilah hanya menatap diam anak muda itu sambil meneteskan air mata,anak muda itu pun segera memeluk Jamilah,"Sudah,jangan pukul dia,dia Ibuku," mohon anak muda tersebut sambil menangis memeluk Ibunya. " Saya yang salah,Ibu begini karena saya dipecat dari pekerjaan,ayah pergi meninggalkan kami begitu saja,sedangkan adik-adik kami kelaparan di rumah,pukul saya saja..," pinta anak muda itu dengan wajah mengiba.
Pa Ustad menghampiri Ibu dan anak yang masih berpelukan itu,seraya berkata," Untuk apa Ibumu mencuri sendal nak ?" lalu Jamilah menjawab dengan suara lirih," Saya tidak punya beras,apalagi susu untuk anak saya yang kecil Pak Ustad," ujar Jamilah. Pak Ustad kembali bertanya pada muridnya,"Mengapa kamu melihat lengan ibu itu," dan muridnya itu menjawab,"Bekas luka itu ada,karena Ibu ingin melindungi saya dari Ayah yang hendak menusuk saya dengan pisau pak," ujarnya sedih.
" Astaghfirullah,mari ikut saya ke rumah," saut Pak Ustad sembari memapah Jamilah yang terlihat tak berdaya,sambil berkata pada seluruh warga yang sudah berkerumun disana,"Para warga sekalian,inilah bukti betapa besar tanggung jawab dan cinta seorang Ibu,hingga ia rela mengorbankan nyawanya sendiri hanya demi segenggam beras atau segelas susu anaknya," Tegasnya. "Lihat ia saudara-saudara sekalian,Ibu ini hanyalah korban atas ketidak berdayaannya,maafkan ia," Tambahnya lagi,dan mereka bertiga berjalan perlahan meninggalkan kerumunan warga yang hanya bengong,terpaku melihat mereka bertiga pergi.
Kali ini penulis coba angkat topik teori perulangan, kemaren sempet ada yang menanyakan hal ini kepada penulis akhirnya penulis ingin membahasnya.
Loop adalah proses perulangan yang mengerjakan satu atau lebih statement. Loop diperlukan untuk mengerjakan suatu proses operasi secara tahap demi tahap dengan nilai variabel yang menaik atau menurun.
Bila digambarkan aliran loop seperti gambar berikut
Function Do…Loop
Fungsi ini digunakan untuk mengulang blok statement bila kondisi benar atau sampai kondisi menjadi benar. Bila tidak ada perintah keluar fungsi loop akan terus berjalan.
Contoh sintaksnya sebagai berikut
Do [while|until] kondisi
Statement
Exit do
Statement
Loop
Nah sebagai contoh dalam pemrogramannya seperti berikut :
Coba buat 1 project dengan 1 form kemudian isikan script berikut
| Komputer, Visual Basic | 102 comments » Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:
Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
Option Explicit Private Hasil As Double Private Const opNol = 0 Private Const opTambah = 1 Private Const opKurang = 2 Private Const opKali = 3 Private Const opBagi = 4 Private Operator As Integer Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir Private Sub Hapus() Dim txt As String Dim min_len As Integer txt = txtDisplay.Text If Left$(txt, 1) = "-" Then min_len = 2 Else min_len = 1 End If If Len(txt) > min_len Then txtDisplay.Text = Left$(txt, Len(txt) - 1) Else txtDisplay.Text = "0" End If End Sub
' hapus angka, hasil terakhir dan operator Private Sub cmdClear_Click() cmdClearEntry_Click Hasil = 0 Operator = opNol End Sub ' hapus angka Private Sub cmdClearEntry_Click() txtDisplay.Text = "" End Sub ' menambahkan koma (desimal) Private Sub cmdKoma_Click() If InStr(txtDisplay.Text, ".") Then Beep Else If NilaiBaru Then txtDisplay.Text = "." NilaiBaru = False Else txtDisplay.Text = txtDisplay.Text & "." End If End If End Sub
' Menghitung Private Sub cmdSamaDengan_Click() Dim HasilBaru As Double If txtDisplay.Text = "" Then HasilBaru = 0 Else HasilBaru = CDbl(txtDisplay.Text) End If Select Case Operator Case opNol Hasil = HasilBaru Case opTambah Hasil = Hasil + HasilBaru Case opKurang Hasil = Hasil - HasilBaru Case opKali Hasil = Hasil * HasilBaru Case opBagi 'Tidak bisa dibagi nol If HasilBaru = 0 Then MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR" Call cmdClear_Click Else Hasil = Hasil / HasilBaru End If End Select Operator = opNol NilaiBaru = True txtDisplay.Text = Format$(Hasil) End Sub
' menuliskan angka Private Sub cmdAngka_Click(Index As Integer) If NilaiBaru Then txtDisplay.Text = Format$(Index) NilaiBaru = False Else txtDisplay.Text = _ txtDisplay.Text & Format$(Index) End If End Sub ' tombol tambah/kurang/bagi/kali Private Sub cmdOperator_Click(Index As Integer) cmdSamaDengan_Click Operator = Index NilaiBaru = True End Sub
' merubah tanda +/- Private Sub cmdPlusMinus_Click() If NilaiBaru Then txtDisplay.Text = "-" ElseIf Left$(txtDisplay.Text, 1) = "-" Then txtDisplay.Text = Right$(txtDisplay.Text, 2) Else txtDisplay.Text = "-" & txtDisplay.Text End If End Sub
' filter untuk angka saja yg dapat diketikkan Private Sub Form_KeyPress(KeyAscii As Integer) txtDisplay_KeyPress KeyAscii End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) txtDisplay_KeyUp KeyCode, Shift End Sub ' supaya kursor tetap di kanan Private Sub txtDisplay_Change() txtDisplay.SelStart = Len(txtDisplay.Text) End Sub Private Sub txtDisplay_GotFocus() txtDisplay_Change End Sub
' untuk mengetikkan angka di keyboard Private Sub txtDisplay_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr$(KeyAscii) Select Case ch Case "0" cmdAngka_Click 0 Case "1" cmdAngka_Click 1 Case "2" cmdAngka_Click 2 Case "3" cmdAngka_Click 3 Case "4" cmdAngka_Click 4 Case "5" cmdAngka_Click 5 Case "6" cmdAngka_Click 6 Case "7" cmdAngka_Click 7 Case "8" cmdAngka_Click 8 Case "9" cmdAngka_Click 9 Case "*", "x", "X" cmdOperator_Click opKali Case "+" cmdOperator_Click opTambah Case vbCrLf, vbCr, "=" cmdSamaDengan_Click Case "-" cmdOperator_Click opKurang Case "." cmdKoma_Click Case "/" cmdOperator_Click opBagi Case "C", "c" cmdClearEntry_Click End Select KeyAscii = 0 End Sub
' untuk ketikan angka di numpad Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyNumpad0 cmdAngka_Click 0 Case vbKeyNumpad1 cmdAngka_Click 1 Case vbKeyNumpad2 cmdAngka_Click 2 Case vbKeyNumpad3 cmdAngka_Click 3 Case vbKeyNumpad4 cmdAngka_Click 4 Case vbKeyNumpad5 cmdAngka_Click 5 Case vbKeyNumpad6 cmdAngka_Click 6 Case vbKeyNumpad7 cmdAngka_Click 7 Case vbKeyNumpad8 cmdAngka_Click 8 Case vbKeyNumpad9 cmdAngka_Click 9 Case vbKeyMultiply cmdOperator_Click opKali Case vbKeyAdd cmdOperator_Click opTambah Case vbKeySeparator cmdSamaDengan_Click Case vbKeySubtract cmdOperator_Click opKurang Case vbKeyDivide cmdOperator_Click opBagi Case vbKeyDecimal cmdKoma_Click Case vbKeyBack, vbKeyDelete Hapus End Select KeyCode = 0 End Sub
Sistem bilangan biner atau sistem bilangan basis dua adalah sebuah sistem penulisan angka dengan menggunakan dua simbol yaitu 0 dan 1. Sistem bilangan biner modern ditemukan oleh Gottfried Wilhelm Leibniz pada abad ke-17. Sistem bilangan ini merupakan dasar dari semua sistem bilangan berbasis digital. Dari sistem biner, kita dapat mengkonversinya ke sistem bilangan Oktal atau Hexadesimal. Sistem ini juga dapat kita sebut dengan istilah bit, atau Binary Digit. Pengelompokan biner dalam komputer selalu berjumlah 8, dengan istilah 1 Byte/bita. Dalam istilah komputer, 1 Byte = 8 bit. Kode-kode rancang bangun komputer, seperti ASCII, American Standard Code for Information Interchange menggunakan sistem peng-kode-an 1 Byte.
Perhitungan dalam biner mirip dengan menghitung dalam sistem bilangan lain. Dimulai dengan angka pertama, dan angka selanjutnya. Dalam sistem bilangan desimal, perhitungan mnggunakan angka 0 hingga 9, sedangkan dalam biner hanya menggunakan angka 0 dan 1.
contoh: mengubah bilangan desimal menjadi biner
desimal = 10.
berdasarkan referensi diatas yang mendekati bilangan 10 adalah 8 (23), selanjutnya hasil pengurangan 10-8 = 2 (21). sehingga dapat dijabarkan seperti berikut
10 = (1 x 23) + (0 x 22) + (1 x 21) + (0 x 20).
dari perhitungan di atas bilangan biner dari 10 adalah 1010
dapat juga dengan cara lain yaitu 10 : 2 = 5 sisa 0 (0 akan menjadi angka terakhir dalam bilangan biner), 5(hasil pembagian pertama) : 2 = 2 sisa 1 (1 akan menjadi angka kedua terakhir dalam bilangan biner), 2(hasil pembagian kedua): 2 = 1 sisa 0(0 akan menjadi angka ketiga terakhir dalam bilangan biner), 1 (hasil pembagian ketiga): 2 = 0 sisa 1 (0 akan menjadi angka pertama dalam bilangan biner) karena hasil bagi sudah 0 atau habis, sehingga bilangan biner dari 10 = 1010
atau dengan cara yang singkat
10:2=5(0),
5:2=2(1),
2:2=1(0),
1:2=0(1) sisa hasil bagi dibaca dari belakang menjadi 1010
Manusia adalah makhluk yang diberikan banyak kelebihan diantara makhuluk lainnya. Selain bentukkanya sempurna dan terbaik diantara makhluk lainnya, manusia dikaruniai kemampuan untuk berpikir. Kemampuan berpikir inilah menjasikan manusia menjadi makhluk paling berbudaya
Kemampuan berpikr manusia menjadikan manusia memiliki kemampuan untuk memilih jalan hidupnya. Kekuatan memilih manusia jika digunakan dengan baik, bisa mengubah nasib dengan cepat, termasuk dalam urusannya dengan kekayaan
Ada banyak cara mencari kekayaan. Anda bebas menentukan pilihan cara mencari kekayaan. Anda bisa bekerja dan meniti karir hingga puncak, Anda bisa menikahi anak orang kaya dan berharap mendapatkan warisan, Anda juga bisa menjadi investor, dan Anda tentu juga bisa memilih kaya dengan cara menjadi pengusaha. Ya… semua itu adalah pilihan hidup
Jika Anda memilih menjadi pengusaha untuk kesuksesan financial, maka hendaknya pilihan Anda itu benar-benar diyakini dan diperjuangkan. Sebab banyak yang punya pilihan hidup, tapi tidak meyakini, apalagi memperjuangkannya. Ia hanya melihat hasil-hasil yang dicapai orang lain, tanpa berusaha melihat bagaimana ia memperjuangkannya. Ia hanya menjadi pemimpi dan tidak pernah ada aksinya. Dan akhirnya keinginannya menjadi pengusaha sekedar mimpi yang tidak pernah bisa terwujud
Karena itulah situs ini hadir di hadapan Anda. Pengusah Sukses .com semoga bisa menjadi “teman” Anda dalam memperjuangkan mimpi menjadi pengusaha sukses, jika memang ini impian Anda
Semoga…
hewan-hewan yang hidup di hutan maupun di lingkungan sekitar kita, jaga, lindungi dan sayangi lah, karena kalau kita bisa menjaga dengan baik hewan pun sayang dan bisa melindungi kita.. jadi jangan pernah sakiti hewan dan jangan pernah kita rusak hutan atau tempat berlindung mereka, kalau kita merusak hutan berarti kita merusak kenyamanan hewan. dan apakah kalian mau tempat berlindung kalian dirusak?? begitu juga dengan hewan, mereka juga ingin kenyamanan dan kenikmatan dalam hidup, seperti manusia.. jagalah hutan, karena kalau kita bisa menjaga hutan berarti kita bisa menjaga hewan. hewan juga patut untuk kita sayangi...
