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

Public Class Form1

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110752"

                nama.Text = "Ardian Sarputra"

            Case "12110332"

                nama.Text = "Rahmadani"

            Case "12110363"

                nama.Text = "Sabdan Husin"

            Case "12110566"

                nama.Text = "Deni Irawan"

            Case "12110141"

                nama.Text = "Cahyadi Rangkuti"

            Case "12110652"

                nama.Text = "harry krido prayetno"

            Case "12110139"

                nama.Text = "Toni Sahata Pandapotan"

            Case "12021976"

                nama.Text = "Sandi Putra Siregar"

            Case "12008754"

                nama.Text = "Titi Wahyuni Harahap"

            Case "12110764"

                nama.Text = "Juandi Sinaga"

            Case "13110703"

                nama.Text = "Muhammad Hafiz"

        End Select

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110752")

        NPM.Items.Add("12110363")

        NPM.Items.Add("12110332")

        NPM.Items.Add("12110139")

        NPM.Items.Add("12021976")

        NPM.Items.Add("12008754")

        NPM.Items.Add("12025764")

        NPM.Items.Add("12110566")

        NPM.Items.Add("12110141")

        NPM.Items.Add("12110652")

        NPM.Items.Add("13110703")

        Kdosen.Items.Add("1198753")

        Kdosen.Items.Add("1198273")

        Kdosen.Items.Add("1198753")

        kmatakuliah.Items.Add("A213")

        kmatakuliah.Items.Add("B247")

        kmatakuliah.Items.Add("C283")

        Dim i As Integer

        For i = 1 To 100

            Ntugas.Items.Add(i)

            Nuas.Items.Add(i)

            Nkhadiran.Items.Add(i)

            Nuts.Items.Add(i)

        Next

    End Sub

    Private Sub Kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdosen.SelectedIndexChanged

        Select Case Kdosen.Text

            Case "1198753"

                namadosen.Text = "Guidio L Ginting s.kom, M.kom"

            Case "1198273"

                namadosen.Text = "Abdul sani sembiring s.kom, M.kom"

            Case "1198753"

                namadosen.Text = "Harvei Hutahaean s.kom, M.kom"

        End Select

    End Sub

    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged

        Select Case kmatakuliah.Text

            Case "A213"

                nmatakuliah.Text = "Komunikasi Data"

            Case "B247"

                nmatakuliah.Text = "Sistem Operasi"

            Case "C283"

                nmatakuliah.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        If NPM.Text = "" Or Nkhadiran.Text = "" Or Nuts.Text = "" Or Ntugas.Text = "" Or Nuas.Text = "" Then

            MsgBox("Pastikan NPM/nilai sudah ter input")

        ElseIf NPM.Text Then

            Nakhir.Text = Val(0.1 * Nkhadiran.Text) + Val(0.15 * Ntugas.Text) + Val(0.3 * Nuts.Text) + Val(0.45 * Nuas.Text)

            If Nakhir.Text >= 90 Then

                Nhuruf.Text = "A"

            ElseIf Nakhir.Text >= 80 Then

                Nhuruf.Text = "B+"

            ElseIf Nakhir.Text >= 70 Then

                Nhuruf.Text = "B"

            ElseIf Nakhir.Text >= 60 Then

                Nhuruf.Text = "C"

            ElseIf Nakhir.Text >= 50 Then

                Nhuruf.Text = "D"

            Else

                Nhuruf.Text = "E"

            End If

            If Nakhir.Text >= 50 Then

                xket.Text = "LULUS"

            Else

                xket.Text = "GAGAL"

            End If

            Dim x, y As String

            x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

            y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

            If x = "11" Then

                jenjang.Text = "S1"

            ElseIf x = "02" Then

                jenjang.Text = "D3"

            ElseIf x = "00" Then

                jenjang.Text = "D1"

            End If

            If y = "0" Then

                jurusan.Text = "Tehnik Informatika"

            ElseIf y = "1" Then

                jurusan.Text = "Managemen informatika"

            ElseIf y = "8" Then

                jurusan.Text = "Teknisi Komputer"

            ElseIf y = "5" Then

            End If

        End If

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NPM.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        Kdosen.Text = ""

        namadosen.Text = ""

        kmatakuliah.Text = ""

        nmatakuliah.Text = ""

        Nkhadiran.Text = ""

        Ntugas.Text = ""

        Nuts.Text = ""

        Nuas.Text = ""

        Nakhir.Text = ""

        Nhuruf.Text = ""

        xket.Text = ""

        jurusan.Text = ""

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

End Class

                                                                  Tampilan program

Continue reading