Visual Basic 2010 Cara Menghubungkan Antara Form

//lh3.googleusercontent.com/-K5UKWzgJhmU/AAAAAAAAAAI/AAAAAAAACdI/CN3nwiBZsGE/s512-c/photo.jpg
November 22, 2016




image 1
Disini kita akan mempelajari bagaimana menghungkan antara form 1 dan form lainnya, waktu saya pertama belajar ini saya kira sulit dan kalaupun bisa kodingannya akan sangat panjang tapi ternyata tak demikina. yang mesti anda lakukan adalah membuat form login dulu, ketika anda memasukkan nama dan password salah, maka tidak akan lanjut ke form berikutnya, maka buatlah username dan password yang mudah di ingat. langsung aja guys saya kasi kodingannya untuk image 1.

Public Class Form1
    
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Aquamarine
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "arman" And TextBox2.Text = "1234" Then
            Form2.Show()
        Else
            MsgBox("password yang anda masukkan salah")
        End If
    End Sub

End Class

image 2

ketika di password login anda memasukkan nama dan password secara benar anda akan diarahkan menuju form 2 ini. ketika anda menekan menu exit maka anda langsung keluar dari program yang sedang berjalan. di dilam file ada exit. tekan 2 kali exit kemudian masukkan kode di bawah:

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

image 3
lanjut ke gambar 3 yaitu tampilan pada menu, nantinya ketika program ini sudah jalan ketika anda menekan menu makan anda akan langsung di arahkan ke form 4 yaitu pada menu kasir. didalam menu ada menu kasir, dan harga+diskon, klik 2 kali menu kasir dan masukkan kodingan di bawah ini:

Private Sub MenuKasirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuKasirToolStripMenuItem.Click
        Form4.Show()
    End Sub

lanjut ke menu ke2 yaitu harga+diskon, nantinya ketika anda menekan harga+diskon maka anda akan langsung menuju form form3. berikutnya tekan 2 kali menu harga+diskon kemudian masukkan kodingan berikut:

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

image4
berikutnya anda harus membuat form menu makanan atau form4 pada menu makann kita menggunakan radio button(bulat) dan checkbox(persegi). langsung aja kepengerjaannya, klik 2 kali form4 kemudian masukkan kode berikut.

 Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Aquamarine
        GroupBox1.Text = "Menu Makanan"
        RadioButton1.Text = "Bakso "
        RadioButton2.Text = "Sate"
        RadioButton3.Text = "Pizza"
        RadioButton4.Text = "Nasgor"
        GroupBox4.Text = "Harga"
        CheckBox1.Text = "Cincau"
        CheckBox2.Text = "Jus Mangga"
        CheckBox3.Text = "Es Kelapa"
        CheckBox4.Text = "Jus Alpokat"
        GroupBox3.Text = "Menu Makanan"
        GroupBox2.Text = "Menu yang dipesan"
    End Sub

selanjutnya klik radio button dan checkbox sesuai dengan nomornya atau untuk lebih mudahnya lihat nama menunya supaya dalam memasukkan kodingan tidak salah, ok langsung aja ya saya beri kodingannya:

 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            TextBox1.Text = "Bakso"
            TextBox9.Text = "Rp.10.000"
        Else
            TextBox1.Text = ""
            TextBox9.Text = ""
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            TextBox2.Text = "Sate"
            TextBox10.Text = "Rp.15.000"
        Else
            TextBox2.Text = ""
            TextBox10.Text = ""
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then
            TextBox3.Text = "Pizza"
            TextBox11.Text = "Rp.25.000"
        Else
            TextBox3.Text = ""
            TextBox11.Text = ""
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked = True Then
            TextBox4.Text = "Nasi Goreng"
            TextBox12.Text = "Rp.12.000"
        Else
            TextBox4.Text = ""
            TextBox12.Text = ""
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox5.Text = "Cincau"
            TextBox13.Text = "Rp.8.000"
        Else
            TextBox5.Text = ""
            TextBox13.Text = ""
        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
            TextBox6.Text = "Jus Mangga"
            TextBox14.Text = "Rp.13.000"
        Else
            TextBox6.Text = ""
            TextBox14.Text = ""
        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
            TextBox7.Text = "Es kelapa"
            TextBox15.Text = "Rp.10.000"
        Else
            TextBox5.Text = ""
            TextBox13.Text = ""
        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
            TextBox8.Text = "Jus Alpokat"
            TextBox16.Text = "Rp.10.000"
        Else
            TextBox8.Text = ""
            TextBox16.Text = ""
        End If
    End Sub
End Class

image5
berikutnya anda harus membuat menu harga+diskon atau form3 anda hanya menggunakan textbox dan button. tekan 2 kali button 1dan masukkan kodingan berikut.

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text > 100000 Then
            TextBox2.Text = 0%
            TextBox3.Text = TextBox1.Text
        End If
        If TextBox1.Text >= 100000 And TextBox1.Text < 500000 Then
            TextBox2.Text = 10%
            TextBox3.Text = TextBox1.Text - (TextBox1.Text * 10 / 100)
        End If
        If TextBox1.Text >= 500000 And TextBox1.Text < 1000000 Then
            TextBox2.Text = 20%
            TextBox3.Text = TextBox1.Text - (TextBox1.Text * 20 / 100)
        End If
    End Sub
    end class

image6
berikutnya lanjut ke nilai, didalam nilai ada nilai mahasiswa, tekan 2 kali nilai mahasiswa kemudian masukkan kodingan berikut:

 Private Sub NilaiMHSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiMHSToolStripMenuItem.Click
        Form5.Show()
    End Sub

 tetapi pertanyaannya apakah anda sudah membuat form5(form nilai mhs) kalo belum silahkan buat seperti gambar yang akan saya tampilkan tepat di bawah gambar 6 ini.

image7
pada gambar di samping kita hanya menggunakan textBox dan Button. Hitung itu adalah button3 dan exit itu button2, anda mungkin sudah mengenal kita menggunakan apa dalam aplikasi menghitung nilai tersebut sehingga langsung aja saya beri kodingannya:

Public Class Form5

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim tugas, keaktifan, uts, uas As Integer
        Dim nilaiakhir As Integer


        tugas = TextBox2.Text * 15 / 100
        keaktifan = TextBox3.Text * 10 / 100
        uts = TextBox4.Text * 25 / 100
        uas = TextBox5.Text * 30 / 100

        nilaiakhir = tugas + keaktifan + uts + uas


        If nilaiakhir > 85 Then
            MsgBox("Nilai A")
        ElseIf nilaiakhir > 70 Then
            MsgBox("Nilai B")
        ElseIf nilaiakhir > 60 Then
            MsgBox("Nilai C")
        ElseIf nilaiakhir > 50 Then
            MsgBox("Nilai D")
        ElseIf nilaiakhir > 0 Then
            MsgBox("Nilai E")

        End If
    End Sub

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

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Aquamarine
    End Sub
End Class

sampai disini guys semoga berhasil ketika mencoba, kalo ada yang kurang di pahami silahkan tanya di kolom comment ya. makasih.


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed