UAS PEMROGRAMAN BISNIS 2

Dengan menggunakan aplikasi Visual Studio 2013 kali ini saya mencoba membuat aplikasi pembelian baju, baik outwear maupun dress. Berikut ini penjelasan mengenai aplikasi tersebut :

1. Masukan ID Customer ada beserta data diri anda, kemudian pilih lah jenis baju yang ingin anda beli dan tentukan banyaknya baju yang ingin anda pesan. Setelah itu pilih button "Calculate" untuk mengetahui total harga yang harus anda bayar, jika sudah yakin ingin melakukan pembelian pilih button "Shop", data anda secara otomatis akan tersimpan di dalam database penjualan. Namun jika anda ingin melakukan pembelian lagi pilih button "Clear" terlebih dahulu untuk mengosongkan form pemesanan kemudian anda bisa melakukan pembelian lagi.

2. Apabila anda ingin memeriksa apakah data anda sudah tersimpan atau belum silahlan pilih "menu" kemudian pilih "find data", masukan ID Customer anda sesuai ID yang anda masukan pada saat melakukan pembelian. Jika sudah maka secara otomatis akan  terisi data pembelian anda di dalam form tersebut. Namun jika anda ingin menghapus data anda, silahlan pilih "menu" kemudian pilih "delete data", data anda secara otomatis akan terhapus dari data base kami.

3. Dalam melakukan pencaria data ID Customer yang anda masukan harus sesuai dengan sebelumnya, jika tidak maka data anda tidak tapat ditemukan dan akan muncul message box seperti dibawah ini 

4. Di dalam aplikasi ini juga dapat ditampilkan data barang dan data penjualan. Caranya dengan pilih "Report" lalu pilih jenis data apa yang ingin anda lihat.

 

Database :

Source Code:

TextBox 1 = ID Customer

TextBox 6 = Nama pembeli

TextBox 2 = No. Rek pembeli

TextBox 4 = Alamat rumah pembeli

TextBox 9 = Total Price

TextBox 7 = Jenis baju yang dipilih

TextBox 3 = Harga satuan baju

TextBox 5 = Banyaknya baju yang ingin dibeli

ComboBox 2 =  Daftar baju

PictureBox 1 = Tampilan baju yang dipilih

FindDataToolStripMenuItem = Mencari data yang sudah tersimpan didalam data base

DeleteDataToolStripMenuItem = Menghapus data yang terdapat didalam data base

DataBarangToolStripMenuItem = Memunculkan data barang yang ada di data base

DataPenjualanToolStripMenuItem = Memunculkan data penjualan yang ada di data base

Button 1 = Menjumlah total keseluruhan harga

Button 2 = Menyimpan data

