Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b As String
a = Left(txtnpm.Text, 1)
If a = “E” Or a = “e” Then
txtkelas.Text = “Eksekutif”
txtbangun.Text = “1250000″
ElseIf a = “R” Or a = “r” Then
txtkelas.Text = “Reguler”
txtbangun.Text = “1000000″
End If
txtpropti.Text = “600000″
a = Mid(txtnpm.Text, 5, 1)
If a = “1″ Then
txtjurus.Text = “Sistem Informasi”
ElseIf a = “2″ Then
txtjurus.Text = “Manajemen Informatika”
ElseIf a = “3″ Then
txtjurus.Text = “Manajemen dan Komp.Akutansi”
End If
a = Mid(txtnpm.Text, 6, 2)
If a = “01″ Then
txtpro.Text = “Strata Satu”
txtdaftar.Text = “200000″
ElseIf a = “02″ Then
txtpro.Text = “Diploma Tiga”
txtdaftar.Text = “150000″
ElseIf a = “03″ Then
txtpro.Text = “Diploma Satu”
txtdaftar.Text = “150000″
End If
txtno.Text = Right(txtnpm.Text, 3)
txttahun.Text = “20″ & Mid(txtnpm.Text, 3, 2)
If txtkelas.Text = “Eksekutif” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1900000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1650000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1350000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1500000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1250000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1250000″
End If
txttotal.Text = Val(txtdaftar.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub cbokode_Click()
txtjj.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim penjualan, discount, kode, merk, bayar, a, b As String
Dim harga As Variant
kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
ElseIf kode = “MC968″ Then
merk = “Apple MacBook Air MC968″
harga = “9900000″
ElseIf kode = “MC969″ Then
merk = “Apple MacBook Air MC969″
harga = “11900000″
ElseIf kode = “MC700″ Then
merk = “Apple MacBook Air MC700″
harga = “10800000″
ElseIf kode = “MC721″ Then
merk = “Apple MacBook Air MC721″
harga = “15900000″
ElseIf kode = “MC723″ Then
merk = “Apple MacBook Air MC723″
harga = “19300000″
ElseIf kode = “MC724″ Then
merk = “Apple MacBook Air MC724″
harga = “13700000″
ElseIf kode = “MC311″ Then
merk = “Apple MacBook Air MC311″
harga = “24200000″
ElseIf kode = “MC313″ Then
merk = “Apple MacBook Air MC313″
harga = “11900000″
ElseIf kode = “MC314″ Then
merk = “Apple MacBook Air MC314″
harga = “14700000″
ElseIf kode = “MC318″ Then
merk = “Apple MacBook Air MC318″
harga = “17600000″
ElseIf kode = “MC322″ Then
merk = “Apple MacBook Air MC322″
harga = “21300000″
ElseIf kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
End If
txtmerk.Text = merk
txths.Text = harga
a = Val(txtjj.Text)
b = Val(txths.Text)
penjualan = a * b
txthp.Text = penjualan
Select Case txthp.Text
Case Is > 140000000
discount = 0.15 * penjualan
Case Is > 135000000
discount = 0.1 * penjualan
Case Is > 130000000
discount = 0.05 * penjualan
Case Is > 125000000
discount = 0.02 * penjualan
End Select
penjualan = Val(txthp.Text)
txtdis.Text = discount
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
txthp.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
cbokode.AddItem “Apple MC968 MasBook Air”
cbokode.AddItem “Apple MC969 MasBook Air”
cbokode.AddItem “Apple MC700 MasBook Pro”
cbokode.AddItem “Apple MC721 MasBook Pro”
cbokode.AddItem “Apple MC723 MasBook Pro”
cbokode.AddItem “Apple MC724 MasBook Pro”
cbokode.AddItem “Apple MC311 MasBook Pro”
cbokode.AddItem “Apple MC313 MasBook Pro”
cbokode.AddItem “Apple MC314 MasBook Pro”
cbokode.AddItem “Apple MC318 MasBook Pro”
cbokode.AddItem “Apple MC322 MasBook Pro”
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
End Sub
Private Sub cmdbersih_Click()
txtbil1.Text = “”
txtbil2.Text = “”
txthasil.Text = “”
End Sub
Private Sub cmdhitung_Click()
txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
<br>
1. NPM :
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub
3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub
4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub
5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub
<br>
<br>
1. Kode Buah :
Private Sub txtkb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnb.SetFocus
End If
End Sub
2. Nama Buah :
Private Sub txtnb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthb.SetFocus
End If
End Sub
3. Harga Buah :
Private Sub txthb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjb.SetFocus
End If
End Sub
4. Jumlah Beli :
Private Sub txtjb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttb.Text = Val(txthb.Text) * (txtjb.Text)
End If
End Sub
5. Total Bayar :
Private Sub txttb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
6. Lagi :
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub
7. Batal :
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
End
End Sub
Hanya kepadamu harapan ku sandangkan
Hanya kepadamu cita- cita dipertaruhkan
Tak ada sesuatu yang tak mungkin bagimu
Bangkitlah melawan arus yang terus mendera
Kuasailah dirimu dengan sikap optimis
Paculah laju kudamu sekencang-kencangnya
Lawanlah bebatuan terjal yang mengusik di jalanan
Ingat, Engkau adalah harapan, engkau adalah masa depan
Masa depan ada di tanganmu
Harapan terpendam ada di pundakmu
Nasib bangsa engkau yang menentukan
Ialah Guru
Yang mendidik ku
Yang membekali ku ilmu
Dengan tulus dan sabar
Senyummu memberikan semangat untuk kami
Menyongsong masa depan yang lebih baik
Setitik peluhmu
Menandakan sebuah perjuangan yang sangat besar
Untuk murid-muridnya
Terima kasih Guru
Perjuanganmu sangat berarti bagiku
Tanpamu ku tak akan tahu tentang dunia ini
Akan selalu ku panjatkan doa untukmu
Terimakasih Guruku
tak pernah kau isi
Mungkin hanya ada warna hampa, gelap
tak bisa apa-apa, tak bisa kemana-mana
Tapi kini dunia kami penuh warna
Dengan goresan garis-garis, juga kata
Yang dulu hanya jadi mimpi
Kini mulai terlihat bukan lagi mimpi
Itu karena kau yang mengajarkan
Tentang mana warna yang indah
Tentang garis yang harus dilukis
Juga tentang kata yang harus dibaca
Terimakasih guruku dari hatiku
Untuk semua pejuang pendidikan
Dengan pendidikanlah kita bisa memperbaiki bangsa
Dengan pendidikanlah nasib kita bisa dirubah
Apa yang tak mungkin kau jadikan mungkin
Hanya ucapan terakhir dari mulutku
Di hari pendidikan nasional ini
Gempitakanlah selalu jiwamu
wahai pejuang pendidikan Indonesia
Taukah kamu berapa lama masa yang kita lewati bersama??
Aku tak ingin tau,
Karna kamu selamanya bagiku…..
Bersamamu,
Tangisku kan terurai menjadi tawa
Dukaku kan terpecah menjadi bahagia
Dan airmata yang terlanjur jatuh….
Takan berubah menjadi nestapa
Denganmu,kepenatanku tergilas sirna
Terkadang disatu waktu,
Prasangka pernah menjauhkanmu dariku
Tapi sungguh kawan,
Amarah takkan bisa bertahan lama dikalbuku
Kusadari aku terikat jauh kedalam hatimu
Ingatkah kawan,
Kita pernah duduk bersama
Melukis langit dengan impian
Tentang aku , kamu dan kehidupan….
bila diriku terkena air mata dalam kesedihanku,
disanalah diriku bisa berbagi dalam hidupku, yang tak pernah aku dapatkan d’tempat lain…
hanya sahabatlah yang mampu mengerti dan pahami,
apa yang sedang aku alami saat ni..
tanpa sahabat..
bagai jiwa yang terlepas dari ragaku..
membuat ragaku tak mampu bergerak dalam setiap langkahku..
persahabatan ini kan abadi..
meski d’dunia nih tak kan ada yang abadi..
Setahun yang lalu dia terbaring
tetapi bukan tidur, sayang
sebuah lubang peluru bundar didadanya
senyum bekunya mau berkata, kita sedang perang
dia tidak ingin bila mana dia datang
kedua tanganya memeluk senapan
dia tidak tahu untuk siapa dia datang
kemudian dia terbaring, tapi bukan tidur sayang
wajah sunyi setengah tengadah
menangkap sepi padang senja
dunia tambah beku di tengah derap dan suara merdu
dia masih sangat muda
hari itu 10 November, hujanpun mulai turun
orang-orang ingin kembali memandangnya
sambil merangkai karangan bunga
tapi yang tampak, wajah-wajahnya sendiri yang takdikenalnya
sepuluh tahun yang lalu dia terbaring
tapi bukan tidur, sayang
sebuah peluru bundar di dadanya
senym bekunya mau berkata : aku sangat muda
febriyansetiawan 