uts [tapi belum selesai]

Public Class Form1

    Dim isitex(6) As String

    Dim item As ListViewItem

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

        Call bersih()

        Call normal()

        Call tampil()

        Call isikombo()

    End Sub

    Sub tampil()

        ListView1.View = View.Details

        ListView1.Columns.Add("no pendaftaran", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("jenis pasien", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("nama pasien", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("alamat", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("nama dokter", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("nomer antrean", 100, HorizontalAlignment.Left)

    End Sub

    Sub isikombo()

        ComboBox1.Items.Add("dr.ihsan")

        ComboBox1.Items.Add("dr.ihsan2")

        ComboBox1.Items.Add("dr.ihsan Sp.h")

        ComboBox1.Items.Add("dr.ihsan Sp.og")

        ComboBox1.Items.Add("dr.ihsan Sp.s")

    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()

        Else

            isitex(0) = Trim(TextBox1.Text)

            isitex(1) = Trim(RadioButton1.Text)

            isitex(2) = Trim(TextBox2.Text)

            isitex(3) = Trim(TextBox3.Text)

            isitex(4) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 100)

            isitex(5) = Trim(TextBox4.Text)

            item = New ListViewItem(isitex)

            ListView1.Items.Add(item)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

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

        If Button4.Text = "batal" Then

            Button1.Text = "tambah"

            Button1.Enabled = True

            Button2.Text = "ubah"

            Button2.Enabled = True

            Button3.Text = "hapus"

            Button3.Enabled = True

            Button4.Text = "keluar"

            TextBox1.Focus()

        Else

            Button4.Text = "keluar"

            Me.Close()

            Call bersih()

            Call normal()

        End If

    End Sub

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = " nama dokter "

        TextBox4.Text = ""

    End Sub

    Sub normal()

        Button1.Text = "tambah"

        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

            Button2.Text = "simpan"

            Button1.Enabled = "false"

            Button3.Enabled = "false"

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

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

        Call bersih()

        If Button3.Text = "hapus" Then

            Button3.Text = "simpan"

            Button1.Enabled = "false"

            Button2.Enabled = "false"

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

  

End Class