Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class FormMain
    ' Membuat variable untuk menampung data nama dan jurusan
    Private DataArray As New List(Of String)

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        Application.Exit()
    End Sub

    Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click
        ' Tambahkan data dari TextBox ke array
        ' Jika TxtNama.Text tidak ada isinya atau spasi (white space)
        If Not String.IsNullOrWhiteSpace(TxtNama.Text) Then
            ' Menggabungkan nama dan jurusan
            Dim IsiList = $"{TxtNama.Text} - {CmbJurusan.Text}"
            'Memasukan nama dan jurusan kedalam DataArray
            DataArray.Add(IsiList)
            LabelJumlahData.Text = $"{DataArray.Count} / 10 Data(s)"
            ' Bersihkan TextBox dan ComboBox setelah data ditambahkan
            TxtNama.Clear()
            TxtNama.Focus()
            CmbJurusan.Text = ""
        Else
            MessageBox.Show("Silakan masukkan teks yang valid.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    End Sub

    Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
        ' Jika jurusan belum dipilih
        If String.IsNullOrWhiteSpace(CmbJurusan.Text) AndAlso DataArray.Count <> 10 Then
            MessageBox.Show("Silakan pilih salah satu jurusan.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        ' Cek apakah jumlah data dalam array kurang dari 10, sama dengan 10, atau lebih dari 10
        If DataArray.Count < 10 Then
            ' Mengambil data yang kurang
            Dim jumlahKurang As Integer = 10 - DataArray.Count
            MessageBox.Show($"Data {DataArray.Count} dari 10. Tambahkan {jumlahKurang} data lagi.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        ElseIf DataArray.Count > 10 Then
            ' Mengambil kelebihan data
            Dim jumlahLebih = DataArray.Count - 10
            MessageBox.Show($"Data {DataArray.Count} dari 10. Kurangi {jumlahLebih}.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            ' Jika data pas 10, masukkan semua data ke dalam ListBox
            ListNama.Items.Clear()
            ListNama.Items.AddRange(DataArray.ToArray())
        End If
    End Sub

    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        ' Reset kembali list dan datanya
        ListNama.Items.Clear()
        DataArray.Clear()
        LabelJumlahData.Text = "0 / 10 Data(s)"
    End Sub
End Class