Form Data Mahasiswa

Berikut adalah coding untuk pembuatan Form Data Mahasiswa :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicombo()
Call bersih()


End Sub
Sub isicombo()
ComboBox1.Items.Add("06 teknik informatika")
ComboBox1.Items.Add("07 sistem informasi")
ComboBox1.Items.Add("26 management informasi")
ComboBox1.Items.Add("67 komputer akutansi")
ComboBox1.Items.Add("05 teknik komputer")
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 teknik informatika"




End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
ListBox1.Items.Add(Trim(TextBox1.Text) + "" + Trim(TextBox2.Text) + "" + (TextBox3.Text) + "" + Trim(TextBox4.Text))

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close() 'menutup sendiri'
Else
Call bersih()
Call normal()
End If
End Sub

sub normal()
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
Button1.Enabled = False
Button3.Enabled = False
Button3.Text = "Batal"
TextBox1.Text = Focus()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button3.Text = "OK"
Call bersih()
End If

End Sub

End Class