Button 3 = Menghapus data yang ada dalam form pemesanan

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim a As String

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UAS\DatabaseUAS1.accdb"

    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private xReader As OleDbDataReader

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox9.Text = TextBox3.Text * TextBox5.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        objkoneksi.Close()

        objkoneksi.Open()

        Dim tambah As String = "INSERT INTO TabelPenjualan values('" & TextBox1.Text & "','" & TextBox6.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "')"

        Dim ocmd = New OleDbCommand(tambah, objkoneksi)

        ocmd.ExecuteNonQuery()

        MsgBox("Terimakasih atas pembelian anda, data pembelian anda secara otomatis akan masuk ke dalam database kami :)", MsgBoxStyle.Information, "Info")

        objkoneksi.Close()

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim a As String

        a = ComboBox2.Text

        If a = "-- None --" Then

            TextBox3.Text = 0

            TextBox5.Text = ""

            TextBox7.Text = ""

            PictureBox1.Image = Nothing

        ElseIf a = "Sawyer" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Sawyer.jpg")

        ElseIf a = "Jordyn" Then

            TextBox3.Text = 369000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jordyn.jpg")

        ElseIf a = "Black Talisa" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\BlackTalisa.jpg")

        ElseIf a = "Arianna" Then

            TextBox3.Text = 379000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Arianna.jpg")

        ElseIf a = "Dusty Pink Charlie" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\DustypinkCharlie.jpg")

        ElseIf a = "Navy London Parka" Then

            TextBox3.Text = 379000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Navy London Parka.jpg")

        ElseIf a = "Jackson" Then

            TextBox3.Text = 349000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jackson.jpg")

        ElseIf a = "Savannah" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Savannah.jpg")

        ElseIf a = "Grey Cherie" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Grey Cherie.jpg")

        ElseIf a = "Natalia" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Natalia.jpg")

        ElseIf a = "Off White Rumi" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Offwhite Rumi.jpg")

        ElseIf a = "Denim Rumi" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Denim Rumi.jpg")

        ElseIf a = "Black Mesha" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Black Mesha.jpg")

        ElseIf a = "Striped Mesha" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Striped Mesha.jpg")

        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox4.Text = ""

        TextBox6.Text = ""

        TextBox9.Text = "0"

        ComboBox2.Text = "-- None --"

    End Sub

    Private Sub DaraBarangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DaraBarangToolStripMenuItem.Click

        Form2.Show()

    End Sub

    Private Sub DataPenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPenjualanToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub FindDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindDataToolStripMenuItem.Click

        Dim x As String = InputBox("Masukan ID Customer")

        objkoneksi.Close()

        objkoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TabelPenjualan where IDCustomer='" + x + "'", objkoneksi)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("IDCustomer")

            TextBox6.Text = xReader("NamaPembeli")

            TextBox2.Text = xReader("NoRek")

            TextBox4.Text = xReader("Alamat")

            ComboBox2.Text = xReader("NamaBarang")

            TextBox7.Text = xReader("Jenis")

            TextBox5.Text = xReader("Qty")

        Else

            MsgBox("ID Customer Tidak Ada", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")

            Exit Sub

        End If

        xReader.Close()

        objkoneksi.Close()

    End Sub

    Private Sub DeleteDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteDataToolStripMenuItem.Click

        objkoneksi.Close()

        objkoneksi.Open()

        Dim dell1 As String = "delete from TabelPenjualan where IDCustomer='" & TextBox1.Text & "'"

        Dim oCmd = New OleDbCommand(dell1, objkoneksi)

        oCmd.ExecuteNonQuery()

        objkoneksi.Close()

        MsgBox("Sukses")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        MsgBox("Thank you for Shopping with us :)")

        Close()

    End Sub

End Class

UTS PEMROGRAMAN BISNIS 2

Berikut ini saya akan membuat aplikasi untuk pembelian kacamata. Dalam pembuatan aplikasi ini saya menggunakan Visual Studio 2013. Dibawah ini adalah langkah-langkah menggunakan aplikasinya :

1. Langkah pertama isi form pemesanan dengan lengkap sesuai dan pilih jenis serta warna kacamata yang anda inginkan.
2.  Pilih lah button Total untuk mengetahui jumlah harga yang harus anda bayar
3. Setelah mengetahui total keseluruhan biaya, lalu pilih lah button Purchase untuk melakukan pembelian dan penyimpanan data anda, setelah itu akan muncul message box yang menerangkan bahwa pembelian dan proses penyimpanan anda telah berhasil

4. Jika anda ingin memeriksa data anda apakah sudah tersimpan atau belum, silahkan pilih button check. Setelah itu akan muncul form data pemesanan.

Source Code :

Textbox 1 : Nama Pemesan
Textbox 2 : No.Rekening pemesan
Textbox 3 : Alamat pengiriman
Textbox 4 : Harga satuan kacamata
Textbox 5 : Jumlah pemesanan
Textbox 6 : Total harga keseluruhan

Checkbox 1 : Jenis-jenis kacamata
Checkbox 2 : Pilihan warna kacamata

Button 1 : Total harga
Button 2 : Purchase
Button 3 : Check (pengecekan data)

Picturebox 1 : Foto jenis kacamata
Picturebox 2 : Foto warna kacamata

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim a, b As String
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UTS\UTS\UTS\Database1.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox6.Text = TextBox4.Text * TextBox5.Text
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim a As String

        a = ComboBox1.Text

        If a = "New York" Then
            TextBox4.Text = 2500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black)2.jpg")
        ElseIf a = "Paris" Then
            TextBox4.Text = 2000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (Black).jpg")
        ElseIf a = "Seoul" Then
            TextBox4.Text = 1500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (Black).jpg")
        ElseIf a = "Shanghai" Then
            TextBox4.Text = 1000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Shanghai (Black).jpg")
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim b As String

        b = ComboBox2.Text

        If b = "Black" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black).jpg")
        ElseIf b = "White" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (White).jpg")
        ElseIf b = "Transparent" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (transparent).jpg")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objkoneksi.Open()
        Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "' , '" & TextBox6.Text & "' , '" & TextBox5.Text & "' , '" & TextBox3.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Sukses")
        objkoneksi.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.show()
    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs)
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

End Class

UAS Lab Pemrograman Bisnis

Kali ini saya akan membuat aplikasi online shop untuk pembelian kacamata. Dalam pembuatan aplikasi ini saya menggunakan Visual Basic 2013. Berikut ini adalah langkah-langkah dalam menjalankan aplikasinya :

1. Pastikan anda sudah memiliki account untuk melakukan pembelian. Jika anda sudah memiliki account anda bisa melakukan log in terlebih dahulu. Caranya dengan memasukan alamat email anda dan password anda, jika sudah pilih button log in.

2. Namun jika anda belum memiliki account, anda bisa membuat account terlebih dahulu sebelum melakukan pembelian. Caranya adalah dengan pilih label link Create Account yang bewarna biru. Setelah itu masukan nama pertama dan terakhir anda, kemudian masukan email anda dan password yang akan digunakan untuk log in sebelum melakukan pembelian. Setelah itu pilih button creat account.

3. Setelah log in/membuat account anda akan terhubung ke langkah berikutnya yaitu melakukan pembelian. Untuk melakukan pembelian anda bisa memilih jenis kacamata apa yang anda inginkan setelah itu pilihlah jenis warna apa yang anda suka sesuai jenis kacamata. Jika anda sudah memilih jenis kacamata maka pada text box price akan muncul harga satuan kacamata tersebut. Kemudian isilah berapa kacamata yang ingin anda beli pada text box quantity. Pilih button total untuk mengetahui total harganya.

4. Anda juga bisa melihat keterangan kacamata yang ingin anda beli pada listbox dibawah gambar. Jika anda sudah yakin akan melakukan pembelian, selanjutnya pilih button purchase. Data anda akan tersimpan dengan format txt.

5. Sedangkan jika anda ingin melakukan pembelian dilain waktu, anda bisa menyimpan data yang sudah anda isi. Caranya dengan pilih menu file lalu pilih save, lalu berilah nama data yang ingin anda save lalu simpanlah data ditempat yang anda inginkan. Setelah memberi nama dan memilih tempat menyimpan data, pilih Save.

• Dibawah ini adalah keterangan dari kacamata yang ada dalam listbox dalam format file txt

Source Coding :

Form 1 : Home Blanc & Eclare
Form 2 : Kententuan membuat account
Form 3 : Pembelian kacamata Blanc & Eclare

• Form 1

Label 1 : Image Blanc & Eclare
Label 2 : Email addres
Label 3 : Password

Textbox 1 : Email addres
Textbox 2 : Password

Button 1 : Log in - ke sistem pembelian
Linklabel 1 : Create account - form 2


Public Class Form1

 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form3.Show()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Form2.Show()
    End Sub
End Class

• Form 2

Label 1 : Nama depan
Label 2 : Nama belakang
Label 3 : Alamat email
Label 4: Password

Textbox 1 : Nama depan
Textbox 2 : Nama belakang
Textbox 3 : Alamat email
Textbox 4 : Password

Button 1 : Create account - ke sistem pembelian


Public Class Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MessageBox.Show("Enjoy your shopping time")

        Form3.Show()

    End Sub

End Class

• Form 3

Groupbox 1 : Berisi jenis-jenis kacamata

Radiobutton 1 : Jenis kacamata "New york"
Radiobutton 2 : Jenis kacamata "Paris"
Radiobutton 3 : Jenis kacamata "Seoul"
Radiobutton 4 : Jenis kacamata "Shanghai"

Combobox 1 : Pilihan warna dari jenis kacamata "New york"
Combobox 2 : Pilihan warna dari jenis kacamata "Paris"
Combobox 3 : Pilihan warna dari jenis kacamata "Seoul"
Combobox 4 : Pilihan warna dari jenis kacamata "Shanghai"

Label 1 : Harga satuan kacamata
Label 2 : Banyaknya kacamata yang ingin dibeli
Label 3 : Total keseluruhan harga

Textbox 1 : Harga satuan kacamata
Textbox 2 : Banyaknya kacamata yang ingin dibeli
Textbox 3 : Total keseluruhan harga

Picturebox 1 : Gambar kacamata berdasarkan jenis dan warna

Listbox 1 : Keterangan jenis kacamata

Button 1 : Total keseluruhan harga
Button 2 : Pembelian

ToolStripMenuItem 1 : Berisi Menu item untuk melakukan penyimpanan data
SaveToolStripMenuItem : Menyimpan data
ExitToolStripMenuItem : Keluar dari aplikasi


Public Class Form3

    Dim a, b, c, d As String

    Private Sub Form3_Activated(sender As Object, e As EventArgs) Handles Me.Activated

        On Error Resume Next

        Dim var4 As Object

        Dim var3 As Object

        Dim var2 As Object

        Dim var1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "D:\LARAS\TSI'14\LAB VB\UAS\Blanc.TXT", OpenMode.Input)

        Do While Not EOF(noFile)

            Input(1, var1)

            Input(1, var2)

            Input(1, var3)

            Input(1, var4)

            ListBox1.Items.Add(var1 & " " & var2 & " " & var3 & " " & var4)

        Loop

        FileClose(noFile)

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        a = 2500000

        TextBox1.Text = a

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Black)d.jpg")

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        b = 2500000

        TextBox1.Text = b

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Oatmeal)d.jpg")

    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

        c = 2500000

        TextBox1.Text = c

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (White)d.jpg")

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged

        d = 2500000

        TextBox1.Text = d

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Transparent)d.jpg")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim a As String

        a = ComboBox1.Text

        If a = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Black).jpg")

        ElseIf a = "Navy" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Navy).jpg")

        ElseIf a = "Transparent" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Transparent).jpg")

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim b As String

        b = ComboBox2.Text

        If b = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Black).jpg")

        ElseIf b = "Blush" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Blush).jpeg")

        ElseIf b = "Oatmeal" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Oatmeal).jpg")

        End If

    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged

        Dim c As String

        c = ComboBox4.Text

        If c = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (Black).jpg")

        ElseIf c = "Black or White" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (BlackorWhite).jpg")

        ElseIf c = "White" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (White).jpg")

        End If

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged

        Dim d As String

        d = ComboBox5.Text

        If d = "Blush" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Blush).jpg")

        ElseIf d = "Tortoise" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Tortoise).jpeg")

        ElseIf d = "Transparent" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Transparent).jpg")

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox3.Text = TextBox1.Text * TextBox2.Text

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MessageBox.Show("Thank You :) ")

    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

        On Error Resume Next

        SaveFileDialog1.Filter = "Text File|*.txt|CSV File|*.CSV"

        SaveFileDialog1.DefaultExt = "*.txt"

        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

Kali ini saya akan membuat program reservasi tiket bioskop. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.

Berikut ini sistem reservasi pemesanan tiketnya :

1. Isi data nama pemesan tiket
2. Pilihlah jenis film yang ingin ditonton
3. Masukan berapa banyaknya tiket yang ingin dipesan
4. Jika sudah yakin klik OK untuk mengetahui total harga tiket
5. Jika ingin melakukan pembatalan klik CANCEL
6. Setelah itu klik SIMPAN untuk menyimpan data jika ingin melakukan pemesanan

Penjelasan :
TextBox1 = nama
TextBox2 = harga tiket satuan
TextBox3 = banyak tiket
TextBox4 = total harga tiket

Button1 = Ok
Button2 = Cancel
Button3 = Simpan

Source Coding :
Public Class Form1

    Dim reservasitiket As New Reservasi_Tiket
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = 25000
        TextBox4.Text = reservasitiket.tiket(TextBox2.Text, TextBox3.Text)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        RadioButton1.Checked = ""
        RadioButton2.Checked = ""
        RadioButton3.Checked = ""
        RadioButton4.Checked = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Terimakasih atas reservasi tiket anda :) ")
        Close()

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\minions.jpg")
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\Avenger.jpg")
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\fast.jpg")
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\insurgent.jpg")
    End Sub

End Class

Source Coding Class :
Public Class Reservasi_Tiket
    Dim hargatiket As Integer

    Public Function tiket(ByVal Hargatiket As Integer, ByVal Banyaktiket As Integer)
        tiket = (Hargatiket * Banyaktiket)

    End Function
End Class

Nama : Nuraini Larasati

NPM : 1406629276

Program ini bertujuan untuk mempermudah proses reservasi pesawat. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.

Nama : Nama penumpang yang melakukan reservasi

Tujuan Penerbangan : Berisi kota asal dan kota tujuan calon penumpang

Waktu Penerbangan : kapan calon penumpang ingin melakukan keberangkatan dan apakah itu sekali jalan atau pulang pergi

Jenis Pembayaran : Metode pembayaran yang ingin dilakukan

Jenis Pesawat : Pesawat apa yang ingin digunakan

Tiket : Berisi jumlah harga yang harus dibayar berdasarkan banyaknya pemesanan tiket

Berikut ini sistem reservasinya :

1. Isi data nama pereservasi dan isi kota tujuan serta kota yang ingin dituju
2. Pilih tanggal keberangkatan dan rencana keberangkatan 
3. Pilih jenis pembayaran yang ingin dilakukan
4. Pilih jenis pesawat yang ingin digunakan
5. Isilah berapa banyaknya tiket yang ingin ada pesan kemudian akan muncul harga total tiket yang harus dibayar

Jika sudah selesai melakukan reservasi, klik tombol konfirmasi, lalu klik ok

Source Coding :

Public Class Form1

    Dim a, b, c, d As Integer

    Private Sub RbGaruda_CheckedChanged(sender As Object, e As EventArgs) Handles RbGaruda.CheckedChanged

        a = 4000000

        TxtHargatiket.Text = a * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Garuda.jpg")

        If RbGaruda.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbCitilink_CheckedChanged(sender As Object, e As EventArgs) Handles RbCitilink.CheckedChanged

        b = 2500000

        TxtHargatiket.Text = b

        TxtHargatiket.Text = b * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Citilink.jpg")

        If RbCitilink.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbSriwijaya_CheckedChanged(sender As Object, e As EventArgs) Handles RbSriwijaya.CheckedChanged

        c = 1500000

        TxtHargatiket.Text = c

        TxtHargatiket.Text = c * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Sriwijaya.jpg")

        If RbSriwijaya.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbLion_CheckedChanged(sender As Object, e As EventArgs) Handles RbLion.CheckedChanged

        d = 2000000

        TxtHargatiket.Text = d

        TxtJumlahpenumpang.Text = d * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Lion.jpg")

        If RbLion.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub BtnKonfirmasi_Click(sender As Object, e As EventArgs) Handles BtnKonfirmasi.Click

        MsgBox("Terima Kasih Atas Reservasi Anda")

        Close()

    End Sub

