Mesran.Net

Review Mesran Dot Net
mesran.net adalah sebuah web yg di dalamnya terdapat banyak hal-hal yang bermanfaat bagi pelajar khususnya mahasiswa jurusan komputer

 “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” namun sangat bermanfaat untuk kita semua.Mesran.net adalah sebuah web yang membantu kita dalam pembelajaran pemrograman,pengalaman ,cerita lucu,dan masih banyak lagi hal yang terdapat didalam mesran.net.

Jika kita rajin untuk membuka,membaca,dan mengulas postingan web ini, maka kita akan mampu sedikit demi sedikit memahami program yang kita kurang mengerti. Mau belajar VB.Net ,java,pascal,C,C++ Mesran.net tempatnya.

Terima kasih mesran.net karena telah membantu saya dalam pengerjaan beberapa pemograman yang saya tidak mengerti.Dan Terima kasih untuk Bapak Mesran,M.Kom yang telah melakukan gebrakan untuk kami yakni membuat blog,posting artikel,quiz online yang mana ini merupakan hal sangat luar biasa untuk kami sebagai mahasiswa Informatika yang mungkin lalai dan sepele dengan blog.

semoga dengan “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” dapat memberikan kita banyak ilmu yang  bermanfaat untuk kita semua

Aamiin….

quiz

Pembayaran TV

Listing Program:
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilNamaBarang()
    End Sub
    Sub TampilNamaBarang()
        NBarang.Items.Add("TOSHIBA")
        NBarang.Items.Add("DIGITEC")
        NBarang.Items.Add("POLYTRON")
    End Sub

    Private Sub NBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBarang.SelectedIndexChanged
        Select Case NBarang.Text
            Case "TOSHIBA"
                harga.Text = "1600000"
            Case "DIGITEC"
                harga.Text = "22000000"
            Case "POLYTRON"
                harga.Text = "3000000"
        End Select
    End Sub

    Private Sub JJual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JJual.KeyPress
        If Asc(e.KeyChar) = 13 Then
            THarga.Text = harga.Text * JJual.Text : Call buatDiscount()
        End If
       
    End Sub
    Sub buatDiscount()
        If THarga.Text >= 2500000 Then
            Discount.Text = 0.1 * THarga.Text
        Else
            Discount.Text = 0
        End If
    End Sub
    Private Sub JJual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JJual.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TPembayaran.Text = Val(THarga.Text) - Val(Discount.Text)
    End Sub
    Sub bersih()
        NBarang.Text = ""
        harga.Text = ""
        JJual.Text = ""
        THarga.Text = ""
        Discount.Text = ""
        TPembayaran.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Call bersih()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

hasil:

Quiz

Perhitungan Penjualan Barang

