Advertisement
Guest User

Untitled

a guest
Sep 10th, 2017
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.85 KB | None | 0 0
  1. Imports System
  2. Imports System.Management
  3. Imports MySql.Data.MySqlClient
  4. Public Class Form2
  5. Public username As String
  6. Dim MySqlConn As MySqlConnection = New MySqlConnection("server=localhost;user id=root;password=programming;database=tugas")
  7. Dim COMMAND As MySqlCommand
  8. Dim READER As MySqlDataReader
  9. Public id_user As String = ""
  10.  
  11. #Region "Save"
  12.  
  13.  
  14.  
  15. Sub saveDetailPerangkat()
  16. username = Form1.TextBox1.Text
  17. Dim id_user As String = ""
  18.  
  19. MySqlConn.Open()
  20. COMMAND = New MySqlCommand("SELECT id_user FROM tugas.user WHERE email = '" & username & "'", MySqlConn)
  21. READER = COMMAND.ExecuteReader
  22. If READER.Read Then
  23. id_user = READER.Item(0)
  24. End If
  25. READER.Close()
  26. MySqlConn.Close()
  27.  
  28. MySqlConn.Open()
  29.  
  30. Try
  31.  
  32. Dim Query As String
  33. 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 & "')"
  34. COMMAND = New MySqlCommand(Query, MySqlConn)
  35. COMMAND.ExecuteNonQuery()
  36.  
  37. MySqlConn.Close()
  38. Catch ex As Exception
  39. MessageBox.Show(ex.Message)
  40. Finally
  41. MySqlConn.Dispose()
  42. End Try
  43. End Sub
  44.  
  45. #End Region
  46.  
  47. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  48. Timer1.Start()
  49. Dim objWMI As New clsURG()
  50. With objWMI
  51. Label4.Text = .Model
  52.  
  53. Dim name As String
  54. name = .OsName
  55. Dim words As String() = name.Split(New Char() {"|"c})
  56. Label6.Text = words.First
  57. Label12.Text = GetFileSize(CDbl(.TotalPhysicalMemory))
  58. Label26.Text = GetFileSize(CDbl(.FreePhysicalMemory))
  59. Label14.Text = (.Capacityc)
  60. Label16.Text = (.FreeSpacec)
  61. Label18.Text = (.Capacityd)
  62. Label20.Text = (.FreeSpaced)
  63. Label22.Text = (.Capacitye)
  64. Label24.Text = (.FreeSpacee)
  65. Label7.Text = GetFileSize(CDbl(Label14.Text) + (Label18.Text) + (Label22.Text))
  66. Label8.Text = GetFileSize(CDbl(Label16.Text) - (Label20.Text) - (Label24.Text))
  67. Label31.Text = (.Hardisk_Model)
  68.  
  69. Dim Processor As String
  70. 'It doesn't have to be CPUName, it can be anything you want.
  71. Processor = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\0", "ProcessorNameString", Nothing)
  72. Label10.Text = Processor
  73.  
  74. Dim capacity As Double
  75. Dim freespace As Double
  76. Dim persen As Integer
  77.  
  78. capacity = .Capacityc
  79. freespace = .FreeSpacec
  80.  
  81. persen = (freespace / capacity) * 100
  82.  
  83. 'label27.Text = Math.Round(persen) & "%"
  84.  
  85. Try
  86. Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
  87. For Each queryobj As ManagementObject In searcher.Get()
  88. Dim temperature As Double = CDbl(queryobj("CurrentTemperature"))
  89. temperature = (temperature - 2752) / 10.0
  90. Label30.Text = (temperature.ToString & " °C")
  91.  
  92. 'If temperature < 30 Then
  93. 'MessageBox.Show("Kamu memenangi satu penghargaan beruntung ")
  94. 'Else
  95. 'MessageBox.Show("Sorry Kamu Tidak memenangi apapun penghargaan ")
  96. 'End If
  97.  
  98. Next
  99. Catch err As ManagementException
  100. Label30.Text = (" Oops," & " Error " & err.Message)
  101. End Try
  102. End With
  103. saveDetailPerangkat()
  104. End Sub
  105.  
  106. Dim DoubleBytes As Double
  107.  
  108. Public Function GetFileSize(ByVal size As Double) As String
  109.  
  110. Try
  111. Dim TheSize As ULong = size
  112. Select Case TheSize
  113. Case Is >= 1099511627776
  114. DoubleBytes = CDbl(TheSize / 1099511627776) 'TB
  115. Return FormatNumber(DoubleBytes, 2) & " TB"
  116. Case 1073741824 To 1099511627775
  117. DoubleBytes = CDbl(TheSize / 1073741824) 'GB
  118. Return FormatNumber(DoubleBytes, 2) & " GB"
  119. Case 1048576 To 1073741823
  120. DoubleBytes = CDbl(TheSize / 1048576) 'MB
  121. Return FormatNumber(DoubleBytes, 2) & " MB"
  122. Case 1024 To 1048575
  123. DoubleBytes = CDbl(TheSize / 1024) 'KB
  124. Return FormatNumber(DoubleBytes, 2) & " KB"
  125. Case 0 To 1023
  126. DoubleBytes = TheSize ' bytes
  127. Return FormatNumber(DoubleBytes, 2) & " bytes"
  128. Case Else
  129. Return ""
  130. End Select
  131. Catch
  132. Return ""
  133. End Try
  134. End Function
  135.  
  136. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  137. Dim pwrpr As PowerStatus = SystemInformation.PowerStatus
  138. Dim res As Single = pwrpr.BatteryLifePercent * 100
  139. Label28.Text = "" & res & "%"
  140. End Sub
  141.  
  142. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  143. MySqlConn.Open()
  144. COMMAND = New MySqlCommand("delete from tugas.perangkat where id_user='" & id_user & "'", MySqlConn)
  145. COMMAND.ExecuteNonQuery()
  146. MsgBox("terhapus")
  147. MySqlConn.Close()
  148. My.Settings.State = "Tidak Aktif"
  149. My.Settings.Save()
  150. Environment.Exit(0)
  151.  
  152. End Sub
  153. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement