vb 2008

Install Visual Basic .NET 2008 Express Edition tanpa membutuhkan Register Product
Enaknya belajar Visual Basic .NET 2008 menggunakan .NET 2008 Express. Tapi bagaimana jadinya jika kita lagi semangat-semangatnya belajar dan aplikasi .NET 2008 Express tidak dapat dijalankan sebelum diinputkan Register Product. Berikut ada cara untuk mensiasati agar aplikasi .NET Express yang kita install dapat berjalan lancar tanpa ada gangguan permintaan Register Product.


Install VB 2008 Express
1. Sebelumnya download dulu aplikasi VB 2008 Express di sini. Setelah selesai jalankan Setup.hta


2. Klik pada Visual Basic 2008 Express Edition.


3. Klik Next Pada dialog Welcome. Tampilan selanjutnya adalah dialog License terms silakan anda baca ketentuan lisensinya, jika anda setuju klik pada checkbox "I have read and Accept the license term". dan klik Next.
4. Pilih Aplikasi yang anda install dengan cara mencentang checkbox yang ingin anda install - Klik Next.

5. Pilih lokasi penyimpanan aplikasi yang diinstall, jika anda ingin menyimpan dalam directory default, langsung saja anda klik Next.

6. Tunggu beberapa menit, proses install dilakukan.


7. Klik Exit pada akhir installasi. Jika ada confirmasi untuk restart komputer ikuti saja.

8. Sampai dengan tahap ini aplikasi sudah dapat digunakan, tapi hanya bertahan 30 hari. Untuk dapat digunakan selamanya, tanpa ada gangguan dialog Register Product, ikuti langkah berikut :

Coba jalankan aplikasi VB 2008 Express yang telah anda install, klik pada menu Help. Perhatikan Menu Item milik menu Help, anda akan menjumpai Menu Item dengan nama 'Register Product'. Selama Menu Item ini masih ada, anda akan diminta untuk memasukkan register product untuk aplikasi VB 2008 Express yang telah anda install.

Hilangkan Menu Item Register Product dengan cara :

Buka Registry Editor ( Regedit ) melalui dialog Run...

Masuk ke node HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VBExpress\9.0\






Cari directory yang bernama Registration, hapus directory tersebut.
Simpan dan restart komputer.


Jalankan Aplikasi VB 2008 Express dan coba lihat pada menu Help apakah masih ada pilihan Register Product ?????

JAWABANNO.3VB(RICO.JM)

LISTING PROGRAM

LOGIN

Public Class LOGIN

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If username.Text = "rico" And password.Text = "rico" Then
            menu_utama.Show()
            Me.Hide()


        Else
            MsgBox("data username/password salah")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

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

    End Sub
End Class


HASIL GAMBAR

LISTING PROGRAM

MENU UTAMA

Public Class menu_utama


    Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
        TAGIHAN_PDAM.Show()
        Me.Hide()


    End Sub

    Private Sub EXITToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem1.Click
        End
    End Sub
End Class

HASIL GAMBAR

LISTING PROGRAM

TAGIHAN PDAM

Public Class TAGIHAN_PDAM

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)
        If x = "TOK" Then
            type_pelanggan.Text = "TOKO"
            biaya_beban.Text = 25000
            hargam3.Text = 300


        ElseIf x = "RUM" Then
            type_pelanggan.Text = "RUMAH"
            biaya_beban.Text = 15000
            hargam3.Text = 100


        ElseIf x = "SWA" Then
            type_pelanggan.Text = "SWALYAN"
            biaya_beban.Text = 10000
            hargam3.Text = 200



        ElseIf x = "PAB" Then
            type_pelanggan.Text = "PABRIK"
            biaya_beban.Text = 25000
            hargam3.Text = 500

        End If





        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 4, 1)

        If x = "-" Then


        End If




        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah_pelanggan.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerah_pelanggan.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerah_pelanggan.Text = "AKSARA"
        ElseIf x = "BIN" Then
            daerah_pelanggan.Text = "BINJAI"
        ElseIf x = "PAK" Then
            daerah_pelanggan.Text = "LUBUK-PAKAM"



        End If





        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 8, 1)

        If x = "-" Then


        End If


        no_urut.Text = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 9, 3)

        total_tagihan.Text = Val(biaya_beban.Text) + Val(hargam3.Text) * pemakaian_Air.Text

        pajak.Text = (1 / 100) * Val(total_tagihan.Text)



    End Sub

End Class

HASIL GAMBAR

untuk melihat kasus lihat disini

JAWABAN NO.2 VB(RICO.JM)

LISTING PROGRAM

HALAMAN 33

Public Class uas1

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

        tabel()


    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If kode_barang.Text = ("TS001") Then
            merk.Text = "TOSHIBA"
           
        ElseIf kode_barang.Text = ("TS002") Then
            merk.Text = "TOSHIBA"
          
        End If


        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If kode_barang.Text = ("VG001") Then
            merk.Text = "V-GEN"
          
        ElseIf kode_barang.Text = ("VG002") Then
            merk.Text = "V-GEN"
           
        End If

        x = Microsoft.VisualBasic.Mid(kode_barang.Text, 3, 3)
        If kode_barang.Text = ("TS001") Then
            nama_barang.Text = "FLASHDISK 4GB"
            harga.Text = 105000

        ElseIf kode_barang.Text = ("TS002") Then
            nama_barang.Text = "FLASHDISK 2GB"
            harga.Text = 75000

        ElseIf kode_barang.Text = ("VG001") Then
            nama_barang.Text = "FLASHDISK 4GB"
            harga.Text = 90000
        ElseIf kode_barang.Text = ("VG002") Then
            nama_barang.Text = "FLASHDISK 2GB"
            harga.Text = 60000

        End If




    End Sub



    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
        If e.KeyChar = vbCr Then
            total_harga.Focus()


            total_harga.Text = jumlah_beli.Text * harga.Text
        End If



    End Sub

    Sub tabel()
        lv.Columns.Add("no_pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("ko_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("na_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("merk", 110, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 110, HorizontalAlignment.Left)
        lv.Columns.Add("jumlah_beli", 110, HorizontalAlignment.Left)
        lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True


    End Sub

    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no_pembeli.Text
        lst.SubItems.Add(kode_barang.Text)
        lst.SubItems.Add(nama_barang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah_beli.Text)
        lst.SubItems.Add(total_harga.Text)
        lv.Items.Add(lst)
    End Sub


    Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
        isi()

    End Sub

    Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
        lv.Items.Clear()

    End Sub

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

 
End Class




HASIL GAMABAR

untuk melihat kasus lihat disini