Image

Iklan

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…………

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…