Quis Online SPK dengan Metode TOPSIS

Cybercrime

1.Pengertian Cybercrime

Cybercrime adalah tindak criminal yang dilakkukan dengan menggunakan teknologi computer sebagai alat kejahatan utama. Cybercrime merupakan kejahatan yang memanfaatkan perkembangan teknologi computer khusunya internet.

E-commerce

Pengertian E- Commerce
 Electronic Commerce Transaction adalah transaksi dagang antara
penjual dengan pembeli untuk menyediakan barang, jasa atau
mengambil alih hak. Kontrak ini dilakukan dengan media elektronik
(digital medium) di mana para pihak tidak hadir secara fisik. Medium
ini terdapat di dalam jaringan umum dengan sistem terbuka yaitu
internet atau world wide web.

Metode Simple Additive Weighting (SAW)

Dalam sebuah penilaian keputusan dari beberapa variable yang mempunyai bobot tidak sama kita harus menentukan terlebih dahulu koefisien dari setiap variable sehingga kita dapat menentukan nilai dari sebuah keputusan tersebut.

Contoh Nilai Matakuliah = 15%Kehadiran + 15%Tugas + 30%UTS + 40%UAS

Nah koefisien yang telah ditentukan tersebut membedakan nilai dari setiap variablenya. Metode yang menjelaskan tentang hal ini adalah metode Simple Additive Weighting.

Kriptografi

 Pengertian Kriptografi
Ada beberapa definisi yang telah dikemukakan di dalam berbagai literatur.
Kata kriptografi berasal dari bahasa Yunani yaitu cryptos yang berarti rahasia dan
graphein yang berarti tulisan [5]. Kriptografi adalah suatu ilmu yang mempelajari
penulisan secara rahasia dengan menggunakan teknik-teknik metematika.

Penyelesaian Masalah Assignment (Penugasan) dengan Menggunakan Metode Hungarian

Assignment problem
Assignment problem adalah suatu masalah mengenai pengaturan pada individu (objek) untuk melaksanakan tugas (kegiatan), sehingga dengan demikian biaya yang dikeluarkan untuk pelaksanaan penugasan tersebut dapat diminimalkan. Salah satu dalam menyelesaikan persoalan ini adalah dengan menggunakan algoritma Hungarian. Algoritma Hungarian adalah salah satu algoritma yang digunakan untuk menyelesaikan persoalan masalah assignment.

Teknologi EDGE dan Peng-kodean Data

1.1.Latar Belakang

EDGE atau Enhanced Data rates for GSM Evolution adalah teknologi evolusi dari GSM dan IS-136. Tujuan pengembangan teknologi baru ini adalah untuk meningkatkan kecepatan transmisi data, efesiensi spektrum, dan memungkinkannya penggunaan aplikasi-aplikasi baru serta meningkatkan kapasitas.

Pengaplikasian EDGE pada jaringan GSM fase 2+ seperti GPRS dan HSCSD dilakukan dengan penambahan lapisan fisik baru pada sisi Radio Access Network (RAN). Jadi tidak ada berubahan di sisi jaringan inti seperti MSC, SGSN, ataupun GGSN.

Manusia, Nilai, Moral dan Hukum

1.1              Latar Belakang

Manusia, nilai, moral, dan hukum merupakan sesuatu yang tidak dapat dipisahkan. Masalah-masalah serius yang dihadapi bangsa Indonesia berkaitan dengan nilai, moral, dan hukum antara lain mengenai kejujuran, keadilan, dan perbuatan negatif lainnya sehingga perlu dikedepankan pendidikan agama dan moral karena dengan adanya panutan, nilai, bimbingan, dan moral dalam diri manusia akan sangat menentukan kepribadian individu atau jati diri manusia, lingkungan sosial dan kehidupan setiap insan. Pendidikan nilai yang mengarah kepada pembentukan moral yang sesuai dengan norma kebenaran menjadi sesuatu yang esensial bagi pengembangan manusia yang utuh dalam konteks sosial.

Mengulas tentang Mesran.net

 

Kali ini saya akan membuat postingan yang mengulas Tentang Mesran.Net

Sebelumnya saya ingin bercerita sedikit tentang dosen saya ini.

Dosen saya yang bernama  Mesran ini menurut saya salah satu dosen yang bisa dikatakan cukup ketat dan disiplin dalam segala peraturan yang ada dikampus. Contohnya aja, kalau kita tidak memakai pakaian seragam Putih Hitam pada hari Selasa atau Kamis, datang telat lebih dari 15 menit langsung deh di suruh keluar sama bapak itu.

Tugas Praktikum NILAI MAHASISWA

 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buattabel()

        npm.Items.Add("13110253")
        npm.Items.Add("13110289")
        npm.Items.Add("13110319")
        MK.Items.Add("Visual Basic")
        MK.Items.Add("Logika Algoritma")
        MK.Items.Add("Sistem Operasi")
        MK.Items.Add("Struktur Data")
        MK.Items.Add("Arsitektur dan Organisasi Komputer")
        MK.Items.Add("Komunikasi Data")




    End Sub

    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Mata Kuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Uas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Uts", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Praktikum", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub Isitable()
        Dim ist As New ListViewItem
        ist.Text = npm.Text
        ist.SubItems.Add(nama.Text)
        ist.SubItems.Add(MK.Text)
        ist.SubItems.Add(N_angka.Text)
        ist.SubItems.Add(N_huruf.Text)
        ist.SubItems.Add(N_uas.Text)
        ist.SubItems.Add(N_uts.Text)
        ist.SubItems.Add(N_Praktikum.Text)
        LV.Items.Add(ist)
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "13110253" Then
            nama.Text = "Devie Ayuningsih"
        ElseIf npm.Text = "13110289" Then
            nama.Text = "Ica capahh"
        ElseIf npm.Text = "13110319" Then
            nama.Text = "Linda Bahtera"
        End If
        npm.ForeColor = Color.Blue
        nama.ForeColor = Color.Green
        MK.ForeColor = Color.Red
        N_angka.ForeColor = Color.Blue
        N_huruf.ForeColor = Color.Blue
        N_uas.ForeColor = Color.Blue
        N_uts.ForeColor = Color.Blue
        N_Praktikum.ForeColor = Color.Blue
        LV.ForeColor = Color.Red


    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        Close()
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        N_angka.Text = 0.3 * N_uts.Text + 0.3 * N_uas.Text + 0.4 * N_Praktikum.Text


        If N_angka.Text >= 80 Then
            N_huruf.Text = "A"
        ElseIf N_angka.Text >= 70 Then
            N_huruf.Text = "B"
        ElseIf N_angka.Text >= 60 Then
            N_huruf.Text = "C"
        ElseIf N_angka.Text >= 50 Then
            N_huruf.Text = "D"
        Else
            N_huruf.Text = "E"
        End If

    End Sub

    Private Sub Btn_isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_isilist.Click
        Call Isitable()
        npm.Text = ""
        nama.Text = ""
        MK.Text = ""
        N_angka.Text = ""
        N_huruf.Text = ""
        N_uas.Text = ""
        N_uts.Text = ""
        N_Praktikum.Text = ""

    End Sub

    Private Sub Btn_hpsnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpsnpm.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btn_hpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_Hpsdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hpsdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub
End Class