End Class

Perkembangan Laptop

A.  Sejarah Laptop Secara Umum

Secara umum sejarah laptop mempunyai beberapa versi penceritaan namun inti dari versi-versi tersebut sama. Kisah mengenai laptop ini bermula sekitar tahun 1970-an. Laptop yang dulunya dinamakan komputer jinjing. Maksudnya jenis komputer yang tidak hanya diletakkan di satu tempat, namun dapat dibawa kemana-mana. Komputer jinjing itu digagas pertama kali oleh Alan Kay pada tahun 1970an.

Beliau sangat terkenal dalam dunia koputer sehingga nama Alan Kay juga mewarnai sejarah laptop karena tanpanya kita tidak bisa menikmati laptop yang sekarang ini. Alan Kay bekerja di Xerox Palto Alto Research Center dan ditugaskan untuk membuat komputer yang dapat dijinjing namun tanpa kabel yang memiliki kemampuan network wireless. Beliau menciptakan laptop pertama yang menjadi cikal bakal laptop dan komputer jinjing tersebut pertama kali dinamakan Dynabook.

 

B.   Sejarah Laptop William Moggridge

Kemudian pada akhir tahun 1970-an tepatnya pada tahun 1979, sejarah laptop kembali diwarnai dengan nama baru yang juga piawai dalam dunia komputer yaitu William Moggridge. William Moggridge selanjutnya menciptakan komputer jinjing pertama yang dinamakan The Grid Compass Computer 1109. Komputer jinjing pertamanya ini memiliki memori sebesar 340 kilobyte. Dan juga memiliki ruang untuk disket serta layar yang dapat dilipat yang kemudian dinamakan electrominescent. Sejarah terus bergulir kemudian pada tahuan 1984 kembali diperkenalkan laptop model baru yang bernama Apple model IIc. Sesuai dengan namanya laptop baru ini diperkenalkan oleh perusahaan komputer terkemuka yaitu Apple. Apple IIc yang sebernarnya bukan laptop ini memiliki microprosesor sebesar 65C02, memori sebesar 128 kilobytes dan floppy drive sebesar 5,25 inci dan laptop ini menjadi laptop paling lengkap pertama dalam sejarah laptop.

C.   Sejarah Laptop Transportable

Bicara tentang sejarah komputer jinjing transportable kita akan kembali ke era 1980-an. Sejarah laptop transportable pertama diciptakan oleh Osborne Computer Corporation. Perusahaan komputer ini didirikan oleh Adam Osborne pada tahun 1981. Laptop transportable pertama yang dikeluarkan Osborne Computer Corporation dinamakan dengan The Osborne 1 Personal Computer Bisnis. Laptop baru ini diperkenalkan ke publik pada bulan April 1981. Sejak saat itu, sejarah laptop transportable dimulai. Penjualan Osborne Computer Corporation mengalami kesuksesan dengan terjualnya 11.000 buah laptop selama 8 bulan. Dua tahun kemudian, sejarah laptop mencatat pembuatan The Osborne Executive and the Executive II portable computers tetapi dalam beberapa bulan setelah peluncuran laptop tersebut perusahaan ini mengalami kebangkrutan yang juga tercatat dalam sejarah laptop dunia.

Sejarah laptop transportable pertama tetap mencatat The Osborne 1 menjadi cikal bakal laptop masa depan yang mempunyai spesifikasi sebagai berikut. Laptop ini mempunyai mikroprosesor sebesar 4.0 mhz yang dinamakan Zilog Z80, RAM sebesar 64K, ROM 4K, monitor sebesar 5” dengan kemampuan 53 x 24 text, mempunyai port parallel dan port modem. Laptop ini menjadi sejarah laptop pertama yang memiliki port modem dan CP/M operating system. Berat The Osborne 1 adalah 12 kg dengan layar monochrome, dijual dengan harga murah berikut dengan software gratis. Terlepas dari cikal bakal sejarah laptop pertama, The Osborne 1 hanya dapat bertahan beberapa waktu karena berat dan keterbatasan kemampuan.

D.   Jenis – Jenis Laptop

·        Netbook

Netbook merujuk pada spesies komputer jinjing yang memiliki spesifikasi tertentu. > Sebuah netbook umumnya menggunakan prosesor Intel Atom. > Jenis komputer jinjing ini berukuran kecil, biasanya dengan layar di bawah 12 inci dan berat kurang lebih 1 kg.

Netbook mulai populer ketika Asus mengeluarkan produk bernama Eee PC. Ketika itu, komputer dengan harga murah ini menggunakan harddisk layaknya sebuah media penyimpan portabel USB Flash Disk (UFD), dengan kapasitas rendah 4GB.

