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

 

Advertisements

RAHM

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

bs

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

nur

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

HaeKyungKyung

http://sphotos-b.ak.fbcdn.net/hphotos-ak-ash4/382049_305447679571303_144212687_n.jpg

AUTHOR: VYEJUNGMIN~

 

DONGHAE’S POV

 

Ku hembuskan nafasku kembali, lelah. Itu lah yang aku rasakan sekarang selama lima hari ini aku tak keluar dari dalam kamarku, mengurung seorang diri. Setelah kejadian lima hari yang lalu saat di apartment Jaekyung, aku benar-benar sudah tak bersemangat untuk hidup. Ini memang semuanya salahku kalau saja aku tak bertemu dengan Jaekyung pasti tak akan seperti ini. Tapi mau bagaimana lagi? Tuhan memang sudah mentakdirkan aku bertemu dengan Jaekyung.

 

Aku kembali mengingat masa-masa beberapa tahun yang lalu, saat mengenal Jaekyung dan kami benar-benar sangat polos pada waktu itu. Kami bertemu pada saat kami menjalankan hukuman yang diberikan oleh Sunbae kami pada saat masa Ospek waktu itu. Saat aku pertama kali memandang wajahnya, aku benar-benar terpesona oleh wajahnya yang saat itu sedang berkeringat akibat kami dihukum selama kurang lebih satu jam di tengah-tengan lapangan. Mengingat waktu itu aku ingin sekali tertawa.

View original post 3,277 more words

 

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

Gambar

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

Saling menguatkan ketika terjadi sebuah ma­salah. Seperi istri terserang penyakit atau hamil, lalu dia butuh pelayanan lahir dan batin dari suami, atau ketika suami tengah tertekan dalam urusan pekerjaannya, lalu dia butuh sentuhan kelembutan dari istri, ia ingin ada orang di sampingnya.

Karena itu, ikut merasakan sakit atas sakit yang diderita pasangan akan memberi pengaruh yang besar dalam membina mawaddah, menjadikan keduanya lebih dekat, lebih mencintai satu sama lain.

Seimbang dalam menerima dan menolak, ini cara yang penting. Jangan menjadi pihak yang selalu menerima, dan jangan pula selalu menolak atau menghindar dari pemberian. Kita dilarang terlalu mencintai, dan berlebihan dalam memberi kasih sayang. Menolak butuh kecerdasan, maka jangan terlalu berlebihan atau meninggalkannya sama sekali. Berbuat berlebihan dalam dua hal ini akan berarti meniadakan cinta dan kerinduan, dari sini pula seringkali muncul masalah-masalah dalam kehidupan suami-istri.