Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.69 KB | None | 0 0
  1. Imports System.ComponentModel
  2. Imports System.Runtime.InteropServices
  3.  
  4. Public Class Form1
  5. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
  6. Close()
  7.  
  8. End Sub
  9. Dim czas_do
  10. Dim czas_od
  11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  12. If (My.Settings.Liczenie = "tak") Then
  13. czas_do = My.Settings.Czas_Odliczony
  14. czas_od = My.Settings.Czas_Odliczony
  15. Timer1.Start()
  16. PictureBox3.Hide()
  17. NumericUpDown1.Hide()
  18. Call EnableScreenSaver(False)
  19. Else
  20.  
  21. End If
  22. End Sub
  23. Public Const WM_NCLBUTTONDOWN As Integer = &HA1
  24. Public Const HT_CAPTION As Integer = &H2
  25.  
  26. <DllImportAttribute("user32.dll")>
  27. Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
  28. End Function
  29.  
  30. <DllImportAttribute("user32.dll")>
  31. Public Shared Function ReleaseCapture() As Boolean
  32. End Function
  33.  
  34. Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown, PictureBox2.MouseDown
  35. If e.Button = Windows.Forms.MouseButtons.Left Then
  36. ReleaseCapture()
  37. SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
  38. End If
  39. End Sub
  40. Dim czas = 0
  41. Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
  42. My.Settings.Reset()
  43. PictureBox3.Hide()
  44. Label2.Text = NumericUpDown1.Value.ToString
  45. If NumericUpDown1.Value = 0 Then
  46. czas_do = NumericUpDown1.Value + 1
  47. Else
  48. czas_do = NumericUpDown1.Value
  49. End If
  50.  
  51. NumericUpDown1.Hide()
  52. Timer1.Start()
  53. Call EnableScreenSaver(False)
  54. My.Settings.Liczenie = "tak"
  55. My.Settings.Czas_Ustawiony = czas_do
  56. My.Settings.Save()
  57. End Sub
  58.  
  59. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
  60.  
  61. End Sub
  62.  
  63. Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
  64. If My.Settings.Liczenie = "tak" Then
  65. Dim result As Integer = MessageBox.Show("Czy naprawdę chcesz ten licznik który teraz liczy zrestartować?", "Uwaga!", MessageBoxButtons.YesNo)
  66. If result = DialogResult.No Then
  67. ElseIf result = DialogResult.Yes Then
  68. My.Settings.Reset()
  69. Application.Exit()
  70. End If
  71. Else
  72. My.Settings.Reset()
  73. Application.Exit()
  74. End If
  75.  
  76. End Sub
  77. Dim czas_ile
  78. Dim sek
  79. Dim sek2
  80. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  81. sek = sek + 1
  82. If sek = 1 Then
  83. czas_ile = czas_ile + 1
  84. czas = czas_do - czas_ile * System.Math.PI / (System.Math.PI * 3.14) * 2 * Int(Rnd() * 100) + 1
  85. czas_od = czas
  86. Label2.Text = czas
  87. sek = 0
  88. My.Settings.Czas_Odliczony = czas
  89. 'My.Settings.Save()
  90. If czas = 0 Then
  91. czas_do = 1
  92. czas = 0
  93. czas_ile = 0
  94. My.Computer.Audio.PlaySystemSound(
  95. System.Media.SystemSounds.Asterisk)
  96. MsgBox("Odliczanie zakończone!" + vbNewLine + "Aby zamknąć okno naciśnij ""Ok"" lub klawisz ESC(ESCAPE)", MsgBoxStyle.SystemModal)
  97. Label2.Text = "Koniec odliczania"
  98. 'My.Settings.Reset()
  99. PictureBox3.Show()
  100. NumericUpDown1.Show()
  101. Timer1.Stop()
  102. End If
  103. End If
  104. End Sub
  105. Private Const SPI_SETSCREENSAVEACTIVE = 17
  106.  
  107. Private Declare Function SystemParametersInfo Lib "user32" _
  108. Alias "SystemParametersInfoA" (ByVal uAction As Long,
  109. ByVal uParam As Long, ByVal lpvParam As Long,
  110. ByVal fuWinIni As Long) As Long
  111.  
  112. Public Function EnableScreenSaver(ByVal bStatus As Boolean) As Boolean
  113. Dim lActiveFlag As Long
  114. Dim lRetval As Long
  115.  
  116. lActiveFlag = IIf(bStatus, 1, 0)
  117. lRetval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lActiveFlag, 0, 0)
  118.  
  119. If lRetval > 0 Then
  120. EnableScreenSaver = True
  121. Else
  122. EnableScreenSaver = False
  123. End If
  124.  
  125. End Function
  126.  
  127. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
  128. Call EnableScreenSaver(True)
  129. If My.Settings.Liczenie = "tak" Then
  130. MsgBox("Trwa odliczanie!")
  131. e.Cancel = True
  132. End If
  133. End Sub
  134. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement