Tersenyumlah wahai Diri

Kesedihan itu takkan abadi... roda kehidupan selalu berputar. adakalanya bahagia terasa, adakalanya sedih merintih dan juga air mata. tapi tahukah kalian? Ada Allah yang selalu menatap lembut...

Dia tahu yang terbaik untukmu... Dia memberi apa yang engkau butuhkan , bukan selalu menuruti apa yang engkau inginkan... semua yang terjadi juga karena kehendak-Nya.. semua yang berjalan sesuai rencana-NYA... So untuk apa engkau resah atas sesuatu yang belum pasti? Bukankah janji-Nya itu pasti?

Dialah ALLAH yang maha mengetahui... Dia yang maha memberi , Dia akan memberikan kepadaMu segala apa yang yang engkau mohonkan kepadaNya.... Ketahuilah, jika engkau menghitung nikmat Allah, Niscaya engkau tak akan pernah mampu menghitungnya, maka bersyukurlah hidup terus berjalan... meski kadang kenyataan tak seperti yang diinginkan... 

Yang dicintai kadang pergi, yang didambakan kadang menghilang.... ini sebagian ujian dariNya.... Dia takkan menguji hambanya melebihi kemampuannya, Bukankah manusia itu memang diuji untuk mengetahui sejauh mana yang paling bertaqwa kepadaNya...??? Maka tetaplah istiqamah>>>>

masih jauh diluar sana saudara-saudara kita yang jauh lebih sakit dan menderita... Selalu ada hikmah dibalik kejadian... selalu ada kemudahan setelah kesulitan... SEMUA PASTI INDAH PADA WAKTUNYA.......  (^_^)

                                                                                                                         Yunita Afrida

Sebuah Kepastian

Allah berfirman dalam Q.S al Imran :185

"Setiap yang bernyawa pasti akan merasakan kematian. Kemudian kepada kami kamu dikembalikan..."

           Tidak ada yang abadi di dunia ini. Jabatan, harta dan ilmu tidak dapat menolaknya, jika saat kematian sudah datang...

        Paradigma Kematian Menurut Islam :

1. Kematian adalah sebuah kepastian

2. Kematian tidak dapat diundurkan

3. Kematian jembatan dari alam dunia menuju alam akhirat

       Hidup hanya sekali, tidak akan ada ulanngan dalam hidup ini. setiap gerak langkah kita dalam hidup akan diperhiungkan nanti di akhirat. tidak ada pilihan baginya kecuali harus memberikan yang terbaik dalam setiap aktivitas dengan harapan Allah meridhai.

Semoga bermanfaat.................


                                                                                                                                   Yunita Afrida

          

 

(^_^) goresan cerita

ada yang pergi dan kembali 

di setiap waktu

dan aqu menyadari

bahwa peristiwa itu menyadarkan qu

sempat berpikir ingin pergi

tapi apa yang akan terjadi?

apakah mereka akan merasa kehilangan?

atau merasa senang akan sebuah kepergian....

entahlah.....

semoga yang membaca tidak lelah...

akan semua goresan cerita

di setiap peristiwa.....

keyakinan qu sangat kuat

apalagi firasat....

qu akui aqu sangat merasa kehilangan

kehilangan sebuah kenangan... 



                                                                                                                       Yunita afrida

Kita akan selalu Hidup di sekeliling orang-orang yang bakal marah kepada Kita

Berikut ini beberapa saran untuk mengatasi kemarahan mereka.....

1. Dalam benak anda, izinkanlah orang lain marah pada anda. hal ini tak mengapa, dan tak berarti kiamat. anda pasti dapat mengatasinya.

2. Jangan mengubah perilaku semata-mata agar pasangan anda tidak marah. Jika anda berbuat demikian, berarti anda membiarkan diri dikendalikan oleh hal-hal yang belum tentu esensial. Jika pasangan anda marah, tanggung jawab utama untuk mengatasinya ada padanya.

