Janji Bunga Matahari

Mengapa dirimu menangis padahal aku masih ada disini?
Aku bahkan sangat menyedihkan karna tak tahu apa salahku hingga detik ini.

Jangan pernah kau lupa semua kisah hari ini akan jadi hari yang terindah

Apakah aku masih memiliki kesempatan untuk bisa disampingmu esok hari?
Tertawa bersama tersenyum bahagia, hanya itu yang ingin aku rasakan.

Kau lembut bagaikan bunga matahari dengan penuh kehangatan yang selalu ada untukku.
Apakah kau menginginkan untuk kembali disini? Ku rindu rasakan bahagia bersama dirimu.

Kita bahkan sering tuk menyapa masa depan yang ada di jauh sana
Aku yakin masa depan kita akan lebih baik dan indah jika kita bersama.
Jangan pernah kau lupa semua kisah, tetaplah tersenyum sebelum kita berpisah.

Sekarang diriku ingin memberitahumu jika disini ku sudah bahagia melihat senyum mu.

Ulasan Tentang Mengenai Mesran.Net

 




     Kali ini saya mau mengajak kalian semua untuk  membahas sedikit tentang blog mesran.net Tujuannya untuk menambah referensi belajar  tentang Pemograman kalian.

     mesran.net adalah salah satu website tempat belajar Pemograman. Misalnya, kita ingin belajar mengenai Visual Basic, di mesran.net kalian dapat menemukan artikel tentang Visual Basic. atau pemograman lainnya juga ada seperti C/C++ , Pascal, tips tips bahasa pemograman, dan lainnya.

     Di mesran.net kita juga dapat menemukan Tips/Trik untuk mempelajari bahasa pemograman.
Tidak paham? Gampang. Tenang saja jika kita tidak mengerti kita juga bisa bertanya langsung dengan berkomentar pada kolom komentar yang disediakan pada setiap artikelnya.

Nah.. gimana? semakin mudahkan untuk belajar pemograman.
Mungkin hanya itu yang bisa saya ulas tentang mesran.net.

Sekian, Terima Kasih..

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Latihan Listview Perhitungan Penjualan Barang

Public Class Form1
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs)Handles Kode.SelectedIndexChanged
        Dim x, x1 As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 2)
        x1 = Microsoft.VisualBasic.Right(Kode.Text, 3)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-Gen"

        End Select
        Select Case x1
            Case "001" : Nama.Text = "Flashdisk 4 Gbyte"
            Case "002" : Nama.Text = "Flashdisk 2 Gbyte"
        End Select
        If x = "TS" And x1 = "001" Then
            Harga.Text = 105000
        ElseIf x = "TS" And x1 = "002" Then
            Harga.Text = 75000
        ElseIf x = "VG" And x1 = "001" Then
            Harga.Text = 90000
        ElseIf x = "VG" And x1 = "002" Then
            Harga.Text = 60000
        Else
            Harga.Text = 0
        End If

    End Sub

    Private Sub Tot_TextChanged(ByVal sender As System.Object, 

    ByVal e As System.EventArgs) Handles Tot.TextChanged
        Tot.Text = Val(Harga.Text) * Val(jlh.Text)
    End Sub

    Private Sub jlh_KeyPress(ByVal sender As Object, 

    ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh.KeyPress
        Dim x2 As Integer = Asc(e.KeyChar)
        If x2 = 13 Then
            Tot.Text = Val(Harga.Text) * Val(jlh.Text)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object,  

    ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
    End Sub
    Sub BuatTabel()
        List.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        List.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)
        List.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
        List.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        List.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        List.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        List.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        List.View = View.Details

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, 

    ByVal e As System.EventArgs) Handles Simpan.Click
        IsiTabel()
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nmr.Text)
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(jlh.Text)
        lst.SubItems.Add(Tot.Text)
        List.Items.Add(lst)
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, 

    ByVal e As System.EventArgs) Handles Bersih.Click
        Kode.Text = ""
        Nama.Text = ""
        Nmr.Text = ""
        Harga.Text = ""
        merk.Text = ""
        jlh.Text = ""
        Tot.Text = ""
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, 

    ByVal e As System.EventArgs) Handles Hapus.Click
        List.Items.Clear()
    End Sub

    Private Sub Pil_Click(ByVal sender As System.Object, 

    ByVal e As System.EventArgs) Handles Pil.Click
        List.Items.Remove(List.SelectedItems(0))
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object,  

    ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class 

Tampilan Hasil 

  


Demikilahlah postingan saya  Nama : Nurul Nining Apriani  NPM : 13110679
Selamat Belajar Pemrograman VB NET

The Day When Everyone Loves You

Some things will never change
It's always been the same
Who can you really trust on your final day?


Everybody loves you when you're dead
Everybody wants you in the end
It's common human greed
In lovin' memory
Yeah, everybody loves you when you're dead

There's no love for the living
There's no love!

Kepada Kamu Yang Telah Lama Pergi

