unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ZLPortIO;
type
TForm1 = class(TForm)
eData1: TEdit;
eData2: TEdit;
eData3: TEdit;
bCzytaj: TButton;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure bCzytajClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function Bcd2Dec8 (n: byte) : byte;
begin
Bcd2Dec8 := (N shr 4)*10 +N and 15;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
case ZlIOStarted of
true: StatusBar1.SimpleText := 'Sterownik portów załadowany';
false: StatusBar1.SimpleText := 'Problem ze sterownikiem portów!';
end;
end;
procedure TForm1.bCzytajClick(Sender: TObject);
begin
try
portwriteb($70, $04);
sleep(50);
eData1.Text := IntToStr(Bcd2Dec8(portreadb($71)));
portwriteb($70, $02);
sleep(50);
eData2.Text := IntToStr(Bcd2Dec8(portreadb($71)));
portwriteb($70, $00);
sleep(50);
eData3.Text := IntToStr(Bcd2Dec8(portreadb($71)));
except
eData1.Text := '##';
eData2.Text := '##';
eData3.Text := '##';
end;
end;
end.
Kod do odczytania godziny po przerobieniu przeze mnie. Może się komuś przyda.
http://www.bioscentral.com/misc/cmosmap.htm mapa biosu
ZLPortIO <--- Darmowa biblioteka
NIE ZEZWALAM NA KOPIOWANIE NA INNE FORA NIŻ 4programmers.net
mgyver:Dopiero zauważyłem Twoje posty, myślisz że jesteś fajny jak robisz syf na forum?