SALING TOLONG MENOLONG

Bryan hampir saja tidak melihat wanita tua yang berdiri dipinggir jalan itu, tetapi dalam cahaya berkabut ia dapat melihat bahwa wanita tua itu membutuhkan pertolongan. Lalu ia menghentikan mobil Pontiacnya di depan mobil Mecedes wanita tua itu, lalu ia keluar dan menghampirinya.
Walaupun dengan wajah tersenyum wanita itu tetap merasa khawatir, karena setelah menunggu beberapa jam tidak ada seorang pun yang menolongnya.

Apakah lelaki itu bermaksud menyakitinya?
Lelaki tersebut penampilanya tidak terlalu baik, ia kelihatan begitu memprihatinkan. Wanita itu dapat merasakan kalau dirinya begitu ketakutan, berdiri sendirian dalam cuaca yang begitu dingin, sepertinya lelaki tersebut tau apa yang ia pikirkan. Lelaki itu berkata ” saya kemari untuk membantu anda bu, kenapa anda tidak menunggu didalam mobil bukankah disana lebih hangat? oh ya nama saya Bryan.Bryan masuk kedalam kolong mobil wanita itu untuk memperbaiki yang rusak.
Akhirnya ia selesai, tetapi dia kelihatan begitu kotor dan lelah, wanita itu membuka kaca jendela mobilnya dan berbicara kepadanya, ia berkata bahwa ia dari St Louis dan kebetulan lewat jalan ini.
Dia merasa tidak cukup kalau hanya mengucapkan terima kasih atas bantuan yang telah diberikan.Wanita itu berkata berapa yang harus ia bayar, berapapun jumlahnya yang ia minta tidak menjadi masalah, karena ia membayangkan apa yang akan terjadi jika lelaki tersebut tidak menolongnya. Bryan hanya tersenyum.

Bryan tidak mengatakan berapa jumlah yang harus dibayar, karena baginya MENOLONG ORANG BUKANLAH SUATU PEKERJAAN YANG HARUS DIBAYAR. Ia sangat yakin apabila menolong seseorang yang membutuhkan pertolongan tanpa suatu imbalan suatu hari nanti Tuhan pasti akan membalas amal perbuatanya.

Ia berkata kepada wanita itu ” Bila ia benar-benar ingin membalas jasanya, maka apabila suatu saat nanti ia melihat seseorang yang membutuhkan pertolongan maka tolonglah orang tersebut “…dan ingatlah pada saya”.

Bryan menunggu sampai wanita itu menstater mobilnya dan menghilang dari pandangan.
Setelah berjalan beberapa mil wanita itu melihat kafe kecil, lalu ia mampir kesana untuk makan dan beristirahat sebentar. Pelayan datang dan memberikan handuk bersih untuk mengeringkan rambutnya yang basah. Wanita itu memperhatikan sang pelayan yang sedang hamil, dan masih begitu muda. Lalu ia teringat kepada Bryan

Setelah wanita itu selesai makan dan, sang pelayan sedang mengambil kembalian untuknya, wanita itu pergi keluar secara diam-diam.

Setelah kepergiannya sang pelayan kembali, pelayan itu bingung kemana wanita itu pergi, lalu ia menemukan secarik kertas diatas meja dan uang $1000. Ia begitu terharu setelah membaca apa yang ditulis oleh wanita itu:
“Kamu tidak berhutang apapun pada saya karena seseorang telah menolong saya, oleh karena itulah saya menolong kamu, maka inilah yang harus kamu lakukan:
“Jangan pernah berhenti untuk memberikan cinta dan kasih sayang”.
Malam ketika ia pulang dan pergi tidur, ia berfikir mengenai uang dan apa yang di tulis oleh wanita itu.
Bagaimana wanita itu bisa tahu kalau ia dan suaminya sangat membutuhkan uang untuk menanti kelahiran bayinya?
Ia tau bagaimana suaminya sangat risau mengenai hal ini, lalu ia memeluk suaminya yang terbaring disebelahnya dan memberikan ciuman yang lembut sambil berbisik :”semuanya akan baik-baik saja sayangku, I Love You Bryan”.

Sahabat, ternyata sang pelayan tersebut adalah istri lelaki yang bernama Bryan.

“Segala sesuatu yang berputar akan selalu berputar”, therefore, don’t ever to stop to do good things in your life. (Oleh karena itu, jangan pernah berhenti untuk melakukan hal-hal baik dalam hidup Anda )

http://e-motis.blogspot.com/2010/12/kembalikan-tanganku-pa.html

Sepasang suami isteri seperti pasangan lain di kota-kota besar meninggalkan anak-anak untuk diasuh pembantu rumah ketika mereka bekerja. Anak tunggal pasangan ini, perempuan berusia tiga setengah tahun. Sendirian di rumah, dia sering dibiarkan pembantunya yang sibuk bekerja.

Dia bermain diluar rumah. Dia bermain ayunan, berayun-ayun di atas ayunan yang dibeli papanya, ataupun memetik bunga matahari, bunga kertas dan lain-lain di halaman rumahnya.

Suatu hari dia melihat sebatang paku karat. Dia pun mencoret semen tempat mobil ayahnya diparkirkan tetapi karena lantainya terbuat dari marmer, coretan tidak kelihatan. Dicobanya pada mobil baru ayahnya. Ya... karena mobil itu bewarna gelap, coretannya tampak jelas. Apa lagi kanak-kanak ini pun membuat coretan sesuai dengan kreativitasnya. Hari itu bapak dan ibunya mengendarai motor ke tempat kerja karena ada perayaan Thaipusam sehingga jalanan macet. Setelah penuh coretan yg sebelah kanan dia beralih ke sebelah kiri mobil. Dibuatnya gambar ibu dan ayahnya, gambarnya sendiri, lukisan ayam, kucing dan lain sebagainya mengikut imaginasinya. Kejadian itu berlangsung tanpa disadari si pembantu rumah.

Pulang petang itu, terkejutlah ayah ibunya melihat mobil yang baru setahun dibeli dengan angsuran. Si bapak yang belum lagi masuk ke rumah ini pun terus menjerit, "Kerjaan siapa ini?" Pembantu rumah yang tersentak dengan jeritan itu berlari keluar. Dia juga beristighfar. Mukanya merah padam ketakutan lebih2 melihat wajah bengis tuannya.

Sekali lagi diajukan pertanyaan keras kepadanya, dia terus mengatakan 'Tak tahu... !" "Kamu dirumah sepanjang hari, apa saja yg kau lakukan?" hardik si isteri lagi.Si anak yang mendengar suara ayahnya, tiba-tiba berlari keluar dari kamarnya. Dengan penuh manja dia berkata "Ita yg membuat itu papa.... cantik kan!" katanya sambil memeluk papanya ingin bermanja seperti biasa. Si ayah yang hilang kesabaran mengambil sebatang ranting kecil dari pohon bunga raya di depannya, terus dipukulkannya berkali2 ke telapak tangan anaknya.

Si anak yang tak mengerti apa-apa terlolong-lolong kesakitan sekaligus ketakutan. Puas memukul telapak tangan, si ayah memukul pula belakang tangan anaknya. Si ibu cuma mendiamkan saja, seolah merestui dan merasa puas dengan hukuman yang dikenakan. Pembantu rumah terbengong, tdk tahu hrs berbuat apa?. Si bapak cukup rakus memukul-mukul tangan kanan dan kemudian tangan kiri anaknya.

