Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

Source kode :

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case "17100032"

nama = "Dika adi pratama"

jurusan = "Sistem Informasi"

Case "17100033"

nama = "Robiyanto"

jurusan = "Sistem Informasi"

Case "17100003"

nama = "Renaldi Zainal Arifin"

jurusan = "Sistem Informasi"

Case "17100023"

nama = "Danang pandu aji"

jurusan = "Sistem Informasi"

Case "17100006"

nama = "Rosi elvia"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

Case "17100010"

nama = "Novia Anggraini"

jurusan = "Sistem Informasi"

Case "17100011"

nama = "Ariansyah"

jurusan = "Sistem Informasi"

Case "17100012"

nama = "Dimas Apringga"

jurusan = "Sistem Informasi"

End Select

txtmaha.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmaha.Text = ""

txtjurusan.Text = ""

txtquis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtakhir.Text = ""

txtmutu.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbonpm.AddItem "17100032"

cbonpm.AddItem "17100033"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100023"

cbonpm.AddItem "17100006"

cbonpm.AddItem "17100008"

cbonpm.AddItem "17100010"

cbonpm.AddItem "17100011"

cbonpm.AddItem "17100012"

cbonpm.AddItem "17100013"

End Sub

Private Sub txtquis_keypress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

Private Sub Txttugas_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

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End If

End Sub

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Source kode :

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case "17100032"

nama = "Dika adi pratama"

jurusan = "Sistem Informasi"

Case "17100033"

nama = "Robiyanto"

jurusan = "Sistem Informasi"

Case "17100003"

nama = "Renaldi Zainal Arifin"

jurusan = "Sistem Informasi"

Case "17100023"

nama = "Danang pandu aji"

jurusan = "Sistem Informasi"

Case "17100006"

nama = "Rosi elvia"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

Case "17100010"

nama = "Novia Anggraini"

jurusan = "Sistem Informasi"

Case "17100011"

nama = "Ariansyah"

jurusan = "Sistem Informasi"

Case "17100012"

nama = "Dimas Apringga"

jurusan = "Sistem Informasi"

End Select

txtmaha.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmaha.Text = ""

txtjurusan.Text = ""

txtquis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtakhir.Text = ""

txtmutu.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbonpm.AddItem "17100032"

cbonpm.AddItem "17100033"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100023"

cbonpm.AddItem "17100006"

cbonpm.AddItem "17100008"

cbonpm.AddItem "17100010"

cbonpm.AddItem "17100011"

cbonpm.AddItem "17100012"

cbonpm.AddItem "17100013"

End Sub

Tugas 2.6

Tugas 2.6

Source kode :

Private Sub cmdok_Click()

lbl2.Caption = txttulis

End Sub

Private Sub cmdse_Click()

End

End Sub

Private Sub opnbi_Click()

lbl2.ForeColor = vbBlue

End Sub

Private Sub opnme_Click()

lbl2.ForeColor = vbRed

End Sub

Private Sub chkte_Click()

If chkte.Value = 1 Then

lbl2.FontBold = True

Else

lbl2.FontBold = False

End If

End Sub

Private Sub chkmi_Click()

If chkmi.Value = 1 Then

lbl2.FontItalic = True

Else

lbl2.FontItalic = False

End If

End Sub

Tugas 2.5 font color & font style

Tugas 2.5 font color & font style 

Source kode :

Private Sub chkun_Click()

If chkun.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub chkbo_Click()

If chkbo.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chksri_Click()

If chksri.Value = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

Private Sub chkita_Click()

If chkita.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub opngreen_Click()

lbltext.ForeColor = vbGreen

End Sub

Private Sub opnblue_Click()

lbltext.ForeColor = vbBlue

End Sub

Private Sub opnred_Click()

lbltext.ForeColor = vbRed

End Sub

Private Sub opnyellow_Click()

lbltext.ForeColor = vbYellow

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Tugas 2.4 aplikasi perhitungan gajih menggunakan keypress

Tugas 2.4 aplikasi perhitungan gajih menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtpokok = ""

txttunjangan = ""

txtpotongan = ""

txtgajihk = ""

txtpajak = ""

txtgadi = ""

txtpokok.SetFocus

End Sub

Private Sub txtpokok_keypress(keyascii As Integer)

If keyascii = 13 Then

txttunjangan.SetFocus

End If

End Sub

Private Sub txttunjangan_keypress(keyascii As Integer)

If keyascii = 13 Then

txtpotongan.SetFocus

End If

End Sub

Private Sub txtpotongan_keypress(keyascii As Integer)

If keyascii = 13 Then

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End If

End Sub

Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress

Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress 

Source kode :

Private Sub cmdhitung_Click()

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtpokok = ""

txttunjangan = ""

txtpotongan = ""

txtgajihk = ""

txtpajak = ""

txtgadi = ""

txtpokok.SetFocus

End Sub

Tugas 2.2 perhitungan harga setelah diskon 10% menggunakan keypress

Tugas 2.2 perhitungan harga setelah diskon 10% menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtha = ""

txtdis = ""

txthk = ""

End Sub

Private Sub txtha_keypress(keyascii As Integer)

If keyascii = 13 Then

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End If

End Sub

Tugas 2.1 perhitungan harga setelah diskon 10% tampa menggunakan keypress

Tugas 2.1 perhitungan harga setelah diskon 10% tampa menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtha = ""

