contoh function key

* F1   –  Fasilitas Bantuan

* F2   –  Mengganti nama file yang dipilih
* F3   –  Membuka kotak pencarian file
* F4   –  Membuka address bar pada Windows Explorer
* F5   –  Refresh tampilan pada Windows Explorer
* F6   –  Menavigasi antara bagian yang berbeda dari jendela Windows Explorer
* F8   –  Membuka menu pembuka saat booting Windows
* F10 –  Mengarahkan fokus ke menu bar.
* F11 –  Membuka modus layar penuh pada Windows Explorer

Read more »

contoh shortcut yang ada di komputer

• [windows] + [E] : Membuka Windows Explorer
• [windows] + [U] : Membuka atau menampilkan Utility Manager
• [windows] + [L] : Mengunci komputer (Lock)
• [windows] + [R] : Membuka RUN
• [windows] + [D] : Mengaktifkan dan mematikan toogle Desktop
• [windows] + [M] : Minimize semua windows yang terbuka
• [windows] + [Shift] + [M] : Restore semua window yang di minimize
• [windows] + [F1] : Membuka Help
• [windows] + [Tab] : Scroll tombol di taskbar
• [windows] + [Break] : Membuka window system properties
• [windows] + [F] : Membuka fungsi Search
• [windows] + [Ctrl] + [F] : Mencari komputer dalam jaringan yang aktif

* CTRL + C (Copy)

* CTRL+X (Cut) CTRL

* CTRL+V (Paste)

* CTRL+Z (Undo)

* DELETE (Hapus)

* SHIFT+DELETE (Menghapus item yang dipilih secara permanen tanpa menempatkan item dalam Recycle Bin)

* CTRL sambil menyeret (men-drag) sebuah item (Menyalin item yang dipilih)

* CTRL + SHIFT sambil menyeret item (Buat cara pintas ke item yang dipilih)

* Tombol F2 (Ubah nama item yang dipilih)

* CTRL + RIGHT ARROW (Memindahkan titik penyisipan (kursor) ke awal kata berikutnya)

* CTRL + LEFT ARROW (Memindahkan titik penyisipan (kursor) ke awal kata sebelumnya)

* CTRL + DOWN ARROW (Memindahkan titik penyisipan (kursor) ke awal paragraf berikutnya)

* CTRL + UP ARROW (Memindahkan titik penyisipan (kursor) ke awal paragraf sebelumnya)

* CTRL + SHIFT dengan salah satu ARROW KEY (Sorot blok teks)

* SHIFT dengan salah satu ARROW KEY (Pilih lebih dari satu item dalam sebuah jendela atau pada desktop, atau pilih teks dalam dokumen) * CTRL + A (Pilih semua)

* Tombol F3 (Mencari sebuah file atau folder)

* ALT + ENTER (Melihat properti untuk item yang dipilih)

* ALT + F4 (Menutup item aktif, atau keluar dari program aktif)

* ALT + ENTER (Menampilkan properti dari objek yang dipilih)

* ALT + SPACEBAR (Buka menu shortcut untuk jendela aktif)

* CTRL + F4 (Menutup dokumen aktif dalam program-program yang memungkinkan Anda untuk memiliki beberapa dokumen yang terbuka secara bersamaan)

* ALT + TAB (Beralih antara item yang terbuka)

* ALT + ESC (Cycle melalui item dalam urutan yang mereka telah dibuka)

* Tombol F6 (Siklus melalui elemen-elemen layar dalam jendela atau pada desktop)

* Tombol F4 (Menampilkan Address bar list di My Computer atau Windows Explorer)

* SHIFT + F10 (Menampilkan menu shortcut untuk item yang dipilih)

* ALT + SPACEBAR (Tampilan menu Sistem untuk jendela aktif)

* CTRL + ESC (Menampilkan menu Start)

* ALT + huruf digarisbawahi dalam nama menu (Menampilkan menu yang sesuai)

* Surat digarisbawahi dalam nama perintah pada menu yang terbuka (Lakukan perintah yang sesuai)

* Tombol F10 (Aktifkan menu bar dalam program aktif)

* ARROW (Buka menu berikutnya ke kanan, atau membuka submenu)

* LEFT ARROW (Buka menu sebelah kiri, atau menutup submenu)

* Tombol F5 (Memperbarui jendela aktif atau merefresh)

* BACKSPACE (Melihat folder satu level ke atas di My Computer atau Windows Explorer)

* ESC (Membatalkan tugas sekarang)

* SHIFT ketika Anda memasukkan CD-ROM ke dalam CD-ROM (Mencegah CD-ROM secara otomatis bermain/autoplay)

Keyboard Shortcuts Dialog Box

* CTRL + TAB (Move forward melalui tab)

* CTRL + SHIFT + TAB (Bergerak mundur melalui tab)

* TAB (Move forward melalui pilihan)

* SHIFT + TAB (Bergerak mundur melalui pilihan)

* ALT + huruf yang digarisbawahi (Lakukan perintah yang sesuai atau pilih opsi yang sesuai)

* ENTER (Lakukan perintah untuk opsi atau tombol aktif)

* SPACEBAR (Pilih atau menghapus kotak centang jika pilihan yang aktif adalah check box)

* Arrow tombols Panah (Pilih sebuah tombol jika pilihan aktif adalah group tombol pilihan)

* Tombol F1 (Menampilkan Help)

* Tombol F4 (Menampilkan item dalam daftar aktif)

* BACKSPACE (Membuka folder satu tingkat ke atas jika folder dipilih dalam Simpan Sebagai atau Buka kotak dialog)

Microsoft Natural Tombolboard Shortcuts Microsoft Natural Tombolboard Shortcuts

* Windows Logo (Menampilkan atau menyembunyikan menu Start)

* Logo Windows + BREAK (Menampilkan System Properties dialog box)

* Logo Windows + D (Menampilkan the desktop)

* Logo Windows + M (Meminimalkan semua jendela)

* Logo Windows + SHIFT + M (Memulihkan jendela yang diminimalkan)

* Logo Windows + E (Membuka My Computer)

* Logo Windows + F (Mencari for a file atau folder)

* CTRL + Windows Logo + F (Mencari for komputer)

* Logo Windows + F1 (Menampilkan Windows Help)

* Logo Windows + L (Mengunci keyboard)

* Logo Windows + R (Membuka kotak dialog Run)

* Logo Windows + U (Membuka Utility Manager)

Accessibility Tombolboard Shortcuts

* Right SHIFT selama delapan detik (Beralih FilterTombols on atau off)

* LEFT ALT + LEFT SHIFT + PRINT SCREEN (Beralih High Contrast on atau off)

* LEFT ALT + LEFT SHIFT + NUM LOCK (Mengaktifkan MouseTombols on atau off)

* SHIFT lima kali (Mengaktifkan StickyTombols on atau off)

* NUM LOCK selama lima detik (Mengaktifkan ToggleTombols on atau off) * Logo Windows + U (Membuka Utility Manager)

Windows Explorer Tombolboard Shortcuts Windows Explorer Tombolboard Shortcuts

* END (Menampilkan bagian bawah jendela aktif)

* HOME (Menampilkan bagian atas jendela aktif)

* NUM LOCK + Asterisk sign (*) (Tampilkan semua subfolder yang berada di bawah folder yang dipilih)

* NUM LOCK + Plus sign (+) (Menampilkan isi dari folder yang dipilih)

* NUM LOCK + Minus sign (-) (Collapse folder yang dipilih)

* LEFT ARROW (Collapse pilihan saat ini jika diperluas, atau pilih folder utama) * RIGHT ARROW (Menampilkan pilihan saat ini, atau pilih subfolder pertama)

Shortcut Tombols for Character Map Tombol pintas untuk Peta Karakter

* Setelah Anda klik dua kali pada grid karakter karakter, Anda dapat bergerak melalui grid dengan menggunakan cara pintas tombolboard:

* RIGHT ARROW (Pindah ke kanan atau ke awal baris berikutnya)

* LEFT ARROW (Pindah ke kiri atau ke akhir baris sebelumnya)

* UP ARROW (Pindah ke atas satu baris)

* DOWN ARROW (Pindah ke bawah satu baris)