Setelah si bapak masuk ke rumah dituruti si ibu, pembantu rumah menggendong anak kecil itu, membawanya ke kamar. Dilihatnya telapak tangan dan belakang tangan si anak kecil luka2 dan berdarah. Pembantu rumah memandikan anak kecil itu. Sambil menyiram air sambil dia ikut menangis. Anak kecil itu juga terjerit-jerit menahan kepedihan saat luka2nya itu terkena air. Si pembantu rumah kemudian menidurkan anak kecil itu. Si bapak sengaja membiarkan anak itu tidur bersama pembantu rumah.

Keesokkan harinya, kedua-dua belah tangan si anak bengkak. Pembantu rumah mengadu. "Oleskan obat saja!" jawab tuannya, bapak si anak. Pulang dari kerja, dia tidak memperhatikan anak kecil itu yang menghabiskan waktu di kamar pembantu. Si bapak konon mau mengajar anaknya. Tiga hari berlalu, si ayah tidak pernah menjenguk anaknya sementara si ibu juga begitu tetapi setiap hari bertanya kepada pembantu rumah. "Ita demam...
" jawap pembantunya ringkas."Kasih minum panadol ," jawab si ibu.

Sebelum si ibu masuk kamar tidur dia menjenguk kamar pembantunya. Saat dilihat anaknya Ita dalam pelukan pembantu rumah, dia menutup lg pintu kamar pembantunya. Masuk hari keempat, pembantu rumah memberitahukan tuannya bahwa suhu badan Ita terlalu panas. "Sore nanti kita bawa ke klinik. Pukul 5.00 siap" kata majikannya itu. Sampai saatnya si anak yang sudah lemah dibawa ke klinik. Dokter mengarahkan ia dirujuk ke hospital karena keadaannya serius. Setelah seminggu di rawat inap doktor memanggil bapak dan ibu anak itu.

"Tidak ada pilihan.." katanya yang mengusulkan agar kedua tangan anak itu dipotong karena gangren yang terjadi sudah terlalu parah.
"Ia sudah bernanah, demi menyelamatkan nyawanya kedua tangannya perlu dipotong dari siku ke bawah" kata doktor.

Si bapak dan ibu bagaikan terkena halilintar mendengar kata-kata itu. Terasa dunia berhenti berputar, tapi apa yg dapat dikatakan. Si ibu meraung merangkul si anak. Dengan berat hati dan lelehan air mata isterinya, si bapak terketar-ketar menandatangani surat persetujuan pembedahan.

Keluar dari bilik pembedahan, selepas obat bius yang suntikkan habis, si anak menangis kesakitan. Dia juga heran2 melihat kedua tangannya berbalut kasa putih. Ditatapnya muka ayah dan ibunya. Kemudian ke wajah pembantu rumah. Dia mengerutkan dahi melihat mereka semua menangis. Dalam siksaan menahan sakit, si anak bersuara dalam linangan air mata.

"Papa.. Mama... Ita tidak akan melakukannya lagi. Ita tak mau dipukul papa. Ita tak mau jahat. Ita sayang papa.. sayang mama." katanya berulang kali membuatkan si ibu gagal menahan rasa sedihnya.

"Ita juga sayang Kak Narti.." katanya memandang wajah pembantu rumah, sekaligus membuatkan gadis dari Surabaya itu meraung histeris.

"Papa.. kembalikan tangan Ita. Untuk apa ambil.. Ita janji tdk akan mengulanginya lagi! Bagaimana caranya Ita mau makan nanti? Bagaimana Ita mau bermain nanti? Ita janji tdk akan mencoret2 mobil lagi," katanya berulang-ulang.

Serasa copot jantung si ibu mendengar kata-kata anaknya. Meraung2 dia sekuat hati namun takdir yang sudah terjadi, tiada manusia dapat menahannya.

form pelanggan

FROM PELANGGAN


Sub hapus()
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1

SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub

Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If x = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
x = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub

CARA CEPAT DAN MUDAH BELAJAR VB 6.0

Sebelumnya saya akan menjelaskan pengertian visual Basic atau biasa disingkat vb, vb merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.

Saya sendiri juga masih newbie dengan vb, karena sebelumya di kampuz kami di ajarkan bahasa pemograman Delpi. Memang secara interface lebih bagus delpi namun lebih mudah menggunakan vb di bandingkan delpi, malah kami mendapat tugas berat dari dosen untuk membuat aplikasi program dari vb untuk di gunakan untuk pengganti ASEP yaitu system komputerisasi yang berisikan data-data mahasiswa dan dosen secara lengkap husus untuk jurusan Akuntansi. Jadi untuk memperdalam bahasa pemrograman vb ini saya sering sekali browsing untuk mendapatkan tutorial yang mudah di mengerti agar bisa lebih cepat ke tahap berikutnya. Dan alhamdullillah tugas tesebut sudah hamper selesai, tenang saja insyaallah akan saya publish ko sementara liat SSnya dulu yah whee… he…

Lanjut ke tutorial VB tadi yah, akhirnya saya mendapatkan tutorial yang sagat mudah dimengerti untuk para newbie,

from produk

Sub hapus()
kd_produk.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO produk(kd_produk, nama, satuan, jumlah)" & _
" values('" & kd_produk.Text & _
"','" & nama.Text & _
"','" & satuan.Text & _
"','" & jumlah.Text & "')"
Case 1

SQL = "UPDATE produk SET Nama ='" & nama.Text & "'," & _
" satuan = '" & satuan.Text & "'," & _
" jumlah = '" & jumlah.Text & "'," & _
" where kd_produk ='" & kd_produk.Text & "'"
Case 2
SQL = "DELETE FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data produk"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_produk.SetFocus
End Sub

Sub Tampilproduk()
On Error Resume Next
kd_produk.Text = RS!kd_produk
nama.Text = RS!nama
satuan.Text = RS!satuan
jumlah.Text = RS!jumlah

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_produk.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "produk")
If x = vbYes Then prosesDB 2
Call hapus
kd_produk.SetFocus
Case 3
Call hapus
kd_produk.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub kd_produk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_produk.Text = "" Then
MsgBox "Masukkan kd_produk produk !", vbInformation, "produk"
kd_produk.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilproduk
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_produk.Enabled = False
Else
x = kd_produk.Text
Call hapus
kd_produk.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub

CINTA,KEHIDUPAN,PERSAHABATAN

Saat kau MENYUKAI seseorang, kau ingin memilikinya untuk keegoisanmu sendiri.
Saat kau MENYAYANGI seseorang, kau ingin sekali membuatnya bahagia dan bukan untuk dirimu sendiri.
Saat kau MENCINTAI seseorang, kau akan melakukan apapun untuk kebahagiaannya walaupun kau harus mengorbankan jiwamu.

Saat kau MENYUKAI seseorang dan berada di sisinya maka kau akan bertanya,"Bolehkah aku menciummu?"
Saat kau MENYAYANGI seseorang dan berada di sisinya maka kau akan bertanya,"Bolehkah aku memelukmu?"
Saat kau MENCINTAI seseorang dan berada di sisinya maka kau akan menggenggam erat tangannya...

