Kumpulan Puisi

AYAH
Oleh Restu  Maduwu

Disetiap tetes keringatmu
Di derai lelah nafas mu
Si penuhi kasih sayang yang luar biasa
Demi aku kau rela si sengat matahari
Hujan pun tak dapat membatasi mu 
untuk aku anakmu...
Si setiap doamu kau haturkan segenap harapan

Ayah...
kan ku jaga setiap nasehatmu
Di setiapnafas ku 
Di relung hati akan ku hangatkan nmamu
Akan ku kobarkan semua impianmu
Hanya untuk menikmati senyumu 
Di ufuk senjamu 
Ayah


AYAH SEGALANYA UNTUKKU
Oleh Restu

Ayah..
Beribu kata telah kau ucapkan..
Beribu cinta tlah kau berikan ..
Beribu kasih telah kau curahkan..
Hanya untuk anak mu..

Ayah..
Kau ajarkan ku tentang kebaikan..
Kau tunjukan ku tentang arti cinta..
Kau jelaskan ku tentang makna kehidupan..
Dan kau mendidik ku dengan sungguh kasih sayang..

Ayah..
Betapa mulianya hati mu..
Kau korbankan segalanya demi anak mu..
Kau banting tulang hanya untuk anak mu..

Kini ku berjanji untuk semua kerja keras mu..
Ku berjanji untuk semua kasih sayang mu..
Dan ku berjanji untuk ketulusan hati mu..
Bahwa aku akan selalu menjaga mu..
Aku akan selalu menyayangi mu hingga akhir hiup ku..


JATUH CINTA
Oleh Restu

Siluet senja memanjakan hati
seperti dirimu yang selalu kunanti
kunanti dengan penuh harap
berharap aku dan kamu saling menatap
menatap dengan mata yang penuh cinta

Seperti embun pagi yang sejuk
senyummu hilangkan dahagaku
seperti menyiram kerongkonganku
dengan cawan yang penuh salju

Mungkin benar kata orang 
jatuh cinta membuat orang kehilangan iman
bahkan tuhanpun aku lupakan demi memikirkan dirimu
sungguh aku benar-benar jatuh cinta padamu.

Belajar VB.Net

Public Class Form2

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

        For i = 1 To 30

            ComboBox1.Items.Add(i)

        Next i

        For i = 1 To 255

            ListBox1.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

        For i = 255 To 1 Step -1

            ListBox2.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

        ListBox2.Items.Clear()

        For i = 10 To 1 Step -1

            ListBox2.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

    End Sub

End Class

Tentang Mesran