DATA BASE

Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

tugas 6

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkel.Text = “”

txtjur.Text = “”

txtpro.Text = “”

txtthn.Text = “”

txtno.Text = “”

txtup.Text = “”

txtbipes.Text = “”

txtub.Text = “”

txtbipa.Text = “”

txttot.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkel.Text = “”

txtjur.Text = “”

txtpro.Text = “”

txtthn.Text = “”

txtno.Text = “”

txtup.Text = “”

txtbipes.Text = “”

txtub.Text = “”

txtbipa.Text = “”

txttot.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim eksekutif, reguler, tahun, jurusan, study, kelas, no As String

n = Left(txtnpm.Text, 1)

If n = “E” Or n = “e” Then

kelas = “Eksekutif”

bangunan = “1250000”

ElseIf n = “R” Or n = “r” Then

kelas = “Reguler”

bangunan = “1000000”

End If

property = “600000”

txtbipa.Text = property

txtub.Text = bangunan

tahun = “20” & Mid(txtnpm.Text, 3, 2)

txtthn.Text = tahun

txtkel.Text = kelas

n = Mid(txtnpm.Text, 5, 1)

If n = “1” Then

jurusan = “Sistem Informasi”

ElseIf n = “2” Then

jurusan = “Manajemen Informatika”

ElseIf n = “3” Then

jurusan = “Manajemen dan Kom. Akuntansi”

End If

txtjur.Text = jurusan

n = Mid(txtnpm.Text, 6, 2)

If n = “01” Or n = “00” Then

study = “Strata Satu”

biaya = “200000”

ElseIf n = “02” Then

study = “Diploma Tiga”

biaya = “150000”

ElseIf n = “03” Then

study = “Diploma Satu”

biaya = “150000”

End If

If kelas = “Eeksekutif” And study = “strata satu” Then

pendidikan = “1900000”

ElseIf kelas = “Eeksekutif” And study = “Diploma Tiga” Then

pendidikan = “1650000”

ElseIf kelas = “Eeksekutif” And study = “Diploma satu” Then

pendidikan = “1350000”

ElseIf kelas = “Reguler” And study = “Strata Satu” Then

pendidikan = “1500000”

ElseIf kelas = “Reguler” And study = “Diploma Tiga” Then

pendidikan = “1250000”

ElseIf kelas = “Reguler” And study = “Diploma Satu” Then

pendidikan = “1250000”

 

End If

txtkel.Text = kelas

txtpro.Text = study

txtbipes.Text = pendidikan

 

no = Right(txtnpm.Text, 3)

txtno.Text = no

txtup.Text = biaya

txttot.Text = Val(txtup.Text) + Val(txtbipes.Text) + Val(txtub.Text) + Val(txtbipa.Text)

 

 

End Sub

 

 

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

harapan hati

Ku terbangun dari tidur lelapku
Udara yang dingin masih menyelimuti tubuhku
Ku buka mata perlahan
Ku hirup dalam-dalam sejuknya udara Malam
Seketika fikiranku tersentak
Mengingat akan dirimu. .
Dirimu yang kini jauh disana
Entah dimana dan sedang apa ???
Hatiku pilu gundah dan gelisah
Setiap kali ingat dirimu
Sosok yang pernah hadir
Mengisi relung hatiku
Dengan butiran-butiran cinta yang indah
Namun mengapa kini menghilang???
Seolah musnah ditelan bumi. .
Akankah dirimu kembali lagi ???

penghujung kekelaman hati

Dalam kekelaman hati
Aku terdiam
Mendengar alunan musik yang menghiburku
Ku rasa ada sesuatu yang mengganjal di hatiku

Ku rasa ada setitik keresahan yang tak dapat ku pecahkan

Entah
Aku tak tahu apa yang sedang ku rasakan
Aku tak mengerti kedaan hatiku sendiri

Satu yang aku inginkan
Hanya ingin terbebas dari kekelaman hati ini
Rasanya seperi mati perlahan
Bebaskanlah aku dari hati yang tak tenang ini

kerinduan hati

 

Cinta ini mulai tertimbun waktu
Hiruk pikuk rindu pun menderu
Menjual asa yang menggebu
Mengenang waktu yang telah berlalu

Waktu…waktu…waktu…
Sampai kapan kau buat cinta ini bisu ?
Hingga hati ini mulai layu
Tertutup sejuta rasa rindu

Rindu…rindu…rindu…
Sampai kapan kau kan berlalu ?
Hingga hati ini mulai redup
Mendamba cinta untuk bertemu

Rasa ini mulai mengadu
Pada cinta yang terlarut waktu
Agar rindu pergi berlalu
Untuk hati yang kembali bersatu

kehilangan sahabat

Puisi Kehilangan Sahabat Sejati

Kenapa ? ? ?
Kenapa kau begitu cepat meninggalkanku
Tanpa berkata apapun
Membuatku tak mengerti maksudmu

Kau telah menjadi bagian hidupku
Aku ingin kau kembali padaku
Hidupku hampa tanpamu sahabatku
Kenapa Tuhan?

Kenapa kau ambil sahabat sejatiku secepat ini?
Aku masih ingin terus bersamanya
Seperti masa masa itu

Tuhan,,
Sekarang ku hanya bisa berdoa
Semoga kau selalu menjaga sahabat sejatiku. .
I Always To Hope For U God. .

kesedihan karena sakit hati

Andai saja kau tau betapa sakitnya hati ini
mungkin kau akan menangis bila merasakanya
Aku tak bsa hdup tanpa drimu dsisiku

Kasih tahu kah kamu betapa ku mencintai
dan menyayangimu sepnuh hatiku
Kini kau tega meninggalkanku dengan alasan yg tak jelas
tak Mudah untk mengenang tp sulit untk mulupakan
Ksdihan ini tak brhnti sblum sang malikat mengantarku ksurga nanti. . . . Thanks

penantian

Setiap hari ku selalu memikirkanmu
menangisi akan kepergianmu
yang tak pernah bisa kupungkiri

Aku selalu menanti kedatanganmu
di setiap mimpi indahku

Aku selalu menantimu yang tak pasti
kapan datangnya hari itu

Entah mengapa aku sangat merindukanmu
rindu yang tak pernah ada habisnya

pantun sahabat

Di Kalimantan membangun rumah
Rumah dibangun ditengah desa
Persahabatan yang paling indah
Takkan ku lupa sepanjang masa

Makan roti di Filipina
Makan ketupat di Malaysia
Tak pernah hati ini merana
Karena sahabat selalu setia

pantun sahabat

buah duku buah rambutan
cuci piring bawah jembatan
entah jodohku entah bukan
yang penting persahabatan