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
Riski Rahayu
Sabtu, 04 Februari 2017
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…
Minggu, 08 Januari 2017
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.
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
Langganan:
Postingan (Atom)