Tugas Visual Basic - Online Big Bike Shop

Berikut ini adalah program tentang online big bike shop. Pada program ini saya menampilkan fitur-fitur seperti button,textbox,label,picturebox,dan messagebox. Berikut adalah program ketika dijalankan

*ketika button ninja 250r di-klik

*ketika button ninja zx-6r di-klik

*ketika button zx-10r di-klik

*ketika button zx-14r di-klik

Gambar akan muncul secara otomatis ketika kita meng-klik button sesuai pilihan,lalu gambar akan menghilang ketika kita meng-klik button lain dengan menggunakan fungsi if,bisa diliha pada codding dibawah.

Apa yang terjadi apabila kita meng-klik button "Purchase" ?

akan muncul message box,untuk meminta konfirmasi dari anda. Lalu apa yang terjadi apabila kita meng-klik "Yes" ?

akan muncul message box lagi yang bertuliskan "Thank You for Purchasing" , dan ini pun menggunakan fungsi "IF"

berikut adalah codding dari program diatas:

"

 Public Class Form1

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

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox2.Visible = True

            TextBox1.Text = "5111"

            TextBox2.Text = TextBox1.Text * 9200

    End Sub

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

        PictureBox2.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox3.Visible = True

        TextBox1.Text = "10500"

        TextBox2.Text = TextBox1.Text * 9200

    End Sub

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

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox5.Visible = False

        PictureBox4.Visible = True

        TextBox1.Text = "13000"

        TextBox2.Text = TextBox1.Text * 9200

    End Sub

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

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = True

        TextBox1.Text = "13400"

        TextBox2.Text = TextBox1.Text * 9200

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim x As Integer

        x = MessageBox.Show("Are You Sure to Exit?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If (x = vbYes) Then

            End

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim y As Integer

        y = MessageBox.Show("Are Sure to Purchase This Product?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If (y = vbYes) Then

            MessageBox.Show("Thank for Purchasing Our Product", "Purchase", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub

End Class

"

Pertemuan 4

Form ini menampilkan kode ASC atau American Standard Character.

Public Class Form2

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

        TextBox2.Text = Asc(TextBox1.Text)

    End Sub

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

        Form3.Show()

    End Sub

End Class

Untuk form ini menampilkan cara untuk memperbesar,memperkecil,mengambil huruf.

Public Class Form3

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

        Dim X As String

        X = InputBox("Masukkan Huruf Besar")

        TextBox1.Text = X

        TextBox2.Text = LCase(X)

    End Sub

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

        Dim y As String

        y = InputBox("Masukkan Huruf Besar")

        TextBox1.Text = y

        TextBox2.Text = UCase(y)

    End Sub

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

        Dim banyak As String

        banyak = InputBox("Masukkan Huruf")

        TextBox1.Text = banyak

        TextBox2.Text = Len(banyak)

    End Sub

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

        Dim Kiri As String

        Dim banyak As Long

        Kiri = InputBox("Masukkan Kata")

        banyak = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = Kiri

        TextBox2.Text = Strings.Left(Kiri, banyak)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim tengah As String

        Dim b As Long

        tengah = InputBox("Masukkan Kata")

        b = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = tengah

        TextBox3.Text = Strings.Mid(tengah, b)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim kanan As String

        Dim c As String

        kanan = InputBox("Masukkan Kata")

        c = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = kanan

        TextBox4.Text = Strings.Right(kanan, c)

    End Sub

End Class

Pertemuan 3

form ini menampilkan option box. ketika kita memilih pada option box,maka teks pada text box akan menampilkan tulisan yang kita pilih seperti contoh diatas.

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt1.TextChanged

    End Sub

    Private Sub Rbt1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt1.CheckedChanged

    End Sub

    Private Sub Rbt1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt1.Click

        Txt1.Text = Rbt1.Text

    End Sub

    Private Sub Rbt2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt2.CheckedChanged

    End Sub

    Private Sub Rbt2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt2.Click

        Txt1.Text = Rbt2.Text

    End Sub

    Private Sub Rbt3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt3.CheckedChanged

    End Sub

    Private Sub Rbt3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt3.Click

        Txt2.Text = Rbt3.Text

    End Sub

    Private Sub Rbt4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt4.CheckedChanged

    End Sub

    Private Sub Rbt4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt4.Click

        Txt2.Text = Rbt4.Text

    End Sub

    Private Sub Rbt5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt5.CheckedChanged

    End Sub

    Private Sub Rbt5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt5.Click

        Txt2.Text = Rbt5.Text

    End Sub

    Private Sub Rbt6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbt6.CheckedChanged

    End Sub

    Private Sub Rbt6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbt6.Click

        Txt2.Text = Rbt6.Text

    End Sub

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

        Form2.Show()

    End Sub

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

        End

    End Sub

End Class

form ini menampilkan tentang checkbox,pada contoh kali ini saya menampilkan jika kita men-check list pilihan maka akan muncul gambar seperti diatas. 

kodenya adalah

Public Class Form2

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

    End Sub

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

        End

    End Sub

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

        Form1.Show()

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            PictureBox1.Visible = True

        Else

            CheckBox1.Checked = False

            PictureBox1.Visible = False

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            PictureBox2.Visible = True

        Else

            CheckBox2.Checked = False

            PictureBox2.Visible = False

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            PictureBox3.Visible = True

        Else

            CheckBox3.Checked = False

            PictureBox3.Visible = False

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            PictureBox4.Visible = True

        Else

            CheckBox4.Checked = False

            PictureBox4.Visible = False

        End If

    End Sub

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

        Form3.Show()

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

End Class

Pertemuan 2

Form kali ini membahas tentang lost focus,yaitu ketika kita mengisi text box,maka text box lain akan terisi secara otomatis.

kodenya adalah

ublic Class Form1

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMulai.Click

        

        txt3.Text = txt1.Text * txt2.Text

        txt4.Text = txt4.Text = txt3.Text * 10%

        txt5.Text = txt3.Text - txt4.Text  

  End Sub

Private Sub txt5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt5.LostFocus

        txt5.Text = txt3.Text - txt4.Text

    End Sub

    Private Sub txt5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt5.TextChanged

    End Sub

    Private Sub txt2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt2.LostFocus

    End Sub

    Private Sub txt2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt2.TextChanged

        txt3.Text = txt1.Text * txt2.Text

    End Sub

    Private Sub txt4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt4.LostFocus

    End Sub

    Private Sub txt4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt4.TextChanged

        txt5.Text = txt3.Text - txt4.Text

    End Sub

    Private Sub txt3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt3.LostFocus

    End Sub

    Private Sub txt3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt3.TextChanged

        txt4.Text = txt3.Text * 0.1

    End Sub

End Class

Pertemuan 1

Pada form ini,menampilkan messagebox yang sederhana,caranya ketika tombol button di-klik,akan keluar message box.

koddingnya:

Public Class frmTampilan1

    Private Sub btntombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntombol1.Click

        MessageBox.Show("Nama saya Adri", "Halo", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        MessageBox.Show("Si Adri emang ganteng", "Fakta!", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click

        MessageBox.Show("udah dibilangin adri ganteng", "Eh ngeyel!!", MessageBoxButtons.OK, MessageBoxIcon.Warning)

    End Sub

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

        Dim x As Integer

        x = MessageBox.Show("Ingin tutup Aplikasi?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If (x = vbYes) Then

            End

        End If

    End Sub

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

        frmTampilan2.Show()

    End Sub

End Class