3. Jangan mendukung tindakan orang yang marah kepada anda. Jika ia berteriak, memaki, mengumpat, dan melompat kesa-kemari , lalu anda menjadi bingung atau menuruti keinginannya, berarti anda mendukung perilakunya. jika kemarahannya masuk akal, tanggapi dan jelaskan kembali maksud anda yang sebenarnya dengan logis dan hati-hati.

4. Mintalah ia menganggapi anda dengan sikap yang lebih masuk akal. Sarankan ia agar mengulang inti masalah, menurunkan nada suara, dan berbicara seperti saat ia diperkenalkan kepada anda pertama kalinya.

5. Jika pasangan anda marah, anda tak perlu ikut-ikutan marah. Baca lagi poin-poin diatas dan terapkan dalam kehidupan anda.




                                                                                                                                 yunita afrida

Sepuluh Perintah Untuk Menjadi Pendengar yang Baik

1. Jangan menghakimi atau menilai sebelum anda benar-benar mengerti. "Cukup, tak perlu bicara lagi. aku sudah tahu maksudmu. dan kamu benar-benar keliru."

2. Jangan membubuhi atau menambahi pernyataan orang lain. "Jika kau berpendapat begitu, pasti kamu akan mengalami hal itu, maka kamu juga harus menerima hal ini."

3. Jangan menganggap bahwa yang anda dengar, itulah yang benar atau itulah keadaan sebenarnya. " aku mengerti maksudmu, tak peduli apapun yang kaukatakan sekarang. aku sudah mendengarkan dengan telingaku sendiri.

4. Jangan biarkan pikiran melantur kemaana-mana. " ketika kamu mengatakan hal itu, tiba-tiba aku menyadari bahwa seleraku ternyata lebih baik daripada seleramu."

5. Jangan menutup pikiran, telinga, dan mata terhadap gagasan, kebenaran, dan pandangan yang bertentangan atau tidak anda sukai. " karena kamu membedakan lak-laki dan perempuan, aku tak mau lagi mendengar apa pun yang kaukatakan."

6. Jangan biarkan hati anda menguasai pikiran atau sebaliknya." aku tahu kamu akan mengatakan hal itu, dan aku telah memikirkannya lama sekali."

7. Janga menafsirkan perkataan orang lain, kecuali orang itu sudah menafsirkannya. " Jika aku harus berhenti bernafas, akan matikah aku?"

8. Jangan merampas waktu orang lain untuk mengemukakan pendapat sendiri." aku tak dapat menunggumu lebih lama. waktu untukmu sudah habis."

9. Jangan takut menerima koreksi, menghadapi kemajuan,atau perbaikan." aku bicara cepat dan bertubi-tubi sebab aku tak ingin mendengar apa yang hendak kamu katakan."

10. Jangan terlalu mempermasalahkan waktu, sementara anda sendiri menghindari tanggung
 jawab dalam menggunakan waktu untuk mendengarkan dan didengarkan." aku menginginkan waktu yang sama. aku ingi kamu juga mendengarkan dan merasakan hal yang sama."





                                                                                                                                
                                                                                                                                             Yunita Afrida

 

Stuktur Keputusan Case