SUKA adalah saat ia menangis, kau akan berkata "Sudahlah, jangan menangis."
SAYANG adalah saat ia menangis dan kau akan menangis bersamanya.
CINTA adalah saat ia menangis dan kau akan membiarkannya menangis di pundakmu sambil berkata, "Mari kita selesaikan masalah ini bersama - sama."

SUKA adalah saat kau melihatnya kau akan berkata, "Ia sangat cantik dan menawan."
SAYANG adalah saat kau melihatnya kau akan melihatnya dari hatimu dan bukan matamu.
CINTA adalah saat kau melihatnya kau akan berkata, "Buatku dia adalah anugerah terindah yang pernah Tuhan berikan padaku.."

Pada saat orang yang kau SUKAi menyakitimu, maka kau akan marah dan tak mau lagi bicara padanya.
Pada saat orang yang kau SAYANGi menyakitimu, engkau akan menangis untuknya.
Pada saat orang yang kau CINTAi menyakitimu, kau akan berkata, "Tak apa dia hanya tak tau apa yang dia lakukan."

Pada saat kau SUKA padanya, kau akan MEMAKSANYA untuk menyukaimu.
Pada saat kau SAYANG padanya, kau akan MEMBIARKANNYA MEMILIH.
Pada saat kau CINTA padanya, kau akan selalu MENANTINYA dengan setia dan tulus...

SUKA adalah kau akan menemaninya bila itu menguntungkan.
SAYANG adalah kau akan menemaninya di saat dia membutuhkan.
CINTA adalah kau akan menemaninya di saat bagaimana keadaanmu.

SUKA adalah hal yang menuntut.
SAYANG adalah hal memberi dan menerima.
CINTA adalah hal yang memberi dengan rela.

KEHIDUPAN DAN ARTI SYUKUR

Kita hidup hanya sementara,
Jadi kita tidak usah sombong dengan apa yang sudah kita miliki sekarang, dan kita juga jangan pernah merasa kekurangan dengan apa yang kita miliki sekarang.
Contoh, kita masih bersyukur masih bisa makan sehari dua kali bahkan ada yang lebih, dan mungkin anda juga orang yang sangat beruntung bisa menikmati akses Internet baik dari Hp atau pun Warnet - warnet yang berada di kota anda, untuk slalu dapat Mencari informasi terbaru, Coba sekali - kali anda memperhatikan orang - orang yang selalu berada di jalan - jalanan misalnya anak - anak pengamen lampu merah, jual - jual koran, Tukang becak dayung, pemulung, dan orang yang tinggal di sudut - sudut Kota. Jangan kan Akses Internet untuk makan aja mereka sulit, betapa minimnya pengetahuan mereka tentang dunia luar ataupun inovasi - inovasi terbaru di jaman moderen sekarang ini,
Jadi bagi anda yang serba kecukupan, bersyukur lah dengan apa yang anda miliki sekarang, dan jangan pula anda sombong dengan harta dan jabatan yang anda peroleh sekarang,
karena dengan anda bersyukur dengan apa yang anda miliki, Niscaya Insya Allah, Allah akan memberikan kelipatan dengan apa yang pernah anda miliki sekarang.

Pernahkah anda memberikan sebagian apa yang anda miliki kepada orang yang tidak mampu?
Ingat hidup ini hanya sementara, Dan apa yang kita miliki sekarang hanyalah titipan Sang Ilahi,
tidak ada salahnya kita bersyukur dan memberikan sedikit apa yang kita miliki, kepada orang yang tidak mampu.

mungkin anda beranggapan kalau anda orang yang giat dan telaten sehingga anda bisa memiliki apa yang anda miliki sekarang, dan beranggapan kalau orang yang tidak mampu itu orang yang rendah,
Anda salah jika anda berfikiran seperti itu, semua itu kembali dengan kuasa Illahi, karena soal keberuntungan, mungkin anda termasuk orang yang beruntung, dan orang yang tidak mampu itu orang yang belum beruntung, walau pun Ia bekerja sekeras mungkin kalau rejzeki dan keberuntungan belum di pihak Dia untuk saat ini.
Jadi jangan pernah layas kepada orang yang berada di bawah anda, karena mereka lebih pintar ilmunya & lebih banyak pengalaman Alamnya dari pada anda, umur empat tahun aja mereka sudah dilatih mencari duit, dan umur lima tahun mereka sudah dapa menghasilkan uang sendiri untuk biaya hidup, sementara dengan anda yang sehariannya makan dan uang masih dari orang tua sendiri, bahkan tidak banyak dari anda yang baru menghasilkan uang sendiri.

Coba Anda bayangkan apa bila anda berada pada posisi mereka.! Berada pada perempatan jalan, menjadi seorang pemulung atau pengamen jalanan?
Mungkin anda belum sanggupkan? Jadi Anda jangan merasa pernah kekurangan dengan apa yang anda miliki sekarang, bersyukurlah atas pemberian Sang Illahi kepada anda, mungkin belum saat ini anda memperoleh apa yang anda ingin miliki sekarang, bersabarlah dan selalu berdoa agar di mudahkan jalan Anda.

NILAI KEHIDUPAN

Alkisah, ada seorang pemuda yang hidup sebatang kara. Pendidikan rendah, hidup dari bekerja sebagai buruh tani milik tuan tanah yang kaya raya. Walapun hidupnya sederhana tetapi sesungguhnya dia bisa melewati kesehariannya dengan baik.

Pada suatu ketika, si pemuda merasa jenuh dengan kehidupannya. Dia tidak mengerti, untuk apa sebenarnya hidup di dunia ini. Setiap hari bekerja di ladang orang demi sesuap nasi. Hanya sekadar melewati hari untuk menunggu kapan akan mati. Pemuda itu merasa hampa, putus asa, dan tidak memiliki arti.

"Daripada tidak tahu hidup untuk apa dan hanya menunggu mati, lebih baik aku mengakhiri saja kehidupan ini," katanya dalam hati. Disiapkannya seutas tali dan dia berniat menggantung diri di sebatang pohon.

Pohon yang dituju, saat melihat gelagat seperti itu, tiba-tiba menyela lembut. "Anak muda yang tampan dan baik hati, tolong jangan menggantung diri di dahanku yang telah berumur ini. Sayang, bila dia patah. Padahal setiap pagi ada banyak burung yang hinggap di situ, bernyanyi riang untuk menghibur siapapun yang berada di sekitar sini."

Dengan bersungut-sungut, si pemuda pergi melanjutkan memilih pohon yang lain, tidak jauh dari situ. Saat bersiap-siap, kembali terdengar suara lirih si pohon, "Hai anak muda. Kamu lihat di atas sini, ada sarang tawon yang sedang dikerjakan oleh begitu banyak lebah dengan tekun dan rajin. Jika kamu mau bunuh diri, silakan pindah ke tempat lain. Kasihanilah lebah dan manusia yang telah bekerja keras tetapi tidak dapat menikmati hasilnya."

Sekali lagi, tanpa menjawab sepatah kata pun, si pemuda berjalan mencari pohon yang lain. Kata yang didengarpun tidak jauh berbeda, "Anak muda, karena rindangnya daunku, banyak dimanfaatkan oleh manusia dan hewan untuk sekadar beristirahat atau berteduh di bawah dedaunanku. Tolong jangan mati di sini."

