Imports System
Imports System.Management
Imports MySql.Data.MySqlClient
Public Class Form2
    Public email As String
    Public id_user As String = ""
    Dim MySqlConn As MySqlConnection = New MySqlConnection("server=localhost;user id=root;password=programming;database=tugas")
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    'Dim id_user As String = ""

#Region "Save"
    Sub saveDetailPerangkat()
        Dim id_user As String = ""
        email = Form1.TextBox1.Text


        MySqlConn.Open()
        COMMAND = New MySqlCommand("SELECT id_user FROM user WHERE email = '" & email & "'", MySqlConn)
        READER = COMMAND.ExecuteReader
        If READER.Read Then
            id_user = READER.Item(0)
        End If
        READER.Close()
        MySqlConn.Close()

        MySqlConn.Open()

        Try

            Dim Query As String
            Query = "INSERT INTO perangkat (id_user,jenis_perangkat, merk, os, ram, hardisk_merk, hardisk_ukuran, processor) VALUES ('" & id_user & "' ,'" & Label33.Text & "', '" & Label4.Text & "', '" & Label6.Text & "', '" & Label12.Text & "', '" & Label31.Text & "', '" & Label7.Text & "',   '" & Label10.Text & "')"
            COMMAND = New MySqlCommand(Query, MySqlConn)
            COMMAND.ExecuteNonQuery()

            MySqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MySqlConn.Dispose()
        End Try
    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Dim objWMI As New clsURG()
        With objWMI
            Label4.Text = .Model

            Dim name As String
            name = .OsName
            Dim words As String() = name.Split(New Char() {"|"c})
            Label6.Text = words.First
            Label12.Text = GetFileSize(CDbl(.TotalPhysicalMemory))
            Label26.Text = GetFileSize(CDbl(.FreePhysicalMemory))
            Label14.Text = (.Capacityc)
            Label16.Text = (.FreeSpacec)
            Label18.Text = (.Capacityd)
            Label20.Text = (.FreeSpaced)
            Label22.Text = (.Capacitye)
            Label24.Text = (.FreeSpacee)
            Label7.Text = GetFileSize(CDbl(Label14.Text) + (Label18.Text) + (Label22.Text))
            Label8.Text = GetFileSize(CDbl(Label16.Text) - (Label20.Text) - (Label24.Text))
            Label31.Text = (.Hardisk_Model)

            Dim Processor As String
            'It doesn't have to be CPUName, it can be anything you want.
            Processor = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\0", "ProcessorNameString", Nothing)
            Label10.Text = Processor

            Dim capacity As Double
            Dim freespace As Double
            Dim persen As Integer

            capacity = .Capacityc
            freespace = .FreeSpacec

            persen = (freespace / capacity) * 100

            'label27.Text = Math.Round(persen) & "%"

            Try
                Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
                For Each queryobj As ManagementObject In searcher.Get()
                    Dim temperature As Double = CDbl(queryobj("CurrentTemperature"))
                    temperature = (temperature - 2752) / 10.0
                    Label30.Text = (temperature.ToString & " °C")

                    'If temperature < 30 Then
                    'MessageBox.Show("Kamu memenangi satu penghargaan beruntung ")
                    'Else
                    'MessageBox.Show("Sorry Kamu Tidak memenangi apapun penghargaan ")
                    'End If

                Next
            Catch err As ManagementException
                Label30.Text = (" Oops," & " Error " & err.Message)
            End Try
        End With
        saveDetailPerangkat()
    End Sub

    Dim DoubleBytes As Double

    Public Function GetFileSize(ByVal size As Double) As String

        Try
            Dim TheSize As ULong = size
            Select Case TheSize
                Case Is >= 1099511627776
                    DoubleBytes = CDbl(TheSize / 1099511627776) 'TB
                    Return FormatNumber(DoubleBytes, 2) & " TB"
                Case 1073741824 To 1099511627775
                    DoubleBytes = CDbl(TheSize / 1073741824) 'GB
                    Return FormatNumber(DoubleBytes, 2) & " GB"
                Case 1048576 To 1073741823
                    DoubleBytes = CDbl(TheSize / 1048576) 'MB
                    Return FormatNumber(DoubleBytes, 2) & " MB"
                Case 1024 To 1048575
                    DoubleBytes = CDbl(TheSize / 1024) 'KB
                    Return FormatNumber(DoubleBytes, 2) & " KB"
                Case 0 To 1023
                    DoubleBytes = TheSize ' bytes
                    Return FormatNumber(DoubleBytes, 2) & " bytes"
                Case Else
                    Return ""
            End Select
        Catch
            Return ""
        End Try
    End Function

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim pwrpr As PowerStatus = SystemInformation.PowerStatus
        Dim res As Single = pwrpr.BatteryLifePercent * 100
        Label28.Text = "" & res & "%"
    End Sub

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

        Dim Query As String

        MySqlConn.Open()
        Query = ("DELETE FROM user WHERE email = '" & id_user & "'", MySqlConn)
            'Query = "DELETE FROM [user] WHERE id_user ='175'"
        Dim i As MySqlCommand = New MySqlCommand(Query, MySqlConn)
        MsgBox(Query)
        Dim i As Integer = cmd.ExecuteNonQuery()
        '  Dim i As Integer = Integer.Parse(cmd.ExecuteNonQuery())
        If (i > 0) Then
            MsgBox("Record is Successfully Deleted")
        Else
            MsgBox("Record is not Deleted")
            End If
        MySqlConn.Close()
    End Sub
End Class