2

Untitled-2

 

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

 

By agesriskiamelia

RAHMA

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()

Select Case a = Mid(txtnik.Text, 5, 1)
Case a = “A”
txtgol = “A”
txtjabatan.Text = “MANAGER”
txtgapok.Text = “4000000

txttunjangan.Text = “1025000

Case a = “B”
txtgol.Text = “B”
txtjabatan.Text = “Ka.SEKSI”
txtgapok.Text = “3500000

txttunjangan.Text = “975000

Case a = “C”
txtgol.Text = “C”
txtjabatan.Text = “STAFF”
txtgapok.Text = “3000000

txttunjangan.Text = “925000

End Select

a = Right(txtnik.Text, 3)
If a = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf a = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf a = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf a = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf a = “SPM” Then
txtbagian.Text = “SECURITY”
End If

Select Case a = Mid(txtnik.Text, 7, 1)
Case a = “S”
kode = “S”
Status = “SINGEL”
Case a = “M”
kode = “M”
Status = “MENIKAH”
Case a = “J”
kode = “J”
Status = “JANDA”
Case a = “D”
kode = “D”
Status = “DUDA”
End Select
txtkode.Text = kode
txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

 

By agesriskiamelia

ENTRI PENJUALAN LAPTOP APPLE

age

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

 

By agesriskiamelia

Untitled-1

Private Sub cmdproses_Click()

kodetiket = Left(txtkt.Text, 3)

If kodetiket = “bim” Then
jeniskereta = “bima”
hatgatiket = “50000”
jamberangkat = “16.00”
ElseIf kodetiket = “eko” Then
jeniskereta = “ekonomi”
hargatiket = “35000”
jamberangkat = “19.00”
ElseIf kodetiket = “mut” Then
jeniskereta = “mutiara”
hargatiket = “23000”
jamberangkat = “17.00”
ElseIf kodetiket = “sen” Then
jeniskereta = “senja”
hargatiket = “15000”
jamberangkat = “20000”

End If
txtkt.Text = kodetiket
txtjk.Text = jeniskereta
txtht.Text = hargatiket
txtjb.Text = jamberangkat

txtjt.SetFocus

End Sub

Private Sub Form_Activate()
txtkt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub

By agesriskiamelia

Huruf mutu mahasiswa

FORM5

Private Sub cbonpm_Click()

Select Case cbonpm.Text

Case “12100035”

nama = “AGES RISKI AMELIA”

jurusan = “Sistem Informasi”

Case “12100024”

nama = “VITA NOVY ANTI”

jurusan = “Sistem Informasi”

Case “12100036”

nama = “INES PURNAMA SARI”

jurusan = “Sistem Informasi”

End Select

txtnma.Text = nama

txtjrs.Text = jurusan

txtnq.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnma.Text = “”

txtjrs.Text = “”

txtnq.Text = “”

txtnt.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

NA = (quis + tugas + uts + uas) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Select Case txtna.Text

Case Is > 70

HM = “B”

Select Case txtna.Text

Case Is > 60

HM = “C”

Select Case txtna.Text

Case Is > 50

HM = “D”

Select Case txtna.Text

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “12100036”

cbonpm.AddItem “12100038”

cbonpm.AddItem “12100039”

 

End Sub

 

 

 

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

 

 

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

 

 

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

By agesriskiamelia

• Aplikasi perhitungan gaji

FORM4

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdulang_Click()

txtgapok = “”

txttunjangan = “”

txtpot = “”

txtgator = “”

txtgama = “”

End Sub

 

Private Sub txtgapok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttunjangan.SetFocus

End If

End Sub

By agesriskiamelia

• CARA MENGHITUNG HARGA SETELAH DISKON 10%

FORM3

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()

end

End Sub

By agesriskiamelia

PERKALIAN DUA BILANGAN

BASIUNG

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

By agesriskiamelia

Manfaat Minum Air Putih Setelah Bangun Tidur

Manfaat Minum Air Putih Setelah Bangun Tidur

Konsumsi air putih setelah bangun tidur di pagi hari sangat dianjurkan. Apa manfaatnya?

VIVAnews – Tak hanya bisa mempercantik kulit, mengonsumsi air putih secara teratur juga bermanfaat membersihkan tubuh dari racun. Namun, banyak orang sering melupakan salah satu bagian dari nutrisi penting untuk tubuh ini.