txtdis = ""

txthk = ""

End Sub

Tugas 6 Kalkulator Menggunakan Keypress

Source kode :

Private Sub cmdhitung_Click()

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End Sub

Private Sub cmdbatal_click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Private Sub txtnilai1_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai2.SetFocus

End If

End Sub

Private Sub txtnilai2_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai3.SetFocus

End If

End Sub

Private Sub txtnilai3_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai4.SetFocus

End If

End Sub

Private Sub txtnilai4_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai5.SetFocus

End If

End Sub

Private Sub txtnilai5_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai6.SetFocus

End If

End Sub

Private Sub txtnilai6_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai7.SetFocus

End If

End Sub

Private Sub txtnilai7_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai8.SetFocus

End If

End Sub

Private Sub txtnilai8_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End If

End Sub

Tugas 5 kalkulator Tidak Menggunakan Keypress

Source kode :

Private Sub cmdhitung_Click()

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End Sub

Private Sub cmdbatal_click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Tugas 4 Penjumlahan Menggunakan Keypress

1.       

Source kode :

Private Sub cmdhitung_Click()

txttotal = Val(txtnilai1) + (txtnilai2)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txttotal = ""

txtnilai1.SetFocus

End Sub

Private Sub txtnilai1_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai2.SetFocus

End If

End Sub

Private Sub txtnilai2_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotal = Val(txtnilai1) + (txtnilai2)

End If

End Sub

Tugas 3 Penjumlahan Tidak Menggunakan Keypress

Tugas 3 Penjumlahan Tidak Menggunakan Keypress

1

Source kode :

Private Sub cmdhitung_Click()

txttotal = Val(txtnilai1) + (txtnilai2)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txttotal = ""

txtnilai1.SetFocus

End Sub

Tugas 2 Data Mahasiswa Menggunakan Keypress

Tugas 2 Data Mahasiswa Menggunakan Keypress

1.       

Source kode :

Private Sub cmdbatal_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Tugas 1 data mahasiswa tampa keypress

1.       Tugas 1 data mahasiswa tampa keypress

Source kode :

Private Sub cmdbatal_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

STMIK PRINGSEWU – SEMINAR BEDAH BUKU APSI

 

STMIK PRINGSEWU – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan acara Seminar dan Bedah Buku “Analisis Perancangan Sistem Informasi”, bertempat di Auditorium lantai II STMIK Pringsewu. Jum’at (30/9)

Bedah buku tentu sangat berkaitan dengan dunia tulis menulis. Menulis merupakan sebuah kegiatan intelektualitas yang sangat bermanfaat bagi penulis atau pembaca.

Dengan menulis kita bisa menuangkan isi pikiran kita terhadap sesuatu. Dengan menulis kita bisa berekspresi dengan bebas terkait keilmuan yang berkembang. Sehingga bisa dikatakan sebuah karya tulisan sebagai perwakilan ekspresi dari pemikiran sang penulis untuk ditransfer kepada semua pembaca dimanapun berada.

Hadir dalam acara bedah buku tersebut, Wakil Ketua I (E. Yunaeti A, M.T.I), Wakil Ketua III (Nur Aminudin, M.T.I), Ka. LPPM (M. Muslihudin, M.T.I), Ka. SDM (Dedi Irawan, M.E.Sy), Kaprodi Manajemen Informatika (Oktavianto, M.T.I), tidak ketinggalan Bapak dan Ibu dosen dilingkungan STMIK Pringsewu.

Dalam sambutannya Nur Aminudin, M.T.I (Wakil Ketua III) STMIK Pringsewu mengatakan, Analisis dan perancangan sistem adalah suatu pendekatan yang sistematis untuk mengidentifikasi masalah, peluang dan tujuan, mengidentifikasi arus data dan arus informasi, merancang sistem informasi. Dengan dilaksanakan seminar bedah buku tersebut diharapkan mahasiswa memahami konsep dasar Analisa dan perancangan Sistem Informasi, mahasiswa memahami pentingnya fase Analisa dan desain dalam pembangunan sebuah sistem informasi, mahasiswa memahami peran seorang system analyst, mahasiswa memahami penyebab terbesar gagalnya proyek sistem informasi, yang akan di kupas oleh penulisnya Oktavianto, M.T.I & M. Muslihudin, M.T.I, ucapnya sekaligus membuka acara seminar bedah buku tersebut.

Filed in: BEM, Info Kampus, Info Penting, Resources, Teknologi, Umum

 

KETUA STMIK PRINGSEWU PIMPIN UPACARA PERINGATAN HARI PAHLAWAN

 

STMIK PRINGSEWU – Hari Pahlawan Nasional yang jatuh hari ini, Kamis (10/11) turut diperingati di STMIK Pringsewu Kabupaten Pringsewu – Lampung.

Upacara penghormatan berlangsung pagi ini di halaman kampus STMIK Pringsewu. Tampak dalam barisan, Bapak/Ibu Dosen STMIK Pringsewu, Mahasiswa dan Resimen Mahasiswa.

Ketua STMIK Pringsewu Hj. Rita Irviani, M.M bertindak sebagai inspektur upacara. Komandan upacara Danki Resimen Mahasiswa STMIK Pringsewu (Sandi Royan Saputra). 

Filed in: BEM, Info Kampus, Info Penting, Umum