Postingan

TUGAS 3.3 BP1

Gambar
Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" txtps = "Diploma Dua" ElseIf S = "2" Then txtjur = "Manajemen Informatika" txtps = "Strata Satu" ElseIf S = "3" Then txtjur = "Tehnik Informatika" txtps = "Diploma Tiga" ElseIf S = "4" Then txtjur = "Manajemen & Komp. Akuntansi" txtps = "Diploma Empat" End If txturut = Right(Txtnpm.Text, 4) End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnpm.SetFocus End If

TUGAS 3.2 BP1

Gambar
Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" ElseIf S = "2" Then txtjur = "Manajemen Informatika" ElseIf S = "3" Then txtjur = "Tehnik Informatika" ElseIf S = "4" Then txtjur = "Manajemen & Komp. Akuntansi" End If S = Mid(Txtnpm, 4, 2) If S = "01" Then txtps = "Strata Satu" ElseIf S = "02" Then txtps = "Diploma Tiga" ElseIf S = "03" Then txtps = "Diploma Empat" ElseIf S = "00" Then txtps = "Diploma Dua" End If txturut= Right(Txtnpm, 3)  End Sub Private Sub Cmdkeluar_Cl...

TUGAS 3.1 BP1

Gambar
Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub combo1_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Combo1.Text Case "I" gapok = 5500000 tunjangan = 250000 Case "II" gapok = 2000000 tunjangan = 250000 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 Text3= gapok Text4 = tunjangan Text5 = pajak Text6 = total - pajak End...

Program 8 Huruf Mutu Mahasiswa STMIK Pringsewu Manual

Gambar
Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100076"   nama = "PRIMA AJI PAMUNGKAS"   jurusan = "Sistem Informasi"   Case "16100099"   nama = "LIZA OCTA"   jurusan = "Manajemen Informatika"   Case "15100077"   nama = "RIKI BOY"   jurusan = "Tehnik Informatika"   Case "15100099"   nama = "ZUBAIDAH"   jurusan = "Teknik Mesin"   Case "17100098"   nama = "RAKAN ADYA KESUMA"   jurusan = "Teknik Komputer"   End Select   Txtnama = nama   txtjurusan = jurusan   txtquis.SetFocus   End Sub Private Sub Cmdbatal_Click() Cbonpm.SetFocus Cbonpm = "" Txtnama = "" txtjurusan = "" txtquis = "" txttugas = "" txtuts = "" txtuas = "" txtna = "" txthm = "...

Program 8 Huruf Mutu Mahasiswa STMIK Pringsewu Enter

Gambar
Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100076"   nama = "PRIMA AJI PAMUNGKAS"   jurusan = "Sistem Informasi"   Case "16100099"   nama = "LIZA OCTA"   jurusan = "Manajemen Informatika"   Case "15100077"   nama = "RIKI BOY"   jurusan = "Tehnik Informatika"   Case "15100099"   nama = "ZUBAIDAH"   jurusan = "Teknik Mesin"   Case "17100098"   nama = "RAKAN ADYA KESUMA"   jurusan = "Teknik Komputer"   End Select   Txtnama = nama   txtjurusan = jurusan   txtquis.SetFocus   End Sub Private Sub Cmdbatal_Click() Cbonpm.SetFocus Cbonpm = "" Txtnama = "" txtjurusan = "" txtquis = "" txttugas = "" txtuts = "" txtuas = "" txtna = "" txthm = "...