kk bantu benahi prog DELHPI aku!..yg mau iklas aja?cb liat ini sp tau menarik

[Permenkaret]

MAAF SEBELUMNYA,KIRANYA MASTER DAPAT MEMBANTU SAYA



aku liatkan dulu contoh gambar:



http://cdn-u.kaskus.us/51/i86bysfo.jpg



pertannya saya:

ketika battery tidak terpasang ko kenapa hasil dari % moniteringnya jadi 255..



http://cdn-u.kaskus.us/51/jbotjapk.jpg



pertannyaan saya:

-.pada petunjuk nomo 1...ko ketika saya cabut cas ..dan saya colok lagi...itu lambat sekali respon total time remeningya..kenapa ya?

-petunjuk no 2 gimana caranya saya mengganti nama tabseet nya

-petunjuk no 3 bagaimana saya melogikan atau memasang program..untuk funsi playsound alaram ketika 100% full alaram bunyi dan ketika 10% low alarm bunyi..

-petunjuk no 4 emang agak susah..aku ud cari2 dimana2 susah..buatx...walaupun temperatur Cpu aja..zzzzzz..sapa tau ada yg kasi jalan..aja..




ini contoh codingnya kk:


Spoiler for 1:







Code:

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
Label7: TLabel;
GroupBox5: TGroupBox;
Label1: TLabel;
Label8: TLabel;
Label3: TLabel;
GroupBox3: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
GroupBox2: TGroupBox;
Label10: TLabel;
GroupBox4: TGroupBox;
GroupBox6: TGroupBox;
AdvProgress1: TAdvProgress;
GroupBox7: TGroupBox;
Label9: TLabel;
AdvSmoothDatePicker1: TAdvSmoothDatePicker;
Button2: TButton;
GroupBox8: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label2: TLabel;
Label4: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure LMDButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var hasil : TSystemPowerStatus;
Jam : Extended;
menit : Real;
sisamenit : Extended;
begin
GetSystemPowerStatus(hasil);
AdvProgress1.Max:=100;
AdvProgress1.Position:=hasil.BatteryLifePercent;
Label7.Caption:=FloatToStr(hasil.BatteryLifePercen t)+'%';
Label5.Caption:=FloatToStr(hasil.BatteryLifePercen t)+'%';

Case hasil.ACLineStatus Of
0 : Begin
Label4.Caption:= 'Battery Mode';
menit := Int( hasil.BatteryLifeTime/60);
jam := Int(menit/60);
sisamenit := menit-(jam*60);

Label2.Caption:=FloatToStr(jam)+' Jam '+FloatToStr(sisamenit)+ ' Menit';
End;
1 : Begin
Label4.Caption:= 'AC POWER ON';
Label2.Caption:='charging';
End;
255:Label4.Caption:= 'Tidak diketahui';
End;
Case hasil.BatteryFlag Of
1 : Label6.Caption:='( High )';
2 : Label6.Caption:='( Low )';
4 : Label6.Caption:='(Critical)';
8 : Label6.Caption:='( Charging)';
128: Label6.Caption:='(No Battery)';
255:Label6.Caption:='( Tidak diketahui )';
else
Label6.Caption:='';
End;
end;









kiranya dapat pencerahan dari master..dan..masukan dikit aja..uda membantu..helphttp://static.kaskus.us/images/smilies/cekpms.gif

</div>