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

PENGUKUHAN PUSAT INFORMASI & KONSELING MAHASISWA

Gambar
STMIK PRINGSEWU – Pusat Informasi dan Konseling Mahasiswa (PIK-Mahasiswa) adalah suatu wadah kegiatan program KKB yang dikelola dari, oleh dan untuk mahasiswa guna memberikan pelayanan informasi dan konseling tentang KEPENDUDUKAN DAN Keluarga Berencana termasuk Penyiapan Kehidupan Berkeluarga bagi Remaja serta kegiatan-kegiatan penunjang lainnya. PIK Mahasiswa adalah nama generik. Untuk menampung kebutuhan program PKBR dan menarik minat mahasiswa datang ke PIK Mahasiswa, nama generik ini dapat dikembangkan dengan nama-nama yang sesuai dengan kebutuhan program dan selera mahasiswa setempat. Tujuan umum dari PIK Mahasiswa adalah dalam rangka meningkatkan akses dan kualitas pelayanan program penyiapan kehidupan berkeluarga bagi mahasiswa. Sedangkan tujuan khususnya antara lain: 1) membentuk Pusat Informasi dan Konseling Mahasiswa (PIK Mahasiswa) di kampus; 2) meningkatkan Pusat Informasi dan Konseling Mahasiswa (PIK Mahasiswa) dari tahap Tumbuh menjadi tahap tegak dan tahap
Baca selengkapnya

Render OnePlus 5T dengan Desain Bezel-Less 18:9 Telah Muncul PonselPonsel Menarik

Gambar
OnePlus merupakan brand smartphone dengan jargon flagship killer, dimana smartphone besutannya mengusung spesifikasi high-end namun dibanderol dengan harga yang lebih murah ketimbang kompetitornya. Smartphone flagship milik perusahaan saat ini adalah OnePlus 5, dimana mereka mendapatkan angka penjualan baik selama empat bulan terakhir. Tampaknya OnePlus 5 akan segera kedatangan penerusnya yang saat ini tengah dipersiapkan untuk segera meluncur. Model terbaru akan menjadi OnePlus 5T, dimana smartphone tersebut bakal rilis pada bulan November 2017. Jika itu benar, tampaknya OnePlus 5 akan bernasib sama seperti OnePlus 3 yang kedatang OnePlus 3T setelah lima bulan diluncurkan. Baru-baru ini bocoran mengenai OnePlus 5T telah beredar, dimana smartphone tersebut akan hadir dengan desain yang menjadi tren saat ini, yaki fullscreen display. Desain tersebut sangat digemari karena selain mendapatkan layar yang lebih luas, kesan smartphone juga akan menjadi terlihat sangat premium.
Baca selengkapnya
Gambar
Tugas 3.1 Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2000000 tunjangan = 20000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = gapok + tunjangan - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Public Sub kosong() Txtnidn.SetFocus Txtnidn = “” txtnama = “” Cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub Txt
Baca selengkapnya