Code báo đang sạc, pin đầy, pin yếu cho Laptop và công nghệ UPS !
- hands
- Excel Ứng Dụng
Một code vô cùng hấp dẫn trong bộ ứng dụng MS sử dụng VB, có thể thông báo điện cúp khi nguồn điện bị ngắt, pin yếu, pin đầy. Chỉ dành cho Laptop, chứ không cúp rồi PC không có điện biết báo làm sao. Hấp dẫn hơn nếu tải một bộ ứng dụng nho nhỏ nào đó để có thể gửi tin báo cúp điện đến mobile của mình !
Private Type SYSTEM_POWER_STATUS
ACLineStatus As Byte
BatteryFlag As Byte
BatteryLifePercent As Byte
Reserved1 As Byte
BatteryLifeTime As Long
BatteryFullLifeTime As Long
End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As _
SYSTEM_POWER_STATUS) As Long
'Đoạn nào dòng nối nhớ thêm dấu gạch dưới trước khi xuống dòng nhé( _ )
Private Sub GetBatteryStatus()
Dim SPS As SYSTEM_POWER_STATUS
'get the battery powerstatusGetSystemPowerStatus SPS
'show some informationSelect Case SPS.ACLineStatus
Case 0
MsgBox "AC power status: Offline" 'Nguồn đã ngắt / Cúp điện , cài "Loa" để Loa Loa "cúp điện rồi"
'Call sndPlaySound32("D:Ring****.wav", 1)
Case 1
MsgBox "AC power status: OnLine" 'Kết nối nguồn
Case 2
MsgBox "AC power status: Unknown"
End Select
Select Case SPS.BatteryFlag
Case 1
MsgBox "Battery charge status: High" 'Pin đầy
Case 2
MsgBox "Battery charge status: Low" Pin yếu
Case 4
MsgBox "Battery charge status: Critical"
Case 8
MsgBox "Battery charge status: Charging"
Case 128
MsgBox "Battery charge status: No system battery"
Case 255
MsgBox "Battery charge status: Unknown Status"
End Select
End Sub
"Loa" để báo cúp điện đây rồi, đặt trên cùng của Module nhé !
Public Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'Dấu gạch dưới là nối dòng
' nhớ chỉnh đoạn này ở Case 0 "Call sndPlaySound32("D:Ring****.wav", 1)"
Mong code này sẽ hữu ích cho nhiều người !
www.giaiphapexcel.com/diendan/threads/code-b%C3%A1o-%C4%91ang-s%E1%BA%A1c-pin-%C4%91%E1%BA%A7y-pin-y%E1%BA%BFu-cho-laptop-v%C3%A0-c%C3%B4ng-ngh%E1%BB%87-ups.111848/
Khóa học Power PI – Ứng dung trong Nhân sự
TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...
Xem khóa học