Installing VaComm in Delphi

 
This component is very important for PC communication (interface) with an external hardware using a serial port (Comm).Fairly easy use, and complete features.Here I try to talk a bit about how to install components into VaComm Delphi programming language.This time we try to Delphi 7, for another Delphi version is the same way, just different in component files.To get these components, please download via the link at the end of this article.Steps to install VaComm as follows:

1. Open your Delphi
2. Then the next step to extract the files into tmsa32d7.ZIP Delphi installation folder, eg C: \ Program Files \ Borland \ Delphi7 \ tmsa32d7
3. Find vacomm7.dpk package file, and double click.
4. Back to the Delphi program, we will see the following form  
     
   
5. In the dialog that appears click the Compile button, then proceed to install the components VaComm by clicking Install button. Will appear the information that the component has been installed.
   
6. Next cover the installation process by selecting File-Close All on the Delphi main menu, and select Yes to save the installation file.
7. After installation file is saved, then you must change the library path directory to appoint the library files you just install. Select Tools-Environment Options..., so you will see this dialog. On dialog appear, select Library Tab.
   
   
   
8. Next, you have to find the library path directory by clicking the [...] button, eg C: \ Program Files \ Borland \ Delphi7 \ tmsa32d7
9. Browse your library path directory, and click OK
   
10. Now, add the library path by click "Add" button.
    
    

Done

After the process is complete we now have an additional tab named TMS Async32 components in the component palette. Good luck!

Download
Components VaComm, tmsa32d7.ZIP (Delphi 7),
tmsa32d6.ZIP (Delphi 6) 

Read More »»

Konversi bilangan Heksadesimal ke Biner

Bagi anda yang sering berhubungan dengan interface mikrokontroler dan PC kadang memerlukan konversi bilangan heksadesimal ke dalam bentuk Biner. Sebenarnya Delphi telah menyediakan fungsi HexToBin sendiri, tapi kali ini kita coba untuk mengkonversi bilangan heksadesimal dengan tipe data string dan menghasilkan bilangan biner dalam bentuk string juga.

Coba perhatikan fungsi berikut ini

function HexToBin(HexStr: string): string;
const
  BinArray: array[0..15, 0..1] of string =
    (('0000', '0'), ('0001', '1'), ('0010', '2'), ('0011', '3'),
     ('0100', '4'), ('0101', '5'), ('0110', '6'), ('0111', '7'),
     ('1000', '8'), ('1001', '9'), ('1010', 'A'), ('1011', 'B'),
     ('1100', 'C'), ('1101', 'D'), ('1110', 'E'), ('1111', 'F'));
  HexAlpha: set of char = ['0'..'9', 'A'..'F'];
var
  i, j: Integer;
begin
  Result:='';
  HexStr:=AnsiUpperCase(HexStr);
  for i:=1 to Length(HexStr) do
    if HexStr[i] in HexAlpha then
    begin
      for j:=1 to 16 do
        if HexStr[i]=BinArray[j-1, 1] then
          Result:=Result+BinArray[j-1, 0];
    end
    else
    begin
      Result:='';
      ShowMessage('This is not hexadecimal number');
      Break;
    end;
  if Result<>'' then
   while (Result[1]='0')and(Length(Result)>1) do
     Delete(result, 1, 1);
end;

dan berikut dara penggunaannya dalam program

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := HexToBin(Edit1.Text);
end;

Read More »»