Setelah pohon yang ketiga kalinya, si pemuda termenung dan berpikir, "Bahkan sebatang pohonpun begitu menghargai kehidupan ini. Mereka menyayangi dirinya sendiri agar tidak patah, tidak terusik, dan tetap rindang untuk bisa melindungi alam dan bermanfaat bagi makhluk lain".

Segera timbul kesadaran baru. "Aku manusia; masih muda, kuat, dan sehat. Tidak pantas aku melenyapkan kehidupanku sendiri. Mulai sekarang, aku harus punya cita-cita dan akan bekerja dengan baik untuk bisa pula bermanfaat bagi makhluk lain".
Si pemuda pun pulang ke rumahnya dengan penuh semangat dan perasaan lega.
Teman-teman yang luar biasa,
Kalau kita mengisi kehidupan ini dengan menggerutu, mengeluh, dan pesimis, tentu kita menjalani hidup ini (dengan) terasa terbeban dan saat tidak mampu lagi menahan akan memungkinkan kita mengambil jalan pintas yaitu bunuh diri.

Sebaliknya, kalau kita mampu menyadari sebenarnya kehidupan ini begitu indah dan menggairahkan, tentu kita akan menghargai kehidupan ini. Kita akan mengisi kehidupan kita, setiap hari penuh dengan optimisme, penuh harapan dan cita-cita yang diperjuangkan, serta mampu bergaul dengan manusia-manusia lainnya.

Maka, jangan melayani perasaan negatif. Usir segera. Biasakan memelihara pikiran positif, sikap positif, dan tindakan positif. Dengan demikian kita akan menjalani kehidupan ini penuh dengan syukur, semangat, dan sukses luar biasa!

Salam sukses luar biasa!!!

KULIAH SAMBIL BEKERJA

Kuliah sambil bekerja, banyak hal positif yang dapat diperoleh, di samping tidak sedikit pula perjuangan yang harus dilakukan. Kuliah memang cukup menyita waktu, apalagi pada awal-awal musim perkuliahan, banyak hal mengenai CAMPUS yang baru kita masuki harus kita ketahui, mulai dari keadaan kampus sampai peraturan-peraturan yang berhubungan langsung dengan kegiatan perkuliahan. Hal ini tentunya diperlukan untuk mendukung kelancaran kegiatan perkuliahan itu sendiri, semakin kita mengenal sesuatu hal, maka kita akan semakin menikmati hal tersebut, agaknya istilah “tak kenal maka tak sayang"� memang sesuai

Pada tingkat pertama perkuliahan, biasanya bobot SKS (Sistem Kredit Semester) disamaratakan bagi tiap mahasiswa baru, mungkin pihak campus mempertimbangkan memberlakukan ini karena asumsi pada awal-awal perkuliahan, kegiatan mahasiswa hanya kuliah, mereka belum bekerja. Sesudah mahasiswa memasuki tingkat yang agak tinggi, mungkin tingkat dua atau tiga ataupun empat, umumnya pemberian jatah SKS disesuaikan dengan hak dan keinginan mahasiswa sendiri. Hak disini berdasarkan Indeks Prestasi Semester mahasiswa (IPS) pada semester sebelumnya, semakin tinggi IPS, maka hak SKS yang dapat semakin tinggi. Sedangkan mengenai keinginan, hal ini tentu saja disesuaikan dengan kegiatan mahasiswa sendiri, dan biasanya pada tingkat perkuliahan ini mahasiswa telah mulai bekerja.

Umumnya mahasiswa yang bekerja pada saat kuliah merupakan mahasiswa yang mengambil disiplin ilmu yang lebih popular, misalnya ilmu Desain, ilmu Tehnik Informasi, ilmu Sastra dan lain-lain. Mereka biasanya bekerja sebagai creative designer, programmer, guru pada tempat kursus ataupun staf administrasi paruh waktu, ataupun bisa saja sebagai pekerja waktu penuh, selama jadwal kuliah mereka bisa disesuaikan dengan waktu kerja. Ada pula mahasiswa yang memilih pekerjaan yang tidak berhubungan sama sekali dengan ilmu yang sedang mereka pelajari di universitas, biasanya berupa pekerjaan paruh waktu, misalnya sebagai penulis.

Banyak hal positif yang bisa diperoleh dengan bekerja. Di samping kita bisa mempunyai penghasilan sendiri, pengalaman yang kita dapatkan saat bekerja sangat bermanfaat untuk mendukung perkuliahan itu sendiri. Setidaknya kita dapat merasakan langsung semua hal yang berhubungan dengan dunia kerja yang sesungguhnya, yang selama ini hanya kita tahu dari buku dan sharing dari dosen. Dengan pengetahuan dan pengalaman langsung, akan kita akan lebih mudah memahami isi perkuliahan tersebut. Karena pada dasarnya, isi perkuliahan memang menjelaskan istilah-istilah dan hal-hal yang terjadi dan berhubungan erat dengan dunia kerja. Keuntungan lain dari bekerja pada saat kuliah, mahasiswa dapat menggunakan perusahaan tempat mereka bekerja sebagai obyek studi kasus bagi tugas-tugas, diskusi ataupun makalah kuliahnya. Hal ini akan memberi banyak kemudahan bagi mahasiswa, karena mereka sudah mengenai dengan baik perusahaan tersebut dan pengurusan surat izin melakukan penelitian akan jauh lebih mudah juga. Mahasiswa juga dapat menggunakan fasilitas yang diberikan perusahaan, misalnya komputer atau bahkan layanan internet, untuk kepentingan perkuliahan dan tentu saja ini dilakukan di luar jam kerja.

Di samping hal-hal bermanfaat yang dapat kita peroleh dengan bekerja pada saat kuliah, tentu saja ada perjuangan-perjuangan yang harus kita lakukan, mulai dari merelakan berkurangnya waktu bermain dan berkumpul dengan teman untuk diganti dengan bekerja, sampai menbagi pikiran dan tenaga untuk kepentingan tugas di kantor. Di samping itu juga, kita harus mampu beradaptasi dengan orang-orang dalam lingkungan kerja, yang umumnya lebih dewasa dalam berpikir dan sangat menuntut tanggung jawab penuh kita dalam menyelesaikan tugas. Belum lagi, jika saat ujian kuliah tiba, kita harus menjadi lebih rajin dan ekstra sehat agar bisa mempersiapkan diri.

Dari segi besarnya gaji yang diberikan, biasanya perusahaan sudah mempunyai standar khusus bagi pekerjanya yang masih kuliah. Dan memang gaji yang diberikan lebih rendah daripada pekerja yang telah menyandang gelar sarjana. Ini wajar adanya, karena asumsinya, pekerja yang telah mempunyai gelar pasti mempunyai ilmu yang lebih tinggi daripada mereka yang masih kuliah. Perusahaan biasanya juga mau memberikan keringanan bagi pekerja yang masih kuliah, keringanan ini dalam hal waktu kerja, misalnya pada saat pekerja harus mengikuti ujian perkuliahan atau perkuliahan itu sendiri, maka perusahaan masih mengizinkan untuk pulang lebih awal, tapi biasanya dengan kompensasi si pekerja harus datang lebih awal.

