Program Pascal Bayar SPP

program bayar_spp;
uses wincrt;
var
nomor, tanggal, bulan, tahun : integer;
nama, tempat : string;
bspp, biaya, bayar, sisa : real;


     procedure isi;
     begin
     clrscr;
     write ('Nomor                : '); readln (nomor);
     write ('Nama                 : '); readln (nama);
     write ('Tempat lahir         : '); read (tempat);
     write ('Tanggal lahir        : '); read (tanggal, bulan, tahun);
     end;
begin
     isi;

     if tanggal > 31  then
     begin
     writeln ('Format tanggal salah!');
     readln;
     isi;
     end;

     if bulan > 12 then
     begin
     writeln ('Format bulan salah!');
     readln;
     isi;
     end;

     if (tahun < 1994) and (tahun > 1998) then
     begin
     writeln ('Format tahun salah!');
     readln;
     isi;
     end;

     write ('Bayar SPP/bulan      : '); readln (bspp);
     writeln ('Besar biaya          : ', bspp:0:0);
     write ('Bayar                : '); readln (bayar);
     sisa:=(bayar)-(bspp);
     write ('Sisa                 :', sisa:0:0);
end.

Contoh Screenshotnya :

Read More

Cara Mudah Membuat Tabel di HTML

Assalamu'alaikum..

Kali ini ane mau ngepost tentang membuat tabel di HTML. langsung saja kita simak gaan !!

Tag yang digunakan untuk membuat tabel di HTML sebenarnya hanya 3 saja, yaitu :

<table> </table>, <tr> <tr/>, dan <td> </td>.

Penjelasan:

Tag <table> menunjukkan bagian awal dari tabel dan tag </table> menunjukkan akhir dari tabel.

Tag <tr> menunjukkan awal baris dan tag <tr/> menjukkan akhir baris.

Tag <td> menunjukkan awal kolom dan tag </td> menunjukkan akhir kolom.

CATATAN :

Sebuah tabel HTML minimal memiliki sepasang tag <table>, sepasang tag <tr> dan atu pasang tag <td>. Sementara setiap tag <td> selalu diapit oleh tag <tr>.

Bentuk Minimal Tabel HTML :

<table>

<tr>

<td> . . . </td>

</tr>

</table>

Contoh Tabel Sederhana :

Tuliskan kode html dibawah ini di text editor Anda(saya menggunakan gedit). Simpan dengan nama

tabel.html

<table border="1">

<tr>

<td> isi kolom 1 baris 1</td>

<td> isi kolom 2 baris 1</td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

<td> isi kolom 2 baris 2</td>

</tr>

</table>

Buka file tabel.html dengan browser(Saya menggunakan Mozilla Firefox). Maka hasilnya menjadi seperti ini :

Jika Anda ingin menghilangkan garis di tabel cukup dengan mengganti nilai border menjadi 0. Jika atribut border tidak disertakan maka tabel dianggap memiliki border dengan nilai 0.

<table border="0">

<tr>

<td> isi kolom 1 baris 1</td>

<td> isi kolom 2 baris 1</td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

<td> isi kolom 2 baris 2</td>

</tr>

</table>

Maka saat di buka di browser hasilnya akan menjadi :

Cara Menggabungkan Kolom di Tabel HTML

TIPS :

Saat Anda ingin menggabungkan kolom atau baris, sebaiknya sertakan border=”0” di bagian tabel. Ini berfungsi untuk mengetahui apakah tabel yang kita inginkan sudah sesuai atau belum. Jika sudah sesuai border bisa di hapus dengan cara mengubar nilai border menjadi 0 atau menghapus tag border=”0” dari tag <table>. Jika ingin tetap menggunakan border maka tidak perlu merubah apapun.

     - - - - - - -

Contoh Kasus Menggabungkan Kolom :

Misalnya kita ingin menggabungkan 3 kolom menjadi satu. Namun kolom yang lain tetap.

Formatnya adalah :

<td colspan=”jumlah kolom yang ingin disatukan”> ... </td>

Contoh tabel yang belum disatukan(belum di colspan) kolomnya berdasarkan kasus diatas :

<table border="1">

<tr>

<td> 3 kolom jadi satu </td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

