Review Tentang Mesran[ dot ]Net

Dalam dunia informasi sekarang ini banyak sekali program-program yang dibuat untuk mempermudah pekerjaan seorang user. kali ini admin ingin berbagi tentang Website yang menyediakan pembelajaran tentang berbagai mcam bahasa Pemrograman seperti VB, Vb.Net, Pascal, C++.

    Nah langsung saja ini dia alamatnya mesran.blogspot.com  dan  di mesran.net. Dalam situs itu nanti anda akan mendapatkan banyak ilmu yang berharga khususnya bagi anda yang hobi dengan dunia informasi, dan pastinya mudah untuk dipelajari karena situs tersebut berasal dari orang yang terpercaya yang memang ahli di bidang tersebut,  Di dalam situs itu kita juga bisa mendownload program, ebook dan software.

Latihan Listview Perhitungan Penjualan

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CbKode.Items.Add("TS001")
        CbKode.Items.Add("TS002")
        CbKode.Items.Add("VG001")
        CbKode.Items.Add("VG002")

        Call table()
    End Sub
    Sub table()
        LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Private Sub CbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbKode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(CbKode.Text, 2)
        If x = "TS" Then
            TxtMerk.Text = "Toshiba"
        ElseIf x = "VG" Then
            TxtMerk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(CbKode.Text, 3)
        If x = "001" Then
            TxtNama.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            TxtNama.Text = "Flashdisk 2GB"
        End If
        If CbKode.Text = "TS001" Then
            TxtHarga.Text = 105000
        ElseIf CbKode.Text = "TS002" Then
            TxtHarga.Text = 75000
        ElseIf CbKode.Text = "VG001" Then
            TxtHarga.Text = 90000
        ElseIf CbKode.Text = "VG002" Then
            TxtHarga.Text = 60000
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Dim simpan As New ListViewItem
        simpan.Text = TxtNo.Text
        simpan.SubItems.Add(CbKode.Text)
        simpan.SubItems.Add(TxtNama.Text)
        simpan.SubItems.Add(TxtMerk.Text)
        simpan.SubItems.Add(TxtHarga.Text)
        simpan.SubItems.Add(TxtJumlah.Text)
        simpan.SubItems.Add(TxtTotal.Text)
        LV.Items.Add(simpan)

        BtnBersih_Click(sender, e)
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtNo.Text = ""
        CbKode.Text = ""
        TxtNama.Text = ""
        TxtMerk.Text = ""
        TxtHarga.Text = ""
        TxtJumlah.Text = ""
        TxtTotal.Text = ""
    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 BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TxtTotal.Text = Val(TxtJumlah.Text) * Val(TxtHarga.Text)
        End If
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Nama : Erma Novida

NPM : 13110561

Kelas : TIM-1310

sistem operasi komputer

1.pengertian sistem operasi 

sistem operasi adalah : perangkat lunak software yang bertindak sebagai penghubung ,pengendali dan perantara antara user dengan perangkat keras komputer (hardware)

manfaat sistem operasi 

1.digunakan II eksekusi program dari user dan memudahkan permasalahan user 

2.membuat sistem komputer nyaman digunakan 

tujuan sistem operasi

menggunakan perangkat keras komputer secara efisien 

fungsi sistem operasi 

a.resource allocator (pembagian sumber daya

mengatur dan mengendalikan penggunaan sumber-sumber daya komputer

b.program control 

melakukan control eksekusi program user dan operasi input output

c.kernel 

dapat menjalankan program sepanjang waktu 

perkembangan sistem operasi 

1. sistem pendahulu (main frame)

berbentuk mesin besar 

perangkat input 

card reader , tape drive 

perangkat output 

line printer , tape drive & card puch

2.sistem batch 

beberapa proses job dikumpulkan pada sebuah memori utama pada waktu yang sama 

3.sistem multiprograming 

menjalankan beberapa program secara bersamaan

menyediakan mekanisme untuk menejemen memory, penjadwalan cpu dan menejemen disk

4.sistem time sharing

beberapa proses job yang berada pada memori utama dieksekusi oleh cpu secara bergantian 

5.sistem desktop

sistem komputer dikembangkan untuk 1 user saja

6.sistem paralel 

mempunyai lebih dari satu processor yang dapat berkomunikasi dan berbagi

7.sistem terdistribusi 

mendistribusikan komputasi diantara beberapa processor 

8.sistem terklaster

memungkinkan sistem membagi media penyimpanan

9.sistem real time 

digunakan untuk ketepatan waktu pada proses komputasi

10.sistem handheld

digunakan pada mobile (selular)