Listing Program:
Public Class Form1
    Sub BuatTabel()
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = NPembelian.Text
            .SubItems.Add(KBarang.Text)
            .SubItems.Add(NBarang.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(JBeli.Text)
            .SubItems.Add(THarga.Text)
        End With
        LV.Items.Add(lst)

    End Sub
    Sub tampilkodebrg()
        KBarang.Items.Add("TS001")
        KBarang.Items.Add("TS002")
        KBarang.Items.Add("VG001")
        KBarang.Items.Add("VG002")
    End Sub
    Sub bersih()
        NPembelian.Text = ""
        KBarang.Text = ""
        NBarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        JBeli.Text = ""
        THarga.Text = ""
    End Sub
    Private Sub Penjualan_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call BuatTabel()
        Call tampilkodebrg()
        Call bersih()
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        bersih()
    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        LV.Items.Clear()

    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        bersih()
    End Sub

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

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub KBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBarang.SelectedIndexChanged
        Select Case KBarang.Text
            Case "TS001"
                Harga.Text = "105000"
                NPembelian.Text = "001"
            Case "TS002"
                Harga.Text = "75000"
                NPembelian.Text = "002"
            Case "VG001"
                Harga.Text = "90000"
                NPembelian.Text = "003"
            Case "VG002"
                Harga.Text = "60000"
                NPembelian.Text = "004"
        End Select
        Dim x As String
        x = Strings.Left(KBarang.Text, 2)
        Select Case x
            Case "TS"
                Merk.Text = "Toshiba"
            Case "VG"
                Merk.Text = "V-Gen"
        End Select
        Dim Y As String
        Y = Strings.Right(KBarang.Text, 5)
        If Y = "TS001" Then
            NBarang.Text = "Flashdisk 4GB"
        ElseIf Y = "TS002" Then
            NBarang.Text = "Flashdisk 2GB"
        ElseIf Y = "VG001" Then
            NBarang.Text = "Flashdisk 4GB"
        Else
            NBarang.Text = "Flashdisk 2GB"
        End If

    End Sub
    Private Sub JBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            THarga.Text = (Harga.Text * JBeli.Text)
        End If
    End Sub

    Private Sub JBeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JBeli.TextChanged

    End Sub
End Class

 Hasilnya:

Link Wajib Di Kunjungi

My Music

divine-music.info

TAMPILAN BLOG DESSY OKTRYANA SITORUS

Kata-Kata Bijak

Ketika seseorang berusaha menjauhi hidupmu, biarkanlah. Kepergian dia hanya membuka pintu bagi seseorang yang lebih baik tuk masuk
Kadang masalah adalah sahabat terbaikmu. Mereka buatmu jadi lebih kuat, dan buatmu menempatkan Tuhan di sisimu yang paling dekat
Jangan yakinkan diri bahwa dia menyukaimu, hanya karena dia bersikap manis padamu. Kadang kamu hanya sebuah pilihan ketika dia bosan
Jangan pernah meremehkan diri sendiri. Jika kamu tak bahagia dengan hidupmu, perbaiki apa yang salah, dan teruslah melangkah
Jangan membenci mereka yang mengatakan hal buruk tuk menjatuhkanmu, karena merekalah yang buatmu semakin kuat setiap hari
Terkadang, kamu berpikir seseorang telah berubah tanpa kamu menyadari hal itu terjadi karena dia mulai bersikap dewasa
Sesuatu yang menyenangkan bagaimana seseorang mampu membuatmu tersenyum, hanya dengan memikirkan dirinya. "Happy".

Pengertian Basis Data, Tujuan, Manfaat dan Contoh Kasus Basis Data

Pengertian Basis Data

Basis data adalah kumpulan file-file yang mempunyai kaitan antara satu file dengan file lain sehingga membentuk suatu bangunan data untuk menginformasikan suatu perusahaan atau instansi dalam batasan tertentu

Istilah-istilah Basis data

Beberapa hal yang termaksud unsur-unsur dari basis data adalah sebagai berikut:

Entititas

Entititas adalah orang, tempat, kejadian atau konsep yang informasinya direkam. Pada bidang kesehatan Entity adalah Pasien, Dokter, Kamar.

Field

Setiap entity mempunyai atribut atau sebutan untuk mewakili suatu entity. Seorang siswa dapat dilihat dari atributnya misalnya, NIM, Nama_siswa, Alamat.

Record

Record adalah kumpulan isi elemen data (atribut) yang saling berhubungan menginformasikan tentang suatu entity secara lengkap.

Contoh Kumpulan atribut NIP, Nama, dan alamat berisikan “01001245566”, Sanusi, Jl. Hati suci No 2 Kupang.

Data Value

Merupakan data aktual atau infomasi yang disimpan ditiap data elemen. Isi atribut disebut nilai data.

Kunci Elemen Data ( Key Data Element )

Tanda pengenal yang secara unik mengidentifikasikan entitas dari suatu kumpulan entitas.

Contoh Entitas Mahasiswa yang mempunyai atribut-atribut npm, nama, alamat, tanggal lahir menggunakan Kunci Elemen Data npm.

Komponen-komponen Sistem Basis Data ( Database )

Basis data merupakan sistem yang terdiri atas kumpulan file atau tabel yang saling berhubungan dan Database Management System ( DBMS ) yang memungkinkan beberapa pemakai untuk mengakses dan manipulasi file-file tersebut ( Fathansyah, 1999). Dalam Sistem Basis data memiliki beberapa komponen yaitu:

Perangkat Keras  ( Hardware )

Perangkat keras yang biasanya terdapat dalam sistem basis data adalah memori sekunder hardisk.

Sistem Operasi ( Operating System )

Sistem Operasi (Operating System) merupakan program yang mengaktifkan atau mengfungsikan sistem komputer, mengendalikan seluruh sumber daya (resource) dan melakukan operasi-operasi dalam komputer. Sistem Operasi yang banyak digunakan seperti: MS-DOS, MS-Windows 95 MS Windows NT, dan Unix.

Basis data ( Database )

Sebuah basis data ( Database ) dapat memiliki beberapa basis data. Setiap basis data dapat berisi atau memiliki sejumlah objek basis data seperi file atau tabel.Database

Management System ( DBMS )

Pengolahan basis data secara fisik tidak dilakukan oleh pemakai secara langsung, tetapi ditangani oleh sebuah perangkat lunak yang disebut DBMS yang menentukan bagaimana data disimpan, diubah dan diambil kembali.

Pemakai ( User )

Bagi pemakai dapat berinteraksi dengan basis data dan memanipulasi data dalam program yang ditulis dalam bahasa pemograman.

Tujuan dan Manfaat Basis Data

Tujuan utama dalam pengolahan data dalam sebuah basis data adalah agar kita dapat memperoleh data yang kita cari dengan mudah dan cepat (Fathansyah,1999). Pemanfaatan basis data dilakukan dengan tujuan yaitu:

Kecepatan dan kemudahan (Speed )

Pemanfaatan Database memungkinkan kita untuk dapat menyimpan data atau melakukan perubahan ( manipulasi ) dan menampilkan kembali data tersebut dengan cepat dan mudah, dari pada kita menyimpan data secara manual.

Efisien ruang penyimpanan (Space)

Dengan Database penggunaan ruang penyimpanan data dapat dilakukan karena kita dapat melakukan penekanan jumlah pengulangan data dengan menerapkan sejumlah pengkodean .

Keakuratan (Acuracy)

Pemanfatan pengkodean atau pembentukan relasi antar data dengan penerapan aturan atau batasan tipe data dapat diterapkan dalam Database yang berguna untuk menentukan ketidakakuratan pemasukan atau penyimpanan.

Keamanan (Security)

Dalam sejumlah sistem ( apilkasi ) pengelolah database tidak menerapkan aspek keamanan dalam penggunaan database. Tetapi untuk sistem yang besar dan serius, aspek keamanan juga dapat diterapkan. Dengan begitu kita dapat menentukan siapa yang boleh menggunakan database dan menentukan jenis operasi-operasi apa saja yang boleh dilakukan.

Terpeliharanya keselarasan data (Consitant)

Apabila ada perubahan data pada aplikasi yang berbeda maka secara otomatis perubahan itu berlaku untuk keseluruhan

Data dapat dipakai secara bersama (shared)

Data dapat dipakai secara bersama-sama oleh beberapa program aplikasi (secara batch maupun on-line) pada saat bersamaan.

Dapat diterapkan standarisasi (standardization)

Dengan adanya pengontrolan yang terpusat maka DBA dapat menerapkan standarisasi data yang disimpan sehingga memudahkan pemakaian, pengiriman maupun pertukaran data.

Kelemahan Sistem Basis Data

• Memerlukan tenaga spesialIS
• Kompleks
• Memerlukan tempat yang besar
• Mahal

Pengguna Basis Data

System Engineer

Tenaga ahli yang bertanggung jawab atas pemasangan Sistem Basis Data, dan juga mengadakan peningkatan dan melaporkan kesalahan dari sistem tersebut kepada pihak penjual

Database Administrator (DBA)

Tenaga ahli yang mempunyai tugas untuk mengontrol sistem basis data secara keseluruhan, meramalkan kebutuhan akan sistem basis data, merencanakannya dan mengaturnya.

Tugas DBA

• Mengontrol DBMS dan software-software
• Memonitor siapa yang mengakses basis data
• Mengatur pemakaian basis data
• Memeriksa security, integrity, recovery dan concurency

Program Utilitas yang digunakan oleh DBA :

• Loading Routines, Membangun versi utama dari basis data
• Reorganization Routines, Mengatur / mengorganisasikan kembali basis data
• Journaling Routines, Mencatat semua operasi pemakaian basis data
• Recovery Routines, Menempatkan kembali data, sebelum terjadinya kerusakan
• Statistical Analysis Routines, Membantu memonitor kehandalan sistem

End User (Pemakai Akhir)

Ada beberapa jenis (tipe) pemakai terhadap suatu sistem basis data yang dapat dibedakan berdasarkan cara mereka berinteraksi terhadap sistem :

Programmer aplikasi

Pemakai yang berinteraksi dengan basis data melalui Data Manipulation Language (DML), yang disertakan (embedded) dalam program yang ditulis pada bahasa pemrograman induk (seperti C, pascal, cobol, dll)

Pemakai Mahir (Casual User)

Pemakai yang berinteraksi dengan sistem tanpa menulis modul program. Mereka menyatakan query (untuk akses data) dengan bahasa query yang telah disediakan oleh suatu DBMS

Pemakai Umum (End User / Naïve User)

Pemakai yang berinteraksi dengan sistem basis data melalui pemanggilan satu program aplikasi permanen (executable program) yang telah ditulis (disediakan) sebelumnya

Pemakai Khusus (Specialized/Sophisticated User)

Pemakai yang menulis aplikasi basis data non konvensional, tetapi untuk keperluan-keperluan khusus seperti aplikasi AI, Sistem Pakar, Pengolahan Citra, dll, yang bisa saja mengakses basis data dengan atau tanpa DBMS yang bersangkutan.

Contoh penggunaan Aplikasi basis data dalam dunia bisnis 

• Bank : Pengelolaan data nasabah, akunting, semua transaksi perbankan
• Bandara : Pengelolaan data reservasi, penjadualan
• Universitas : Pengelolaan pendaftaran, alumni
• Penjualan : Pengelolaan data customer, produk, penjualan
• Pabrik : Pengelolaan data produksi, persediaan barang, pemesanan, agen
• Kepegawaian: Pengelolaan data karyawan, gaji, pajak
• Telekomunikasi : Pengelolaan data tagihan, jumlah pulsa 
•