·        Mainstream

Laptop ini ,memiliki ciri yaitu:

-        Prosesor yang digunakan, misalnya Intel Core i5, i3, dan Core 2 Duo.

-        Memori minimal 2GB.

-        Memiliki Drive untuk membaca dan menulis DVD.

-        Keyboard berukuran penuh atau setidaknya 80% dari lebarnya sendiri.

·         Tablet PC

Perangkat ini memiliki layar sentuh sehingga mudah diputar, dan mudah dibawa kemana saja. Mulai 2010, perangkat ini menjadi tren baru. Tren ini dikomandani oleh Apple Inc. yang menghadirkan iPad ke pasaran. Namun, ada perbedaan antara Tablet PC dan iPad, yaitu:

-        Tablet PC menggunakan stylus yang digunakan. Sedangkan iPad menggunakan jari-jemari.

-        Tablet PC dimaksudkan sebagai laptop yang berbeda. Sedangkan iPad dimaksudkan sebagai gadget.

E.    Laptop dari Masa ke Masa

Berikut ulasan singkat perkembangan laptop dari masa ke masa, dari tebal sampai tipis. Kita tinggal menikmati ringan dan tipisnya komputer portabel saat ini, sampai bisa untuk memotong apel segar seperti laptop paling tipis.

ü Dynabook

Komputer portabel ini kali pertama diperkenalkan Alan Kay di Xerox Palo Research Center pada 1968. Saat itu Alan Kay memperkenalkan prototype bernama Dynabook. Tujuan dari di ciptakannya Dynabook adl untuk keperluan militer. Bentuk Dynabook ini mirip tablet PC saat ini.

ü Osborne 1

Osborne 1 merupakan mikrokomputer portabel pertama. Mikrokomputer itu dirilis pada 3 April 1981 oleh Adam Osborne. Mikrokomputer ini memiliki berat 10,7 kg dan dijual dengan harga Rp. 16 juta. Selain itu, mikrokomputer tersebut dilengkapi layar ukuran 13 cm serta 2 floppy disk.

ü Epson HX-20

Epsen HX-20 kali pertama diperkenalkan oleh Epson pada tahun 1981 dan mulai dijual kepasaran sejak tahun 1983. Epson HX-20 dilengkapi dengan baterai nickel-cadmium. Komputer portabel Epson ini juga dilengkapi dengan layar berukuran 120 x 32 pixel. Epson HX-20 memiliki berat 1,6 kg dan Memori 32 kb.

ü Compaq Portable

Di tahun 1982 Compaq ikut memperkenalkan komputer portabel mereka untuk pertama kalinya. Compaq Computer Coorporation merilis Compaq Portable pada tahun 1983 dengan harga saat ini sekitar Rp. 32 juta. Berat 12,5 kg, yang dilengkapi dengan layar berukuran 9 inci dengan 2 floppy disk

 Seiring perkembangan zaman 30 tahun yang lalu, tidak ada yang menggunakan PC dan 20 tahun lalu siapa yang mengira bahwa PC bisa dibawa jalan-jalan (portabel). Dalam waktu yang singkat, ribuan model laptop dalam berbagai ukuran muncul tanpa bisa ditebak apa yang akan muncul selanjutnya. Berikut ini adalah beberapa konsep desain laptop dan netbook di masa depan:

ü ROLLTOP

Orkin Design telah memperkenalkan layar sentuh yang dinamakan Rolltop dan bisa digulung seperti gulungan koran ketika kaskuser pengen jalan2. Rolltop juga bisa berfungsi sebagai layar monitor. Rolltop memiliki layar 13 inch ketika difungsikan sebagai laptop dan 17 inch ketika difungsikan sebagai monitor.

ü Nokia’s Scroll OLED Laptop

Ini konsepnya juga sama seperti sebelumnya, menggunakan layar gulung. Namun laptop ini lebih difokuskan pada fungsi entertainment-nya oleh sang penemu, Rodrigo Mercado. Keunggulannya laptop ini ada pada tingkat kecerahan warna, sudut pandang yang lebar, rendah daya, dan high contrast ratio yang membuatnya sempurna untuk digunakan menonton film. Laptop ini juga menggunakan suara sebagai metode input perintah.

ü IWeb

Seiring berkurangnya ukuran layar laptop dan netbook, ukuran keyboard dan touchpad juga ikut2an berkurang sehingga seringkali kita merasa perlu memakai wireless keyboard karena ukurannya sudah terlalu kecil untuk digunakan dengan nyaman.

iWeb 2.0 dirancang oleh Yang Yongchang dan menyelesaikan masalah ukuran keyboard karena papan ketik di iWeb bisa dilipat jadi 3 dan sesuai untuk ukuran layarnya yang cuma 6.5 inch. Netbook ini juga mendukung multi-touch dan teknologi gravitasi serta fitur-fitur lain yang tidak biasa.

