Jika kita mencintai seseorang
Berusahalan untuk tampil apa adanya
karena Cinta sejati selalu dapat
Menerima Kelebihan dan Kekurangan
arti : 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.
Setetes kebencian di dalam hati
Pasti akan membuahkan penderitaan
Tapi setetes cinta di dalam relung hati
akan membuahkan kebahagiaan sejati
arti : Tak ada yg sempurna, berhentilah mencarinya. Jika seseorang mengerti dan mencintai kamu apa adanya, kamu dan dia pantas bersama.
Cinta yang belum matang berkata:
"Aku cinta kamu karena aku butuh kamu"
Cinta yang sudah matang berkata:
"Aku butuh kamu karena aku cinta kamu"
arti :
Kalahkan Kemarahan dengan Cinta Kasih
Kalahkan Kejahatan dengan Kebajikan
Kalahkan kekikiran dengan Kemurahan Hati
Kalahkan Kesombongan dengan Kejujuran
Cinta Tak Harus Saling Memiliki
Kadang Kala Mereka Harus Melepaskan Cinta Tersebut
Karena Cinta yang Sejati Selalu Ingin Membahagiakan
Orang Yang dicintai
arti : Di antara mereka yang saya sukai atau kagumi,
saya tidak dapat menemukan suatu kesamaan
Tetapi di antara mereka yang saya kasihi,
saya dapat menemukannya: mereka semua membuat saya tertawa
Cinta...
Jika anda memilikinya, anda tidak memerlukan sesuatu pun yang lain
Dan jika anda tidak memilikinya,apa pun yang lain yang anda miliki tidak banyak berarti
arti : Cinta tidak dapat dipaksakan
Cinta tidak dapat dibujuk dan digoda
Cinta muncul dari Surga tanpa topeng dan tanpa dicari
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = NPM.Text
lst.SubItems.Add(Nama.Text)
LV.Items.Add(lst)
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
NPM.Focus()
End Sub
Private Sub BTNHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapussemua.Click
LV.Items.Clear()
End Sub
Private Sub BTNHapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapuspilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Dim x As String
x = MsgBox("Anda yakin akan keluar..?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")
Diposting oleh
sofy cantik
Senin, 05 Desember 2011
0
komentar
Visual Basicadalah sebuah bahasa pemrograman yang ber-orientasi objek (Object Oriented Programming), yang digunakan untuk membuat aplikasi Windows yang berbasis GUI ( Graphical User Interface ) menjadikan Visual Basic semakin populer dan digunakan sebagai bahasa pemrograman “wajib” yang harus dikuasai setiap programmer. Namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.
Visual basic merupakan pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code), Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an (Deitel&Deitel, 1999).[ Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer, Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform computer.
Versi awal Visual Basic pertama kali diciptakan oleh Alan Cooper dan kemudian dijual ke Microsoft. Kemudian Microsoft mengambil-alih pengembangan produk yang belum sepenuhnya jaditersebut, dan memberikannya nama sandi (code-named) "Thunder"