Beberapa universitas sudah mulai juga menjadikan dirinya sebagai “jembatan"� antara mahasiswanya dengan dunia kerja, ini merupakan kabar gembira bagi kita para mahasiswa. Mereka bekerjasama dengan perusahaan-perusahaan mitra kerjanya mengadakan job fair (pameran kerja) bagi mahasiswanya. Job fair ini bertujuan untuk menjaring mahasiswa menjadi calon pekerjanya. Biasanya perusahaan yang menyelenggarakan job fair ini, memang mencari pekerja paruh waktu atau waktu penuh yang belum berpengalaman, dan mereka mensyaratkan calon-calonnya sebagai mahasiswa pada tingkat akhir perkuliahan atau tingkat menengah (tingkat dua atau tiga). Melalui media job fair inilah, mahasiswa perpeluang lebih besar mendapatkan pekerjaan, dibandingkan jika mereka mencari pekerjaan dari iklan-iklan lowongan di media cetak atau media elektronik.

Dan yang lebih menyenangkan, biasanya perusahaan penyelenggara job fair ini datang langsung dalam perekrutannya ke universitas di mana mereka menyelenggaran job fair tersebut. Jadi pada tahap awal proses perekrutan ( biasanya tahap tes dan wawancara pertama ), mahasiswa tidak perlu mendatangi langsung perusahaan tersebut, ini pasti sangat memudahkan mahasiswa. Dalam sebuah job fair, karena umumnya cukup banyak perusahaan yang berpartisipasi, maka cukup beragam pula posisi yang ditawarkan bagi calon pekerjanya. Dokumen-dokumen yang mereka minta umumnya standar, seperti surat Lamaran, Curriculum Vitae (CV) dan sertifikat-sertifikat jika ada.

Persiapan-persiapan yang diperlukan jika mahasiswa berencana untuk bekerja adalah, yang pertama, mahasiswa harus mengatur jadwal kuliahnnya mengikuti standar waktu kerja perusahaan pada umumnya, ini jika mahasiswa ingin bekerja waktu penuh. Aturlah pengambilan mata kuliah yang waktu kuliahnya tidak berbentrokan dengan jam kerja kantor, biasanya ini diantisipasi dengan perpindahan waktu kuliah yang awalnya pada pagi hari ke malam hari, khususnya pada hari kerja (senin sampai jumat) dan tetap di pagi hari pada hari sabtu. Perpindahan waktu kuliah memang hanya bisa dilakukan hanya pada saat pergantian semester dan dengan catatan juga, universitas membuka kelas pada malam hari. Sebagai contoh, jika kita sedang berada pada semester empat, dan kita berencana akan bekerja, maka untuk pekerjaan waktu penuh, setidaknya baru bisa dilakukan pada semester selanjutnya, yaitu semester lima. Jadi pada saat pengisian jadwal, untuk semeter lima, kita lakukan pengaturan dan perpindahan waktu kuliah tersebut. Untuk pekerjaan paruh waktu, maka mahasiswa tidak perlu mengubah jadwal kuliahnya, perusahaan yang akan menyesuaikan.

Setelah jadwal kuliah disesuaikan, langkah kedua, mulailah mencari pekerjaan. Media yang bisa kita pakai untuk mencari pekerjaan, misalnya media job fair seperti dijelaskan di atas, melalui media cetak, media elektronik atau kita juga bisa berpartisipasi dalam internal mailing list. Intenal mailing list biasanya dibuat untuk menyatukan sekolompok orang pada lingkup satu institusi yang mempunyai kesamaan-kesamaan, mulai dari mahasiswa yang sama jurusannya sampai mahasiswa yang sama hobinya. Melalui mailing list, informasi disebarluaskan ke masing-masing anggotanya, mulai dari informasi mengenai mata kuliah, hobi sampai lowongan pekerjaan. Sebaiknya carilah pekerjaan yang sesuai dengan keinginan dan ilmu yang dimiliki. Dalam membuat surat lamaran, katakanlah apa adanya mengenai status kita yang masih kuliah dan pada saat wawancara, ungkapkanlah mengenai waktu perkuliahan. Ini akan mempengaruhi kebijakan perusahaan dalam hal peringanan jam kerja.

Memang sedikit agak melelahkan kuliah sambil bekerja, tapi apa yang akan kita dapatkan jauh melebihi perjuangan yang kita lakukan. Pada awalnya memang terasa agak berat, tapi setelah beberapa waktu kita akan terbiasa. Tapi ingat selalu, kuliah harus tetap menjadi prioritas utama, jadi selamat berjuang untuk mencari dunia lain. And keep enjoy your self.
by IsMie_CiHuii

Koneksi ke database menggunakan ADODB

pertama kita buat dulu data base nya dengan mengunakan MS ACCES 2007/2003, Tapi untuk yang pake ms acces 2007 nanti file save nya di buat ke ms acses 2003 ja ya,hehehe........
buka ms accses 2007,pada menu table klik kanan trus pilih design view trus ketikan seperti pada gambar berikut :

Name Field Type Width
Npm Text 6
Nama Text 50
Tgllahir Date/Time
Alamat Text 100

tutup ms acces 2007 nya tapi inget saveanya harus 2003 dan inget file savenya di taruh dimana, kalo udah buka vb.6 nya buat tampilan nya seperti gambar berikut :

Adapun Keterangan Object pada form sbb:
1. 4 buah label dengan nama sembarang dan diberi caption seperti pada gambar (MANIPULASI RECORD, NIM, NAMA,
TGLLAHIR dan ALAMAT)
2. 3 Buah Textbox dengan nama TxtNim, TxtNama dan TxtAlamat)
3. 1 Dtpicker dengan nama Dttgllhr, format tanggal mengikuti format sistem operasi windows
4. 4 Buah Command Button dengan nama : cadd - caption Add, cedsave - caption Edit, cdelete - caption Delete
dan cexit - caption Exit
5. Sebagai catatan bahwa tombol cedsave adalah tombol dengan dua fungsi yakni sebagai Edit dan Save
6. Set TabIndex tombol cadd= 0, TxtNim = 1, TxtNama=2, Dttgllhr= 3 dan TxtAlamat=4 melalui jendela properties
masing-masing object
7. Selanjutnya Double klik form2 pada bagian kosong dan ketik listing seperti dibawah ini:

Atur tab index tombol Add=0, TxtNim=1, TxtNama=2 dst
Deklarasikan variabel yang digunakan pada area form2 seperti dibawah ini:

'Generals Declaration
Public Cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Rbaru As Boolean

'Pada form load ketikkan perintah untuk mengeset sekaligus membuka variabel CN (Connection)
Private Sub Form_Load()
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbvb.mdb;Persist Security Info=False"
' Connecting STring dapat dicopy dari Connecting string control data ADODC nya
End Sub

'Double klik tombol Cadd dan ketikkan perintah seperti dibawah ini:
Private Sub cadd_Click()
txtnim.Text = ""
txtnama.Text = ""
dttgllhr.Value = Date
txtalamat.Text = ""
txtnim.SetFocus
End Sub

