Rasa yang tertinggal
aku mencintaimu
aku menyayangimu
tiada pernah ku ragu
dan engkau pasti tau itu
jujur dalam hati ini
aku ingin bersamamu
hidup selamanya denganmu
sampai kita terhimpit bumi
namun apalah dayaku
jika kita tak akan bersatu
karena itu bukan kehendakku
untuk membuat kita menjadi satu
Rasa yang ter…
Tugas VB
Nama : Rika Febriana
NPM : 11201083
1.a
b.
c.
before
after
kode program
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = ” “
Txtnpm.Text = ” “
Txtkelas.Text = ” “
Txtjur.Text = ” “
TxtPS.Text = ” “
Txttm.Text = ” “
Txtnu.Text = ” “
Txtuang.Text = ” “
Txtbiaya.Text = ” “
TxtUB.Text = ” “
TxtBA.Text = ” “
TxtTot.Text = ” “
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = ” “
Txtnpm.Text = ” “
Txtkelas.Text = ” “
Txtjur.Text = ” “
TxtPS.Text = ” “
Txttm.Text = ” “
Txtnu.Text = ” “
Txtuang.Text = ” “
Txtbiaya.Text = ” “
TxtUB.Text = ” “
TxtBA.Text = ” “
TxtTot.Text = ” “
End Sub
Private Sub Cmdproses_Click()
Dim npm As String
npm = Left(Txtnpm.Text, 1)
If npm = “E” Or npm = “e” Then
Txtkelas.Text = “Eksekutif”
ElseIf npm = “R” Or npm = “r” Then
Txtkelas.Text = “Reguler”
End If
npm = Mid(Txtnpm.Text, 5, 1)
If npm = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf npm = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf npm = “3” Then
Txtjur.Text = “Manajemen Dan Komputer Akutansi”
End If
npm = Mid(Txtnpm.Text, 6, 2)
If npm = “01” Then
TxtPS.Text = “Strata Satu”
ElseIf npm = “02” Then
TxtPS.Text = “Diploma tiga”
ElseIf npm = “03” Then
TxtPS.Text = “Diploma Satu”
End If
npm = Mid(Txtnpm.Text, 3, 2)
Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
npm = Right(Txtnpm.Text, 3)
Txtnu.Text = npm
If Txtkelas.Text = “Eksekutif” Or Txtkelas.Text = “Reguler” Or TxtPS.Text = “strata satu” Then
Txtuang.Text = “200000”
ElseIf TxtPS.Text = “Diploma Tiga” Or TxtPS.Text = “Diploma Satu” Then
TxtPS.Text = “150000”
End If
If Txtkelas.Text = “Eksekutif” Or TxtPS.Text = “strata Satu” Then
Txtbiaya.Text = “1900000”
ElseIf TxtPS.Text = “Diploma Tiga” Then
Txtbiaya.Text = “1650000”
ElseIf TxtPS.Text = “Diploma Satu” Then
Txtbiaya.Text = “1350000”
ElseIf Txtkelas.Text = “Reguler” Or TxtPS.Text = “strata satu” Then
Txtbiaya.Text = “1500000”
ElseIf TxtPS.Text = “Diploma Tiga” Or TxtPS.Text = “Diploma Satu” Then
Txtbiaya.Text = “1250000”
End If
If Txtkelas.Text = “Eksekutif” Or TxtPS.Text = “strata Satu” Or TxtPS.Text = “diploma tiga” Or TxtPS.Text = “Diploma Satu” Then
TxtUB.Text = “1250000”
ElseIf Txtkelas.Text = “Reguler” Or TxtPS.Text = “Strata Satu” Or TxtPS.Text = “diploma Tiga” Or TxtPS.Text = “diploma Satu” Then
TxtUB.Text = “1000000”
End If
If Txtkelas.Text = “Eksekutif” Or Txtkelas.Text = “Reguler” Or TxtPS.Text = “strata Satu” Or TxtPS.Text = “diploma Tiga” Or TxtPS.Text = “diploma tiga” Then
TxtBA.Text = “600000”
End If
TxtTot.Text = Val(Txtuang.Text) + Val(Txtbiaya.Text) + Val(TxtUB.Text) + Val(TxtBA.Text)
TxtTot.SetFocus
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdproses.SetFocus
End If
End Sub
INGINKU
Hari ini
Tanpa terasa waktu cepat berlalu
Mengambil sisa hidup
Dan tak dapat Q hentikan
Pagi telah berlalu
Siang telah berlalu
Dan …..
Sebentar lagi malam
Pasti akan berlalu
Selama bertahun-tahun Q jalani hidup
Apa yang telah Q lakukan
Apa yang telah Q dapatkan
Serta apa yang tersisa??
Saat ini
Q tak akan siap….
Sekarang ini
Q masih atuutt……
Kalau hari harus
Bertemu dengan-Mu
Dipanggil oleh-Mu…Yaa Illahi.
Karena………….
Hati ini terasa
Masih begitu gelap
Penuh debu dosa-dosa
Dan
Penuh keinginan…..
Tak sewajarnya……..hitam yang tersisa
Hanya dosa yang Q punya
Namun …
Q masih percaya masih ada jalan
Menuju kearah-Mu
Memohon ampunan dari-Mu
Serta menatap-Mu
Dengan senyum…………
KEKASIH HATI
Akan kutemukan seseorang yg mau mengerti aku… Yg akan mendampingi aku dlm suka dan duka…menerima aku apa adanya… Seiring jalan damai melangkah bersama disisiku,dengan mencintaiku dan menyayangiku Ridho karna Allah swt.
KEKASIH HATIAka…
BERSAMAMURIKA F…
BERSAMAMU
RIKA FEBRIANA,ZMG
SATU SETENGAH JAM
Kuterjaga dari lamunanku ,masih ada
Riuh disudut-sudut ruangan.
Lalu kau tiba dengan memberi salam …
Sejenak kami hening,lalu kami menjawab
Salam mu…..
Telah berdiri di depan kami,seorang
Hitam ,gagah, besar tinggi,itulah
Yang selalu tersimpan dalam memoriku
Tentang sosok itu.ah tidak,ini yang
Paling tak dapat kulupakan cara mu
Mengajar kami….
Sungguh,dapat membuat kami,
Hati kami kagum akan sosok mu.
Celotehan-celotehan yang kau sampaikan
Sungguh membuat kami semakin
Mencintai pelajaran yang kau ajarkan
Kepada kami.walau terkadang kau
Dapat mengocok perut kami membuat
Kami geli karna nya.
Satu setengah jam berlalu.
Rasanya baru saja kau ucapkan salam
Kepada kami ,tapi telah tiba kembali
Waktu tu mengakhiri bidang study yang
Kau ajarkan kepada kami,
Bahasa Indonesia,ya ,itulah
Bidang study yang kau ajarkan
Kepada kami.
Sungguh melalui waktu dengan
Menggikuti pelajaran yang kau sampaikan
Bagiku begitu menyenangkan walau
Hanya satu setengah jam kau dapat
Berbagi ilmu pada kami….
Pringsewu januari 2012
BERSAMAMURIKA F…
rika and yovi
rikazamegstmikpringsewu 