Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System
- Imports System.Management
- Imports MySql.Data.MySqlClient
- Public Class Form2
- Public username 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
- Public id_user As String = ""
- #Region "Save"
- Sub saveDetailPerangkat()
- username = Form1.TextBox1.Text
- Dim id_user As String = ""
- MySqlConn.Open()
- COMMAND = New MySqlCommand("SELECT id_user FROM tugas.user WHERE email = '" & username & "'", 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 tugas.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
- MySqlConn.Open()
- COMMAND = New MySqlCommand("delete from tugas.perangkat where id_user='" & id_user & "'", MySqlConn)
- COMMAND.ExecuteNonQuery()
- MsgBox("terhapus")
- MySqlConn.Close()
- My.Settings.State = "Tidak Aktif"
- My.Settings.Save()
- Environment.Exit(0)
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement