Curahan Hati Seorang Anak

Kadang aku menganggap bahwa hidup tak adil di kehidupan ku. Hidup yang kadang mempermainkan perasaan hati ku. Kadang aku menyalahkan nasip yang membuat kehidupanku kurang beruntung. Terkadang pula ku memandang terlalu tinggi hingga mengangap aku manusia paling tersial.
Aku tidak pernah bercermin. Aku tidak pernah melihat kebawah.
Aku tidak pernah sadar, akan anugrah didalam hidupku. Aku tidak pernah bershukur akan apa yang aku dapatkan sekarang.
Disaat kesadaran datang didalam relung terdalam hatiku. akan kah semua terlambat.
Blm ….. aku rasa semua blm terlambat. Blm terlambat untuk mensyukuri apa yang aku dapatkan. Menyukuri apa yang aku miliki. Menyayangi semua yang aku miliki. Menyayangi dan menghargai apa yang telah membuat aku seperti sekarang ini. Menjaga dan menghormati semua jerih payah semua orang yang membatuku jadi lebih berarti.
Menjaga kepercayaan nya Memenuhi keinginannya Mencapai harapan-harapannya yang membumbung tinggi Mencoba untuk memenuhi harapannya kepadaku
Mencoba dan berusaha untuk selalu membuatnya tersenyum dan selalu membuatnya bangga atas apa yang aku kerjakan dan aku capai.
Selama ini aku salah mengerti dan mengenal dirinya. Aku tidak pernah tau pengorbanan dan penderitaannya didalam hidupnya. Aku bahkan tidak pernah tau betapa dia membanting tulang demi kebahagiaanku dan masa depan ku.
Betapa bahwa aku sadar Dia lah yang sangat berperan didalam hidupku. Aku juga baru sadar bahwa dialah orang yang paling menyayangiku Walaupun terkadang tidak mengerti keinginan dan perasaan ku
TAPI aku yakin dia sangat sayang dan perhatian kepadaku.
AKu Akan berusaha untuk memenuhi semua yang dia harapkan. Memenuhi semua yang dia inginkan. Memenuhi semua yang dia harapkan didalam hidupku dan masa depanku dengan kemampuan ku, dan kekuatanku.
Dia tidak pernah menginkan balas jasa dariku. Dia hanya ingin melihat keberhasilanku dan kesuksesan didalam hidupku. melihatku bahagia didalam hidupku.
Betapa bershukurnya aku memilikinya. Betapa bangganya aku menjadi bagian dari dirinya. Betapa bangganya aku menjadi buah hatinya. Betapa ingin aku kata khan pada seluruh dunia
“AKU Bangga MEMILIKI SEORANG PAPA YANG HEBAT” “AKU MEMILIKI PAPA YANG SANGAT AKU SAYANGI”
Aku menyayangi kalian berdua Papa dan Ibu terimakasih atas pengorbanan dan kasih sayang dari kalian berdua.
Walaupun ku tau aku tak kan pernah dapat membalas kasih sayang dari kalian berdua.
Terimakasih papa & ibu terimakasih Untuk semua pengorbanan dan cinta kasih kalian berdua Terimakasih Papa & ibu

Kata Kata Mutiara Sedih Rindu Ibu Penuh Kasih Sayang Menyentuh Hati

Kata kata rindu ibu yang di sayang paling menyentuh hati perasaan paling dalam, kata kata sedih rindu ibu, kata kata galau rindu ibu, kata kata mutiara rindu ibu, kata kata bijak rindu ibu, kata kata motivasi rindu ibu, kata kata sedih kehilangan ibu. Siapa yang tidak sayang ibu, semua anak pasti menyayangi seorang ibunya, kasih sayang ibu yang tak dapat dibandingkan dengan apa-apa, tak ada yang bisa melebihi kasih sayang selain seorang ibu. Ibu yang memberikan kasih sayang yang ikhlas buat anak-anaknya, kasih sayang yang abadi penuh cinta. Jangan pernah membuat orang tua mu bersedih selagi dia masih hidup, seorang ayah dan seorang ibu memiliki kasih sayang begitu besar buat anaknya.

Kata Kata Sedih Rindu Ibu Tercinta Penuh Kasih Sayang Menyentuh Hati

Turutilah keinginan ibumu, selagi dia masih disampingmu. Jangan sampai sesali disaat dirinya susah  tiada..LOVE U MOM

Ibu wanita yang sangat hebat, wanita yang sangat kuat dan sangat mulia.

Kita dilahirkan didunia ini dari seorang yang bernama ibu. Sangat besar peran serta jasa yang diberikan ibu.

Kasih ibu tak pernah mengharapkan balas jasa, kerana kasihmu ibu kasih sejati dan kasihmu ibu kasih sayang yang abadi.

Ibu, aku janji suatu saat nanti akan kuganti air mata kesedihanmu menjadi air mata kebahagiaan, aku ingin kau bahagia.

Ibu ibu ibu apakah kau mendengarkan tangisan kerinduan ini, kerinduan anakmu yang sangat merindukanmu

Pelukkanmu sangat hangat hingga aku selalu terbangun dalam tidurku.

Ibu ibu ibu.... aku rindu kepadamu aku rindu ketika kau membuaiku penuh kasih sayang.

Aku sangat mencintaimu aku begitu merindukanmu ibu, dirimu begitu indah dan sempurna dimataku ibu.

Pengorbananmu yang sangat tulus hingga aku sulit buat membalasnya, do'aku selalu kupanajatkan buatmu kasih sayangmu yang begitu besar ibu.

Maafkan aku ibu, anakmu yang selalu saja membuatmu menangis… 😭

Malam yang penuh cahaya bintang dan sang ibu yang berada disamping kita, senilai dengan banyaknya bintang yang diangkasa sanahit.

