Interfacing dengan menggunakan bahasa pascal

INTERFACEING (Teknik Antar Muka Komputer)
Created by Adri Fakhri Dhaifullah

Apakah itu interfaceing ?
adalah suatu teknik untuk sistem pengendalian peralatan elektronika dengan menggunakan komputer sebagai pemproses.

oke dech klo begitu kita bahas saja langkah langkah nya !!!!

dalam mengendalikan sistem peralatan elektronika menggunakan sistem komputer . tentunya kita harus mempersiapkan terlebih dahulu komputer nya donk. lalu sesudah itu kita membuat program untuk sistem interfaceing nya . lalu bahasa program apa yang bisa digunakan untuk sistem interface ????

bahasa program
1. bahasa pascal
2. bahasa C
3. bahasa C++
4. bahasa basic
5. dll.


pada posting ini saya akan lampirkan cara mengendalikan sistem peralatan elektronika dengan menggunakan bahasa pascal

oke kita mulai saja ya membuat programnya !!! semoga bisa dimengerti. tapi kalo gak mengerti juga silahkan tanyakan pada saya . insaallah saya akan jawab klo saya bisa. skalian share aja dech , biar tambah tambah ilmu. hehehe.


dalam memulai menggunakan bahasa pascal ada yang harus diperhatikan dalam penulisannya.

1. membuat judul program
contohnya : program interfaceing ;

2. bagian deklarasi

- Deklarasi unit
- Deklarasi label
- Deklarasi konstanta
- Deklarasi tipe
- Deklarasi variabel
- Deklarasi prosedur
- Deklarasi fungsi


contoh program interfaceing

program interfaceing_adri;
uses crt,dos;

var a,b,c,del:longint;
ulang : char;
label awal,akhir;


begin
awal:

clrscr;
gotoxy (5,6); writeln ('****************************************************************');
gotoxy (5,7); writeln ('PROGRAM ADRI FAKHRI DHAIFULLAH INTERFACEING DEVICE ');

gotoxy (2,11); writeln ('Berapa kali anda akan menjalankan led ???');
readln (b);
gotoxy (2,13); write ('berapa waktu yang diperlukan untuk menjalankan led tersebut ??');
readln (del);

if b>20 then goto akhir ;

for a:=1 to b do
begin
sound (5500); port [$378]:= $ff; delay (del);
nosound ; port [$378]:=$00:= delay (del);
sound (1000); port[$378]:=$ff; delay (del);
nosound; port [$378]:= $00; delay (del);


writeln ('lampu LED' , a);
end;
writeln ;
write ('apakah anda ingnin mengulang kembali (y/t) ??')
read (ulang) ;
if ulang = 'y' then goto awal;
if ulang = 'Y' then goto awal;
readln;
akhri:

end.