* PAGE UP (Pindah ke atas satu layar pada satu waktu)

* DOWN (Pindah ke bawah satu layar pada satu waktu)

* HOME (Pindah ke awal baris) * END (Pindah ke akhir baris)

* CTRL + HOME (Pindah ke karakter pertama)

* CTRL + END (Pindah ke karakter terakhir)

* SPACEBAR (Beralih antara yang lebih besar dan Normal ketika seorang karakter yang dipilih)

Microsoft Management Console (MMC) Main Window Tombolboard Shortcuts:

* CTRL + O (Open yang disimpan konsol)

* CTRL + N (Buka konsol baru)

* CTRL + S (Save the open console)

* CTRL + M (Menambah atau menghapus item konsol)

* CTRL + W (Buka jendela baru)

* F5 tombol (Update konten dari semua jendela konsol)

* ALT + SPACEBAR (Menampilkan menu jendela MMC)

* ALT + F4 (Close the console)

* ALT + A (Menampilkan the Action menu)

* ALT + V (Menampilkan the View menu)

* ALT + F (Menampilkan the File menu)

* ALT + O (Menampilkan the Favorites menu)

Konsol MMC Window Tombolboard Shortcuts

* CTRL + P (Mencetak halaman aktif atau aktif pane)

* ALT + tanda Minus (-) (Menampilkan menu jendela jendela konsol yang aktif)

* SHIFT + F10 (Menampilkan the Action menu shortcut untuk item yang dipilih)

* Tombol F1 (Membuka topik Bantuan, jika ada, untuk item yang dipilih)

* Tombol F5 (Update konten dari semua jendela konsol)

* CTRL + F10 (Memaksimalkan jendela konsol yang aktif)

* CTRL + F5 (Memulihkan jendela konsol yang aktif)

* ALT + ENTER (Menampilkan kotak dialog Properties, jika ada, untuk item yang dipilih)

* Tombol F2 (Ubah nama item yang dipilih)

* CTRL + F4 (Close jendela konsol yang aktif. Ketika sebuah konsol hanya memiliki satu jendela konsol, jalan pintas ini akan menutup konsol)

Remote Desktop Connection Navigation