'Ketikkan perintah pengecekan record data pada event Txtnim LostFocus seperti dibawah ini:
Private Sub txtnim_LostFocus()
If Len(Trim(txtnim)) <= 0 Then
'Tidak melakukan aksi..
Else
' Buka recordset
Set rs = New ADODB.Recordset
rs.Open "Select * from Siswa", Cn, adOpenKeyset, adLockOptimistic, adCmdText
Rbaru = True
Periksa record data
If rs.BOF And rs.EOF Then
'Tabel yg di select tidak ada isinya
Else
cedsave.Caption = "&Save"
'Pindahkan pointer ke awal data
rs.MoveFirst
'Awal perintah perulangan untuk menelusuri record data
Do Until rs.EOF
'Jika NIM yang dicari = NIM Record data
If rs!NIM = Trim(txtnim) Then
Rbaru = False
cedsave.Caption = "&Edit"
' Berikan pilihan apakah akan ditampilkan record data pada pointer aktif
Tanya = MsgBox("Maaf NIM ini sudah pernah ada, Mau ditampilkan..? ", vbQuestion + vbYesNo, "NIM GANDA")
If Tanya = vbYes Then
' Jika User menekan tombol OK
txtnama = rs!nama
dttgllhr.Value = rs!tgllhr
txtalamat = rs!alamat
cdelete.Enabled = True
Exit Do
Else
'Jika User menekan tombol No
'Hapus isi TxtNIM
txtnim.Text = ""
cadd.SetFocus
End If
End If
rs.MoveNext
Loop
End If
End If
End Sub

'Perintah untuk menghapus record data pada tombol Cdelete
Private Sub cdelete_Click()
Tanya = MsgBox("Anda yakin menghapus Record yang tampil.?", vbQuestion + vbYesNo, "DELETE RECORD")
If Tanya = vbYes Then
rs.Delete
txtnim.Text = ""
txtnama.Text = ""
dttgllhr.Value = Date
txtalamat.Text = ""
MsgBox "Data sudah terhapus"
cadd.SetFocus
End If
End Sub

'Perintah untuk menyimpan data, perhatikan bahwa tombol cedsave merupakan tombol dual Function
'Dua fungsi sebagai pemicu Edit dan tombol Save
Private Sub cedsave_Click()
If cedsave.Caption = "&Save" Then
cedsave.Caption = "&Edit"
If Rbaru Then
rs.AddNew
End If
rs!NIM = Trim(txtnim.Text)
rs!nama = txtnama.Text
rs!tgllhr = dttgllhr.Value
rs!alamat = txtalamat.Text
rs.Update
MsgBox "Data sudah tersimpan"
Else
cedsave.Caption = "&Save"
Rbaru = False
End If
End Sub

Private Sub cexit_Click()
Unload Me
End Sub

Pengenalan Visual Basic

Visual Basic
adalah salah suatu development tools untuk membangun aplikasi dalam
lingkungan Windows. Dalam pengembangan aplikasi, Visual Basic menggunakan
pendekatan Visual untuk merancang user interface dalam bentuk form, sedangkan untuk
kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual
Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer dalam
pengembangan aplikasi skala kecil sampai ke skala besar.
Dalam lingkungan Window's User-interface sangat memegang peranan penting, karena
dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan Userinterface
tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program
yang mendukung tampilan dan proses yang dilakukan.
Pada pemrograman Visual, pengembangan aplikasi dimulai dengan pembentukkan user
interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user
interface, dan baru dilakukan penulisan kode program untuk menangani kejadiankejadian
(event). Tahap pengembangan aplikasi demikian dikenal dengan istilah
pengembangan aplikasi dengan pendekatan Bottom Up.

IDE Visual Basic
Langkah awal dari belajar Visual Basic adalah mengenal IDE (Integrated Developement
Environment) Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi
programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE
programmer dapat membuat user interface, melakukan koding, melakukan testing dan
debuging serta menkompilasi program menjadi executable. Penguasaan yang baik akan
IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga
dapat bekerja dengan efisien.

Menjalankan IDE
Salah satu cara untuk mengaktifkan IDE Visual Basic adalah menjalankannya dari Menu
Start, pilih menu Command, dan pilih Microsoft Visual Basic 6.0 dan akhirnya
Microsoft Visual Basic 6.0.

Gambar 1-1. Mengaktifkan IDE Visual Basic 6.0

Catatan : Seperti aplikasi Windows umumnya, anda dapat juga mengaktifkan IDE
Visual Basic dengan melakukan open terhadap file yang berkaitan dengan Visual
Basic, misalnya file *.vbp yang merupakan file project dari Visual Basic
.
Memilih jenis Project
Sesaat anda aktif di IDE Visual Basic, maka anda akan dihadapkan kepada suatu pilihan
terhadap jenis Project yang ingin anda buat sebagaimana yang ditunjukan oleh Gambar
1-2.

Sebagai langkah awal dari proses belajar adalah memilih project Standard EXE.

Gambar 1-2. Dialog box New Project ditampilkan sesaat anda menjalankan IDE Visual
Basic 6.

Jendela IDE
IDE Visual Basic 6 menggunakan model MDI (Multiple Document Interface). Berikut ini
adalah gambar yang menunjukan bagian-bagian dan nama-nama jendela yang dapat
tampil pada IDE Visual Basic. Mungkin pada IDE anda hanya ditampilkan sebagian

jendela dibandingkan dengan Gambar 1-3 anda tidak perlu terkejut, karena penampilan
dari jendela-jendela tersebut dapat diatur dengan perintah pada menu View.
Sebagai langkah awal dari proses belajar, tidak semua jendela akan kita gunakan, tetapi
hanya beberapa yang penting, sedangkan yang lainnya bersifat khusus.
Gambar 1-

Gambar 1-3. IDE Visual Basic dengan jendela-jendela yang terbuka.

Sebagaimana dengan proses belajar ini, kita akan fokus pada beberapa jendela yang
penting terlebih dahulu sehingga konsentrasi tidak menjadi pecah, dan peserta belajar
menjadi bingung. Adapun jendela-jendela yang perlu anda perhatikan adalah sebagai
berikut :
• Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan
project, membuka project, dll
• Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.
• Jendela Project, jendela ini berisi gambaran dari semua modul yang terdapat
dalam aplikasi anda. Anda dapat menggunakan icon Toggle Folders untuk
menampilkan modul-modul dalam jendela tersebut secara di group atau berurut
berdasarkan nama. Anda dapat menggunakan Ctrl+R untuk menampilkan jendela
project, ataupun menggunakan icon Project Explorer.
• Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang
user interface dari aplikasi anda. Jadi jendela ini menyerupai kanvas bagi seorang
pelukis.
• Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda
gunakan untuk mengembangkan user interface.
• Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat
menampilkan jendela ini dengan menggunakan kombinasi Shift-F7.
• Jendela Properties, merupakan daftar properti-properti object yang sedang
terpilih. Sebagai contohnya anda dapat mengubah warna tulisan (foreground) dan
warna latarbelakang (background). Anda dapat menggunakan F4 untuk
menampilkan jendela properti.
• Jendela Color Palette, adalah fasilitas cepat untuk mengubah warna suatu object.
• Jendela Form Layout, akan menunjukan bagaimana form bersangkutan
ditampilkan ketika runtime.
Jika jendela-jendela tersebut tidak ada, anda dapat memunculkannya dengan Menu View
dan pilih :
• Project Explorer (Ctrl+R)
• Properties Windows (F4)
• Form Layout Windows
• Property Pages (Shift+F4)
• Toolbox
• Color Pallete
• Toolbars