Waktu yang lama ini yang mungkin bagi kamu bersamanya terlalu begitu singkat, tapi aku tidak pernah ngelaluinnya dengan mudah, menurutmu meninggalkan itu mudah? Engga. Aku benci, aku benci mengucap selamat jalan, aku benci membasuh kenangan demi kenangan sampai ujungnya aku hanya berakhir dengan kepura-puraan, aku pura-pura mengikhlaskan , pura-pura tidak terluka, aku pura-pura tetap berjalan kedepan. tapi kamu tak pernah tahu, ketika kamu berpaling aku kembali, kembali ke tempat pertama kali bertemu. perpisahan itu aku simpan di dalam mesin waktu, tapi malah mengaktifkan bom waktu, ledakan rindu seringkali membawaku ke masa lalu dan lagi-lagi kamu nggak tahu. aku linglung, setelah kamu pergi untuk siapa celingukan ini? sedetik setelah kamu pergi, buat siapa lagi lengkung senyum ini? kamu yang menjauh Cuma mendekatkan aku pada kesepian. aku selalu disini,  dipersimpangan jalan ini dan ketika kamu dengannya menemui akhir… kembalilah! aku masih melambaikan tangan dingin ini kepada kamu, yang telah lama pergi.







-landakgaul

Jalan yang Mengubah Segalanya

Dua jalan bercabang dalam remang hutan kehidupan
Dan sayang aku tidak bisa menempuh keduanya
Dan sebagai pengembara, aku berdiri lama
Dan memandang ke satu jalan sejauh aku bisa
Kemana kelokannya mengarah di balik semak belukar

Kemudian aku memandang yang satunya, sama bagusnya,
Dan mungkin malah lebih bagus,
Karena jalan itu segar dan mengundang
Meskipun tapak yang telah melewatinya
Juga telah merundukkan rerumputan,


Dan pagi itu keduanya sama-sama membentang
Di bawah hamparan dedaunan rontok yang belum terusik
Oh, kusimpan jalan pertama untuk lain kali !
Meski tahu semua jalan berkaitan
Aku ragu akan pernah kembali

Aku akan menuturkannya sambil mendesah
Suatu saat berabad-abad mendatang
Dua jalan bercabang di hutan, dan aku…
Aku menempuh jalan yang jarang dilalui
Dan itu mengubah segalanya.

-

Sesuatu yang kecil bisa menyelinap dan menghancurkan dari dalam. Dan yang paling menakutkan adalah, semuanya terjadi tanpa sempat kamu sadari.Ironis rasanya mengetahui bagaimana seorang manusia bisa dengan percaya diri dan mudahnya melewati sebuah badai yang besar. Namun dalam waktu yang sama mengetahui ada beberapa pasang manusia yang bisa hancur hanya karena kerikil kecil.

Sepasang manusia yang akhirnya rela saling melepaskan genggaman tangan hanya karena ancaman kerikil kecil, padahal sebelumnya pernah melewati puluhan badai yang luar biasa besarnya berdua.
Logikanya, sepasang manusia yang berhasil melewati badai berdua atas nama cinta pasti lebih bisa melewati kerikil kecil.

Namun sekali lagi, cinta seringkali tak sejalan dengan logika.Badai yang besar harusnya malu kepada kerikil kecil. Dan sepasang manusia yang kehilangan cinta hanya karena kerikil kecil, akan tertutup mukanya oleh pasir yang terbawa angin badai.Aku tak ingin malu di depan badai dan kerikil, beserta pasir yang senantiasa menyertai mereka.Sebuah cinta, semestinya lebih digdaya dari badai dan kerikil yang melanda.

Kepada kamu, genggam tanganku. Kita lewati badai, kita langkahi kerikil.

Lewat Perbuatan Baik

Berikanlah penglihatanku kepada orang yang belum pernah melihat matahari terbit, wajah bayi, atau cinta dalam mata seorang wanita.

Berikanlah jantungku kepada orang yang jantungnya hanya menyebabkan hari-hari kesakitan tanpa henti.

Berikanlah darahku kepada remaja yang ditarik dari mobilnya yang hancur agar ia dapat hidup melihat anak cucunya bermain.

Berikanlah ginjalku kepada orang yang bergantung pada mesin untuk hidup dari minggu ke minggu.

Ambil tulangku, setiap otot, setiap serat dan saraf dalam tubuhku dan carilah jalan untuk membuat anak lumpuh dapat berjalan dan anak buta dapat melihat...

Jelajahi tiap sudut otakku, ambil selku, kalau perlu... dan biarkan mereka tumbuh agar kelak seorang anak bisu dapat berteriak.. dan seorang anak tuli dapat mendengar suara rintik hujan di pagi hari dan suara kicauan burung-burung yang terbang tinggi langit di angkasa...

Bakarlah sisa tubuhku dan tebarkan abunya dalam angin untuk membantu bunga-bunga tumbuh subur.....

TETAPI

Kuburlah kesalahan ku, kelemahanku dan semua kecurigaanku terhadap sesama ....Berikanlah dosaku terhadap setan....

namun berikan jiwaku terhadap TUHAN.....

Jika engkau ingin mengingatku.......

Ingatlah lewat perbuatan baik kepada orang yang membutuhkan mu.... perkataan baikmu terhadap sesamamu....

Jika Matamu Tidak Bisa Melihat, Pastikan Telingamu Masih Bisa Mendengar

Sedikit cerita, sesingkat hal yang terkadang tidak bisa diterima oleh hati. Ketahuilah bahwa air mata tak selalu menunjukkan fakta