* CTRL+ALT+END (Open the m*cro$oft Windows NT Security dialog box * ALT + PAGE UP (Beralih antara program dari kiri ke kanan)

* ALT + PAGE DOWN (Beralih antara program dari kanan ke kiri)

* ALT + INSERT (Cycle melalui program-program yang terakhir digunakan)

* ALT + HOME (Menampilkan menu Start)

* CTRL + ALT + BREAK (Beralih komputer klien antara jendela dan layar penuh)

* ALT+DELETE (Menampilkan the Windows menu) ALT + DELETE (Menampilkan the Windows menu)

* CTRL + ALT + Minus sign (-) (Membuat snapshot dari jendela aktif klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan PRINT SCREEN pada komputer lokal.)

* CTRL + ALT + Plus sign (+) (Membuat snapshot dari seluruh area jendela klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan ALT + PRINT SCREEN pada komputer lokal.)

Internet Explorer navigation Internet Explorer navigasi

* CTRL + B (Membuka kotak dialog Atur Favorit)

* CTRL + E (Open the Mencari bar)

* CTRL + F (Start the Find utility)

* CTRL + H (Open the History bar)

* CTRL + I (Open the Favorites bar)

* CTRL + L (Buka kotak dialog Open)

* CTRL + N (Start contoh lain dari browser dengan alamat Web yang sama)

* CTRL + O (Membuka kotak dialog Buka, sama seperti CTRL + L)

* CTRL + P (Membuka kotak dialog Print)

* CTRL + R (Memperbarui halaman Web ini)

* CTRL + W (Close jendela aktif)

Read more »

Stack Ascending bilangan genap dengan menggunakan Pascal

program stackk;
uses crt;
type stack = record
top : 0..100;
isi : array [0..100] of integer;
end;
var s1, s2 : stack;
n1, n2, i, hasil : integer;
procedure inisialisasi (var s:stack);
begin
s.top := 0;
end;
procedure push (var s:stack; x:integer);
begin
s.top := s.top + 1;
s.isi[s.top] := x;
end;
procedure pop(var s:stack; var x:integer);
begin
x := s.isi[s.top];
s.top := s.top - 1;
end;
function cekosong(var s:stack) : boolean;
begin
cekosong := false;
if s.top = 0 then
cekosong := true;
end;
procedure tukar(var p, q : integer);
var r : integer;
begin
r := p;
p := q;
q := r;
end;

begin
inisialisasi(s1); inisialisasi(s2);
write('Masukkan Nilai Pertama : '); readln(n1);
write('Masukkan Nilai Kedua : '); readln(n2);
if n1 > n2 then tukar (n1, n2);
for i := n1 to n2 do
push(s1, i);
repeat
pop(s1,hasil);
if (hasil mod 2 = 0) then
push (s2, hasil);
until cekosong(s1);
write('Urutan Bilangan Genap <Ascending> : ');
repeat
pop (s2, hasil);
write(hasil : 4);
until cekosong(s2);
readln;
end.

silahkan download disini programnya: http://www.4shared.com/file/-vdWtIOp/STACK_Genap_Ascending.html

Read more »

pengolahan citra warna ke kontraks

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
Dim KP As Integer
----------------------------------------------------------------------------------------------------
Sub Contrast()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer, grey As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
   
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
   
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
               
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
           
                '==========Proses Contrast=================
                grey = Int((Red + Green + Blue) / 3)
                Redbaru = KP * (Red - grey) + grey
                Greenbaru = KP * (Green - grey) + grey
                Bluebaru = KP * (Blue - grey) + grey
                If (Redbaru > 255) Then Redbaru = 255
                If (Redbaru < 0) Then Redbaru = 0
                If (Greenbaru > 255) Then Greenbaru = 255
                If (Greenbaru < 0) Then Greenbaru = 0
                If (Bluebaru > 255) Then Bluebaru = 255
                If (Bluebaru < 0) Then Bluebaru = 0
                '===========================================
               
                '====Menampilkan citra=================================
                Picture2.PSet (X, Y), RGB(Redbaru, Greenbaru, Bluebaru)
                '======================================================
            Next
        Next
End Sub

---------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
--------------------------------------------------------------------------------------------------
Private Sub HScroll1_Change()
KP = HScroll1.Value
Label1.Caption = KP
Contrast
End Sub

silahkan download disini:http://www.4shared.com/rar/a3JzMRvK/Contrast.html

Read more »

pengolahan citra warna merubah menjadi kecerahan

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
Dim tambah As Integer
----------------------------------------------------------------------------------------------------
Sub Brightness()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
  
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
  
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
              
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
              
              
                '==========Proses Brightness=================
                    Rednew = Red + tambah
                    Greennew = Green + tambah
                    Bluenew = Blue + tambah
                  
                    If Rednew >= 255 Then Rednew = 255
                    If Rednew <= 0 Then Rednew = 0
                    If Greennew >= 255 Then Greennew = 255
                    If Greennew <= 0 Then Greennew = 0
                    If Bluenew >= 255 Then Bluenew = 255
                    If Bluenew <= 0 Then Bluenew = 0
                '===========================================
              
                '=====Menampilkan Citra====================================
                Picture2.PSet (X, Y), RGB(Rednew, Greennew, Bluenew)
                '==========================================================
              
            Next
        Next
End Sub

-----------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub HScroll1_Change()
tambah = HScroll1.Value
Label1.Caption = tambah
Brightness
End Sub

silahkan download filenya disni:http://www.4shared.com/rar/e_PlmjY9/Brightness.html

Read more »

pengolahan citra warna ke skala keabuan

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
----------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
  
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
  
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
              
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
              
                '===== Mendapatkan grey level =============
                Grey = Int((Red + Green + Blue) / 3)
                '==========================================
              
                '==============Menampilkan citra===========
                Picture2.PSet (X, Y), RGB(Grey, Grey, Grey)
                '==========================================
            Next
        Next
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
End
End Sub

silahkan download filenya disini:http://www.4shared.com/rar/ldSvMPue/greyscale.html

Read more »

pengolahan citra warna digital ke citra invers

Dim DataR() As Integer, DataB() As Integer, DataG() As Integer
--------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim Tinggi As Integer, Lebar As Integer
Dim Red As Integer, Green As Integer, Blue As Integer
Dim X As Integer, Y As Integer
Dim Tot_Pix As Long

    '========= Mendapatkan Tinggi dan Lebar Citra =====
        Tinggi = Picture1.ScaleHeight
        Lebar = Picture1.ScaleWidth
    '==================================================

    '=== PEMESANAN Array Pada Data R,G,B ====
    ReDim DataR(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataG(Lebar, Tinggi) As Integer '(baris,kolom)
    ReDim DataB(Lebar, Tinggi) As Integer '(baris,kolom)
    '========================================
  
    '====Agar Picture 2 Lebar dan tingginya sama dengan Picture 1====
        With Picture2
            .Cls
            .Height = Tinggi
            .Width = Lebar
        End With
    '================================================================
  
    '==== PROSES PENGAMBILAN CITRA ====================
        For X = 0 To Lebar - 1  'kolom
            For Y = 0 To Tinggi - 1  'Baris
                '===== Get Total Pixel =======
                Tot_Pix = Picture1.Point(X, Y)
                '=============================
              
                '===== Get Red, Green, Blue ==
                Red = Tot_Pix And 255
                   'Rekam red
                   DataR(X, Y) = Red
                Tot_Pix = Tot_Pix / 256
                Green = Tot_Pix And 255
                    'Rekam green
                   DataG(X, Y) = Green
                Tot_Pix = Tot_Pix / 256
                Blue = Tot_Pix And 255
                    'Rekam Blue
                   DataB(X, Y) = Blue
                '=============================
              
                '===Proses Invers======================
                Redanyar = 255 - Red
                Greenanyar = 255 - Green
                Blueanyar = 255 - Blue
                 If (Redanyar < 0) Then Redanyar = 0
                 If (Greenanyar < 0) Then Greenanyar = 0
                 If (Blueanyar < 0) Then Blueanyar = 0
                '=======================================
              
                '=====Menampilkan Citra====================================
                Picture2.PSet (X, Y), RGB(Redanyar, Greenanyar, Blueanyar)
                '==========================================================
            Next
        Next
End Sub
----------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
End
End Sub

silahkan download filenya disini :http://www.4shared.com/rar/oqNaxyVW/invers.html

Read more »

Menghitung Pembayaran PDAM menggunakan pascal

copy aja listingnya....

uses crt;
var nama : array [1..100] of string;
gol : array [1..100] of char;
jpemakai,hrgair : array [1..100] of longint;
jpemb : array [1..100] of real;
biayabbn : array [1..100] of longint;
tanggal : array [1..100] of byte;
namamax, namamin : string;
max,min : real;
harga, pela, pelb, pelc: integer;
biaya : longint;
jumdenda, denda : real;
jawab : char; a,b:byte;
begin
clrscr;
writeln('Data Pelanggan PDAM Kota Makassar');
writeln('---------------------------------');
a:=1;
repeat
write('Input Nama Pelanggan : '); readln(nama[a]);
write('Input Golongan Meter [A,B,C] : '); readln(gol[a]);
write('Input Jumlah Pemakaian : '); readln(jpemakai[a]);
write('Input Tanggal pembayaran : '); readln(tanggal[a]);

hrgair[a]:=0;
biayabbn[a]:=0;
jpemb[a]:=0;
if ((gol[a]='a') or (gol[a]='A')) then
begin
harga :=3000;
biaya :=30000;
pela :=pela+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=1) and (tanggal[a]<11)) then
denda:=0
else
begin
denda :=0.05*jpemb[a];
jumdenda :=jumdenda+1;
end;
jpemb[a] :=jpemb[a]+denda;
end
else if ((gol[a]='b') or (gol[a]='B')) then
begin
harga :=4000;
biaya :=40000;
pelb :=pelb+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=11)and(tanggal[a]<21)) then
denda:=0
else
begin
denda :=0.05*jpemb[a];
jumdenda :=jumdenda+1;
end;
jpemb[a] :=jpemb[a]+denda;
end
else if ((gol[a]='c') or (gol[a]='C')) then
begin
harga :=5000;
biaya :=50000;
pelc :=pelc+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=21)and(tanggal[a]<=31)) then
denda:=0
else
begin
denda :=0.5*jpemb[a];
jumdenda :=jumdenda+denda;
end;
jpemb[a] :=jpemb[a]+denda;
end;
inc (a);
write('Ingin menginput data lagi[Y|T] : '); readln(jawab);
until((jawab='T') or (jawab='t'));

