Perancangan Perangkat Lunak (Software)

18/11/12

Perancangan Perangkat Lunak (Software)

Posted on 14.40 by Unknown

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 : word; data :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)

Belajar Itu Mengasikkan

Sistem Gerak Mobile Robot Berkak

18/11/12