P1


Private Sub cmdHitung_Click()
txtdiskon = Val(txtharga) * 0.15
Txthak = Val(txtharga) - Val(txtdiskon)
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdUlangi_Click()
txtharga = ""
txtdiskon = ""
Txthak = ""
txtharga.SetFocus
End Sub

P2


Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthak.SetFocus
txtdiskon = Val(txtharga) * 0.15
Txthak = Val(txtharga) - Val(txtdiskon)
End If
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdUlangi_Click()
txtharga = ""
txtdiskon = ""
Txthak = ""
txtharga.SetFocus
End Sub

P3


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)
txtpajak = Val(txtgajik) * 0.05
txtgajid = Val(txtgajik) - Val(txtpajak)
End Sub

Private Sub cmdulang_Click()
txtgajip = ""
txttn = ""
txtpotongan = ""
txtgajik = ""
txtpajak = ""
txtgajid = ""
txtgajip.SetFocus
End Sub

P4



Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)
txtpajak = Val(txtgajik) * 0.05
txtgajid = Val(txtgajik) - Val(txtpajak)
End Sub

Private Sub cmdulang_Click()
txtgajip = ""
txttn = ""
txtpotongan = ""
txtgajik = ""
txtpajak = ""
txtgajid = ""
txtgajip.SetFocus
End Sub

Private Sub txtgajip_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttn.SetFocus
End If
End Sub

Private Sub txtpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgajid.SetFocus
txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)
txtpajak = Val(txtgajik) * 0.05
txtgajid = Val(txtgajik) - Val(txtpajak)
End If
End Sub

Private Sub txttn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpotongan.SetFocus
End If
End Sub

P5


Private Sub Cmdext_Click()
End
End Sub

Private Sub Optred_Click()
Lbltxt.ForeColor = vbRed
End Sub

Private Sub Optbiru_Click()
Lbltxt.ForeColor = vbBlue
End Sub

Private Sub Opthijau_Click()
Lbltxt.ForeColor = vbGreen
End Sub

Private Sub Optkuning_Click()
Lbltxt.ForeColor = vbYellow
End Sub

Private Sub chkbold_Click()
If Chkbold.Value = 1 Then
Lbltxt.FontBold = True
Else
Lbltxt.FontBold = False
End If
End Sub

Private Sub chkunderline_Click()
If Chkunderline.Value = 1 Then
Lbltxt.FontUnderline = True
Else
Lbltxt.FontUnderline = False
End If
End Sub

Private Sub chkstrikeout_Click()
If Chkstrikeout.Value = 1 Then
Lbltxt.FontStrikethru = True
Else
Lbltxt.FontStrikethru = False
End If
End Sub

Private Sub chkitalic_Click()
If Chkitalic.Value = 1 Then
Lbltxt.FontItalic = True
Else
Lbltxt.FontItalic = False
End If
End Sub

P6



Private Sub Cmdoke_Click()
lbltext1.Caption = txtnnm.Text
End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub Optbiru_Click()
lbltext1.ForeColor = vbBlue
End Sub

Private Sub Optred_Click()
lbltext1.ForeColor = vbRed
End Sub

Private Sub Chkbold_Click()
lbltext1.FontBold = Chkbold.Value
End Sub

Private Sub Chkitalic_Click()
lbltext1.FontItalic = Chkitalic.Value
End Sub

P7


Private Sub Form_Load()
Cbonpm.AddItem "17100125"
Cbonpm.AddItem "17200129"
Cbonpm.AddItem "17300142"
Cbonpm.AddItem "17400146"
Cbonpm.AddItem "17400116"
End Sub

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm
 Case "17100125"
 nama = "MAUDI"
 jurusan = "Sistem Informasi"
 Case "17200129"
 nama = "VIA VALLEN"
 jurusan = "Manajemen Informatika"
 Case "17300142"
 nama = "ARMAN"
 jurusan = "Tehnik Sipil"
 Case "17400146"
 nama = "SUTEJO"
 jurusan = "Tehnik Informatika"
 Case "17400116"
 nama = "MULYONO"
 jurusan = "MANAGEMENT SISTEM INFORMASI"
 End Select
 txtnm = nama
 txtjr = jurusan
 txtnq.SetFocus
 End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
txtnm = ""
txtjr = ""
txtnq = ""
txtnt = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq)
TUGAS = Val(txtnt)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA

Select Case txtna
 Case Is = 100
 HM = "A"
 Case Is >= 80
 HM = "A"
 Case Is >= 70
 HM = "B"
 Case Is >= 60
 HM = "C"
 Case Is >= 50
 HM = "D"
 Case Is <= 49
 HM = "E"
  End Select
  txthm.Text = HM
 End Sub

P8

Private Sub Form_Load()
Cbonpm.AddItem "17100075"
Cbonpm.AddItem "17200089"
Cbonpm.AddItem "16300212"
Cbonpm.AddItem "17400056"
Cbonpm.AddItem "15400586"
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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq)
TUGAS = Val(txtnt)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA


Select Case txtna
 Case Is = 100
 HM = "A"
 Case Is >= 80
 HM = "A"
 Case Is >= 70
 HM = "B"
 Case Is >= 60
 HM = "C"
 Case Is >= 50
 HM = "D"
 Case Is <= 49
 HM = "E"
  End Select
  txthm.Text = HM