Semoga ibu bangga kepadaku disurga. aku rindukanmu ibu… 😭

Ibu, aku tak tahu bagaimana anakmu ini untuk membalas semua cintamu, hanya surga yang pantas untukmu ibu 😭

Makasih ya ma, dari mama aku banyak belajar keikhlasan, pengorbanan, ketulusan cinta dan kasih sayang ❤️

Tak ada satupun didunia ini yang dapat membalas kebaikan ibu padaku.. i love you mom ❤️

Peluk dan cium dari kami disini buat ibu dan ayah yang di surga 😭

Sejak kepergian ayah, ibulah yang selalu berjuang untuk kami semua.

Ummi… disaat hujan lebat ini, aku rindu pelukan hangatmu ummi 😭

Kadi inget masa dulu waktu aku sakit, ibulah yang selalu ribut dan repot memikirkan aku cepat sembuh 😘

Dimasa lalu kita sering berbeda pendapat ibu. Aku sering kali membantah katamu. Meskipun demikian, tak pernah kurang cinta dan hormatku padamu ibu… 😘

Hanya ibu yang selalu sabar denganku, anak yang bawel ini.

Semoga ubu bangga kepada aku dari surga sana ya ibu 😭

Aku sayang ibu. Aku nggak mau kehilanganmu ibu 😭 tapi takdir berkata lain…

Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview

Rancanglah form Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview berikut ini:



 Berikut ini merupakan listing Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 5
            Kode.Items.Add("P-00" & i)
            Jumlah.Items.Add(i)
        Next

        With LV
            .Columns.Add("Kode", 50, HorizontalAlignment.Center)
            .Columns.Add("Nama", 250, HorizontalAlignment.Left)
            .Columns.Add("Harga", 50, HorizontalAlignment.Right)
            .Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "P-001"
                Nama.Text = "Televisi Sony 21 Inchi"
                Harga.Text = 2100000
            Case "P-002"
                Nama.Text = "Televisi Sony 14 Inchi"
                Harga.Text = 1900000
            Case "P-003"
                Nama.Text = "Televisi Sony 29 Inchi"
                Harga.Text = 2900000
            Case "P-004"
                Nama.Text = "Televisi Sony 32 Inchi"
                Harga.Text = 3500000
            Case "P-005"
                Nama.Text = "Televisi Sony 40 Inchi"
                Harga.Text = 4500000
            Case Else
                Nama.Text = ""
                Harga.Text = 0
        End Select
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        Total.Text = Harga.Text * Jumlah.Text
    End Sub

  
    Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
        Dim xTP As Double = 0
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)

        For i = 0 To LV.Items.Count - 1
            xTP = xTP + LV.Items(i).SubItems(4).Text
        Next
        TotalPenjualan.Text = xTP
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class

Hasil Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview.
 

Contoh Algoritma,Flowchart dan Pseudocode

A.Buatlah algoritma menggunakan flowchart dan pseudocode  untuk menghitung luas persegi panjang

Algoritma : 1. Masukkan panjang  

                               2. Masukkan lebar    

                               3. Luas Persegi panjang adalah panjang dikalikan lebar                             

                               4. Tampilkan luas persegi panjang
Pseudocode :1. Input panjang
                  2. Input lebar
                  3. Luas = panjang x lebar
                  4. Print luas lingkaran

B. Buatlah algoritma menggunakan flowchart dan pseudocode untuk menghitung luas  

lingkaran Algoritma :1. Masukkan phi (π)
                     2. Masukkan jari-jari (r)
                     3. Luas Lingkaran adalah phi dikalikan jari-jari
                     4. Tampilkan luas lingkaran
Pseudocode :1. Input phi (π)
                           2. Input jari-jari (r)
                           3. Luas = π x r x r
                           4. Print luas lingkaran 

C.Buatlah algoritma menggunakan flowchart dan pseudocode untuk menentukan apakah bilangan yang di input adalah bilangan ganjil atau bilangan genap. 
Algoritma :1. Masukkan sebuah bilangan
         2. Bagi bilangan tersebut dengan bilangan atau angka 2
         3. Jika bilangan menghasilkan sisa pembagian 0 maka genap
         4. Jika bilangan tidak menghasilkan sisa pembagian 0 maka
                         ganjil

Pseudocode : Read Bilangan           If bil mod 2 = 0  then,                                     “Output Genap”                           Else                                     “Output Ganjil”                           End if

                 Catatan : Mod adalah sisa hasil bagi 

D. Buatlah algoritma menggunakan flowchart danpseudocode untuk menginput 3 buah bilangan, kemudian tentukan bilangan terbesar, terkecil, dan rata-ratanya.
Algoritma :*  1. Masukkan bilangan A,B,C                          2. Jika A>B dan A>C maka A paling besar
                       3. Jika B>A dan B>C maka B paling besa      4. Maka C paling kecil/terkecil                
                      
                 *  Jumlah = A+B+C                                   Rerata = Jumlah                                                       3

Pseudocode :* If (A>B ; A>C) then
                                      Print “A paling besar”
                          If (B>A ; B>C) then
                                      Print “B paling besar”
                              Else
                                      Print “C terkecil”
                              End if
                           
                          * Jumlah = A+B+C
                             Rerata = Jumlah                            
                             Output rerata 

 

E.Buatlah algoritma menggunakan flowchart danpseudocode untuk mengubah satuan waktu yang diinputkan dari detik ke satuan jam dan menit  
 
Algoritma :        Masukkan detik
                         Menit = 60 detik
                         Jam = 3600 detik
                         Tampilkan menit
                         Tampilkan jam
                        
Pseudocode :    Read detik
                            M = 60 s
                            H = 3600 s
                            Output M
                            Output H