MIMPI ANAK DESA

awal Cerita, Cerita baru, tahun baru, kehidupan dunia baru. Kisah yang penuh dengan tiki taka, liku-liku kehidupan, begitu Kelam, gaduh, senang, sakit, bahagia, sungguh hidup yang penuh warna. tidak tahu harus mulai dari mana untuk berbagi, begitu banyak memori, begitu banyak kenangan, warna-warna perjalanan hidupku.

hidup, hidup adalah anugerah terindah, begitu besar anugerah yang telah di berikan Allah Swt, Sungguh luar biasa, sungguh kita harus bersyukur atas semuanya. di sebuah desa kecil, sebuah desa yang masih alami, penuh dengan air, hutan hewan yang tidak asing lagi bagi penduduk desa. belum lagi ke indahan gunung yang berbukit-bukit. sungguh Allah yang maha besar atas ciptaannya. 

Kisah si  Anak desa mengejar Matahari

Hidup dan impian

hidup dan impian mungkin sudah tidak asing lagi kita dengar, namun ada hal-hal di makna dari kata-kata itu. yang kita tidak tahu. Pada saat kita punya impian, yang ada dalam benak kita, hanya sebuah kesuksesan, kebahagiaan, sehingga kita larut dalam angan itu. tanpa kita persiapkan mental kita untuk mewujudkan impian itu, pernahkah kalian terbenak dalam pikiran anda bahwa mimpi itu adalah sebuah perjuangan?? dalam perjuangan akan selalu ada hambatan-hambatan, begitu juga rintangan untuk menggapai sebuah impian. apakah anda siap dengan impian besarmu? pertanyaan-pertanyaan itu timbul pada saat ini terhadap saya. 

 

saya mempunyai impian yang hingga saat ini. impian itu belum tercapai, namun saya tidak akan menyerah sampai disini, hidup akan selalu berputar seperti roda, jika kita berhenti, maka roda kehidupan yang akan memutar kita, jika roda yang mengendalikan kita, ingatlah jurang akan selalu membayangi kita, tapi ketika kita bisa menyeimbangkan roda itu dengan kendali kita, dengan terus berjalan, berusaha menggapai mimpi besar kita, yakinlah impian kita akan berpihak pada kita. semoga para pejuang impian tetap semangat meski kita sibuk dengan aktivitas kita, tapi ingatlah pada impianmu, jangan pernah berhenti untuk mengejar impian itu..!!
Salam hangat dan do'a buat kita semua..!!

jawaban Tugas VB.net soal dari modul halaman 33

sesuai dengan Tutorial dari pengerjaan tugasnya. untuk lebih detailnya silahkan kunjungi ke sini

Listing Program :

Public Class latihan
    Sub table()
        ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        ListView1.Items.Add(lst)
    End Sub


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


     

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub
    Sub AddJumlah()
        For i = 1 To 100
            jumlah.Items.Add(i)
        Next
    End Sub
    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub



    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim latihan As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
        If latihan = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf latihan = "VG" Then
            merk.Text = "V-Gen"
        End If
        latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
        If latihan = "001" Then
            nama.Text = "Flasdic 4GB"
        ElseIf latihan = "002" Then
            nama.Text = "Flasdisc 2GB"
     

        End If
        harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
        If kode.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kode.Text = "VG002" Then
            harga.Text = 60000
        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)




    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Byte
        i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            hitung_Click(sender, e)

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
        ListView1.Items.Clear()
    End Sub

 
    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class


Hasil Program :