Imports MySql.Data.MySqlClient
Public Class chartbymembers
    Public sCon As MySqlConnection = New MySqlConnection
    Public sComand As MySqlDataAdapter = New MySqlDataAdapter
    Public ds As DataSet = New DataSet
    Dim scrollVal As Integer
    Dim pagingAdapter As MySqlDataAdapter
    Dim pagingDS As DataSet
    Dim pagingDS2 As DataSet
    Private sRecord_Count As Integer
    Dim conn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim dr As MySqlDataReader

    Dim masterpercent As Int16
    Dim bcc As Int16
    Dim pcc As Int16
    Dim hhl As Int16
    Dim member As Int16
    Dim totbcc As Int16
    Dim totpcc As Int16
    Dim tothhl As Int16
    Dim totmember As Int16

    Dim connectionString As New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
    Private Sub conns()
        Try
            conn = New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("Please Close to finish update 5 seconds & Open the program again. Or contact the programmer", "Update",
  MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try
    End Sub
    Private Sub chartbymembers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        percentmaster()
        chartall()
        conn.Close()
        conn.Dispose()
        connectionString.Close()
        connectionString.Dispose()
        MySqlConnection.ClearAllPools()
    End Sub
    Private Sub chartall()
        Chart1.Series("Series1").Points.AddXY("All Data", CInt(Label1.Text))
        Chart1.Series("Series1").Points.AddXY("BCC", CInt(totbcc))
        Chart1.Series("Series1").Points.AddXY("PCC", CInt(totpcc))
    End Sub
    Private Sub percentmaster()
        If Dashboard.Label2.Text = "28253" Then
            masterpercent = 28253 * 1.0
            If masterpercent = Dashboard.Label2.Text Then
                Label1.Text = 1.0
                bcc = CInt(Dashboard.Label10.Text) / CInt(masterpercent)
                totbcc = bcc
                pcc = CInt(Dashboard.Label12.Text) / CInt(masterpercent)
                totpcc = pcc
            End If

        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            'Call conns()
            'Dim sqlcmd As New MySqlCommand("SELECT * FROM full_data", conn)
            'Dim sdr As MySqlDataReader
            'sdr = sqlcmd.ExecuteReader(CommandBehavior.CloseConnection)
            'While sdr.Read
            'Chart1.Series("Series1").Points.AddXY(sdr.GetString("barangay"), sdr.GetString("address"))
            'Chart1.Series("Series1").Points.AddXY("BCC", CInt(Dashboard.Label10.Text))
            'Chart1.Series("Series2").Points.AddXY("PCC", CInt(Dashboard.Label12.Text))
            'Chart1.Series("Series1").Points.AddXY("All Data", CInt(Dashboard.Label2.Text))
            'Chart1.Series("Series2").Points.AddXY("PCC", CInt(Dashboard.Label12.Text))
            'Chart1.Series("Series1").Points.AddXY(sdr.GetString("barangay"), 50)
            ' Chart1.Series("Series1").Points.AddXY(sdr.GetString("barangay"), 50)
            ' Chart1.Series("Series1").Points.AddXY(sdr.GetString("barangay"), 50)
            'End While
            'conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            'conn.Dispose()
        End Try
    End Sub
    '   public sub Timer_Tick () Handles Timer_Tick
    '       Static iDiagram As int32 = 0

    '       iDiagram += 1
    '       Select Case iDiagram
    '           Case 1
    '               ShowGraph("Met1", "Location Name - Met No. 1")
    '           Case 2
    '               ShowGraph("Met2", "Location Name - Met No. 2")
    '           Case 3
    '....

    '           Case 25
    '               ShowGraph("Met25", "Location Name - Met No. 25")
    '               iDiagram = 0
    '       End Select
    '   End Sub

End Class