Feeds:
Pos
Komentar

Archive for the ‘Delphi Help’ Category

Untuk mengubah bilangan Desimal menjadi bilangan Hexa memang sangat mudah karena sudah ada fungsinya yaitu dengan menggunakan fungsi “IntToHex” tetapi bagaimana jika sebaliknya.

Apakah harus membuat fungsi sendiri dengan sesuai dengan Algoritma operasi bilangan Hexa ke Desimal???? hahaha kelaaamaannn…
pakai fungsi ini, lupakan proses looping:

function HexToByte(hex:string):byte;
var
E: byte;
Buf: array[0..2] of Char;
s:string;
begin
s:=LowerCase(hex);
Buf[0]:=s[1];
Buf[1]:=s[2];
HexToBin(Buf, @E, 1);//ini mesinnya
result:=e;
end;

fungsi ini adalah saya fokuskan untuk dua digit Hexa saja. Silakan untuk dikembangkan karena “HexToBin” mampu membuat bilangan Hexa banyak digit dan untuk negasi juga bisa.

Iklan

Read Full Post »

Length

Mendapatkan jumlah karakter atau elemen pada suatu array.

Unit
System

Sintak:
function Length(S): Integer;

Keterangan

S adalah sebuah variabel bisa dengan tipe data string atau array.

Contoh bawaan Delphi :
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;

Contoh Ku:
...
for i:= 0 to Pred(Length(casing.atas)) do //casing.atas adalah array[0..6]
begin
//casing
casing.r:=casing.rad+(casing.tebal*i)+semen.jari;
BeginSymbol(WBD_CASING);
GambarTabung(casing.x,casing.y,Round(casing.od[i]),Round(casing.id[i]),casing.atas[i],casing.bawah[i]);
//capture series
...

Read Full Post »