Kriptografi dengan menggunakan 5 form

mesran.netHello .......... :D
kali ini kita bertemu lagi dalam pembahasan yang berbeda : !
nah ? kali ini kita membahas tentang kriptografi dengan menggunakan 5 form,zom kita bahas lebih dalam lagi
1.ini adalah form 1Caesar,yuk kita lihat lagi

Public Class Form1

    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub ViernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViernamToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub GronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldToolStripMenuItem.Click
        form4.Show()
    End Sub

    Private Sub VigenoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenoreToolStripMenuItem.Click
        form5.Show()
    End Sub

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

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

    End Sub
End Class
2.ini adalah form 2 Viernam

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PLAIN.Text = ""
        CHIPER.Text = ""
    End Sub

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

  
    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(PLAIN.Text)
            x = Mid(PLAIN.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        CHIPER.Text = xkalimat
    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
        Dim x As String = ""
        Dim xenkripsi As String = ""
        For i = 1 To Len(CHIPER.Text)
            x = Mid(CHIPER.Text, i, i)
            x = Chr(Asc(x) - 3)
            xenkripsi = xenkripsi + x
        Next
        CHIPER.Text = xenkripsi
    End Sub
End Class
3.ini adalah form 3



   
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

End Class
4.yang ini form ke 4 Gronsfeld

Public Class form4

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And (tombol <= 90)) Or (tombol = 8) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub
  
    Private Sub form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

  
End Class
5.ini adalah form ke 5Vigenore

 

Public Class form5

    Private Sub form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nenc As Integer
        j = 0
        skata = PLAINTEXT.Text
        jum = Len(skata)
        skey = KUNCI.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        CHIPPERTEXT.Text = splain
    End Sub

    Private Sub PLAINTEXT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PLAINTEXT.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub KUNCI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KUNCI.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 32) And (tombol <= 47)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

  
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLAINTEXT.Text = ""
        KUNCI.Text = ""
        CHIPPERTEXT.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

   
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class

Nah kriptografi dengan menggunakan form sudah selesai,tunggu pembahasan lainnya ya ......

Program untuk mencari harga fhotocopy

Yuk! belajar pemrograman visual basic dot net di mesran.net

 

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jumlahlembar.Text >= 200 Then
            hargaperlembar.Text = "100"
        Else
            hargaperlembar.Text = "90"


        End If
        totalharga.Text = jumlahlembar.Text * hargaperlembar.Text
        If totalharga.Text >= 500000 Then
            discount.Text = 0.15 * totalharga.Text
        Else
            discount.Text = "0"
        End If
        pembayaran.Text = totalharga.Text - discount.Text
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        jumlahlembar.Text = " "
        hargaperlembar.Text = " "
        totalharga.Text = " "
        discount.Text = " "
        pembayaran.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
Demikianlah postingan saya
Nama : Annikmah Ritonga
NPM : 12110286

Yuk ! Belajar pemrograman visual basic dot net di mesran.net

