membuat program scanner dengan pascal

Listing Program
program Scan;
Uses crt;
Var
x : text;
y : Char;
token,Ttoken : String;

procedure input;
begin
read(x,y);
end;
procedure output;
begin
writeln(token:10,' ',Ttoken);
end;
procedure scan;
begin
clrscr;
assign(x,'contoh.txt');
reset(x);
repeat
input;
if (y in['A'..'Z','a'..'z']) then
begin
repeat
begin
token := token + y;
input;
end;
until (not(y in['A'..'Z','a'..'z']));
Ttoken := 'Tpengenal';
if token = 'Mulai' then
Ttoken := 'Tmulai';
if token = 'Jika' then
Ttoken:='Tjika';
if token='maka' then
Ttoken := 'Tmaka';
if token = 'div' then
Ttoken := 'Tdiv';
if token ='Beda' then
Ttoken := 'Tbeda';
if token ='mod' then
Ttoken :='Tmod';
if token = 'Selesai' then
Ttoken := 'Tselesai';
output;
token := '';
end;
if (y in['0'..'9']) then
begin
repeat
begin
token := token + y;
input;
end;
until (not(y in['0'..'9']));
Ttoken := 'Tbulat';
output;
token := '';
end;
if (y in[':','=',';','.']) then
begin
repeat
begin
token := token + y;
input;
end;
until (not(y in[':','=',';','.']));
if token =':=' then
Ttoken := 'Tmasuk';
if token ='=' then
Ttoken := 'Tsama';
if token ='.' then
Ttoken := 'Ttitik';
if token =';' then
Ttoken := 'Ttkoma';
output;
token := '';
end;

until y = '#';
end;
begin
scan;
readln;
end.

Read More..

Komponen-komponen internal sebuah
flash drive yang

1 Sambungan USB
2 Perangkat pengontrol penyimpanan massal USB
3 Titik-titik percobaan
4 Chip flash memory
5 Oscillator kristal
6 LED

7 Write-protect switch
8 Ruang kosong untuk chip flash memory kedua
Read More..

USB

Apakah USB itu ?
USB adalah singkatan dari Universal Serial Bus. USB merupakan suatu teknologi yang memungkinkan kita untuk menghubungkan alat eksternal (peripheral) seperti scanner, printer, mouse, papan ketik (keyboard), alat penyimpan data (zip drive), flash disk, kamera digital atau perangkat lainnya ke komputer kita. USB sangat mendukung transfer data sebesar 12 Mbps ( juta bit per detik). Komputer (PC) saat ini, umumnya sudah memiliki port USB. Biasanya disediakan minimal 2 port. Jika dibandingkan dengan paralel port dan serial port, penggunaan port USB lebih mudah dalam penggunaannya.
Beberapa keistimewaan USB
 Komputer bisa diposisikan menjadi sebuah host
 Lebih dari 127 perangkat dapat tersambung ke komputer secara langsung maupun menggunakan hub USB
 Kabel USB yang digunakan secara langsung bisa mencapai 5 meter. Sedangkan jika menggunakan perangkat hub bisa mencapai 30 meter.
 Perangkat USB bersifat 'hot swappable' artinya perangkat keras yang sudah menggunakan port USB bersifat plug and play
Kabel USB
Jika dibuka, kabel USB akan terlihat ada 4 warna, yaitu merah, coklat, kuning dan biru. Kabel berwarna merah dan coklat berfungsi sebagai power / untuk arus listrik. Kabel berwarna kuning dan biru berfungsi untuk membawa / mentransfer data.
Cara Menghubungkan USB Flash disk dengan Komputer
Flash disk merupakan salah satu perangkat yang menggunakan USB port untuk menghubungkannya dengan komputer. Flash disk berfungsi sebagai media penyimpanan data. Cara menghubungkan Flash disk ke komputer sangat mudah. Masukkan flash disk tersebut ke port USB yang telah tersedia. Jika komputer kita menggunakan **legal copy** of **legal copy** of windows xp maka secara otomatis Flash disk tersebut akan dikenali. Sedangkan jika kita menggunakan **legal copy** of windows 98 atau **legal copy** of **legal copy** of windows 9x maka biasanya driver Flash tersebut harus terlebih dahulu di install. Setelah Flash disk dikenali kita sudah bisa memulai menyalin data dari / flash disk ke hardisk kita.
Daftar Istilah
Port = tempat untuk memasukkan kabel / peripheral lainnya ke komputer kita.
Peripheral = perangkat / perlengkapan
Hub = Alat untuk menghubungkan dan memperkuat sinyal satu komputer dengan komputer lainnya melalui media kabel
Plug and play = bisa langsung dikenali dan digunakan oleh komputer
Flash disk = media penyimpanan data yang menggunakan teknologi USB. Biasanya besar minimal penyimpanan datanya adalah 128 Mb. Read More..