Memasukan data kedalam DataGrid (Vbnet 2008)

Sekarang saya beralih ke VB Net Setelah sekian lama ane ngotak atik java dan Php , disini ane mau coba membuat program sederhana yang belom menggunakan database yang mana program ini hanya menyimpan atau menampilkan data ke dalam dataGrid saja , didalam program ini sudah menggunakan kondisi if Else , wah kayaknya kalau ane memperpanjang cerita jadi gak mulai – mulai ne program vb net nya ne……..

lansung saja di buka VBnet 2008 Nya ,  kemudian klik file > New > Widows Application>lalu berikan nama dengan project kita yang aan kita buat

coba design tampilan program seperti di bawah ini

 

 

 

 

 

 

 

 

kemudian berikan kondisi ke dalam textbox1.text dengan listing sebagai berikut :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs)
 Handles TextBox1.TextChanged
        If TextBox1.Text = "001" Then
            TextBox2.Text = "pisang"
            TextBox3.Text = "2000"
            TextBox4.Text = "20000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        ElseIf TextBox1.Text = "002" Then
            TextBox2.Text = "sirsak"
            TextBox3.Text = "4"
            TextBox4.Text = "4000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        ElseIf TextBox1.Text = "003" Then
            TextBox2.Text = "durian"
            TextBox3.Text = "4"
            TextBox4.Text = "4000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        ElseIf TextBox1.Text = "004" Then
            TextBox2.Text = "sawit"
            TextBox3.Text = "60"
            TextBox4.Text = "5000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        ElseIf TextBox1.Text = "002" Then
            TextBox2.Text = "nangka"
            TextBox3.Text = "40"
            TextBox4.Text = "40000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        Else
            TextBox2.Text = "jambu"
            TextBox3.Text = "30"
            TextBox4.Text = "30000"
            TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

        End If
    End Sub

Kemudian berikan kondisi Pada Button Hasil

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) 
Handles Button1.Click
    TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)
    DataGridView1.RowCount = DataGridView1.RowCount + 1
    DataGridView1(0, DataGridView1.RowCount - 2).Value = TextBox1.Text
    DataGridView1(1, DataGridView1.RowCount - 2).Value = TextBox2.Text
    DataGridView1(2, DataGridView1.RowCount - 2).Value = ComboBox1.Text
    DataGridView1(3, DataGridView1.RowCount - 2).Value = TextBox3.Text
    DataGridView1(4, DataGridView1.RowCount - 2).Value = TextBox4.Text
    DataGridView1(5, DataGridView1.RowCount - 2).Value = TextBox5.Text
        If TextBox1.Text = "" Then
            MsgBox("data masih kosong brooo")
        End If

    End Sub

kemudian masukan kondisi ini ke dalam button bersih

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) 
Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox1.Text = ""
    End Sub

yang terakhir masukan listing ini ke dalam tombo keluar

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

selesai sudah……..gampang kan…..ayo kita belajar sama- sama …

happy coding… 🙂