quiz online penggajian karyawan

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
jabatan.Items.Add(“staff”)
jabatan.Items.Add(“mandor”)
jabatan.Items.Add(“kabag”)
status.Items.Add(“menikah”)
status.Items.Add(“belum menikah”)
End Sub
Sub buattabel()
With lv
.Columns.Add(“Nama”, 80, HorizontalAlignment.Center)
.Columns.Add(“Jabatan”, 80, HorizontalAlignment.Center)
.Columns.Add(“Gaji”, 80, HorizontalAlignment.Center)
.Columns.Add(“Status”, 80, HorizontalAlignment.Center)
.Columns.Add(“Jumlah Anak”, 80, HorizontalAlignment.Center)
.Columns.Add(“Tunjangan Istri”, 100, HorizontalAlignment.Center)
.Columns.Add(“Tunjangan Anak”, 100, HorizontalAlignment.Center)
.Columns.Add(“Lembur/jam”, 80, HorizontalAlignment.Center)
.Columns.Add(“Pajak”, 80, HorizontalAlignment.Center)
.Columns.Add(“Total Gaji”, 80, HorizontalAlignment.Center)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = nama.Text
.SubItems.Add(jabatan.Text)
.SubItems.Add(gaji.Text)
.SubItems.Add(status.Text)
.SubItems.Add(anak.Text)
.SubItems.Add(tnjgistri.Text)
.SubItems.Add(tnjganak.Text)
.SubItems.Add(lembur.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(totgaji.Text)
lv.Items.Add(lst)
End With
End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = “staff” Then
gaji.Text = 1250000
pajak.Text = 0.015 * Val(gaji.Text)
ElseIf jabatan.Text = “mandor” Then
gaji.Text = 1750000
pajak.Text = 0.015 * Val(gaji.Text)
ElseIf jabatan.Text = “kabag” Then
gaji.Text = 2500000
pajak.Text = 0.015 * Val(gaji.Text)
End If
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = “menikah” Then
tnjgistri.Text = 0.09 * Val(gaji.Text)
ElseIf status.Text = “belum menikah” Then
tnjgistri.Text = 0
tnjganak.Text = 0
End If
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
MsgBox(“terima kasih”)
End
End Sub

Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub

Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nama.Text = “”
jabatan.Text = “”
gaji.Text = “”
status.Text = “”
anak.Text = “”
tnjgistri.Text = “”
tnjganak.Text = “”
lembur.Text = “”
totlembur.Text = “”
pajak.Text = “”
totgaji.Text = “”
nama.Focus()
End Sub
Private Sub anak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles anak.TextChanged
If anak.Text = “1” Then
tnjganak.Text = 0.03 * Val(gaji.Text)
ElseIf anak.Text >= “1” Then
tnjganak.Text = 0.07 * Val(gaji.Text)
End If
End Sub

Private Sub lembur_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
If jabatan.Text = “staff” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 5000
ElseIf lembur.Text >= “1” Then
totlembur.Text = 5000 * Val(lembur.Text)
End If
ElseIf jabatan.Text = “mandor” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 7500
ElseIf lembur.Text >= “1” Then
totlembur.Text = 7500 * Val(lembur.Text)
End If
ElseIf jabatan.Text = “kabag” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 10000 * Val(lembur.Text)
ElseIf lembur.Text >= “1” Then
totlembur.Text = 10000 * Val(lembur.Text)
End If
End If
Call proses()
End Sub
Sub proses()
totgaji.Text = Val(gaji.Text) + Val(tnjgistri.Text) + Val(tnjganak.Text) + Val(totlembur.Text) – Val(pajak.Text)
End Sub
End Class

kasus

ini adalah jawaban soal kasus visual basic halaman 33 klik disini

kasus

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        kdbarang.Items.Add(“TS001”)

        kdbarang.Items.Add(“TS002”)

        kdbarang.Items.Add(“VG001”)

        kdbarang.Items.Add(“VG002”)

    End Sub

    Sub buattabel()

        With lv

            .Columns.Add(“No Pembelian”, 80, HorizontalAlignment.Center)

            .Columns.Add(“Kode Barang”, 120, HorizontalAlignment.Left)

            .Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Merk”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Harga”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Jumlah Beli”, 80, HorizontalAlignment.Left)

            .Columns.Add(“Total Harga”, 80, HorizontalAlignment.Left)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

 

    End Sub

 

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        masuktabel()

    End Sub

    Sub masuktabel()

        Dim lst As New ListViewItem

        With lst

            .Text = nomor.Text

            .SubItems.Add(kdbarang.Text)

            .SubItems.Add(nama.Text)

            .SubItems.Add(merk.Text)

            .SubItems.Add(harga.Text)

            .SubItems.Add(jumlah.Text)

            .SubItems.Add(totharga.Text)

            lv.Items.Add(lst)

        End With

    End Sub

 

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        nomor.Text = “”

        kdbarang.Text = “”

        nama.Text = “”

        merk.Text = “”

        harga.Text = “”

        jumlah.Text = “”

        totharga.Text = “”

    End Sub

 

    Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click

        lv.Items.Clear()

    End Sub

 

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

 

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        MsgBox(“terima kasih”)

        End

    End Sub

 

    Private Sub kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kdbarang.Text, 2)

        Select Case x

            Case “TS” : merk.Text = “Toshiba”

            Case “VG” : merk.Text = “V-GEN”

        End Select

        x = Microsoft.VisualBasic.Right(kdbarang.Text, 3)

        Select Case x

            Case “001” : nama.Text = “flashdisk 4GB”

            Case “002” : nama.Text = “flashdisk 2 GB”

        End Select

        If kdbarang.Text = “TS001” Then

            harga.Text = 105000

        ElseIf kdbarang.Text = “TS002” Then

            harga.Text = 75000

        ElseIf kdbarang.Text = “VG001” Then

            harga.Text = 90000

        ElseIf kdbarang.Text = “VG002” Then

            harga.Text = 60000

        End If

    End Sub

 

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            kdbarang_SelectedIndexChanged(sender, e)

        End If

        totharga.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub

 

End Class

 

tugas list view 12 januari 2012

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub buattabel()
With Lv
.Columns.Add(“npm”, 80, HorizontalAlignment.Center)
.Columns.Add(“nama”, 120, HorizontalAlignment.Left)
.Columns.Add(“jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“tahun”, 100, HorizontalAlignment.Left)
.Columns.Add(“nilai angka”, 80, HorizontalAlignment.Left)
.Columns.Add(“nilai huruf”, 80, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = npm.Text
.SubItems.Add(nama.Text)
.SubItems.Add(jenjang.Text)
.SubItems.Add(jurusan.Text)
.SubItems.Add(tahun.Text)
.SubItems.Add(angka.Text)
.SubItems.Add(huruf.Text)
Lv.Items.Add(lst)
End With
End Sub

Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x, y, z As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
y = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
z = Microsoft.VisualBasic.Left(npm.Text, 2)
If x = “0” Then
If y = “2” Then
jenjang.Text = “D3”
jurusan.Text = “manajemen informatika”
End If
ElseIf x = “1” Then
jenjang.Text = “SI”
If y = “1” Then
jurusan.Text = “teknik informatika”
ElseIf y = “2” Then
jurusan.Text = “sistem informasi”
End If
End If
End Sub

Private Sub angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPress
If e.KeyChar = Chr(13) Then
carinilai()
End If
End Sub
Sub carinilai()
If angka.Text >= 85 Then
huruf.Text = “A”
ElseIf angka.Text >= 75 Then
huruf.Text = “B”
ElseIf angka.Text >= 65 Then
huruf.Text = “C”
ElseIf angka.Text >= 55 Then
huruf.Text = “D”
Else
huruf.Text = “E”
End If
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
lv.Items.Clear()
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
npm.Text = “”
nama.Text = “”
jurusan.Text = “”
jenjang.Text = “”
tahun.Text = “”
angka.Text = “”
huruf.Text = “”
End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
MsgBox(“terima kasih”)
End
End Sub
End Class

langkah – langkah membuka project baru dalam Visual Basic.Net

Untuk memulai pembuatan program aplikasi di dalam Visual Basic, yang dilakukan adalah membuat project baru. Project adalah sekumpulan form, modul, fungsi, data dan laporan yang digunakan dalam suatu aplikasi. Membuat projrct baru dapat dilakukan dengan memilih menu [File] >> [New Project] atau dengan menekan ikon [new project] pada Toolbar yang terletak di pojok kiri atas. Setelah itu akan muncul konfirmasi untuk jenis project dari program aplikasi yan akan dibuat seperti
terlihat pada gambar berikut:

setelah di klik standard EXE maka akan terbuka jendela form Visual Basic.net sebagai berikut :

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

Perbedaan antara Visual Basic 6 dengan Visual Basic .Net

lanjut lagi pembahasan kita tentang visual basic .Net. sekarang aku lagi membahas tentang perbedaan antara visual basick 6 dengan visual basic.Net. Menurut aku seh sama aja yah klo diliat dari Toolbox, Form Project nya juga sama dan mendesain programnya juga sama. tapi wina liat dari sumber lain ternyata ada perbedaan antara Vb 6 dengan Vb.net. Dan Visual Basic versi 6.0 adalah versi terakhir VB sebelum berubah menjadi .Net. Banyak yang bertanya tentang perbedaan antara keduanya. Berikut sekilas perbedaan dan persamaan VB 6.0 dan VB .Net.

• Hasil kompilasi source code pada VB6 adalah file .exe biner (native code). VB .Net berupa file .exe intermediate language (MSIL byte code).
• Hasil kompilasi pada VB6 dapat langsung dieksekusi. VB .Net membutuhkan run time environment / framework (.Net framework)
• VB6 bermasalah pada deployment-nya (DLL hell). VB .Net tidak
• Program dari VB6 tidak dapat langsung berinteraksi dengan program dari bahasa lain. VB .Net dapat selama bahasa lain mendukung .Net
• Perintah-perintah dasar pada VB6 dan VB .Net sebagian besar masih sama kecuali untuk perintah-perintah OOP-nya
• Dari sisi IDE-nya, pengetikan kode pada VB.Net lebih cepat dari pada di VB6
• Untuk akses ke database VB.Net menggunakan ADO.Net, VB6 menggunakan ADO. ADO.Net bukan pengembangan dari ADO. Jadi ADO.Net menggunakan teknologi yang berbeda dengan ADO
• Selain itu pada VB.Net 2008, dapat menggunakan LINQ (Language Integrated Query) untuk mempermudah mengaksesan data

Pengenalan ToolBox di Visual Basic.net

teman teman pasti sudah tau apa itu Microsoft Visual Studio dan Visual Basic.net. Tapi kalo ada yang lum tau bisa baca artikel wina yg sebelumnya.Sekarang kita harus tau Toolbox – tolbox yang digunakan dalam Visual Basic.net. Toolbox Vb.net itu sangan penting sekali. kalo tidak ada ada Toolbox bagaimana kita bisa membuat program atau database.Yang paling penting kita harus mendesain data yang akan kita buat menjadi program.

Bisa kita lihat gambar dibawah ini adalah Toolbox dalam Vb.net

Diurut dari atas ke bawah keterangan kegunaannya sebagai berikut:
1. Button –> biasa digunakan untuk melakukan perintah seperti (Save,Delete,Submit,dll)
2. CheckBox –> digunakan untuk memilih item yang terdiri dari satu item
3. CheckListBox –> fungsinya sama dengan no. 2 hanya saja dengan tool ini berbentuk list dalam satu frame
4. ComboBox –> dengan tool ini dapat digunakan untuk memilih item dalam bentuk combo
5. DateTimePicker –> untuk menampilkan data tanggal
6. Label –> untuk memberikan label pada control yang ada
7. LinkLabel –> dengan kontrol ini apabila label tersebut di klik akan mengarah ke alamat website di internet
8. ListBox –> untuk menampilkan beberapa item
9. MaskedTextBox –> untuk menampilkan data dengan format tertentu
10. MonthCalendar –> untuk menampilkan tanggal dalam satu bulan dengan tampilan penuh
11. NotifyIcon –> untuk menampilkan icon system di Task Bar window bagian kanan
12. NumericUpDown –> untuk menyajikan nilai numeric saja
13. PictureBox –> untuk menampilkan gambar
14. ProgressBar –> biasa digunakan untuk menampilkan status proses
15. RadioButton –> untuk menampilkan beberapa item yang bisa dipilih, tetapi hanya satu item yang bisa dipilih
16. RichTextBox –> untuk menampilkan text
17. ToolTip –> control ini digunakan untuk menampilkan informasi mengenai kegunaan tombol – tombol yang biasanya muncul apabila mouse didekatkan atau diarahkan diatas tombol tersebut
18. TreeView –> untuk menampilkan data atau item – item dengan bentuk cabang
19. WebBrowser –> bisa digunakan untuk membuat halaman browsing di internet

Pemograman Visual ( Visual Basic.net)

it is programming time. teman – teman hari ini wina mau berbagi ilmu sama teman – teman. Tapi wina cari nya juga di mr.google. wina harap bisa bermanfaat buat teman – teman. Sekarang wina lagi membahas yang namanya visual basic.net. Apa pengertian Visual Basic.net? Visual Basic.net adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.Wah panjang juga pengertian Visual Basic.net. Tapi teman – teman aplikasi Visual Basic.net ini bisa terdapat di dalam Microsoft Visual studio. Microsoft Visual Studio itu mencakup kompiler, SDK, Integrated Development Environment (IDE), dan dokumentasi (umumnya berupa MSDN Library). Kompiler yang dimasukkan ke dalam paket Visual Studio antara lain Visual C++, Visual C#, Visual Basic, Visual Basic .NET, Visual InterDev, Visual J++, Visual J#, Visual FoxPro, dan Visual SourceSafe.Jadi teman – teman bisa langsung menginstal Aplikasi Microsoft Visual Studio saja, tanpa harus menginstal satu – satu Aplikasi program Visual basic, Visual C++ atau program aplikasi lainnya. Kecuali Turbo pascal yah. itu tidak ada di Microsoft Visual Studio.

what is the love?

malam teman – teman..
aku buat artikel di blog sempatnya malam jadi aku sapa selamat malam aja yah ^_^V
huft sekarang aku kuliah dah semester 3, jadwal kul dah kerja ku makin padat. pacaran pun mungkin gk ada waktu kale yah wkkwkw 😀
tapi demi sebuah blog aku sempat sempat kan untuk ngisi cerita ceritaku yang mungkin tidak menarik buat teman – teman. tapi its oke lah apapun pendapat teman – teman kalo kurang berkenan atau menarik, aku minta maaf ya. aku hanya manusia biasa yang hanya ingin berbagi cerita di blog ku yang sederhana ini.

sekarang ini aku pengen bagi – bagi cerita ke teman – teman soal love.. wow.. kalo dah kata love neh semua orang pasti ada rasa gimana gitu.. deg deg kan atau malu malu wkkkwk.. atau mungkin yang lagi patah hati berkata seperti ini ah,, apa tuh seh cinta gk ada itu.. hampa.. kosong.. hedeh.. kacihan yah yg lagi patah hati heheh ^_^V
dari sebagian orang atau mungkin seluruh orang dimuka bumi ini pasti kenal namanya cinta… bukannya kalangan remaja atau orang tua yang tau cinta loh… sekarang aja anak sd dah pande bercinta ( sadddappp ngeri euy wkwkk 😀 ) bayangin teman – teman anak sd dah pandai bercinta, makin gilak aja dunia ya. itu lah hebatnya cinta, mau tua atau muda dia datang kapan aja tanpa kita sadari. tapi teman – teman aku mau tanya sesuatu sama kalian.. apa kalian butuh cinta? hm….. kalo aku seh butuh cinta teman – teman. apa teman teman ada yang gak butuh cinta? coba teman – teman bayangin kalo kita tidak memiliki cinta di hati ini.. mungkin dunia ini terasa hampa…. hidup seperti gambaran neraka. orang – orang saling berkelahi dan saling ribut. aduh bayangin kacau banget yah teman – teman. hidup gak ada warna – warninya. kek nya rasanya gk usah hidup aja gt yah. bayangin coba kalo kita ada cinta di hati. pasti tiap hari terasa indah. wajah kita selalu tersenyum. apapun masalah yang dihadapi tetap tersenyum. wah pokoknya hidup ini kek surga lah. Damai benar kan terasa teman – teman. Maka itu berbahagialah teman – teman yang pernah merasakan cinta. pernah merasakan sesuatu yang deg – deg kan kalo ketemu dia. pernah salah tingkah kalo ketemu dia. kalo bisa ngumpet terus kalo ketemu dia wkkwkwk ( maen petak umpet donk wkwkkwk ). Emang kalo orang yang lagi jatuh cinta manis terasa yah teman – teman. tapi teman – teman cinta itu gk selamanya indah loh. terkadang cinta itu menyakitkan.apalagi kalo kita di khianati oleh cinta itu sendiri. contohnya neh kita punya pacar tapi pacar kita selingkuh.. wah sakit banget tuh rasanya apalagi depan kita selingkuh ( pengalaman pribadi aku banget tuh teman – teman heheh ). Rasanya kek gk mau hidup aja teman – teman. gk bisa makan gk bisa tidur, kepikiran terus ama dia kok dia tega yah buat aku gitu. But akhirnya aku sadar itu lah cinta.. cinta itu adalah anugerah dari tuhan yg maha kuasa teman – teman. apakah cinta itu akan membuat kita bahagia atau akan membuat kita derita.Itu semua tergantung dari orang yg menerima cint itu. Bagaimana kita menggunakan cinta yg diberikan oleh tuhan yg maha kuasa. jadi jika cinta itu datang membawa kebahagiaan buat teman – teman, maka bersukurlah cinta itu tidak sia – sia diberikan. tapi jika cinta itu datang membawa penderitaan maka jangan salah kan cinta itu, salahkan kepada orang yang menyalah gunakan cinta itu.

maka itu teman – teman carilah cinta sejati anda. cinta sejati yaitu cinta yg tulus dan ikhlas walaupun akan mendatangkan kebahagiaan atau penderitaan. percayalah jika anda mendapat penderitaan berarti ada memiliki cinta yang sejati. jika cinta mendatangkan kebahagiaan anda mendapatkan cinta yg utuh sejati.jadi jika anda tersakiti oleh cinta maka tetaplah anda semangat menjalani hidup ini, tetaplah mencari cinta sejatimu. seperti kata orang – orang bilang masih banyak ikan di laut maksudnya masih banyak laki – laki atau perempuan yang menunggu cinta sejati mu. Tapi jika kamu lagi bahagia dengan cinta, bersukurlah dan tetap memegang teguh cinta mu. Cinta itu adalah anugerah, tergantung kita sendiri bagaimana menggunakan cinta tersebut.

selamat malam. semoga anda mendapatkan cinta sejati anda… amin,,, ^_^

Curhat Diriku

hai teman – teman…
selamat datang di blog ku. nama ku wina tapi pacarku suka bilang aku nanut. teman – teman boleh memanggilku nanut heheh.. mau tau apa arti nanut… hm.. terkesan agak aneh seh.. tapi jangan ketawa yah kalo aku kasih tau artinya. tahan tawanya yah.. nanut itu artinya wina dudut.. wew.. dudutkah diriku.. hahaha… but it’s oke apalah arti sebuah nama yang penting teman – teman senang dan ikhlas memanggilku apa.

hm.. hari ini aku pengen berbagi cerita sama teman – teman, siapa tau bisa membuat pengalaman bagi teman – teman. tapi yg baiknya diambil ya, jangan yg buruknya ntar bisa jadi anak nakal loh.. wkkwkw ^_^V
dah mau sebulan ini aku masuk kul.. rasanya menyenangkan banget bisa ketemu sama teman – teman kampus and my best fren. tapi yg lebih membuat aku senang wah2 aku dapat ip bagus 3,76 alhamdulillah yah ( pake gaya syahrini wkkwkwk). ternyata gk sia sia belajar semalam semester 2 neh. pulang kul belajar, di tempat kerja disempatkan belajar. anak baek banget yah ( pede sambil ngeir wkkwkw ).Tapi saat kebahagiaan datang tiba2 kesedihan menghampiriku, saat aku kabari ke orang tua nilai ip ku bagus, tanggapain wajah orang tuaku biasa aja. huft,,,, aku jadi lemas teman – teman. Kok orang tua aku tidak merasakan kebahagiaan apa yg aku rasakan. aku pun bertanya dalam hati… kenapa yah? seribu pertanyaan dalam hati menghampiriu.. owh wina nilainya kurang tinggi.. owh pekerjaan mu kurang bagus.. aduh,, pusinglah aku banyak kale yg mau dijawab… hehehhe.. pusing2 pun aku bisa ketawa, aneh aku yah =.=’

sampai sekarang aku tidak temukan jawaban dari raut muka orang tuaku itu. ku cari di facebook.. twitter… di google.. gk temukan jawabannya.. masa soal kek gitu cari di internet wkwkkwk.. tapi suatu hari aku temukan jawabannya saat aku mendekap dekat didepan mata orangtua ku.. tersimpan secercah kebahagiaan.. matanya mengandung makna bahwa dia bahagia melihat kebahagiaanku. walaupun mereka tidak bisa mengungkapkannya tapi ku lihat mata mereka bersinar terang.. mereka mau aku terus berjuang mencapai kebahagiaanku. Orang tua ku ternyata aneh juga loh teman – teman wkkwkwkw ( jaat aku yah bilang orang tua sendiri aneh 😀 ) anehnya gini teman – teman, mereka tidak pernah mensupport atau mendukung apa yg aku lakukan. mereka percaya apa yg aku lakukan itu bisa, tanpa harus mereka ngomong. tapi saat aku berhasi, orang tua ku gk pernah mengatakan kamu hebat.. hanya bisa berkata dalam hati nak kamu hebat yah.. heheh.. aku sadar bahwa mereka tidak memuji aku karena takut nanti aku akan takabbur dan merasa sok gitu atau jadi lupa diri.

kadang aku pernah berpikir kok orang tuaku jahat ya, gak pernah membuat aku semangat atau memuji ku. kadang kan kita sebagai anak ingin di puji atau di bangga – banggain gt, biar makin semangat. ini lah bedanya orang tua sama orang tua lain. mereka mengajarkan ku untuk tidak manja. apa yg aku lakukan harus sendiri, dan jangan mengharapkan pujian dari orang lain. aduh maaf yah mak, ayah dah berpikir buruk.Ternyata kalian memperhatikanku tanpa sepengetahuanku. mak dan ayah makasih ya didikannya selama ini. Aku tau itu yang terbaik buatku. saya dan anda beruntung dapat orang tua yang benar – benar menyayangi kita. maka itu jangan pernah menyakiti hati mereka yah. sayangilah mereka sebelum ajal menjemput mereka. say to love parents… ^_^V

Inilah Ceritaku.. apa ceritamu hari ini ^_^