Jumat, 17 April 2015

Contoh Pelanggaran Etika Pada Teknologi Informasi

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Contoh Kasus Pelanggaran Etika Dalam Kehidupan Masyarakat

1.  Kasus KAP Andersen dan Enron

                        Kasus KAP Andersen dan Enron terungkap saat Enron mendaftarkan kebangkrutannya ke pengadilan pada tanggal 2 Desember 2001. Saat itu terungkap, terdapat hutang perusahaan yang tidak dilaporkan, yang menyebabkan nilai investasi dan laba yang ditahan berkurang dalam jumlah yang sama. Sebelum kebangkrutan Enron terungkap, KAP Andersen mempertahankan Enron sebagai klien perusahaan, dengan memanipulasi laporan keuangan dan penghancuran dokumen atas kebangkrutan Enron, dimana sebelumnya Enron menyatakan bahwa pada periode pelaporan keuangan yang bersangkutan tersebut, perusahaan mendapatkan laba bersih sebesar $ 393, padahal pada periode tersebut perusahaan mengalami kerugian sebesar $ 644 juta yang disebabkan oleh transaksi yang dilakukan oleh perusahaan-perusahaan yang didirikan oleh Enron.

Komentar :
Contoh kasus yang terjadi pada KAP Andersen dan Enron adalah sebuah pelanggaran etika profesi akuntansi dan prinsip etika profesi, yaitu berupa pelanggaran tanggung jawab –yang salah satunya adalah memelihara kepercayaan masyarakat terhadap jasa profesional seorang akuntan. Pelanggaran prinsip kedua yaitu kepentingan publik,pada kasus KAP Andersen dan Enron tersebut kurang dipegang teguhnya kepercayaan masyarakat, dan tanggung jawab yang tidak semata-mata hanya untuk kepentingan kliennya tetapi juga menitikberatkan pada kepentingan public. Jadi seharusnya KAP Andersen dalam melakukan tugasnya sebagai akuntan harus melakukan tindakan berdasarkan etika profesi akuntansi dan prinsip etika profesi.

Selasa, 14 Januari 2014

Membuat Kriptografi Dari VB 2008

Baiklah pada hari ini saya akan mempostingkan aplikasi membuat  “Kriptografi” dengan Visual Basic 2008. Sebelumnya saya akan menjelaskan terlebih dahulu apa itu Kriptografi. Kriptografi adalah penambahan beberapa huruf, angka dan simbol-simbol tertentu kedalam sebuah text, dengan tujuan orang lain tidak dapat membaca pesan yang anda kirimkan ke sahabat anda, dimana sahabat anda juga mengerti pesan tersebut.
Langsung saja, saya akan membuat 4 Kriptografi yaitu : Kriptografi Caesar, Kriptografi Vernam, Kriptografi Gronsfeld, dan Kroptografi Vigenore.
Pertama Buatlah 5 Form pada VB 2008.
(+)Pada Form 1 kita buat itu menjadi induknya, seperti berikut ini :

Untuk membuat “File” dan “About” tersebut gunakanlah  Menustrip yang terdapat pada toolbox.
Setelah itu masukkan code berikut ini ke form 1 :

Minggu, 08 Desember 2013

Buatlah program vb net untuk menampilkan output

Kali ini Saya juga Akan Memposting Quiz dari Kampus STIMIK BUDIDARMA Medan.
Langsung saja berikut ini bentuknya :



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("PM010")
        NIK.Items.Add("PS111")
        NIK.Items.Add("KU101")
        NIK.Items.Add("GD100")
        NIK.Items.Add("PM011")
        Jbtan.Items.Add("PM")
        Jbtan.Items.Add("PS")
        Jbtan.Items.Add("KU")

        stats.Items.Add("Menikah")
        stats.Items.Add("Tidak Menikah")
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "PM010"
                nma.Text = "Remington"
               
            Case "PS111"
                nma.Text = "Ferry"
               
            Case "KU101"
                nma.Text = "Irwandy"
               
            Case "GD100"
                nma.Text = "Chen Lee"
                
            Case "PM011"
                nma.Text = "Yee Yin"

Pemakaian If Else dalam Penyelesaian Pembayaran Tagihan Air Minum Menggunakan Visual Basic det Net dengan menambahkan komponen LISTVIEW

Oke Kali ini saya akan memposting tentang Quiz kami dari Kampus STMIK Budidarma Medan yaitu membuat "Pemakaian If Else dalam Penyelesaian Pembayaran Tagihan Air Minum Menggunakan Visual Basic det Net"
Berikut ini Bentuknya :



Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga M3", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Air", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

Rabu, 04 Desember 2013

Cara Membuat Blackberry sebagai Wi-Fi Router

Sekarang ini banyak kafe, mal dan restoran di kota-kota besar yang menyediakan layanan wifi hotspot gratis. Banyak orang berdiam diri cukup lama di kafe untuk menggunakan wifi gratis dengan hanya bermodalkan secangkir kopi.
Namun, sering kali fasilitas wifi gratis ini tidak tersedia setiap saat, seperti saat berada di perjalanan atau di desa terpencil.
Sementara itu, banyak orang yang mempunyai BB dan berlangganan paket browsing. Untuk chatting dan browsing darurat BB memang praktis, tapi bagaimana memanfaatkan konektifitas yang sudah ada secara maksimal?

Membuat Bootable Windows 7 Usb

  Oke Kali ini saya akan memposting tentang Membuat Bootable Windows 7 Usb, Mungkin agan tidak tau sebelumnya, Apakah sich sebenarnya Kegunaan Bootable ini ??
Ini dimaksudkan untuk Mereka yang mempunyai Laptop dan Netbook, Dimana DVD roomnya tidak ada di miliki atau pun DVD Roomnya Rusak, Nah di situlah digunakan Bootable Windows 7 Usb ini. Dengan kata lain ini sebagai pengganti DVD Room Tadi.