ü Dell Eco-Friendly Root

Belum jelas konsep ini diarahkan untuk menjadi laptop atau PC namun yang jelas, desainer Paulina Carlos melakukan langkah berani untuk memperkenalkan komputer tanpa monitor dan keyboard. Dengan menggunakan teknologi laser, layar dan keyboard mampu diproyeksikan ke permukaan yang rata. Keunggulan gadget ini ada pada materialnya yang ramah lingkungan (polymer) dan lapisan biologis serta komponen elektronik yang bisa didaur ulang.

ü Laptop Transparan

Layar ini menggunakan teknologi OLED dengan resolusi ‘cuma’ 960×540 dan memiliki tingkat transparansi 38% dan bisa menyulitkan mata mata pengguna sekalian bila membaca teks/gambar dengan warna yang tidak kontras.

ü Roteburu

Roteburu adalah konsep inovatif yang berada di antara PC dan laptop. Bentuknya menyatu dengan meja dan menggunakan touch panel keyboard serta LCD berukuran 22 inch.

F.    Cara Merawat Laptop

Selain merawat dari bagian luar, bagian dalam juga perlu anda perhatikan, seperti beberapa software yang terdapat di dalam laptop hingga bateraipun memerlukan perawatan yang tepat. Untuk anda yang tidak mengetahui Tips Merawat Laptop, anda tidak perlu bingung sebab di bawah ini Garismiring.com akan memberikan informasi Tips Merawat Laptop dan Cara Merawat Baterai Laptop agar tetap awet dan tahan lama, seperti berikut:

• Hindarkan laptop dari sinar matahari secara langsung. Laptop merupakan barang yang sangat sensitif dan mudah rusak jika terkena sinar matahari secara langsung. Maka dari itu lindungi laptop anda dari paparan sinar matahari.
• Berhati-hati mendownload software dari internet. Resiko software yang anda download bisa saja memiliki virus cukup besar yang dapat merusak laptop anda. Maka dari itu pastikan anda men-scan software tersebut dengan antivirus terlebih dahulu.
• Jangan telakan laptop di lantai, sebab resiko laptop terinjak sangat besar dan bisa terkena debu, apalagi jika lantai jarang disapu dan dibersihkan.
• Jangan letakan laptop di tempat yang permukaannya terlalu empuk. Hal tersebut sangat berbahaya karena sirkulasi udara pada laptop akan terganggu dan menyebabkan laptop akan lebih cepat panas serta dapat merusak bagian prosessor.
• Jangan letakan benda apapun diantara keyboard dan layar laptop lalu menutupnya. Resiko layar laptop tergores cukup besar jika anda menyimpan barang apapun antara keyboard dan layar laptop, meskipun barang tersebut adalah kertas.
• Sebaiknya tidak meletaknan makanan dan minuman maupun benda yang mengandung cairan disekitar laptop. Hal ini sangatlah penting, sebab laptop sangat peka sekali jika terkena bahan yang berbentuk cairan apalagi jika cairan tersebut masuk ke dalam keyboard.
• Jangan memberikan penutup apapun termasuk sarung laptop pada saat laptop dalam keadaan menyala, sebab akan mengganggu sirkulasi udara pada laptop dan berakibat pada kerusakan prosessor.
• Hindari getaran dan jauhkan laptop dari alat pengeras suara, seperti loudspeaker, mesin/kendaraan berat dan sumber getaran lainnya.
• Hindari laptop dari sinar x-ray di airport.
• Gunakan tas laptop yang aman. Jika anda membeli tas laptop di toko sebaiknya perhatikan keamanan dari goncangan dan menggunakan gabus pengaman yang cukup baik.
• Gunakan stabilizer sebagai pengaman terhadap rusaknya hardware yang diakibatkan kondisi listrik yang tidak stabil. Meski menggunakan stabilizer yang standar namun bisa meminimalisir kerusakan hardware pada laptop.
• Jauhkan laptop dari benda yang mengandung medan magnetik kuat, karena laptop sangat peka terhadap barang yang mengandung daya magnet yang kuat dan dapat merusak kinerja dari laptop tersebut.
• Jangan meletakan barang diatas laptop jika sedang tidak digunakan, apalagi jika barang memiliki bobot yang cukup berat karena dapat merusak layar monitor pada laptop.
• Hati-hati ketika anda membawa laptop, meski sudah menggunakan tas laptop anda perlu berhati-hati dan sebaiknya tidak menumpuk banyak barang di dalam tas laptop ransel, serta hindari benturan yang cukup keras.
• Bersihkan laptop secara berkala dan rutin, terutama pada keyboard dan layar monitor. Untuk membersihkan keyboard dianjurkan menggunakan kuas yang halus dan untuk membersihkan layar monitor dianjurkan menggunakan pembersih khusus yang bisa anda temukan di toko komputer.

