DUAPULUHTAHUNKU!

SELAMAT ULANG TAHUN RINA ..

makasih yang udah ngasih doanya yang baik  makasih yang udah ngasih ucapanya makasih juga yang udah ngecewain malem ini . malem ke duapuluhtahunku ..
aishhhh ya alloh aku hanya berdoa semoga ini yang terbaik ini jalan yang diridhoimu .sekalipun aku harus ngejalanin sendiri semoga itu akan ada hikmahnya buat kedepan nanti ..
semuanya telah pergi ,terimakasih sayang terimakasih kedua orangtuaku sahabat sahabatku .
missyou :*

Latihan Tugas Pemrograman Visual 1

Penjelasan : 

1 . Paling  awal pada kotak sebelah kiri kita mengisi dan masuk ke kotak list yang pertama
2.  Klik angka 1 - 10 untuk menambahkan list yang pertama
3.  Lalu klik salah satu diantara dari semua angka tersebut untuk pindah ke kotak list  kedua .
4.  Tetapi jika mendapat pesan semua angka pindah ke kotak list kedua maka semuanya akan pindah termasuk yang sebelumnya sudah diklik untuk pindah .Angka yang pindah ke kotak list  kedua sesuai urutan pemindahan .





Script Program :

‘Button Isi Data
Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click
        ListBox1.Items.Add(TextBox1.Text)
    End Sub

‘Button 1-10
Private Sub Bt1-10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1-10Click
        Dim A As Integer
        A = 0
        Do
            A = A + 1
            ListBox1.Items.Add(A)
        Loop Until A = 10
    End Sub

 ‘Button Satu
Private Sub Btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsatu.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End Sub

‘Button Beberapa
Private Sub Btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbeberapa.Click
        Dim obj As Object
        For Each obj In ListBox1.SelectedItems
            ListBox2.Items.Add(obj)
        Next
    End Sub

‘Button Semua
Private Sub Btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsemua.Click
        ListBox2.Items.AddRange(ListBox1.Items)

    End Sub

‘Button Hapus Satu
Private Sub Bthpssatu.Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssatu.Click
        Dim obj As Object
        obj = ListBox2.SelectedItem
        ListBox2.Items.Remove(obj)
    End Sub

‘Button Hapus Beberapa
Private Sub Bthpsbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpsbeberapa.Click

        For i As Integer = 0 To ListBox2.SelectedIndices.Count - 1
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
        Next
    End Sub

‘Button Hapus Semua
Private Sub Bthpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssemua.Click
        ListBox2.Items.Clear()
    End Sub

‘Button Tutup
Private Sub Bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttutup.Click
        Me.Close()

    End Sub

SABAR TANPA BATAS !

MENERIMA, MENGIKHLASKAN ,DAN BERSABAR !!!

tanpa harus mendengarkan saran ataupun berpikir ulang kembali .
seharusnya sadar akan tiga kata diatas itu .
apapun masalahnya ,apapun cobaannya dan apapun tegurannya dari Alloh itulah jalan takdirnya .mau kita mendapat hal yang menyenangkan ya bersyukur ataupun menyedihkan tetep harus bersyukur lagi .
tergantung bagaimana kita menyikapinya .


memang tak mudah untuk menyatukan pikiran dan perasaan disaat harus menerima keadaan saat ini ,keadaan yang mematahkan mimpi mimpi belaka dan hanyalah fiktif php .bahkan harus juga mengikhlaskan atau meninggalkan mimpi itu .
kuncinya emang hanya satu SABAR TANPA BATAS !!
dan seperti yang orang tua bilang " sekiranya apa yang kita kejar itu berlari ,berhentilah .yakin bahwa Alloh mendekatkan apa yang tak terlihat o:) "




*aku
Mungkin salah menanggapi presepsi selama ini , saat aku berpikir positif dengan kebaikan kebaikan itu tapi ternyata itu tak sama tak sesuai dg yang aku harapkan .
oleh karenanya ,jika sudah tak pantas berharap lebih baik aku berhenti karena sudah tak lagi sama .
makasih yaa banyak hal baru yang aku dapetin dr setiap masalah yang menyenangkan maupun menyedihkan mulai dari kerjaan kuliah bahkan kehidupan disekitarnya .
semua memberi perubahan ke arah positif kok ..
Terima Kasih ya Alloh ..