SEMINAR HAKI (HAK ATAS KEKAYAAN INTELEKTUAL)

-

SEMINAR HAKI (HAK ATAS KEKAYAAN INTELEKTUAL).

 
StmikPringsewu/SeminarHAKI
 
STMIK PRINGSEWU – Rabu (31/5) beberapa dosen dari STMIK Pringsewu, STIT Pringsewu, STIT Multazam, STIE Lampung Timur, ikut dalam seminar Internal yang mengambil tema tentang HAKI (Hak Atas Kekayaan Intelektual) yang bertempat di Auditorium lantai II STMIK Pringsewu dengan nara sumber Sri Yuliani, S.H., M.H Kepala bidang pelayanan hukum kantor wilayah kementrian Hukum dan Hak Asasai Manusia (KEMENKUMHAM) Lampung.

Tema tentang HAKI memang sedang “in” sekarang ini, khususnya di kampus-kampus, dimana para dosen sebagai pendidik diwajibkan sebagai contoh bagi anak didiknya untuk bisa menghargai karya, ide, ciptaan orang lain, sehingga dimasa depan tingkat kejahatan plagiarism khususnya menjadi semakin minim.

Dalam seminar tersebut, Sri Yuliani menjelaskan tentang pengenalan dan Manfaat kekayaan intelektual dan pendaftaran intelektual secara elektronik.

Program aksi dari Kemenhumkam tentang kekayaan Intelektual yang dilaksanakan adalah pembentukan sentra KI, untuk di Lampung baru ada di UNILA, dan berharap STMIK Pringsewu bisa dirintis untuk menjadi sentra KI. Kata Sri Yuliani.

Komentar

Posting Komentar

Postingan populer dari blog ini

DATA MAHASISWA STMIK PRINGSEWU WITH KEYPRESS

-
Gambar
Private Sub cmdbatal_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub Cmdhitung_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub cmdhitung_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn2.SetFocus End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub
Baca selengkapnya

tugas 3_4

-
Gambar
Private Sub cmdbatal_Click() cbokode = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Cbokode = "" Txt judul = "" Txt pengarang = "" Txt terbit = "" Txt penerbit = "" Txt harga = "" End Sub Private Sub cmdproses_Click() Dim P, JB, PENG, HAR, PENER As String Txtterbit.Text = " 20 " & Right(cbokode.Text,2) P = Mid( cbokode .Text, 3 , 3 ) If P = " SIM " Then JB   = "Sistem Informasi Manajemen" PENG =   " Yati Nur Oktafia " HAR =   " 75900 " ElseIf P = " EDP " Then JB   = " Elektronik Data Proc e ssing" PENG =   " Imam Tarmizi " HAR =   " 62000 " ElseIf P = " MNJ " Then JB   = "Manajemen" PENG =   " Valentina Mariana Adiwianti " HAR =   " 42000 " ElseIf P...
Baca selengkapnya

PENJUMLAHAN WITH KEYPRESS

-
Gambar
Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txtn1) + Val(txtn2) End If End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(t...
Baca selengkapnya