Toolbox pada vb

Jendela Toolbox merupakan jendela yang sangat penting bagi anda. Dari jendela ini anda
dapat mengambil komponen-komponen (object) yang akan ditanamkan pada form untuk
membentuk user interface.

Gambar 1-3. Toolbox Visual Basic 6 dengan semua kontrol intrinsic.

Adapun secara garis besar fungsi dari masing-masing intrinsic kontrol tersebut adalah
sebagai berikut :
• Pointer bukan merupakan suatu kontrol; gunakan icon ini ketika anda ingin
memilih kontrol yang sudah berada pada form.
• PictureBox adalah kontrol yang digunakan untuk menampilkan image dengan
format: BMP, DIB (bitmap), ICO (icon), CUR (cursor), WMF (metafile), EMF
(enhanced metafile), GIF, dan JPEG.
• Label adalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat
diperbaiki oleh pemakai.
• TextBox adalah kontrol yang mengandung string yang dapat diperbaiki oleh
pemakai, dapat berupa satu baris tunggal, atau banyak baris.
• Frame adalah kontrol yang digunakan sebagai kontainer bagi kontrol lainnya.
• CommandButton merupakan kontrol hampir ditemukan pada setiap form, dan
digunakan untuk membangkitkan event proses tertentu ketika pemakai melakukan
klik padanya.
• CheckBox digunakan untuk pilihan yang isinya bernilai yes/no, true/false.
• OptionButton sering digunakan lebih dari satu sebagai pilihan terhadap beberapa
option yang hanya dapat dipilih satu.
• ListBox mengandung sejumlah item, dan user dapat memilih lebih dari satu
(bergantung pada property MultiSelect).
• ComboBox merupakan konbinasi dari TextBox dan suatu ListBox dimana
pemasukkan data dapat dilakukan dengan pengetikkan maupun pemilihan.
• HScrollBar dan VScrollBar digunakan untuk membentuk scrollbar berdiri sendiri.
• Timer digunakan untuk proses background yang diaktifkan berdasarkan interval
waktu tertentu. Merupakan kontrol non-visual.
• DriveListBox, DirListBox, dan FileListBox sering digunakan untuk membentuk
dialog box yang berkaitan dengan file.
• Shape dan Line digunakan untuk menampilkan bentuk seperti garis, persegi,
bulatan, oval.
• Image berfungsi menyerupai image box, tetapi tidak dapat digunakan sebagai
kontainer bagi kontrol lainnya. Sesuatu yang perlu diketahui bahwa kontrol image
menggunakan resource yang lebih kecil dibandingkan dengan PictureBox
• Data digunakan untuk data binding
• OLE dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft
Excel, Word, dll.

Tipe Data, Variabel

1. Tipe Data

Setiap data memiliki tipe data, apakah merupakan angka bulat ( integer ), angka biasa ( real ), atau berupa karakter ( char ), dan sebagainya.

Ada 2 kategori dari tipe data yaitu:

1. Tipe dasar

1. Bilangan bulat ( integer )

- Bilangan atau angka yang tidak memiliki titik desimal atau pecahan, seperti 10, +225, -10,+25.

- Tipe dituliskan sebagai integer atau int

- Jangkauan nilai bergantung pada implementasi perangkat keras komputer, misalnya dari -11 s/d +12; untuk algoritma tidak kita batasi.

- Operasi aritmetik: tamabah+, kurang-, kali*, bagi/, sisa hasil bagi%

- Operasi pembanding:lebih kecil=, sama=, tidak sama>< . 2. Bilangan biasa ( real ) - Bilangan atau angka yang bisa memiliki titik desimal atau pecahan, dan ditulis sebagai : 235.45, +13.99, -87.76 atau dalam notasi ilmiah seperti : 1.245E+03, 7.45E-02, dsb. - Tipe dituliskan sebagai : real - Jangkauan nilai : bergantung pada implementasi perangkat keras komputer, misalnya dari -2.9E-39 s/d +1.7E+38, untuk algoritma tidak dibatasi. - Operasi aritmatik dan pembandingan juga berlaku bagi bilangan biasa. 3. Bilangan tetap ( const ). - Bilangan tetap ( const ) adalah tipe bilangan, tidak bernilai bulat maupun tidak, yang nilainya tidak berubah selama algoritma dilaksanakana. - Tipe dituliskan sebagai const . - Jangkauan nilai meliputi semua bilangan yang mungkin. 4. Karakter ( character ) - Karakter adalah data tunggal yang mewakili semua huruf, simbol baca, dan juga simbol angka yang tidak dapat dioprasikan secara matematis, misalnya: ’A’, ’B’, .....,’Z’, ’?’,’!’, dst. - Tipe dituliskan sebagai char - Jangkauan nilai meliputi semua karakter dalam kode ASCII, atau yang tertera pada setiap tombol keyboard. - Operasi pembanding dapat dilakukan dan dievaluasi menurut urutan kode ASCII, sehingga huruf ’A’ (Hex 41) sebenarnya lebih kecil dari huruf ’a’ (Hex 61). 5. Logik ( logikal ) - Tipe data logik adalah tipe data yang dipergunakan untuk memberi nilai pada hasil pembandingan, atau kombinasi pembandingan. - Tipe dituliskan sebagai boolean - Jangkauan nilai ada dua : true dan false 2. Tipe bentukan 1. Array ( larik ) - Array adalah tipe data bentukan, yang merupakan wadah untuk menampung beberapa nilai data yang sejenis. Kumpulan bilangan bulat adalah array integer, kumpulan bilangan tidak bulat adalah array real. - Cara menefinisikan ada 2 macam, yaitu: * Nilai_ujian : array [ 1..10] of integer, atau * Int nilai­_ujian[10]; - Kedua definisi diatas menunjukkan bahwa nilai_ujian adalah kumpulan dari 10 nilai bertipe bilangan bulat. 2. String - String adalah tipe data bentukan yang merupakan deretan karakter yang membentuk satu kata atau satu kalimat, yang biasanya diapit oleh dua tanda kutip. - Sebagai contoh: nama, alamat, dan judul adalah tipe string. - Cara mendefinisikannya adalah: * string nama, alamat; atau * nama,alamat : string; 3. Record ( rekaman ) - Record adalah tipe data bentukan yang merupakan wadah untuk menampung elemen data yang tipenya tidak perlu sama dengan tujuan mewakili satu jenis objek. - Sebagai contoh, mahasiswa sebagai satu jenis objek memiliki beberapa elemen data seperti : nomer_stb, nama, umur, dll. - Cara mendefinisikan record mahasiswa tersebut adalah sebagai berikut: Type dataMhs : record < nomer_stb : integer, Nama_mhs : string, Umur : integer, >

2. Variabel

Variabel adalah nama yang mewakili suatu elemen data seperti : jenkel untuk jenis kelami, t4lahir untuk tempat lahir, dan sebagainya. Ada aturan tertentu yang wajib diikuti dalam pemberian nama variable, antara lain:

* Harus dimulai dengan abjad, tidak boleh dengan angka atau symbol.
* Tidak boleh ada spasi diantaranya
* Jangan menggunakan simbol yang bisa membingungkan seperti titik dua, titik koma, koma, dan sebagainya.
* Sebaiknya memiliki arti yang sesuai denagn elemen data.
* Sebaiknya tidak terlalu panjang.