designlah Form berikut ini.....

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KC.Items.Add("MT-MJ-010")
        KC.Items.Add("MK-MB-011")
        KC.Items.Add("JK-MJ-012")
    End Sub

    Private Sub KC_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KC.SelectedIndexChanged
        Dim F As String
        F = Strings.Right(KC.Text, 3)
        Select Case F
            Case "010"
                Nama.Text = "Yunita"
                Alamat.Text = "Jl.Kongsi Ujung No.100"
            Case "011"
                Nama.Text = "Isra"
                Alamat.Text = "Jl.Letsu gg.bali"
            Case "012"
                Nama.Text = "Malaris"
                Alamat.Text = "Jl.SM.Raja"
        End Select
        Dim i As String
        i = Strings.Left(KC.Text, 2)
        Select Case i
            Case "MT"
                Beban.Text = 10000
                BM3.Text = 700
                Type.Text = "Rumah"
            Case "MK"
                Beban.Text = 35000
                BM3.Text = 2000
                Type.Text = "Toko"
            Case "JK"
                Beban.Text = 25000
                BM3.Text = 500
                Type.Text = "Pabrik"
        End Select
        Dim y As String
        y = Strings.Mid(KC.Text, 4, 2)
        Select Case y
            Case "MJ"
                Daerah.Text = "Medan-Johor"
            Case "MB"
                Daerah.Text = "Medan-Binjai"
        End Select
    End Sub

    Private Sub JP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JP.KeyPress
        If Asc(e.KeyChar) = 13 Then
            BT.Text = BM3.Text * JP.Text * Beban.Text
            Pajak.Text = 0.05 * BT.Text
            Pembayaran.Text = Val(BT.Text) - Val(Pajak.Text)
        End If
    End Sub
    Sub RancangTabel()
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True
        LV.Columns.Add("KC", 100)
        LV.Columns.Add("Nama", 140)
        LV.Columns.Add("Alamat", 160)
        LV.Columns.Add("Type", 110)
        LV.Columns.Add("Beban", 100)
        LV.Columns.Add("BM3", 100)
        LV.Columns.Add("JP", 100)
        LV.Columns.Add("BT", 120)
        LV.Columns.Add("Pajak", 100)
        LV.Columns.Add("Pembayaran", 120)
    End Sub
    Sub IsiTabel()
        LV.Items.Clear()
        Dim r As New ListViewItem
        r.Text = KC.Text
        r.SubItems.Add(Nama.Text)
        r.SubItems.Add(Alamat.Text)
        r.SubItems.Add(Type.Text)
        r.SubItems.Add(Beban.Text)
        r.SubItems.Add(BM3.Text)
        r.SubItems.Add(JP.Text)
        r.SubItems.Add(BT.Text)
        r.SubItems.Add(Pajak.Text)
        r.SubItems.Add(Pembayaran.Text)
        LV.Items.Add(r)
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        KC.Text = ""
        Nama.Text = ""
        Alamat.Text = ""
        Daerah.Text = ""
        Pembayaran.Text = ""
        Pajak.Text = ""
        BM3.Text = ""
        BT.Text = ""
        JP.Text = ""
        Type.Text = ""
        Beban.Text = ""
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call RancangTabel()
        Call IsiTabel()
    End Sub
End Class

Hasil penginputan data

Hasil setelah di simpan....

 

Hasil setelah di Hapus

Selesaiiiii..............(^_^)

                                                                                                                             Yunita Afrida

listview

Desain dulu formnya seperti di bawah ini..

Listing Program