dec (a);
max := jpemb[1];
min := jpemb[1];
namamax := nama[1];
namamin := nama[1];
for b:=2 to a do
begin
if jpemb[b] < min then
begin
min := jpemb[b];
namamin := nama[b];
end;
if jpemb[b] > max then
begin
max := jpemb[b];
namamax := nama[b];
end;
end;

writeln('Daftar Pelanggan PDAM Kota Makassar');
writeln;
writeln('No. Nama Gol.Meter Biaya Beban Harga Air Jml. Pembayaran');
writeln('-----------------------------------------------------------------------');
for b:=1 to a do
writeln(b,nama[b]:7,gol[b]:10,biayabbn[b]:17,hrgair[b]:18,' ',jpemb[b]:0:0);
writeln('-----------------------------------------------------------------------');
writeln;
writeln;
writeln('Jumlah Pelanggan Golongan A : ',pela);
writeln('Jumlah Pelanggan Golongan B : ',pelb);
writeln('Jumlah Pelanggan Golongan C : ',pelc);
writeln('Total Jumlah Denda Rp.',jumdenda:0:0);
writeln('Nama Pelanggan dengan Pembayaran Terbesar : ',namamax);
writeln('Nama Pelanggan dengan Pembayaran Terkecil : ',namamin);
readln;
end.