Contoh variabel yang benar : Nama, Alamat, Nilai_ujian

Contoh variabel yang salah : 4XYZ, IP rata, Var;=xy,45;
Bookmark and Share
Related Posts

1. Tipe Data dan Operator
2. Tipe Data
3. Dasar-dasar Mempelajari Struktur Data
4. Program Pertukaran Uang Rupiah dan Dolar
5. STATEMENT-STATEMENT PADA PEMOGRAMAN PASCAL
6. Pengertian Struktur Data
7. Pandapotan Struktur Data
8. Dani Array
9. Hendra Array & Record
10. Intan Struktur Data

SEKILAS TENTANG AKU

Aku dilahirkan kurang lebih 9 AGUSTUS DI INDRAPURA, sebuah kota kecil yang sejuk DIsanA bnyak pantai yang indah dan PT.INALUM yg dikelilingi pantai. Aku menghabiskan masa kecilku sampai besar di kota kelahiranku. Sempat mengganggur selama 4 tahun setelah lulus dari SMK AMIRHANZAH INDRAPURA. Bosan mengganggur kemudian aku melanjutkan kuliah D3 di budidarma, Jurusan MI. Selama kuliah bnyk tantangan yang kulalui dan sampai sekarang inipun masi sama bnyk masalah.

dan sekarang aq mau mencoba banyak bersabar dan mengucap kan sukur pada sang maha kuasa
Krn walaupun bnyk cobaan aq masi tetap bisa melaluinya dan aq sangat bersyukur aq di beri orang tua yang selalu mendukung aq disetiap langkah ku.
Memang sekarang aq belum jadi apa-apa tapi aq akan selalu berusaha bagaimana caranya agar aq bisa hidup lebih baik lagi dan mau berusaha untuk lebih maju……buat semua teman-teman ku bantu aku dalam doa ya biar aq sanggup jalani semua ini.amin……

Tutorial VB 6.0

Suatu ketika seorang teman datang kepada saya. “Saya pengin sekali bisa bikin program. Sekarang saya lagi coba belajar Visual Basic. Tapi rasanya kok susah banget, ya?!! Ngga seperti program lainnya. Perintahnya banyak sekali. Ngga muat otak saya”, katanya. My God !!! Coba saja kalau dari awal ia mengenal komputer yang dipelajari adalah Visual Basic, tentunya sekarang yang ia katakan susah adalah Microsoft Word, Excell atau yang lainnya. Dalam Word, asal bisa baca tulisan pada keyboard, saya yakin semua orang pasti bisa bikin surat. Cukup ditambah mengerti perintah mencetak, jadilah surat yang ia inginkan. Entah bagaimanapun prosesnya.

Demikian juga halnya dengan Visual Basic. Untuk bisa membuat sebuah program aplikasi itu tidak mesti harus menguasai semua teori tentang Visual Basic. Asal logika jalan, semisal hanya bisa struktur If…Then sajapun itu sudah bisa digunakan untuk membuat sebuah program yang jadi.

Karena pada prinsipnya, semua software adalah sama mudahnya (atau bisa jadi malahan  sama– sama sulitnya ).

Tutorial ini mencoba membahas tentang langkah–langkah membuat sebuah program aplikasi berbasis Visual Basic (program aplikasi untuk penerimaan dan pengeluaran barang logistik di gudang) dari awal sampai akhir. Dari merancang database sampai mengemasnya (packaging) menjadi program yang siap saji (emangnya makanan).

Download Tulisan Lengkap:

1. imambk-tutorialvb.zip
2. imambk-tutorialvb-source.zip

Related Articles

1. Mengetahui Informasi Sebuah File dengan Visual Basic 6.0
2. Membuat Shortcut Pembuatan Table di Microsoft Word dengan Visual Basic Editor
3. Membuat Kamus Digital
4. Membuat Program untuk Penyimpanan Otomatis menggunakan VB Editor
5. Pemograman melalui Visual Basic dan Turbo Pascal
6. Program Membuat PageNumber Otomatis dengan Visual Basic Editor
7. Program Shortcut Key membuat Daftar Isi di Microsoft Word dengan Visual Basic Editor
8. Tips Menyimpan File dengan Nama Kita sebagai Nama Depan
9. Cara Membuat Tampilan Menu yang Disertai Animasi Flash dalam Visual Basic Basic 6.0
10. Mengubah File Dokumen Menjadi Format PDF
11. Program Kolom Koran Otomatis di Microsoft Word dengan Visual Basic Editor
12. Mengubah File PDF Menjadi File Dokumen Microsoft Word
13. Cara Mudah Menciptakan Menu dan Toolbar pada Visual Basic.
14. Tips Pemrograman Visual Basic
15. Step by Step Menjadi Programmer Handal dengan VB.NET (1)
16. Kalkulator sederhana dengan VB6
17. Cetak Data Report Landscape Pada VB 6.0
18. Membuat Kata Ulang di Microsoft Word dengan Visual Basic Editor
19. Cara membuat Aplikasi Kalender dihandphone Menggunakan Software NetBeans IDE 5.5
20. Membuat Shortcut Key untuk Autocorrect di Microsoft Word dengan Visual Basic Editor

KONEKSI DATABASE

Koneksi database adalah sebuah modul (obyek) yang bekerja untuk menghubungkan aplikasi dengan sebuah DBMS (Database Manajement System). Dengan menggunakan koneksi database ini, maka aplikasi dapat melakukan manipulasi data terhadap database tertentu.
Pada umumnya database merupakan suatu sistem yang berdiri sendiri di luar lingkungan aplikasi tertentu. Demikian pula Oracle merupakan suatu database yang lengkap dan mempunyai lingkungan aplikasi sendiri. Bila ingin memanfaatkan database Oracle dalam lingkungan aplikasi Visual Basic diperlukan suatu koneksi database yang dapat menghubungkan aplikasi Visual Basic dengan database Oracle.
Obyek koneksi database yang dapat digunakan untuk menghubungkan Oracle dengan aplikasi Visual Basic antara lain:
(1) ADODC (ActiveX Data Object Data Control)
(2) ORADC (Oracle Data Control)
2.1. Koneksi Dengan ADODC
Untuk menggunakan koneksi ADODC ini terlebih dahulu menyiapkan atau mengaktifkan komponen obyek ini dengan memilih menu Project >> Components pada menu Visual Basic, atau dengan menekan Ctrl-T, lalu pilihlah komponen Microsoft ADO Data Control 6.0 (OLEDB) untuk koneksi database dengan ADO, Microsoft Data Grid untuk tabel grid dengan koneksi ADO, dan Microsoft Data List untuk obyek list dengan koneksi ADO seperti gambar 2 berikut ini.
Setelah dipilih maka di bagian toolbox component akan muncul komponen dari obyek ADODC. Selanjutnya untuk menggunakan obyek ini seperti obyek yang lain tinggal menarik icon obyek ini ke dalam form yang dibuat kemudian dilengkapi isi property sesuai dengan kebutuhan.

Cara menggunakan obyek ADODC untuk menghubungkan aplikasi dengan database Oracle adalah sebagai berikut:
• Tarik obyek ADODC ke dalam form. Click kanan hingga muncul tampilan seperti gambar 3 berikut ini.
Gambar