Yuk ! Belajar pemrograman visual basic dot net di mesran.net

 

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

        kodebarang.Items.Add("hp001")
        kodebarang.Items.Add("hp002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        Select Case x
            Case "hp" : merk.Text = "handphone"
            Case "VG" : merk.Text = "V-Gen"
        End Select
        x = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        Select Case x
            Case "001" : namabarang.Text = "Flasdisk 36GB"
            Case "001" : namabarang.Text = "Flasdisk 2GB"

        End Select

        If kodebarang.Text = "hp001" Then
            harga.Text = "105000"
        ElseIf kodebarang.Text = "hp002" Then
            harga.Text = "75000"
        ElseIf kodebarang.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kodebarang.Text = "VG002" Then
            harga.Text = "60000"
        End If

    End Sub

    Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total.Text = Val(harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        no.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("No.Pembeli", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
        no.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
    End Sub

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

    End Sub

    Private Sub btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussatu.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
        End

    End Sub

    Private Sub no_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no.TextChanged

    End Sub
End Class

Inilah hasilnya :

Demikianlah postingan saya :
Nama : Annikmah Ritonga
NPM: 12110286

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

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

        kodebarang.Items.Add("hp001")
        kodebarang.Items.Add("hp002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        Select Case x
            Case "hp" : merk.Text = "handphone"
            Case "VG" : merk.Text = "V-Gen"
        End Select
        x = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        Select Case x
            Case "001" : namabarang.Text = "Flasdisk 36GB"
            Case "001" : namabarang.Text = "Flasdisk 2GB"

        End Select

        If kodebarang.Text = "hp001" Then
            harga.Text = "105000"
        ElseIf kodebarang.Text = "hp002" Then
            harga.Text = "75000"
        ElseIf kodebarang.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kodebarang.Text = "VG002" Then
            harga.Text = "60000"
        End If

    End Sub

    Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total.Text = Val(harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        no.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("No.Pembeli", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
        no.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
    End Sub

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

    End Sub

    Private Sub btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussatu.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
        End

    End Sub

    Private Sub no_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no.TextChanged

    End Sub

End Class

inilah hasilnya

Demikianlah postingan saya :
Nama : Annikmah Ritonga
NPM : 12110286

Cara mmbuat kue bolu ubi

Perempuan pinter masak merupakan perempuan idaman setiap pria,karena pria akan merasa di manjakan oleh masakan khas istri,untuk itu mari kita lihat cara memasak kue bolu ubi,yuk.....!!!!!!
mungkin semua kawan-kawan bingung kenapa harus ubi,jawabannya adalah karena ubu merupakan bahan dasar yang paling mudah di dapatkan dimana dan kapanpun.

Ubi jalar merupakan salah satu bahan utama yang sering dipakai dalam pembuatan kue tradisional nusantara selain singkong/ubi kayu. Dengan sedikit kreativitas, ubi jalar ini bisa diolah menjadi kudapan berbentuk bola-bola yang manis yang dikenal dengan nama kue bola ubi, yang cocok untuk teman minum kopi atau teh.

Kue bola ubi paling enak disantap selagi masih hangat karena kerenyahan kulitnya masih enak dinikmati. Kue bola ubi ini juga sering ditemukan dijual di pasar-pasar tradisional yang juga merupakan salah satu kue jajanan pasar favorit. Kue bola ubi kadang ditulis dengan nama "kue bola obi"

BAHAN :
500 gr ubi merah atau kuning, cuci bersih
100 gr gula pasir halus
3 sdm tepung terigu
200 gr nangka, iris kotak kecil
100 gr gula pasir (untuk bahan saus gula)

75 cc air
1/4 sdt vanili
Gula bubuk secukupnya untuk taburan
Minyak goreng secukupnya

CARA MEMBUAT :
1. Kukus ubi jalar sampai matang, angkat, kupas.
2. Selagi panas, haluskan dan campur ubi dengan gula pasir halus, vanili, dan tepung terigu, aduk sambil dihaluskan.
3. Ambil 1 (satu) sdm ubi, bentuk bulat lalu pipihkan. Isi dengan nangka dan bentuk bulat sebesar bola bekel. Lakukan pada semua adonan bahan sampai habis.
4. Panaskan minyak, goreng sampai matang berwarna kecoklatan. Angkat, tiriskan.
5. Sajikan dengan taburan gula bubuk atau saus gula.
6. Untuk saus gula : masak gula pasir, air dan vanili hingga kental. (Opsional)

Untuk 10 buah.

NB : Untuk bahan isian bisa diganti dengan bahan lain sesuai selera seperti kacang tanah halus, coklat, kacang merah halus dan bahan lainnya.

 

Cara menginstal windows 7

Yuk kita lihat cara menginstal windows 7 baik menggunakan flashdisk ataupun DVD

Yuk kita mulai!.Masukkan DVD windows 7 atau colokkan flashdisk windows 7 kita, dan kemudian booting lah memakai media yang telah kita pilih, lalu proses loading file akandimulai.

• Pilih bahasa Anda, waktu & format mata uang, keyboard atau metode input dan klik Next.

• Klik Install now

• Conteng I accept the license terms dan klik Next.

• Klik Upgrade jika Anda sudah mempunyai versi Windows sebelumnya atau Custom (advanced) jika anda tidak memiliki versi Windows sebelumnya atau ingin menginstal salinan baru Windows 7.

• (Lewati langkah ini jika Anda memilih Upgrade dan hanya memiliki satu partisi) Pilih drive mana Anda ingin menginstal Windows 7 dan klik Next. Jika Anda ingin membuat partisi, klik opsi Drive options (advanced), buatlah partisi dan kemudian klik Next.

• Sekarang akan dimulai menginstal Windows 7. Langkah pertama, (yaitu Windows mulai menyalin file) sudah dilakukan ketika anda booting DVD/fd Windows 7 sehingga akan selesai seketika.

• Setelah menyelesaikan langkah pertama, ia akan memperluas (decompress) file yang telah disalin.
  Langkah ketiga dan keempat juga akan diselesaikan langsung seperti langkah pertama.

• Setelah itu secara otomatis akan restart setelah 15 detik dan melanjutkan setup. Anda juga dapat klik Restart now untuk restart tanpa perlu menunggu.

• Setelah restart untuk pertama kalinya, proses setup akan dilanjutkan. Ini adalah langkah terakhir sehingga akan mengambil waktu yang agak lamadaripada langkah sebelumnya.

• Sekarang akan otomatis restart lagi dan melanjutkan setup. Anda dapat klik Restart now untuk restart tanpa perlu menunggu.

• Ketik nama pengguna yang Anda inginkan dalam kotak-teks dan klik Next. Nama komputer akan otomatis terisi.

• Jika Anda ingin mengatur sandi, ketik di kotak teks dan klik Next.

• Ketik kunci produk Anda dalam kotak-teks dan klik Next. Anda juga dapat melewatkan langkah ini dan cukup klik Next jika Anda ingin mengetik kunci produk nanti. Windows akan berjalan hanya selama 30 hari jika Anda melakukan ini.

• Pilih opsi yang Anda inginkan untuk Windows Update.

• Pilih zona waktu dan klik Next.

Jika anda terhubung ke jaringan apapun, ia akan meminta Anda untuk menetapkan lokasi jaringan.

Nah selesai sudah proses penginstallan windows7 baik dengan menggunakan flashdisk maupun DVD.