Public Class Form3

    Sub bersih()
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        nidn.Text = ""
        namadosen.Text = ""
        kodematkul.Text = ""
        matkul.Text = ""
        nilaihdr.Text = ""
        ntgs.Text = ""
        ntus.Text = ""
        nahir.Text = ""
        nuas.Text = ""
        nhruf.Text = ""
        keterangan.Text = ""
    End Sub
    Sub buattabel()
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.Columns.Add("NPM", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("jurusan", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kd Dosen", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode MK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Hadir", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Tugas", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = npm.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(jenjang.Text)
            .SubItems.Add(jurusan.Text)
            .SubItems.Add(nidn.Text)
            .SubItems.Add(namadosen.Text)
            .SubItems.Add(kodematkul.Text)
            .SubItems.Add(matkul.Text)
            .SubItems.Add(nilaihdr.Text)
            .SubItems.Add(ntgs.Text)
            .SubItems.Add(ntus.Text)
            .SubItems.Add(nuas.Text)
            .SubItems.Add(nahir.Text)
            .SubItems.Add(nhruf.Text)
            .SubItems.Add(keterangan.Text)
        End With
        lv.Items.Add(lst)
        bersih()
    End Sub
    Sub ANPM()
        npm.Items.Add("12110167")
        npm.Items.Add("12110168")
        npm.Items.Add("12021234")
        npm.Items.Add("12021235")
    End Sub
    Sub matakuliah()
        kodematkul.Items.Add("KM001")
        kodematkul.Items.Add("KM002")
        kodematkul.Items.Add("KM003")
        kodematkul.Items.Add("KM004")
        kodematkul.Items.Add("KM005")
    End Sub
    Sub kodedosen()
        nidn.Items.Add("DS001")
        nidn.Items.Add("DS002")
        nidn.Items.Add("DS003")
        nidn.Items.Add("DS004")
        nidn.Items.Add("DS005")
    End Sub
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        ANPM()
        matakuliah()
        kodedosen()
    End Sub
    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 2, 2)
        If jurusan.Text = "S1" Then
            jurusan.Items.Add("Tekinik Informatiaka")
            jurusan.Items.Add("Sistem Informatika")
        ElseIf jenjang.Text = "D3" Then
            jurusan.Items.Add("Manajemen Informatika")
            jurusan.Items.Add("Akutansi")
        Else
            jurusan.Items.Add("Teknik Komputer")
            jurusan.Items.Add("Desain Grafis")
        End If

        Select Case npm.Text
            Case "12021234"
                nama.Text = "Mahmudin"
                jenjang.Text = "D3"

            Case "12110168"
                nama.Text = "Ririn Andriani"
                jenjang.Text = "S1"

            Case "12110167"
                nama.Text = "Sartika Aini"
                jenjang.Text = "S1"
        End Select
    End Sub
    Private Sub nidn_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nidn.SelectedIndexChanged
        Select Case nidn.Text
            Case Is = "DS001"
                namadosen.Text = "Mesran S.kom"
            Case Is = "DS002"
                namadosen.Text = "Syahrizal S.kom"
            Case Is = "DS003"
                namadosen.Text = "Sinar Sinurat"
            Case Is = "DS004"
                namadosen.Text = "Iqbal Batubara"
            Case Is = "DS005"
                namadosen.Text = "Soni Bahagia"
        End Select
    End Sub
    Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
        If kodematkul.Text = "KM001" Then
            matkul.Text = "Pemrograman Visual"
        ElseIf kodematkul.Text = "KM002" Then
            matkul.Text = "Teknik Digital"
        ElseIf kodematkul.Text = "KM003" Then
            matkul.Text = "Logika & Algoritma"
        ElseIf kodematkul.Text = "KM004" Then
            matkul.Text = "Basis Data"
        Else
            matkul.Text = "Struktur Data"
        End If
    End Sub
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nahir.Text = nilaihdr.Text * 0.1 + ntgs.Text * 0.15 + ntus.Text * 0.25 + nuas.Text * 0.4
        If nahir.Text >= 81 Then
            nhruf.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 75 Then
            nhruf.Text = "B+"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 70 Then
            nhruf.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf nhruf.Text >= 65 Then
            nhruf.Text = "C+"
            keterangan.Text = "Lulus"
        ElseIf nhruf.Text >= 60 Then
            nhruf.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf nahir.Text >= 50 Then
            nhruf.Text = "D"
            keterangan.Text = "Lulus"
        Else
            nhruf.Text = "E"
            keterangan.Text = "Gagal"
        End If
    End Sub

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

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        bersih()
    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 btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        buattabel()
        isitabel()
    End Sub

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

Hasil  Program setelah penginputan

 Hasil setelah di simpan ke listview

 hasil setelah penginputan data kedua

Hasil setelah  Hapus data yang ke1 dipilih...

Selesai..... (^_^)
Semoga Bermanfaat.....



                                                                                                                                      Yunita Afrida

Berisiko Terbakar, Google dan HP Tarik Seluruh Charger Chromebook 11

Google dan HP baru saja memutuskan untuk menarik seluruh charger Chromebook 11 yang saat ini ada di pasaran. Selain itu, mereka pun mengimbau kepada para pemilik HP Chromebook 11 untuk segera menukarkan charger miliknya secara cuma-cuma.

Kebijakan itu dilakukan setelah terjadi hal yang tak mengenakkan terkait charger tersebut. Bahkan menurut data Consumer Product Safety Comission, sudah ada sembilan orang yang melaporkan kepada perusahaan kalau charger miliknya overheating pada saat dipakai. Sembilan orang tersebut pun melaporkan kalau chargernya bahkan meleleh akibat panas yang ditimbulkan.
Menurut kabar yang dilansir dari PC World, seorang pengguna Chromebook 11 dilaporkan mengalami luka bakar akibat kejadian tersebut. Tak hanya itu, charger Chromebook 11 itu juga dilaporkan telah merusak bantal milik salah seorang pemiliknya lainnya.
Charger yang bermasalah tersebut terdapat pada Chromebook 11 yang dibeli sebelum tanggal 1 Desember. Sebelumnya pada pertengahan November, Google dan HP telah menghentikan penjualan Chromebook di pasaran karena adanya permasalahan ini.
Untuk memperoleh charger pengganti, pemilik Chromebook 11 bisa memilih formulir yang disediakan Google secara online. Dan untuk sementara waktu, Google menyarankan kepada para pemilik Chromebook 11 untuk memakai charger micro USB yang biasa digunakan pada tablet ataupun smartphone.
Dalam data yang diungkapkan Consumer Product Safety Comission juga terungkap angka penjualan Chromebook 11. Data tersebut mengungkapkan bahwa Google dan HP akan menarik sebanyak 145 ribu unit charger Chromebook 11 yang ada di tangan para pemiliknya. Untuk sebuah perusahaan sebesar HP dan Google, angka 145 ribu tersebut tentunya bukan angka yang besar.

Karma

Anda menuai apa yang anda tanam. apa yang anda lakukan pasti ada akibatnya. begitulah arti karma seperti yang kita pikirkan. jika anda melakukan perbuatan jelek, sesutu yang buruk akan terjadi pada anda.

pada kenyataannya, karma hanyalah sebuah sebab akibat. ia bisa negatif, tetapi juga positif. mengapa tidak menjalani kehidupan anda dengan asumsi bahwa sesuatu yang baik akan kembali pada anda, bahwa apa yang anda berikan adalah apa yang akan anda terima nantinya..? berpikirlah positif tentang itu dan kemudian jalanilah...

karma positif adalah sebuah kekuatan hidup yang menghasilkan energi konstruktif. mari kita bandingkan karma positif dengan yang negatif... :

karma negatif : hukuman dan balas dendam

karma positif : keadilan dan penghargaan

karma negatif : kebohongan dan ketidakjujuran
karma positif : kebenaran dan integritas

karma negatif : manipulasi dan kontrol

karma positif : hormat dan semangat diri

karma negatif : keagresifan dan arogansi

karma positif : ketegasan dan keramahan

karma negatif : keegoisan dan keserakahan
karma positif : kepedulian dan kesabaran

karma negatif : keraguan dan ketidakpercayaan

karma positif : keyakinan dan kepercayaan

apakah anda memiliki karma positif atau negatif, semuanya dimulai dengan pikiran positif atau negatif dalam benak anda. saya yakin bahwa tidak mungkin bagi kita untuk menemukan tujuan puncak anda jika anda berjalan dibawah karma negatif, jadi perahankan karma positif anda... lakukan tindakan dengan baik dan kemudian berdo'alah untuk memperoleh hasil yang baik...

                                                                                                                                             Yunita Afrida

Kekhawatiran

Kekhawatiran secara berlebihan adalah hal lain yang bisa mempengaruhi kondisi anda. mawas diri, hati-hati dan penuh perhatian adalah perasaan positif yang harus kita tumbuhkan pada diri kita dan orang- orang yang kita cintai. tetapi kehawatiran yang muncul terus menerus pada fenomena bayangan anda hanya akan merusak diri anda sendiri.

Apa yang harus  dilakukan? lihatlah apakah ketakutan itu benar-benar terjadi atau tidak... dalam kasus mengendarai mobil atau sepeda motor di jalan raya, sebagai contoh, apakah sebagian besar orang yang lewat jalan raya mengalami kecelakaan? tidak kan!.

orang yang diliputi kekhawatiran yang berlebihan perlu mengingat do'a Ketentraman" Tuhan menganugerahi ketentraman padaku untuk bisa menerima sesuatu yang tidak bisa ku ubah, memberikan semangat untuk mengubah sesuatu yang bisa ku ubah, dan kepekaan untuk mengetahui perbedaannya...."

jika anda tipe orang yang selalu khawatir, ubahlah kekhawatiran anda menjadi tindakan positif. jalan-jalanlah. keluar dari sumber kekhawatiran anda dengan berolahraga, bisa menyibukkan pikiran dan memberikan pandangan yang berbeda, semua itu akan membantu anda lebih sehat. advokasi. gunakan energi itu secara konstruktif untuk membantu orang lain.

                                                                                                                                       Yunita afrida

Quis online soal no 2

1. Designlah form berikut ini :

 

2.Listing Program

Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If jumlahlembar.Text >= 200 Then
            Hargaperlembar.Text = 100
        ElseIf jumlahlembar.Text <= 200 Then
            Hargaperlembar.Text = 120
        End If
        Totalharga.Text = Hargaperlembar.Text * jumlahlembar.Text


        If Totalharga.Text > 500000 Then
            discount.Text = 0.15 * Totalharga.Text
        ElseIf Totalharga.Text <= 500000 Then
            discount.Text = 0
        End If
        pembayaran.Text = Totalharga.Text - discount.Text
    End Sub

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

    Private Sub jumlahlembar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahlembar.KeyPress
        Dim y As Integer = Asc(e.KeyChar)
        If y = 13 Then
            BtnProses_Click(sender, e)
        End If

    End Sub
End Class

3. Hasil Program sebelum di Proses

 4. Hasil Program setelah Di Proses

5. Selesai.......(^_^)

                                                                                                                                   Yunita Afrida

Mengenang.....

Sepu                         Sepucuk Surat Dari Ibu Dan Ayah

                      Anakku ….Ketika aku semakin tua, aku Harap kamu memahami dan memiliki kesabarana untukku.. suatu ketika aku memecahkan piring, atau menumpahkan sup di atas meja, karena penglihatanku berkurang, aku harap kamu tidak memarahiku…

                      Orang tua itu sensitif, selalu merasa bersalah saat kamu berteriak, ketika pendengaranku semakin memburuk dan aku tidak bias mendengar apa yang kamu katakana, aku harap kamu tidak memanggilku”tuli”! mohon ulangi apa yang kamu katakan atau menuliskannya.

          Maaf anakku,,, aku semakin tua, ketika lututku mulai lemah, aku harap kamu memiliki kesabaran untuk membantuku bangun, seperti bagaimana aku selalu membantu kamu saat kamu masih kecil, untuk belajar berjalan.

 Aku mohon, jangan bosan dengan ku….ketika aku terus mengulangi apa yang aku katakan, seperti kaset rusak. Aku harap kamu terus mendengarkan aku, tolong jangan mengejekku, atau bosan mendengarkanku.. apakah kamu ingat, ketika kamu masih kecil dan kamu ingin sebuah balon?... kamu mengulangi apa yang kamu mau berulang- ulang sampai kamu mendapatkan apa yang kamu inginkan.

Maaf juga bauku, tercium seperti orang yang sudah tua… aku mohon jangan memaksaku untuk mandi, tubuhku lemah, orang tua mudah sakit, karena mereka rentan terhadap dingin.. aku harap,aku tidak terlihat kotor bagimu,,, apakah kamu ingat, ketika kamu  masih kecil?... aku selalu mengejar-ngejar kamu, karena kau tidak ingin mandi… aku harap kamu bias bersabar denganku, ketika aku selalu rewel, ini semua bagian dari menjadi tua…

Kamu akan mengerti, ketika kamu tua. Dan jika kamu memiliki waktu luang, aku harap kita bias berbicara, bahkan untuk beberapa menit, aku selalu sendiri sepanjang waktu,dan tidak memiliki seseorang pun untuk di ajak  bicara, aku tau kamu sibuk dengan pekerjaan. Bahkan jika kamu tidak tertarik pada ceritaku, aku mohonberikan aku waktu untuk bersamamu….

apa  kah kamu ingat, ketika kamu masih kecil?... aku selalu mendengarkan apapun yang kamu ceritakan tentang mainanmu… ketika  saatnya tiba…. Dan aku hanya bias terbaring, sakit dan sakit,,, aku harap kamu memiliki kesabaran untuk merawatku…

Maaf….. kalau aku sengaja mengompol atau membuat berantakan, aku harap kamu memiliki kesabaran untukku, selama beberapa saat terakhir dalam hidupku…  aku mungkin tidak bertahan lebih lama, ketika waktu kematianku dating… aku harap kamu memegang tanganku dan memberikanku kekuatan untuk menghadapi kematian…

Dan jangan khawatir,.. ketika aku bertemu dengan sang pencipta, aku akan berbisik padan-NYA untuk selalu memberikan berkah padamu,,, karena kamu mencintai IBU DAN AYAHMU Terimakasih atas segala perhatianmu nak…. Kami mencintaimu…

                                                                   Dengan kasih yang berlimpah

                                                                             IBU & Ayah

Mom+ dad = me

Quis Online Pemrograman VisualBasic.net soal 1

1. Designlah form berikut ini :

 

2.Listing Program

Public Class Form1

  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")

        BuatTabel()
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        If x = "TS" Then
            Merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            Merk.Text = "V-GEN"
        End If

        x = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)
        If x = "001" Then
            NamaBarang.Text = "Flashdisk 4GB"

        ElseIf x = "002" Then
            NamaBarang.Text = "Flashdisk 2GB"
        End If

        If KodeBarang.Text = "TS001" Then
            Harga.Text = 105000
        ElseIf KodeBarang.Text = "TS002" Then
            Harga.Text = 75000
        ElseIf KodeBarang.Text = "VG001" Then
            Harga.Text = 90000
        ElseIf KodeBarang.Text = "VG002" Then
            Harga.Text = 60000
        End If
    End Sub

    Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        Dim a As Integer = Asc(e.KeyChar)
        If a = 13 Then
            TotalHarga.Text = Harga.Text * JumlahBeli.Text
        End If
    End Sub

    Sub BuatTabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim y As New ListViewItem
        y.Text = Nopembelian.Text
        y.SubItems.Add(KodeBarang.Text)
        y.SubItems.Add(NamaBarang.Text)
        y.SubItems.Add(Merk.Text)
        y.SubItems.Add(Harga.Text)
        y.SubItems.Add(JumlahBeli.Text)
        y.SubItems.Add(TotalHarga.Text)
        LV.Items.Add(y)
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTabel()
        Nopembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        Nopembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    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 BnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BnHapusData.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

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

3. Hasil Program sebelum di simpan ke listview

 

4. Hasil Program setelah di simpan ke listview

 

6. SELESAI...... (^_^)

                                        

                                                                                                                       Yunita Afrida