<td> isi kolom 2 baris 2</td>

<td> isi kolom 3 baris 2</td>

</tr>

</table>

Berikut ini hasil tabel yang belum di colspan kolomnya :

Untuk menggabungkan 3 kolom di baris pertama pada tabel maka kita harus mengubah kode HTML tabel diatas menjadi seperti ini :

<table border="1">

<tr>

<td colspan="3"> 3 kolom jadi satu </td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

<td> isi kolom 2 baris 2</td>

<td> isi kolom 3 baris 2</td>

</tr>

</table>

Maka hasilnya akan menjadi seperti ini :

Cara Menggabungkan Baris di Tabel HTML

Misalnya kita ingin menggabungkan 2 baris terakhir menjadi satu. Namun baris yang lain tetap.

Formatnya adalah :

<td rowspan=”jumlah baris yang ingin disatukan”> ... </td>

Contoh tabel yang belum disatukan barisnya(belum di rowspan) berdasarkan kasus diatas :

<table border="1">

<tr>

<td> isi kolom 1 baris 1 </td>

<td> 2 baris jadi satu</td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

</tr>

</table>

Berikut ini hasil tabel yang barisnya belum disatukan(belum di rowspan barisnya) :

Untuk menggabungkan 2 baris di kolom ke-2 pada tabel maka kita harus mengubah kode HTML tabel

diatas menjadi seperti ini :

<table border="1">

<tr>

<td> isi kolom 1 baris 1 </td>

<td rowspan=”2”> 2 baris jadi satu</td>

</tr>

<tr>

<td> isi kolom 1 baris 2</td>

</tr>

</table>

Maka hasilnya akan menjadi seperti ini :

Perataan Tabel di HTML

Untuk melakukan pengaturan perataan tabel, kita harus menambahkan atribut align pada tag <table>. Nilai atribut align adalah left, center, dan right. Tuiskan kode HTML dibawah ini dan simpan dengan nama perataantabel.html

<table border="1" align="center">

<tr>

<td> align center </td>

<td> align center </td>

</tr>

<tr>

<td> align center </td>

<td> align center </td>

</tr>

</table>

<br/> <br/>

<table border="1" align="right">

<tr>

<td> align right </td>

<td> align right </td>

</tr>

<tr>

<td> align right </td>

<td> align right </td>

</tr>

</table>

<br/> <br/>

<table border="1" align="left">

<tr>

<td> align left </td>

<td> align left </td>

</tr>

<tr>

<td> align left </td>

<td> align left </td>

</tr>

</table>

Maka hasilnya jika dilihat menggunakan browser akan seperti berikut ini :

Pengaturan Tinggi dan Lebar Tabel di HTML

Agar lebar atau tinggi tabel tidak berubah-ubah, kita dapat menentukan ukuran Tinggi dan Lebar tabel. Caranya dengan menambahkan atribut height untuk nilai tinggi tabel sedangkan width untuk menyimpan nilai lebar tabel. Nilai tinggi dan lebar dalam satuan pixels.

Simpan kode HTML berikut ini dengan nama tinggidanlebartabel.html

<table height="150" width="400" border="1">

<tr>

<td> isi tabel </td>

<td> isi tabel </td>

</tr>

<tr>

<td> isi tabel </td>

<td> isi tabel </td>

</tr>

</table>

Maka akan menghasilkan tabel dengan tinggi 150px dan lebar 400px seperti dibawah ini :

Mengatur Tinggi dan Lebar Kolom Tabel HTML

Untuk mengatur tinggi dan lebar kolom kita tinggal menyisipkan atribut height untuk tinggi kolom dan atribut width untuk lebar kolom di tag <td>. Nilai tinggi dan lebar dalam satuan pixels.

Simpan kode dibawah ini dengan nama tinggidanlebarkolom.html

<table width="400" border="1">

<tr>

<td align="left" width="200" height="100"> align left </td>

<td align="center"> align center </td>

<td align="right"> align right </td>

</tr>

</table>

Hasilnya jika dibuka dibrowser akan seperti berikut ini :

CATATAN : Jika Kolom A tingginya 70px maka kolom B dan C akan ikut menjadi 70 tingginya meskipun tidak diatur tingginya. Tinggi kolom akan mengkikuti tinggi salah satu kolom yang tertinggi. Hal ini tidak berlaku untuk lebar kolom.

