برام که یادداشت نذاشتید ولی من بازم می نویسم

این عکس هم تقدیم به همه ایرانی ها عاشق

سال 83 هم داره تموم میشه با همه خوبی و بدیهاش با همه اتفاقات تلخ و شیرینش

امید که همگی سال جدید و با خیر و بکت لبخند و خوشحالی شروع کنید و به 85 برسونیدش

من آرزو میکنم همطون سبز و خرم باشید و همیشه موفق و موید کنار خانوادههاتون شاد زندگی کنید

منهم با این چند سطر می خواستم ظاهرا عید رو تبریک بگم پس

سال نو مبارک

شاد و خرم باشید

مهران

سلام

این برنامه وضعیت باطری سیستم رو نشون می ده

فقط کافی یه فرم درست کنید و دوتا لیبل توش بذارید و کد زیرو توی اون بنویسید می دونید کجا دیگه

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" (lpSystemPowerStaus As SYSTEM_POWER_STATUS) As Long

Private Sub Form_Load()

Dim s As SYSTEM_POWER_STATUS

GetSystemPowerStatus s

Select Case s.ACLineStatus

Case 0

Label1.Caption = "AC Power:Offline"

Case 1

Label1.Caption = "AC Power:OnLine"

End Select

Select Case s.BatteryFlag

Case 1

Label2.Caption = "Batery Charge State: Hight"

Case 2

Label2.Caption = "Battery Charge State: Low"

Case 2

Label2.Caption = "Battery Charge State: Critical"

Case 8

Label2.Caption = "Battery Charge State: Charging"

Case 128

Label2.Caption = "Battery Charge State: No System Battery"

Case 255

Label2.Caption = "Battery Charge State: Unknown Status"

End Select

End Sub

دوستای عزیز نظر  یادتون نره

آقای علی رضا قربانی دوست عزیزی لطف کردن و خواستن که برنامه فورترن را براشون بذارم اونهم به چشم در اولین فرصت این کار و خواهم کرد  ولی درمورد آموزش متاسفانه من اطلاعاتی ندارم اگر تونستم از دوستان کمک میگریم . البته اگر کسی بلده یا آدرسی داره لطفن برام پیغام بذاره

علی آقا ممنون و شرمنده که فعلا نمی تونم کاری براتون انجام بدم

سلام

من مهران هستم

کامپیوتر دارم (نه بابا)

برنامه نویسی رو هم دوست دارم

خوشحال میشم اطلاعاتمون با هم تقسیم کنیم

ضمنا اگه کسی سوالی هم داشت خوشحال میشم اگه بتونم کمکی کنم

مهران