End If
End Sub

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm
 Case "17100125"
 nama = "MAUDI"
 jurusan = "Sistem Informasi"
 Case "17200129"
 nama = "VIA VALLEN"
 jurusan = "Manajemen Informatika"
 Case "17300142"
 nama = "ARMAN"
 jurusan = "Tehnik Sipil"
 Case "17400146"
 nama = "SUTEJO"
 jurusan = "Tehnik Informatika"
 Case "17400116"
 nama = "MULYONO"
 jurusan = "MANAGEMENT SISTEM INFORMASI"
 End Select
 txtnm = nama
 txtjr = jurusan
 txtnq.SetFocus
 End Sub


Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
txtnm = ""
txtjr = ""
txtnq = ""
txtnt = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA

Select Case txtna
 Case Is = 100
 HM = "A"
 Case Is >= 80
 HM = "A"
 Case Is >= 70
 HM = "B"
 Case Is >= 60
 HM = "C"
 Case Is >= 50
 HM = "D"
 Case Is <= 49
 HM = "E"
  End Select
  txthm.Text = HM
 End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

HP Spectre 13 Terbaru Dengan Segudang Pembaharuan Bakal Tersedia 29 Oktober Mendatang

Gambar
Ambisi lambungkan jajaran PC premium unggulannya ke tingkat lebih tinggi lagi, Hewlett-Packard dikabarkan baru saja memperkenalkan Spectre 13 terbarunya. Selain menampilkan bahan premium termasuk bodi aluminium bermesin CNC, notebook HP tersebut juga telah dipersenjatai dengan dukungan prosesor Intel Core generasi ke 8 dan display 4K. Tersedia dalam pilihan warna Ceramic White dengan polesan aksen Pale Gold atau Dark Ash Silver dengan polesan aksen Copper, notebook berlayar sentuh yang diklaim tertipis di dunia ini mengandalkan panel layar 13,3 inci dengan bezels micro-edge yang dilindungi Gorilla Glass untuk menambah kekuatan dan daya tahannya. Meskipun display-nya sendiri hadir dalam resolusi standar Full HD, namun apabila Anda memiliki uang lebih, ada baiknya kalau Anda memikirkan untuk beralih ke opsi display 4K. Pada bagian jeroannya sendiri, Anda dapat memilih daya gedor sistem berbasis prosesor Intel Core i5/i7 generasi ke 8 dan solusi jitu penyimpanan yang dida...
Baca selengkapnya

STMIK PRINGSEWU DAN PEMDA PRINGSEWU MEMBERIKAN PEMBEKALAN KEPADA MAHASISWA KKN

Gambar
STMIK PRINGSEWU  – Ratusan Mahasiswa STMIK dan STIT Pringsewu peride tahun 2017 mengikuti pembekalan sebelum melaksanakan Kuliah Kerja Nyata (KKN) di Kabupaten Pringsewu. Pemberian materi seputar gambaran Kabupaten Pringsewu disampaikan langsung oleh Kepala Dinas Pemberdayaan Masyarakat Desa (PMD), Malian Ayub, M.M di depan mahasiswa peserta KKN di gedung STMIK Pringsewu. Saya menyambut baik kegiatan pembekalan KKN untuk dapat memahami lebih lanjut terkait dengan Pekon yang ada di Wilayah Kabupaten Pringsewu, Rabu (19/7). Kami harapkan dengan adanya mahasiswa yang melaksanakan KKN di Kabupaten Pringsewu akan memberikan sumbangsih besar terhadap pembangunan di Kabupaten Pringsewu, keberadaan mahasiswa STMIK dan STIT Pringsewu ini nantinya akan membantu proses pelaksanaan kegiatan pembangunan di pemerintahan Pekon yang ada di Wilayah Kabupaten Pringsewu, ucapnya. Pembekalan KKN Mahasiswa STMIK Pringsewu dan STIT Pringsewu selain di isi oleh Malian Ayub, M.M. selaku Kepala ...
Baca selengkapnya

STMIK PRINGSEWU GELAR POSDIKTI 2017 GELOMBANG 1

Gambar
STMIK PRINGSEWU – Jum’at, (11/8) merupakan hari bersejarah bagi semua calon mahasiswa baru, karena hari ini merupakan hari dimulainya acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 untuk STMIK Pringsewu yang ada di Yayasan Pendidikan Startech. Tepat pada pukul 08.00 WIB dimulainya upacara pembukaan POSDIKTI. Calon mahasiswa-mahasiswi STMIK Pringsewu mengikuti acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 di kampus Jalan Wisma Rini No. 09 Pringsewu. Acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 dibuka oleh Wakil Ketua III Bidang Kemahasiswaan, Nur Aminudin, M.T.I mewakili Ketua STMIK Pringsewu , Hj. Rita Irviani, M.M.    Dalam sambutannya Nur Aminudin mengatakan, POSDIKTI STMIK Pringsewu merupakan kelengkapan non-struktural pada kampus, posdikti berfungsi sebagai orientasi bagi mahasiswa baru untuk memasuki dunia perguruan tinggi yang berbeda dengan belajar di sekolah lanju...
Baca selengkapnya