Mengatur Perataan Kiri Kanan Kolom Tabel HTML

Untuk meratakan kolom secara kiri kanan kita tinggal menyisipkan atribut align di tag <td>.

Formatnya sebagai berikut :

<td align=”jenis perataan”> . . .</td>

silahkan simpan kode di berikut dengan nama perataankikakolom.html

<table width="500" height="50" border="1">

<tr>

<td align="left"> align left </td>

<td align="center"> align center </td>

<td align="right"> align right </td>

</tr>

</table>

Hasil perataan saat dibuka melalui browser akan seperti berikut ini :

Mengatur Perataan Atas Bawah Kolom Tabel HTML

Untuk meratakan kolom kita tinggal menyisipkan atribut valign di tag <td>. Formatnya sebagai

berikut :

<td valign=”jenis perataan”> . . .</td>

silahkan simpan kode di berikut dengan nama perataanabkolom.html

<table width="500" height="150" border="1">

<tr>

<td valign="top"> vertical align top </td>

<td valign="center"> vertical align center </td>

<td valign="bottom"> vertical align bottom </td>

</tr>

</table>

Hasil perataan saat dibuka lewat browser seperti berikut ini :

Contoh tabel di HTML yang saya buat seperti ini :

<html>

<head>

<title> Perkenalken </title>

</head>

<body>

<table width="600" height="300" border="1" width="75%">

<tr>

<td colspan="2" align="center"> <marquee><b>Bakal Calon Sarjana Komputer</marquee></b></td>

<td rowspan="5"> <img src="27811_1201679341861_4614819_n.jpg” width="300" height="200"></td>

</tr>

<tr>

<td bgcolor="FF9F55"> Nama</td>

<td> Muhammad Hissamudin</td>

</tr>

<tr>

<td bgcolor="FF9F55"> Tempat Tanggal Lahir</td>

<td> Tasikmalaya, 06 Mei 1994</td>

</tr>

<tr>

<td bgcolor="FF9F55"> Alamat</td>

<td> Jl. Sukamulya Bungursaru-Tasikmalaya</td>

</tr>

</table>

</body>

</html>

dan hasilnya :

Masih banyak lagi tentang HTML yang belum kita kupas secara tajam .. Semoga bermanfaat dan terimakasih sudah mengunjungi blog ane ! sering sering aja yah !! hehe

Wassalamu'alaikum..

Read More

Program Pascal (Membuat Program Sekolah)

Assalamu'alaikum..

agan agan disini ane akan mengulas sedikit tentang program aplikasi sederhana dengan menggunakan bahasa pascal. Ini dibuat waktu ane memenuhi tugas kelompok.. yang ini nih listing codenya :

1. Listing program

program sekolah;
uses wincrt;
var
   pilihan : string;
   again : char;

procedure datasiswa;

var
   nama,jns,tempat,alamat,asalsekolah,tkelas : string;
   tgl,bln,thn:integer;
   nis:longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Siswa');
     writeln('______________________________________________');
     writeln;
     write('NIS                  : ');readln(nis);
     write('Nama                 : ');readln(nama);
     write('Jenis Kelamin        : ');readln(jns);

     if (jns='Laki-Laki') or (jns='LAKI-LAKI') or (jns='PEREMPUAN')
     or (jns='laki-laki') or (jns='perempuan') or (jns='Perempuan')
     or (jns='pria') or (jns='Pria') or (jns='PRIA')
     or (jns='wanita') or (jns='Wanita') or (jns='WANITA') then
     begin
     write('Tempat Lahir         : ');readln(tempat);
     write('Tanggal Lahir (masukan angka)       : ');readln(tgl);

     case tgl of         
     1..31:begin
            write('Bulan Lahir (masukan angka)         : ');readln(bln);
            end;
     end;

     case bln of
     1..12:begin
            write('Tahun Lahir (4 dijit angka)         : ');readln(thn);
            end;
     end;

     case thn of
     1990..2000:begin
                write('Alamat               : ');readln(alamat);
                write('Asal Sekolah         : ');readln(asalsekolah);
                write('Kelas                : ');readln(tkelas);
                end;
     0..1989:writeln('Maaf inputan tidak diperkenankan');
     2001..3000:writeln('Maaf inputan tidak diperkenankan');
     end;
   
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';
    
