prev next

18/11/12

Perancangan Perangkat Lunak (Software)

Posted on 14.40 by tris KT

Setelah kita membuat rangkaian antar muka dan menghubungkan dengan Modul Remot Mobil, maka berarti bagian perangkat keras telah selesai. Satu pekerjaan lagi yang harus dibuat adalah membuat program untuk komputernya. 

beberapa bahasa pemograman dapat dipakai seperti Pascal, Delphi, Visual Basic dan lain-lain. Dalam hal ini kita menggunakan Delphi karena masih menggunakan dasar bahasa Pascal, yang mana beberapa proyek robot yang lain juga akan menggunakan bahasa pascal (Mikcro Pascal) untuk mengisi mikrokontrolernya.

Kita akan membuat program dengan lingkungan kerja windows. Untuk berhubungan dengan membaca atau menulis ke port parallel maka ada dua buah fungsi yang akan dipakai yaitu fungsi baca port dan fungsi tulis port. Adapun detail kedua fungsi tersebut adalah sebagai berikut.
function BacaPort (alamat : word) : byte;
Var tmp : byte;
bagin
    asm
    mov dx,alamat;
    in ax,al;
and;
BacaPort :=tmp;
end;
Sedangkan fungsi untuk menuliskan port adalah:
procedure TulisPort(alamat : worddata :byte);    
bagin
      asm 
      mov dx, alamat;
      mov al,data;
      out dx,al;
   end;
end   
Pada perancangan software menggunakan program Delphi ini, kita akan mengunakan CheckBox adalah salah satu komponen dalam pemograman Delphi, Jika kita memberi tanda centang, maka dikatakan checkbox terpilih (checked). pada saat checkbox terpilih, maka kita harus membuat jalur (line) yang bersangkutan menjadi tnggi (high).

Beberapa contoh potongan program apabila sebuah checkbox terpilih:
begin
if checkbox.checked then 
   begin
       tulisport ($378,$ff); // logika tinggi
    end    
else
begin
      tulisport($378,$0); // logika rendah
   end;
end;
Dengan menggunakan prinsip diatas, maka program secara keseluruhan adalah sebagai berikut. Program berikut tentu masih standard, anda dapat melakukan tambahan perbaikan-perbaikan sesuai kebutuhan anda.

unit Robot;
interface
uses
windowe, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs
StdCtrls;
type
TForml =class(TForm)
       GroupBox1: TGroupBox; 
       GroupBox2: TGroupBox; 
       GroupBox1: TCheckBox;   
       GroupBox2: TCheckBox; 
       GroupBox3: TCheckBox;   
       GroupBox4: TCheckBox;   
       procedure CheckBox1Click (Sender:TObject);
       procedure CheckBox2Click (Sender:TObject);
       procedure CheckBox3Click (Sender:TObject);
       procedure CheckBox4Click (Sender:TObject);
private
  { private declarations}
public
function bacaport (addr:word): byte;
procedure tulisport(addr:word;data:byte);
   { Public declarations}
end;
   
var
  Forml: TFofml;
implementation
{$*.DFM}
function TForml.bacaport(addr:word):byte;
var tmp:byte;
begin
  asm
    mov dx,addr;
    in ax,dx;
    mov tmp,al;
  end
  bacaport := tmp;
end;

procedure TForml.tulisport(addr :word: data : byte);
begin
  asm
    asm
    mov dx,addr;
    mov al,data;
    out dx,al;
  end;
end;

procedure TForml.CheckBox1Click(sender:TObject);
var tmp : byte;
begin;

  tmp := bacaport($378);
  if checkbox1.checked them
    tulisport ($378,tmp or $1)
  els
    tulisport ($378,tmp end $fe);
end;
procedure TForml.Checkbox2Click(sender:TObect);
var tmp : byte;
begin;

  tmp := bacaport($378);
  if checkbox2.checked them
    tulisport ($378,tmp or $2)
  els
    tulisport ($378,tmp end $fd);
end;

procedure TForml.Checkbox3Click(sender:TObect);
var tmp : byte;
begin;
  tmp := bacaport($378);
  if checkbox3.checked them
    tulisport ($378,tmp or $4)
  els
    tulisport ($378,tmp end $fb);
end;

procedure TForml.Checkbox4Click(sender:TObect);
var tmp : byte;
begin;
  tmp := bacaport($378);
  if checkbox4.checked them
    tulisport ($378,tmp or $8)
  els
    tulisport ($378,tmp end $f7);
end;
end. 

Artikel Terkait : 
ROBOT TERKONTROL PC 
Pemilihan Port Komputer (PC) 
Dasar Pemegraman Parallel Port 
Perancangan Perangkat Keras (Hardware) 

No Response to "Perancangan Perangkat Lunak (Software)"

Komentar Anda