Read more »

membuat FROM dengan edit plus

<html>
<head><title></title></head>
<body><center>
<form method='post'>
<caption><h3><u>Add Data User</u></h3></caption><br><br>
<table>
  <tr style='color:blue'>
    <td>Nama User</td>
    <td>:</td>
    <td><input type='Text' name='user' size='15'></td>
  </tr>
      <tr style='color:blue'>
        <td>Status User</td>
        <td>:</td>
        <td><input type='radio' name='status'>Aktif <input type='radio' name='status'>Tidak Aktif</td>
      </tr>
        <tr style='color:blue'>
          <td>Username</td>
          <td>:</td>
          <td><input type='text' name='username' size='15'></td>
        </tr>
          <tr style='color:blue'>
            <td>Password</td>
            <td>:</td>
            <td><input type='text' name='paspor' size='10'></td>
          </tr>
             <tr style='color:blue'>
               <td>Konfirmasi Password&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
               <td>:</td>
               <td><input type='text' name='konfir' size='10'></td>
             </tr>
                <tr style='color:blue'>
                  <td>Jenis User</td>
                  <td>:</td>
                  <td><select name='jenisuser' size='1'>
                      <option selected> -- pilih -- </option>
                      <option>Admin</option>
                      <option>Operator</option>
                      <option>Pimpinan</option>
                      <option>User</option></td>
               </tr>
                  <tr style='color:blue'>
                    <td>Hak Akses</td>
                    <td>:</td>
                    <td><select name='hakakses'>
                        <option selected> -- pilih -- </option>
                        <option>Admin</option>
                        <option>Entri Data</option>
                        <option>Print Data</option></td>
                  </tr>
                    <tr style='color:blue'>
                      <td>Alamat</td>
                      <td>:</td>
                      <td><input type='text' name='alamat'></td>
                   </tr>
                      <tr style='color:blue'>
                        <td>No Telepon</td>
                        <td>:</td>
                        <td><input type='text' name='telpon'></td>
                      </tr>
                        <tr style='color:blue'>
                          <td colspan='4' align='right'><input type='submit' name='simpan' value='Simpan'><input type='reset' name='reset' value='Reset'><input type='reset' name='batal' value='Batal'></td>              
                        </tr>
</table>
</form> 
</body>
</html>
tinggal tambah backgrounnya saja

Read more »