Author: fery rosyadi · Published: August 16, 2012 · Category: Sistem Operasi 

Sudah banyak artikel yang membahas tentang cara-cara menginstall windows melalui USB flashdisk, dan saya pikir gak ada salahnya mencoba trik yang lain, siapa tau ada peningkatan dalam penginstalanya. Menginstal operating system biasanya menggunakan dvd/cd room. Namun untuk notbook edisi sekarang ini biasanya diproduksi tanpa disertai cd/dvd room. Cara ini sangat berguna jika kebetulan dvd room pada laptop/notbook anda mengalami kerusakan dan anda tidak memiliki dvd external.

Persiapan

1. USB Flashdisk berkapasitas minimal 4 Gb, Laptop/PC
2. Master Windows 7
3. Atur urutan posisi booting dengan memilih usb flashdik pada bios anda.

Tahap 1

Nyakakan Laptop/PC anda, kemudian masuk ke command prompt.
1. Klik start-Run-cmd ok

2. Kemudian ketik diskpart(enter).

3. Ketik list disk (untuk melihat daftar disk yang ada).

4. ketik select disk 1 atauselect disk 2 tergantung posisi flashdisk. Anda bisa melihat dari ukuran size/kapasitas yang terlihat.

 5. Ketik clean (enter).

6. Ketik create partitionprimary (enter).

7. Ketik format recommendedlalu enter. (tunggu sampai proses format selesai)

8. Ketik active (enter).

9. Ketik exit (enter).

Tahap 2

1. copy master windows 7

2. restart laptop/pc (pastikan anda sudah memilih posisi urutan booting pertama anda pada usb/flashdisk)

3. Selesai. (Selamat meng Instal)

Viewnya..

Kemudian Copy Master Windows 7 dari master DVD windows 7 Anda  kedalam flashdisk

Pastikan file-file windows 7 berada diluar folder seperti gambar dibawah ini.

Trik ini sudah saya jalankan 99% berhasil. 

Selamat mencoba

Update 17 oktober 2012 (Trial OK)

Update 05 February 2013 : Instal windows 8 cukup di copykan saja file instalasi kedalam flashdisk. (tanpa melakukan proses seperti diatas)

referensi

Continue reading

Public Class Form1

    Sub BuatTabel()
        lv.Columns.Add("Pembeli")
        lv.Columns.Add("Kode Barang")
        lv.Columns.Add("Nama Barang")
        lv.Columns.Add("Merk")
        lv.Columns.Add("Jumlah Beli")
        lv.Columns.Add("Harga")
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = pembeli.Text
        lst.SubItems.Add(kdbrg.Text)
        lst.SubItems.Add(nmbrg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jmlbeli.Text)
        lst.SubItems.Add(harga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
        Select Case X
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If

    End Sub

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

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

    End Sub

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""
    End Sub
End Class

Continue reading