tugas vb i-9

diskon

Option Explicit

 

Private Sub CMDQU_Click()

End

End Sub

 

Private Sub CMDUL_Click()

TXTHA = “”

TXTDIS = “”

TXTAKH = “”

 

End Sub

 

Private Sub TXTHA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTDIS.Text = Val(TXTHA.Text) * 0.1

TXTAKH.Text = Val(TXTHA.Text) – Val(TXTDIS.Text)

End If

End Sub

diskon

Option Explicit

 

Private Sub CMDQU_Click()

End

End Sub

 

Private Sub CMDUL_Click()

TXTHA = “”

TXTDIS = “”

TXTAKH = “”

 

End Sub

 

Private Sub TXTHA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTDIS.Text = Val(TXTHA.Text) * 0.1

TXTAKH.Text = Val(TXTHA.Text) – Val(TXTDIS.Text)

End If

End Sub

diskon

 

Private Sub CMDHT_Click()

TXTDIS.Text = Val(TXTHA.Text) * 0.1

TXTAKH.Text = Val(TXTHA.Text) – Val(TXTDIS.Text)

 

End Sub

 

 

Private Sub CMDQU_Click()

End

End Sub

 

Private Sub CMDUL_Click()

TXTHA.SetFocus

TXTHA = “”

TXTDIS = “”

TXTAKH = “”

End Sub

Untitled

 

Private Sub CMDHT_Click()

TXTDIS.Text = Val(TXTHA.Text) * 0.1

TXTAKH.Text = Val(TXTHA.Text) – Val(TXTDIS.Text)

 

End Sub

 

 

Private Sub CMDQU_Click()

End

End Sub

 

Private Sub CMDUL_Click()

TXTHA.SetFocus

TXTHA = “”

TXTDIS = “”

TXTAKH = “”

End Sub

worno

Option Explicit

 

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else

Label1.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontItalic = True

Else

Label1.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Option1_Click()

Label1.ForeColor = vbRed

 

 

End Sub

 

Private Sub Option2_Click()

Label1.ForeColor = vbYellow

 

End Sub

Private Sub Option3_Click()

Label1.ForeColor = vbGreen

 

End Sub

Private Sub Option4_Click()

Label1.ForeColor = vbBlue

 

End Sub

huruf mutu

Private Sub Cmdbatal_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnp.Text = “”

CBOGOLONGAN.Text = “”

txtgapok.Text = “”

txttj.Text = “”

txtpj.Text = “”

txttt.Text = “”

End Sub

Private Sub Cbogolongan_Click()

Dim gaji, pajak, tunjangan, total As Variant

Select Case CBOGOLONGAN.Text

Case “I”

gaji = 1500000

tunjangan = 150000

Case “II”

gaji = 2000000

tunjangan = 200000

Case “III”

gaji = 2500000

tunjangan = 250000

Case “IV”

gaji = 3000000

tunjangan = 300000

Case Else

gaji = 0

tunjangan = 0

End Select

total = gaji + tunjangan

pajak = total * 0.1

txtgapok.Text = gaji

txttj.Text = tunjangan

txtpj.Text = pajak

txttt.Text = total – pajak

End Sub

Private Sub Cmdkl_Click()

Unload Me

End Sub

Private Sub cmdlg_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnp.Text = “”

CBOGOLONGAN.Text = “”

txtgapok.Text = “”

txttj.Text = “”

txtpj.Text = “”

txttt.Text = “”

End Sub

Private Sub Form_Load()

CBOGOLONGAN.AddItem “I”

CBOGOLONGAN.AddItem “II”

CBOGOLONGAN.AddItem “III”

CBOGOLONGAN.AddItem “IV”

End Sub

Private Sub Txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnp.SetFocus

End If

End Sub

 

npm angel

Option Explicit

 

Private Sub Combatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

TXTNPM.Text = “”

Txtjurusan.Text = “”

TXTPS.Text = “”

TXTTHM.Text = “”

Txturut.Text = “”

End Sub

Private Sub Comkeluar_Click()

Unload Me

End Sub

Private Sub CMDLG_Click()

TXTNM.SetFocus

TXTNM.Text = “”

TXTNPM.Text = “”

TXTJUR.Text = “”

TXTPS.Text = “”

TXTTHM.Text = “”

TXTNUR.Text = “”

End Sub

Private Sub CMDprs_Click()

Dim s As String

TXTTHM.Text = “20” & Left(TXTNPM.Text, 2)

s = Mid(TXTNPM.Text, 3, 1)

If s = “1” Then

TXTJUR.Text = “Sistem Informasi”

ElseIf s = “2” Then

TXTJUR.Text = “Manajemen Informatika”

ElseIf s = “3” Then

TXTJUR.Text = “Teknik Informatika”

ElseIf s = “4” Then

TXTJUR.Text = “Manajemen & Komputer Akuntansi”

End If

s = Mid(TXTNPM.Text, 4, 2)

If s = “01” Then

TXTPS.Text = “strata satu”

ElseIf s = “02” Then

TXTPS.Text = “diploma tiga”

ElseIf s = “03” Then

TXTPS.Text = “diploma empat”

ElseIf s = “04” Then

TXTPS.Text = “diploma dua”

End If

TXTNUR.Text = Right(TXTNPM.Text, 3)

End Sub

 

 

 

 

Private Sub FORM_ACTIVATE()

 

TXTNM.SetFocus

TXTNM.Text = “”

TXTNPM.Text = “”

TXTJUR.Text = “”

TXTPS.Text = “”

TXTTHM.Text = “”

TXTNUR.Text = “”

End Sub

Private Sub TxtNM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

 

huruf mutu

Private Sub Cmdbt_Click()

CBONPM.SetFocus

CBONPM.Text = “”

TXTNM.Text = “”

TXTJUR.Text = “”

TXTNQ.Text = “”

TXTNT.Text = “”

TXTUTS.Text = “”

TXTUAS.Text = “”

TXTNAK.Text = “”

TXTHM.Text = “”

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, hm As String

Select Case CBONPM.Text

Case “12100695”

nama = “HENDRA PURWADI”

jurusan = “Manajement Informatika”

Case “12100690”

nama = “diar junaidi”

jurusan = “Sistem Informasi”

Case “12201788”

nama = “Saskia Meca”

jurusan = “Teknik Informatika”

End Select

TXTNM.Text = nama

TXTJUR.Text = jurusan

TXTNQ.SetFocus

End Sub

Private Sub Cmdkl_Click()

Unload Me

End Sub

Private Sub Cmdprs_Click()

Dim nilai As Integer

Dim hm As String

quiss = Val(TXTNQ.Text)

tugas = Val(TXTNT.Text)

uts = Val(TXTUTS.Text)

uas = Val(TXTUAS.Text)

nilai = (quiss + tugas + uts + uas) / 4

TXTNAK.Text = nilai

Select Case TXTNAK.Text

Case Is > 80

hm = “A”

Case Is > 70

hm = “B”

Case Is > 60

hm = “C”

Case Is > 50

hm = “D”

Case Is < 50

hm = “E”

End Select

TXTHM.Text = hm

End Sub

Private Sub Form_Load()

CBONPM.AddItem “12100695”

CBONPM.AddItem “12100690”

CBONPM.AddItem “12201788”

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

 

pehitungan gaji

Option Explicit

 

 

 

 

Private Sub CMDPROSES_Click()

TXTGK.Text = Val(TXTGP.Text) + Val(TXTTJ.Text) – Val(TXTPT.Text)

TXTPJ.Text = Val(TXTGK.Text) * (0.1)

TXTGB.Text = Val(TXTGK.Text) – Val(TXTPJ.Text)

End Sub

 

 

 

Private Sub CMDQUIT_Click()

End

End Sub

 

Private Sub CMDULANG_Click()

TXTGP.SetFocus

TXTGP = “”

TXTTJ = “”

TXTPT = “”

TXTGK = “”

TXTPJ = “”

TXTGB = “”

 

End Sub

 

Private Sub TXTGP_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTTJ.SetFocus

End If

 

End Sub

Private Sub TXTTJ_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTPT.SetFocus

End If

 

End Sub

 

Advertisements

Bulan Depan, Harga Windows 8 Melonjak

Windows 8, sistem operasi terbaru Microsoft, resmi hadir di pasaran pada akhir Oktober 2012 lalu. Pada awal kehadirannya, Microsoft mematok harga promosi yang cukup terjangkau.

Namun, setelah promosi ini berakhir pada 31 Januari 2013 mendatang, harga Windows 8 dipastikan akan melonjak cukup tinggi.

Dikutip dari Mashable, Senin (21/1/2013), setelah Februari 2013, para konsumen harus membayar  sebesar 119,9 dollar AS untuk melakukan pembaruan sistem operasi ke Windows 8 versi standar. Sedangkan, bagi yang ingin meng-upgrade ke versi Pro harus merogoh kocek sebesar 199,9 dollar AS.

Perlu ditekankan, harga tersebut adalah bagi yang ingin meng-upgrade sistem operasi dari XP, Vista,  dan 7.

Sedangkan bagi yang membeli PC atau laptop dari vendor, dapat menggunakan Windows 8 versi System Builder. Versi yang biasanya digunakan untuk OEM ini dibanderol dengan harga 100 hingga 165 dollar AS.

Nah, jika ingin meng-upgrade ke Windows 8 dengan harga yang jauh lebih murah, Anda masih memiliki waktu hingga akhir Januari 2013.

Windows 8 Pro versi digital (unduh langsung dari situs Microsoft) dijual dengan harga 40 dollar. Sedangkan, Windows 8 Pro dalam bentuk DVD dijual dengan harga sekitar 70 dollar AS.

Hingga saat ini, Microsoft memang tidak pernah secara resmi mengumumkan hasil penjualan Windows 8. Namun, di sela-sela ajang CES 2013 pada awal Januari lalu, Tami Reller, Chied Financial Officer Microsoft, mengungkapkan Windows 8 telah laku terjual sebanyak 60 juta lisensi dan upgrade sistem operasi

Windows 8 dalam waktu 10 pekan sejak produk itu dirilis pada 26 Oktober 2012.

Berikut daftar harga Windows 8 setelah masa promosi usai:
– Windows 8 Pro upgrade edition (untuk pengguna Windows 7, Vista dan XP): 199,99 dollar AS
– Windows 8 (basic) upgrade edition (untuk pengguna Windows 7, Vista dan XP): 119,99 dollar AS
– Windows 8 Pro Pack (untuk pengguna Windows 8): 99,99 dollar AS
– Windows 8 Media Center Pack (untuk pengguna Windows 8 Pro): 9, 99 dollar AS
– Windows 8 System Builder (bagi yang ingin merakit PC sendiri): 100-165 dollar AS

Microsoft Umumkan Tanggal Peluncuran Office 2013

Microsoft Umumkan Tanggal Peluncuran Office 2013

Microsoft akhirnya bergeming atas isu santer tentang produk software terbarunya, Office 2013. Perusahaan milik Bill Gates itu mengumumkan bahwa besok, Selasa (29/1/2013), software Office 2013 itu akan dirilis ke pasar ritel.

Pada bulan Oktober lalu, Microsoft telah mengumumkan bahwa Office 2013 sudah mencapai versi RTM (Release to Manufacturing), dan direncanakan tersedia pada kuartal pertama 2013.

Office 2013 diklaim akan menghadirkan desain sentuhan baru yang lebih friendly. Tak hanya itu, Microsoft juga memperkenalkan Office 365.

Khusus untuk yang berlangganan, Office 365 akan dijual dalam sepaket dengan Office 2013 standar di pasar ritel. Office 365 dibandrol mulai USD 99 pertahun dengan beberapa aplikasi standar seperti Word, PowerPoint, Excel dan One Note. Sementara untuk pengguna non-langganan, Office 2013 dibandrol dengan harga USD 139.

Microsoft juga menyediakan software tersebut dalam paket Stock Keeping Unit (SKU), termasuk paket Professional Plus untuk lisensi dengan jumlah tertentu yang dibandrol mulai USD 499 atau sekitar Rp 400 ribuan.

Dikutip Liputan6.com dari Neowin, Senin (28/1/2013), Microsoft akan membuat acara peluncuran dengan mengusung tema ‘Time to 365’. Acara itu rencananya akan digelar di New York.

Akun Twitter resmi milik Office juga telah menampilkan beberapa foto teaser untuk menunjukkan peristiwa yang sedang mereka siapkan. Foto-foto itu berlokasi di Bryant Park, New York City. (DEN/DEW)