Beberapa Tips Cara Merawat Laptop seperti diatas sangat penting untuk anda perhatikan, agar laptop anda awet dan tahan lama. Selain itu ada juga beberapa Cara Merawat Baterai Laptop yang sangat penting, seperti berikut:

• Rawat baterai laptop jangan sampai bocor, karena dapat merusak slot baterai pada laptop.
• Selalu pasang baterai dalam keadaan apapun.
• Hindari baterai kosong hingga 0%.
• Jika baterai sudah penuh cabut kabel charger pada laptop.
• Jangan terlalu sering mengisi ulang baterai.
• Hindari baterai laptop dari sinar matahari dan air panas.

G.   Tips Memilih Laptop

Laptop atau Komputer dewasa ini bukan lagi merupakan kebutuhan Tersier melainkan sudah berubah menjadi kebutuhan Primer atau Pokok, hal ini disebabkan karena tuntutan zaman dan pekerjaan, dimana seseorang yang bekerja di sebuah kantor besar yang tiap harinya dihadapkan dengan banyak sekali data atau statistik, maka komputer atau laptop ini sudah menjadi barang Pokok yang harus dimiliki dan dikuasai.

Yang jadi masalah adalah, tidak sedikit dari para pekerja kantoran tersebut yang asal pilih laptop (pokoknya bisa buat ngetik) padahal prinsip seperti itu sangat salah, karena saat kita ingin membeli laptop sebaiknya tidak sembarang, melainkan harus disesuaikan dengan kebutuhan misalnya berapa lama penggunaan, dan berapa banyak data yang diinput.

Berikut Cara Memilih Laptop yang baik dan benar sesuai dengan kebutuhan :

·        Bandingkan Spesifikasi dan Harga

Laptop yang baik tentunya yang memiliki Spesifikasi yang tinggi namun memiliki Harga yang rendah. Jangan sampai kebalik.Atau paling tidak spesifikiasi berbanding lurus dengan harga.

Sebagai perbandingan agar Anda tidak salah pilih Laptop, berikut adalah contoh spesifikasi Laptop dengan harga berkisar antara 5jt.

Processor	Intel Core i3-4130 3.4 Ghz
Motherboard	ECS B85H3-M7 (LGA1150, Intel B85, DDR3)
Harddisk	WDC 1TB SATA3 64MB - Caviar Blue
Memory RAM	Corsair DDR3 Vengeance Black PC12800 4GB (2X2GB)
VGA	Power Color Radeon HD7730 2048MB DDR3
Keyboard + Mouse	Logitech Classic MK100 PS2

Jika budget Anda berkisar antara 5 - 6 Juta sebaiknya pilih Laptop yang mempunyai spesifikasi seperti diatas, atau kalau bisa diatasnya.

·        Sesuaikan Spesifikasi Laptop Dengan Profesi

Hal yang tak kalah penting berikutnya adalah mengenali tujuan Anda membeli Laptop tersebut, jadi nantinya Anda bisa menyesuaikan spesifikasi yang tepat.

-         Pelajar : Pelajar biasanya menggunakan Laptop untuk mengetik dan bermain game ringan seperti game house dan semacamnya, dan tipe seperti ini tidak memerlukan spesifikasi latop yang tinggi, cukup dengan Processor : Core i3 generasi 3 (tanpa VGA) sudah cukup mengakomodir kebutuhan pelajar tersebut.

-         Pegawai : Pegawai kantoran biasanya hanya membuka program kecil atau ringan seperti Ms. Word dan Ms. Excel, dan program seperti itu tidaklah memakan ram yang besar, jadi cukup dengan membeli Laptop yang mempunyai Processor Core i3 dan Ram 2GB sudah lebih dari cukup.

-         Gamer : Tipe yang satu ini perlu laptop khusus, atau biasa disebut dengan Laptop gamer. Dan spesifikasi yang umum dipakai seorang gamer adalah memiliki Processor Core i7 dan VGA minimal GTX 680.

-         Designer : Tak jauh beda dengan gamer, profesi yang satu ini juga dituntut memiliki Laptop yang kuat demi menunjang aktifitasnya dalam mendesign gambar maupun video, yang notabenya memerlukan Ram dan Processor tinggi.

·        Tentukan Ukuruan Layar Yang Tepat

Ukuran layar akan sangat berpengaruh pada kinerja Anda, untuk itu wajib disesuaikan juga dengan profesi Anda.

• Laptop 10" - 11"

Laptop jenis ini sangat cocok untuk Anda yang gemar berpergiaan, atau travelling.

• Laptop 11" - 13"

Laptop yang cocok untuk pekerja biasa, yang tidak terlalu membutuhkan sebuah detail.

• Laptop 13" - 15"

Laptop dengan ukuran ini sangat dibutuhkan untuk para designer yang membutuhkan ketelitian dan keakuratan dalam bekerja.