Banyak orang mengabaikan konsumsi air putih, termasuk saat bangun tidur. Padahal konsumsi air putih setelah bangun tidur di pagi hari sangat dianjurkan. Apa manfaatnya?

Menurut Spesialis Gizi Klinik dari Rumah Sakit Siloam, Dr Samuel Oetoro MS, Sp.GK, saat tidur, tubuh mengeluarkan banyak air dengan kata lain terjadi penguapan. Apalagi saat tidur aktivitas tubuh tidak berhenti bekerja. Metabolisme sel-sel terus berjalan dan air dalam tubuh membantu sel-sel bekerja. Sehingga, setelah 6-8 jam tidur, tubuh bisa mengalami defisit air, karena dalam proses metabolisme sel akan ada air yang terbuang.

“Itulah sebabnya, kita dianjurkan untuk konsumsi air setelah bangun tidur di pagi hari untuk menggantikan cairan tubuh yang hilang, ” katanya saat ditemui di XXI Ballroom,Djakarta Theatre, Rabu 16 Maret 2011.

Jika tidak mengonsumsi air setelah bangun tidur, tubuh juga bisa kekurangan mineral yang bisa mengganggu kesehatan. Cukup satu gelas setelah bangun tidur, akan sangat bermanfaat untuk tubuh.
Tak hanya setelah bangun tidur, Samuel pun juga menyarankan agar melakukan hal yang sama sebelum tidur. Tak perlu berlebihan karena konsumsi air putih berlebih justru bisa membebani Anda karena memicu lebih sering pergi ke kamar kecil termasuk juga berefek buruk pada fungsi jantung dan ginjal.

Dan ingat, jangan pernah mengabaikan dan menyepelekan manfaat air putih. Meski demikian, Anda pun perlu selektif memilih air untuk dikonsumsi. Air yang diminum harus memenuhi aspek kesehatan, umumnya air terdiri dari H2O, tapi tubuh juga butuh air yang mengandung mineral (Natrium, Kalium, Klor) agar otot bisa bergerak. Berapapun air yang terbuang, harus segara diisi kembali,termasuk saat bangun tidur untuk menggantikan cairan tubuh yang hilang.

“70 persen tubuh kita terdiri dari air. Air dalam tubuh digunakan oleh organ tubuh yang tidak pernah berhenti bekerja saat tidur, termasuk otak, jantung dan ginjal. Maka setelah bangun tidur, dianjurkan minum air putih,” katanya.

Read more: http://desxripsi.blogspot.com/2012/04/manfaat-minum-air-putih-setelah-bangun.html#ixzz2DVIJqq2M

By agesriskiamelia

Cara Beternak Kelinci Yang Baik

Cara Beternak Kelinci Yang Baik. ternak kelinci ternyata merupakan suatu usaha dan bisnis yang cukup menjanjikan, dan cara beternak kelinci pun tak luput dari pihak yang ingin mencoba bisnis satu ini, ada juga yang sekedar memelihara kelinci, namun kita perlu tahu juga ada beberapa jenis peternakan kelinci yang ada seperti ternak kelinci anggora, ternak kelinci pedaging, ada juga kelinci australia dan kelinci hias, disemua aspek terebut ternak kelinci ternyata mengundang keingin tahuan dan rasa penasaran untuk tahu bagaimana cara beternak kelinci itu, di fb ada juga page khusus untuk para kumpulan peternak kelinci, saya termasuk orang yang juga ingin tahu bagaimana cara beternak kelinci yang baik itu.

nah marilah kita bersama mencari tahu dan mencoba mungkin bisa jadi bisnis atau sekedar hobi (jangan hobi melihat wanita terseksi xixixix), nah di internet ternyata banyak cara bisa digunakan ada yang mencari cara beternak kelinci PDF maupun video yang bisa diputar lewat windows media player classic, nah pada kali ini saya akan sharing kepada teman yang tertarik dengan bagaiman teknik tips dan triknya untuk ternak kelinci tersebut, tapi ini berupa e-book yang berbentuk pdf dan anda bisa print serta mempelajarinya lebih lanjut, bisa di sharing dan kirim lewat gmail com kepada teman – teman anda.

kelinci

By agesriskiamelia