end;

procedure data_guru;

var
   nm_guru, jk_guru, a_guru, mp_guru, kd_pel, no_guru : string;
   nip_guru : longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Guru');
     writeln ('______________________________________________');
     write (' Masukan NIP guru       : '); readln (nip_guru);
     write (' Masukan nama guru      : '); readln (nm_guru);
     write (' Jenis kelamin          : '); readln (jk_guru);

     if (jk_guru='Laki-Laki') or (jk_guru='LAKI-LAKI') or (jk_guru='PEREMPUAN')
     or (jk_guru='laki-laki') or (jk_guru='perempuan') or (jk_guru='Perempuan')
     or (jk_guru='pria') or (jk_guru='Pria') or (jk_guru='PRIA')
     or (jk_guru='wanita') or (jk_guru='Wanita') or (jk_guru='WANITA') then
     begin
     write (' Alamat guru            : '); readln (a_guru);
     write (' Nomor telepon guru     : '); readln (no_guru);
     write (' Masukan kode pelajaran : '); readln (kd_pel);

     if kd_pel = 'PEL001' then
        mp_guru := 'Matematika'
     else
     if kd_pel = 'PEL002' then
        mp_guru := 'Bahasa Indonesia'
     else
     if kd_pel = 'PEL003' then
        mp_guru := 'Bahasa Inggris'
     else
     if kd_pel = 'PEL004' then
        mp_guru := 'IPA'
     else
     if kd_pel = 'PEL005' then
        mp_guru := 'IPS'
     else
     if kd_pel = 'PEL006' then
        mp_guru := 'PAI'
     else
     if kd_pel = 'PEL007' then
        mp_guru := 'PKn'
     else
         mp_guru := 'Kode Tidak Valid';
    
     writeln (' Mata pelajaran         : ',mp_guru);
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';

end;

procedure nilai;

var
   nm,grade : string;
   npm:longint;
   khdrn,uts,uas,tgs,jml_nil : real;
   a,n : integer;

begin
     repeat
     clrscr;
     writeln('             Input Nilai Siswa');
     writeln ('______________________________________________');
     write('NPM            : ');readln(npm);
     write('NAMA           : ');readln(nm);
     write('Nilai Kehadiran (batas min nilai = 0, batasan max nilai = 100) : ');readln(khdrn);
     write('Nilai Tugas (batas min nilai = 0, batasan max nilai = 100) : ');readln(tgs);
     write('Nilai UTS (batas min nilai = 0, batasan max nilai = 100) : ');readln(uts);
     write('Nilai UAS  (batas min nilai = 0, batasan max nilai = 100) : ');readln(uas);
     jml_nil:=(khdrn+tgs+uts+uas)/4;
     writeln('Nilai rata-rata: ',jml_nil:0:0);
  
     if jml_nil >= 90 then
        grade:='A'
     else
     if jml_nil > 80 then
        grade:='B'
     else
     if jml_nil > 60 then
        grade:='C'
     else
     if jml_nil > 50 then
        grade:='D'
     else
        grade:='E';

     writeln('Grade          : ',grade);
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';


end;

begin
     clrscr;
     writeln('SMK Plus YSB PP. Suryalaya');
     writeln('__________________________');
     writeln;
     writeln;
     writeln('           MENU');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     writeln('A. Data Siswa');
     writeln('B. Data Guru');
     writeln('C. Data Nilai Siswa');
     writeln('K. Keluar');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     write('Pilih Menu : ');readln(pilihan);

     if (pilihan='A') or (pilihan='a') then
        datasiswa
     else
     if (pilihan='B') or (pilihan='b') then
        data_guru
     else
     if (pilihan='C') or (pilihan='c') then
        nilai
     else
     if (pilihan='K') or (pilihan='k') then
        donewincrt;

end.


2. berikut tampilannya

3. Flowchart 

Sekian ulasan dari ane. makasih udah mampir di blognya :D

semoga bermanfaat !!

Wassalamu'alaikum...

Read More