untuk menghadapi kasus ini, maka diperukan sebuah sistem yang memiliki login multi user. sehingga bisa dibedakan, user sebagai admin, siswa, guru atau yang lainnya. berikut adalah salah satu contoh solusi sederhana login multi user.

dengan spesifikasi memakai database MS access 2003, 2 user yaitu guest dan admin, dan dibuat menggunakan delpi7.

source untuk login :

———————————-begin————————
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
if combobox1.Text=’Admin’ then
begin
SQL.Clear;
sql.Add(’select * from admin where username=”‘+edit1.Text+’”‘);
open;
if adoquery1.RecordCount <> 0 then
begin
if adoquery1.FieldByName(’passwd’).AsString = edit2.Text then
begin
Application.MessageBox(’Anda berhasil login sebagai administrator.’,'Selamat Datang’);
end
else
begin
Application.MessageBox(’Maaf, Password yang anda masukkan salah.’,'Perhatian!’);
end;
end
else
begin
Application.MessageBox(’Username anda tidak ditemukan.’,'Perhatian!’);
end;
end;
if combobox1.Text=’Guest’ then
begin
SQL.Clear;
sql.Add(’select * from guest where username=”‘+edit1.Text+’”‘);
open;
if adoquery1.RecordCount <> 0 then
begin
if adoquery1.FieldByName(’passwd’).AsString = edit2.Text then
begin
Application.MessageBox(’Anda berhasil login sebagai guest.’,'Selamat Datang’);
end
else
begin
Application.MessageBox(’Maaf, Password yang anda masukkan salah.’,'Perhatian!’);
end;
end
else
begin
Application.MessageBox(’Username anda tidak ditemukan.’,'Perhatian!’);
end;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.
————————————————-end———————————-

silakan download source lengkapnya di

disini

String:=''+string1+' '+string2+'';

namun bagaimana jika kita hendak memisahkan lagi 2 string yang telah digabung tersebut untuk keperluan edit data atau keperluan lainnya?? itu lah yang agak merepotkan..

hal seperti ini baru saja saya alami. dimana biasanya saya hanya memakai datetimepicker untuk menyajikan data berupa tanggal. Namun kemarin, saya diminta untuk menyajikan tanggal dalam bentuk 3 combobox. sebut saja masing-masing dengan cbhari, cbbulan, dan cbtahun. user menginputkan dengan 3 combobox tersebut lalu data tanggal disimpan dalam 1 field bernama tanggal (proses penggabungan string) dan jika suatu saat diperlukan edit data tanggal, maka tanggal yang tadinya telah disimpan menjadi 1 string harus dipisah lagi menjadi 3 substring tanggal. yaitu untuk hari, bulan, dan tahun. contoh:

user input tanggal :
cbhari=7
cbbulan=April
cbtahun=1999

kemudian data disimpan menjadi 7/April/1999. dan jika dibutuhkan edit, maka String 7/April/1999 harus dipisah lagi menjadi:
cbhari=7
cbbulan=April
cbtahun=1999

o iya, disini dipakai pemisah/delimiter tanda ‘/’ sebenarnya bisa juga memakai spasi,’;', atau tanda lainya…

berikut source lengkapnya..

——————————begin—————————
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Button1: TButton;
Button4: TButton;
Button2: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=”+combobox1.Text+’/'+combobox2.Text+’/'+combobox3.Text+”;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
s: string;
sl: TStringList;

begin
sl := TStringList.Create;
s := edit1.Text;
sl.Delimiter := ‘/’;
sl.DelimitedText := s;
combobox4.Text:=sl[0];
combobox5.Text:=sl[1];
combobox6.Text:=sl[2];
//ShowMessage(sl[0]);
end;
end.

————————————end———————————-

dan untuk memudahkan anda, silakan download source code lengkapnya di :

disini

anda disarankan untuk memahami konsep-konsep dasar pemrograman sebelum mencoba untuk menjalankan aplikasi ini. kalau belum, pada akhirnya juga akan mengatakan “program apa ini?? ngawur si admin. program ga bisa dijalankan nekat di upload pula”. karena saya banyak menerima komentar serupa, berkaitan dengan source code yang saya upload. sedangkan, saya pastikan bahwa semua source code bisa di compile atau dijalankan dengan baik.

oke, sekali lagi, mohon dipelajari algoritma dan code nya. jadi jangan asal copy-paste.

chatserver.java

—————————-begin—————————————

import java.net.*;
import java.io.*;

public class chatserver
{
public static void main(String args[]) throws Exception
{
ServerSocket ss=new ServerSocket(2000);
System.out.println(”Menunggu Klien mengirim pesan pertama, klien yang harus pertama kali mengirim pesan…”);
System.out.println(”* chat dilakukan 2 arah, server klien, n bergantian kirim pesan.”);
Socket sk=ss.accept();
System.out.println(”Klien telah masuk. happy chat! untuk berhenti, ketik stop pada klien.\n\n”);
BufferedReader cin=new BufferedReader(new InputStreamReader(sk.getInputStream()));
PrintStream cout=new PrintStream(sk.getOutputStream());
BufferedReader stdin=new BufferedReader(new InputStreamReader(System.in));
String s;
while ( true )
{
s=cin.readLine();
if (s.equalsIgnoreCase(”stop”))
{
cout.println(”Bye”);
break;
}
System. out.print(”Client : “+s+”\n”);
System.out.print(”Server : “);
s=stdin.readLine();
cout.println(s);
}
ss.close();
sk.close();
cin.close();
cout.close();
stdin.close();
}
}

—————————————end———————————–

chatclient.java

——————————-begin———————

import java.net.*;
import java.io.*;

public class chatclient
{
public static void main(String args[]) throws Exception
{
Socket sk=new Socket(”localhost”,2000);
BufferedReader sin=new BufferedReader(new InputStreamReader(sk.getInputStream()));
PrintStream sout=new PrintStream(sk.getOutputStream());
BufferedReader stdin=new BufferedReader(new InputStreamReader(System.in));
String s;
while ( true )
{
System.out.print(”Client : “);
s=stdin.readLine();
sout.println(s);
s=sin.readLine();
System.out.print(”Server : “+s+”\n”);
if ( s.equalsIgnoreCase(”Bye”) )
break;
}
sk.close();
sin.close();
sout.close();
stdin.close();
}
}
————————————–end——————————

jika anda ingin yang lebih mudah, tanpa copy paste, saya sediakan link download untuk 2 source code diatas. namun ingat, palajari! jangan asal copas. berikut link download nya:

download disini

1. char charAt(int index)
- Mengembalikan sebuah karakter pada index tertentu.
- Parameter index adalah index dari karakter mulai dari 0 sampai jumlah karakter – 1.
- Error IndexOutOfBoundsException terjadi bila parameter index negatif atau tidak kurang dari
jumlah karakter.

2. int compareTo(Object o)
- Membandingkan string ini dengan object lain.
- Jika object merupakan string maka metode ini bersifat seperti compareTo(String).
- Nilai kembalian 0 bila argumen‐nya sama dengan string ini.
- Nilai kembalian negatif bila argumen‐nya lebih besar dari string ini.
- Nilai kembalian positif bila argumen‐nya lebih kecil dari string ini.
- Error ClassCastException terjadi bila argumen bukan string.

3. int compareTo(String anotherString)
- Membandingkan string ini dengan string yang lain.
- Nilai kembalian 0 bila argumen‐nya sama dengan string ini.
- Nilai kembalian negatif bila argumen‐nya lebih besar dari string ini.
- Nilai kembalian positif bila argumen‐nya lebih kecil dari string ini.

4. int compareToIgnoreCase(String str)
- Membandingkan string ini dengan string yang lain tanpa memperhatikan besar kecilnya karakter.
- Nilai kembalian 0 bila argumen‐nya sama dengan string ini.
- Nilai kembalian negatif bila argumen‐nya lebih besar dari string ini.
- Nilai kembalian positif bila argumen‐nya lebih kecil dari string ini.

5. String concat(String str)
- Menyambung string ini dengan argumen‐nya.
- Nilai yang dikembalikan adalah string hasil penyambungan di atas.

6. boolean contentEquals(StringBuffer sb)
- Mengembalikan nilai true jika string ini merepresentasikan deretan karakter yang sama dengan
argumen StringBuffer sb.

7. static String copyValueOf(char[] data)
- Mengembalikan string yang merepresentasikan deretan karakter dalam array tertentu.

8. static String copyValueOf(char[] data, int offset, int count)
- Mengembalikan string yang merepresentasikan deretan karakter dalam array tertentu.
- offset adalah index awal dari array data yang akan di‐copy menjadi string.
- count adalah panjang dari subarray yang akan di‐copy.

9. boolean endsWith(String suffix)
- Menguji apakah String ini diakhiri oleh string suffix.

10. boolean equals(Object anObject)
- Membandingkan string ini dengan object lain.
- Mengembalikan nilai true jika argumen tidak null dan object string sama dengan string ini.

11. boolean equalsIgnoreCase(String anotherString)
- Sama dengan no.10, hanya saja pada metode ini mengabaikan huruf kapital atau kecil.

12. byte[] getBytes()
- Meng‐encode string ini ke dalam array of byte menggunakan karakter set bawaan platform‐nya.

13. void getBytes(int srcBegin, int srcEnd, byte[] dst, int dstBegin)
- Mengambil data byte dari string ini dimulai dari karakter dengan index srcBegin sampai index
srcEnd – 1.
- Data byte disimpan dalam array dst dimulai pada index dstBegin.

14. byte[] getBytes(String charsetName)
- Meng‐encode string ini ke dalam array of byte menggunakan karakter set tertentu.

15. void getChars(int srcBegin, int srcEnd, char[] dst, int dstBegin)
- Mengambil data karakter dari string ini dimulai dari karakter dengan index srcBegin sampai index
srcEnd – 1.
- Karakter yang didapat disimpan dalam array dst dimulai pada index dstBegin.

16. int hashCode()
- Mengembalikan nilai hash code dari string ini.

17. int indexOf(int ch)
- Mengembalikan index dari karakter ch yang pertama ditemukan dalam string ini.
- Bila karakter tidak ditemukan, maka dikembalikan nilai ‐1.

18. int indexOf(int ch, int fromIndex)
- Mengembalikan index dari karakter ch yang pertama ditemukan dalam string ini dimulai dari index
tertentu.
- Bila karakter tidak ditemukan, maka dikembalikan nilai ‐1.

19. int indexOf(String str)
- Mengembalikan index dari string str yang pertama ditemukan dalam string ini.
- Bila string tidak ditemukan, maka dikembalikan nilai ‐1.

20. int indexOf(String str, int fromIndex)
- Mengembalikan index dari string str yang pertama ditemukan dalam string ini dimulai dari index
tertentu.
- Bila string tidak ditemukan, maka dikembalikan nilai ‐1.

21. String intern()
- Mengembalikan representasi kanonik dari string ini.

22. int lastIndexOf(int ch)
- Mengembalikan index dari karakter ch yang terakhir ditemukan dalam string ini.
- Bila karakter tidak ditemukan, maka dikembalikan nilai ‐1.

23. int lastIndexOf(int ch, int fromIndex)
- Mengembalikan index dari karakter ch yang terakhir ditemukan dalam string ini dimulai dari index
tertentu.
- Bila karakter tidak ditemukan, maka dikembalikan nilai ‐1.

24. int lastIndexOf(String str)
- Mengembalikan index dari string str yang terakhir ditemukan dalam string ini.
- Bila string tidak ditemukan, maka dikembalikan nilai ‐1.

25. int lastIndexOf(String str, int fromIndex)
- Mengembalikan index dari string str yang terakhir ditemukan dalam string ini dimulai dari index
tertentu.
- Bila string tidak ditemukan, maka dikembalikan nilai ‐1.

26. int length()
- Mengembalikan nilai panjang string / jumlah karakter dari string ini.

27. boolean matches(String regex)
- Mengembalikan nilai true bila ekspresi reguler yang dilewatkan sebagai parameter cocok dengan
string ini.

28. boolean regionMatches(boolean ignoreCase, int toffset, String other, int ooffset, int len)
- Membandingkan apakah dua buah region string sama.
- Bila ignoreCase false, maka akan diabaikan huruf kapital atau kecil dalam perbandingan.
- tooffset merupakan index awal dari string ini yang akan dibandingkan.
- other merupakan string yang akan dibandingkan.
- ooffset merupakan index awal dari string other yang akan dibandingkan.
- len merupakan jumlah karakter yang akan dibandingkan.

29. boolean regionMatches(int toffset, String other, int ooffset, int len)
- Sama dengan metode no.28, hanya saja nilai ignoreCase dianggap false.

30. String replace(char oldChar, char newChar)
- Mengembalikan string baru yang dihasilkan setelah mengganti semua karakter oldChar yang
ditemukan dari string ini dengan karakter newChar.

31. String replaceAll(String regex, String replacement)
- Mengganti setiap substring dari string ini yang cocok dengan string regex dengan string replacement
yang diberikan.

32. String replaceFirst(String regex, String replacement)
- Mengganti substring pertama dari string ini yang cocok dengan string regex dengan string
replacement yang diberikan.

33. String[] split(String regex)
- Memecah string ini ke dalam sebuah array berdasarkan regex yang diberikan.

34. String[] split(String regex, int limit)
- Memecah string ini ke dalam sebuah array berdasarkan regex yang diberikan.
- Limit merupakan jumlah bagian pecahan yang dinginkan.
- Bila limit bernilai negatif, maka string akan dipecah sebanyak kemungkinan yang bisa.
- Bila limit bernilai 0, maka hasil pecahan yang berupa string kosong pada akhir‐akhir tidak akan
dimasukan dalam array.

35. boolean startsWith(String prefix)
- Menguji apakah String ini diawali oleh string prefix.

36. boolean startsWith(String prefix, int toffset)
- Menguji apakah String ini diawali oleh string prefix dimulai dari index toffset.

37. CharSequence subSequence(int beginIndex, int endIndex)
- Mengembalikan sebuah deret karakter baru yang merupakan sub deret dari deret karakter ini
(pada hakikatnya string merupakan deret karakter).

38. String substring(int beginIndex)
- Mengembalikan sebuah string baru yang merupakan bagian dari string ini, dimulai dari karakter
dengan index tertentu sampai akhir string.

39. String substring(int beginIndex, int endIndex)
- Mengembalikan sebuah string baru yang merupakan bagian dari string ini, dimulai dari karakter
dengan index tertentu sampai index endIndex – 1.

40. char[] toCharArray()
- Mengkonversi string ini ke dalam array karakter.

41. String toLowerCase()
- Mengkonversi semua karakter menjadi huruf kecil.

42. String toLowerCase(Locale locale)
- Mengkonversi semua karakter menjadi huruf kecil menggunakan aturan transformasi tertentu.

43. String toString()
- Mengembalikan string ini sendiri.

44. String toUpperCase()
- Mengkonversi semua karakter menjadi huruf besar.

45. String toUpperCase(Locale locale)
- Mengkonversi semua karakter menjadi huruf besar menggunakan aturan transformasi tertentu.

46. String trim()
- Mengembalikan string baru yang setelah dihilangkan spasi kosong pada awal dan akhirnya.

47. static String valueOf(boolean b)
- Mengembalikan representasi string dari argumen boolean.

48. static String valueOf(char c)
- Mengembalikan representasi string dari argumen karakter.

49. static String valueOf(char[] data)
- Mengembalikan representasi string dari argumen deret karakter.

50. static String valueOf(char[] data, int offset, int count)
- Mengembalikan representasi string dari subarray dari array of char.
- offset merupakan index awal dari karakter pada string.
- count merupakan jumlah karakter yang akan diambil dari string dimulai dari index offset.

51. static String valueOf(double d)
- Mengembalikan representasi string dari argumen double.

52. static String valueOf(float f)
- Mengembalikan representasi string dari argumen float.

53. static String valueOf(int i)
- Mengembalikan representasi string dari argumen int.

54. static String valueOf(long l)
- Mengembalikan representasi string dari argumen long.

55. static String valueOf(Object obj)
- Mengembalikan representasi string dari argumen Object.

demikian sedikit info nya. hehe. nah, sekarang saat nya untuk contoh program pencarian string.

SearchString.java
————————————begin————————————–
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
public class SearchString
{
public static void main( String[] args )
{
BufferedReader dataIn = new BufferedReader(new InputStreamReader(System.in));
try
{
System.out.print(”input kata : “);
String input = dataIn.readLine();
String strOrig = input;
System.out.print(”Masukkan bagian kata yang ingin dicari (pencarian case sensitive) : “);
String search = dataIn.readLine();
int intIndex = strOrig.indexOf(search);
if(intIndex == – 1)
{
System.out.println(”Pencarian tidak bisa ditemukan”);
}
else
{
System.out.println(”Kata tersebt telah ditemukan pada index ke- ” + intIndex);
}
}
catch (IOException e)
{
System.out.println(”Error in getting input”);
}
}
}
—————————————end———————————————–

dan, jika anda ingin download langsung source diatas, silakan download :

disini

• Class abstract dideklarasikan dengan kata kunci abtract ditulis sebelum kata kunci class
• Class abstract memiliki menimal satu method abstract
• Subclass dari class abstract harus mengoverride semua method abstract
• Class abstract tidak dapat dibuat instance, yang bisa hanya class concrete

contoh program menggunakan abstract class

Shape .java
————————————-begin————————————-

public abstract class Shape {
private String name;
Shape(String aName) {
name=aName;
}
public String getName() {
return name;
}
public abstract float calculateArea();
}
class Circle extends Shape {
private int radius;
Circle(String aName) {
super(aName);
radius = 3;
}
public float calculateArea() {
float area;
area = (float) (3.14 * radius * radius);
return area;
}
}
class Square extends Shape {
private int side;
Square(String aName) {
super(aName);
side = 3;
}
public float calculateArea() {
int area;
area = side * side;
return area;
}
}
—————————————–end————————–

ShapeTest.java
————————————-begin—————————
public class ShapeTest {
public static void main(String argv[]) {
Circle c = new Circle(”Circle C”);
Square s = new Square(”Square S”);
Triangle t = new Triangle(”Triangle T”);
Shape shapeArray[] = {c, s, t};
for (int i=0; i
System.out.println(”Area dari ” + shapeArray[i].getName()
+ ” is ” + shapeArray[i].calculateArea()+” sq. cm.\n”);
}
}
}
————————————end—————————

Triangle.java
———————————–begin————————
public class Triangle extends Shape{
private int alas,tinggi;
Triangle(String aName) {
super(aName);
alas = 5;
tinggi = 6;
}
@Override
public float calculateArea() {
float area;
area = (float) (0.5 * alas * tinggi);
return area;
}
}
—————————–end———————–

atau anda bisa langsung download 3 source code tersebut di :

disini

/*rata array*/
#include “stdio.h”

main()

{
int maks;
float arr [100];
float total;
float rata;
int i;

printf (”Masukkan jumlah data : “);
scanf (”%d”, &maks);
for (i=0; i<maks; i++)
{
printf (”masukkan nilai : “);
scanf(”%f”, &arr[i]);
}

for (i=0; i<maks; i++)
{
total=0;
for (i=0; i<maks; i++)
total=total+arr[i];
}
rata=total/maks;
printf(”rata=%.2f\n”, rata);
}

nih source code nya… tapi inget, pelajari lho ya? jangan asal copas…

#include
#include “conio.h”

int minimum(int []); /* prototype fungsi dlm ANSI */
int maksimum (int []);

int main()
{
int nilai[100], i, j, k, kecil, besar, min, maks, N;
printf (”Masukkan jmlah angka yang ingin di cari nilai max&min : “);
scanf (”%d”, &N);
printf(”Masukkan %d bil integer dipisahkan dgn spasi :\n”, N);
for (i=0; i
scanf(”%d”, &nilai[i]);
min = nilai[0];
for (j=1; j < N; j++)
if (nilai[j] < min)
min = nilai[j];
maks = nilai[0];
for (k=1; k < N; k++) if (nilai[k] > maks)
maks = nilai[k];
kecil = min;
besar = maks;
printf(”\nBilangan terkecil adalah %d\n”, kecil);
printf(”\nBilangan terbesar adalah %d\n”, besar);
getche();
}

/*int minimum(int nilai[100])
{
int min, j, N;
min = nilai[0];
for (j=1; j < N; j++)
if (nilai[j] < min)
min = nilai[j];
return(min);
}

int maksimum(int nilai[100])
{
int maks, k, N;
maks = nilai[0];
for (k=1; k < N; k++) if (nilai[k] > maks)
maks = nilai[k];
return(maks);
}*/

hehehe…. seperti biasa, ada versi downloadnya… biar enak.. monggo, silakan download

download disini

uke, berikut screen shot program yang sedang kita bicarakan :

sedangkan untuk scriptnya…. monggo… dinikmati…
=================================begin===========================

weprogram perpustakaan;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type
DataBku = record
judul : string;
End;

Procedure pembuka;
Begin
writeln;
Writeln(’+————————————————+’);
Writeln(’| Perpustakaan Pribadi Fahrizal |’);
Writeln(’| =================================== |’);
Writeln(’| Selamat Datang Di Perpustakaan Pribadi saya |’);
Writeln(’| Sebagai Tambahan, Kunjungi situs Pribadi Saya: |’);
Writeln(’| www.inilahjalanku.com |’);
Writeln(’+————————————————+’);
writeln;
writeln;
End;

Function nominal(Biaya, x:integer):integer;
Var
Sewa:integer;
Begin
Sewa:= Biaya*x;
nominal:=Sewa;
End;

Procedure islam;
var
ArBku : array[1..5] of DataBku;
x, I, Biaya,harga:integer;
Begin
Writeln;
Writeln(’Judul Buku Islami yang tersedia adalah : ‘);
Writeln(’1. Kitab Tauhid (stok tak terbatas)’);
Writeln(’2. Kitab Ibadah (stok tak terbatas)’);
Writeln(’3. Kitab Muamalah (stok tak terbatas)’);
Writeln(’4. Kitab Jihad (stok tak terbatas)’);
writeln;
Write(’Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘);
readln (x);
Biaya:=2000;
harga:=nominal(Biaya,x);
Writeln(’Masukkan judul buku yang hendak anda pinjam : ‘);
for I:=1 to x do
begin
Write(’Buku ke-’,I);write (’ : ‘); readln(ArBku[I].judul);
end;
Writeln;
Writeln(’Sekedar verifikasi, berikut ini adalah judul buku yang ingin anda pinjam :’);
for I:=1 to x do
begin
Writeln(’Judul Buku : ‘,ArBku[I].judul);
end;
writeln;
writeln (’Dengan Demikian, Biaya sewa yang harus anda bayar adalah : ‘);
writeln (’Rp ‘,harga);
writeln;
end;

Procedure komputer;
var
ArBku : array[1..5] of DataBku;
x, I, biaya:integer;
Begin
Writeln;
Writeln(’Judul Buku komputer yang tersedia adalah : ‘);
Writeln(’1. Mahir Bahasa C (stok tak terbatas)’);
Writeln(’2. Pemrograman Delphi (stok tak terbatas)’);
Writeln(’3. DataBase Administrator (stok tak terbatas)’);
Writeln(’4. Web Desaigner (stok tak terbatas)’);
writeln;
Write(’Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘);
readln (x);
biaya :=2000;
nominal(Biaya,x);
Writeln(’Masukkan judul buku yang hendak anda pinjam : ‘);
for I:=1 to x do
begin
Write(’Buku ke-’,I);write (’ : ‘); readln(ArBku[I].judul);
end;
Writeln;
Writeln(’Sekedar verifikasi, berikut ini adalah judul buku yang ingin anda pinjam :’);
for I:=1 to x do
begin
Writeln(’Judul Buku : ‘,ArBku[I].judul);
end;
writeln;
writeln (’Dengan Demikian, Biaya sewa yang harus anda bayar adalah : ‘);
writeln (’Rp. ‘,nominal(Biaya,x));
writeln;
end;



Procedure utama;
var
jnsbku:integer;
Begin
pembuka;
Writeln(’Di Perpustakaan Saya Hanya Terdapat Dua Jenis Buku : ‘);
Writeln(’1. Buku Islami’);
Writeln(’2. Buku Tentang Komputer’);
Write(’Buku Jenis Apa Yang Ingin Anda Pinjam (1/2)? :’);
readln(jnsbku);
case jnsbku of
1: islam;
2: komputer;
end;
end;

procedure penawaran;
var
ulang:char;
begin
while ulang <>’z’ do
begin
write(’Ingin Meminjam Lagi (y/n) : ‘);
readln(ulang);
case ulang of
‘Y’,'y’: utama;
‘N’,'n’: exit;
end;
end;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
utama;
penawaran;
write(’Terima kasih…’);
Readln;
end.
================================end=======================

ato download aja exe nya beserta source di :



download disini

saya membuat sebuah program sederhana, sebuah program yang dipake untuk menghitung nilai total atau nilai akhir mahasiswa dengan komposisi nilai akhir = (3*NilaiUAS+2*NilaiUTS+Nilaitgs)/6.

program ini menggunakan beberapa konsep dasar pemrograman, array, pengulangan, prosedur, dan fungsi.
berikut adalah screen shot nya…

n untuk source code, silakan dinikmati :
—————————–begin——————————

program manteb;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type
DataMhs = record
NIM : string[9];
Nama : string[20];
NilaiUAS : real;
NilaiUTS : real;
Nilaitgs : real;
Nakhir : Real;
End;

Var
ArMhs : array[1..1000] of DataMhs;
I, x : Integer;
TotalN : real;

Procedure pembuka;
Begin
Writeln(’+————————————-+’);
Writeln(’| Program Penghitung Nilai |’);
Writeln(’| Original coding by |’);
Writeln(’| Fahrizal S.P. |’);
Writeln(’| www.inilahjalanku.com |’);
Writeln(’+————————————-+’);
End;

Function
Nakhir(NilaiUAS,NilaiUTS,Nilaitgs:real):real;
Var
Na:real;
Begin
Na:=(3*NilaiUAS+2*NilaiUTS+Nilaitgs)/6;
Nakhir:=Na;
End;

begin
{ TODO -oUser -cConsole Main : Insert code here }
pembuka;
write(’Masukkan jumlah data mahasiswa yang akan diinput : ‘);
readln (x);
for I:=1 to x do
Begin
Writeln(’Data ke =’,I);
Write(’Masukan NIM Mhs : ‘); readln(ArMhs[I].NIM);
Write(’Masukan Nama Mhs : ‘); readln(ArMhs[I].Nama);
Write(’Masukan Nilai Tugas Mhs : ‘); readln(ArMhs[I].Nilaitgs);
Write(’Masukan Nilai UTS Mhs : ‘); readln(ArMhs[I].NilaiUTS);
Write(’Masukan Nilai UAS Mhs : ‘); readln(ArMhs[I].NilaiUAS);
Writeln;
End;
Writeln;
Writeln;
writeln (’Nilai akhir dihitung berdasarkan 3 X Nilai UAS + 2 X Nilai UTS + Nilai Tugas’);
Writeln;
Writeln (’Berikut adalah data mahasiswa yang telah anda input’);
writeln (’ beserta nilai akhir yang dicapai :’);
Writeln (’===================================================’);
Writeln;
For I :=1 to x do
Begin
Writeln(’ Data Mahasiswa ke = ‘,I);
Writeln(’===========================’);
Writeln(’NIM : ‘, ArMhs[I].NIM);
Writeln(’Nama : ‘, ArMhs[I].Nama);
Writeln(’Nilai Tugas: ‘, ArMhs[I].Nilaitgs:10:2);
Writeln(’Nilai UTS : ‘, ArMhs[I].NilaiUTS:10:2);
Writeln(’Nilai UAS : ‘, ArMhs[I].NilaiUAS:10:2);
TotalN:=Nakhir(ArMhs[I].NilaiUAS,ArMhs[I].NilaiUTS,ArMhs[I].Nilaitgs);
Writeln(’Nilai Akhir: ‘, TotalN:10:2);
Writeln;

End;
Readln;
end.
———————-end———————-
uke kawan, kalo pengen lebih nyaman, download file pas nya di:



disini

Deklarasi Inheritance
• Dengan menambahkan kata kunci extends setelah deklarasi nama class, kemudian diikuti dengan nama parent class‐nya.
• Kata kunci extends tersebut memberitahu kompiler Java bahwa kita ingin melakukan perluasan class.
• Contoh :

public class B extends A { }
• Semua class di dalam Java adalah merupakan subclass dari class super induk yang bernama Object.
• Misalnya saja terdapat sebuah class sederhana :
public class A {
…
}
• Pada saat dikompilasi, Kompiler Java akan membacanya sebagai subclass dari class Object.
public class A extends Object {
…
}

Kapan kita menerapkan inheritance?
• Kita baru perlu menerapkan inheritance pada saat kita jumpai ada suatu class yang dapat diperluas dari class lain.

Oke, kita masuk ke contoh programnya..

PersegiPanjang.java

————————————begin——————————

class PersegiPanjang
{
double panjang;
double lebar;

PersegiPanjang(double panjang, double lebar) {
this.panjang = panjang;
this.lebar = lebar;
}

PersegiPanjang()
{
throw new UnsupportedOperationException(”Not yet implemented”);
}
double hitungLuas() {
return (panjang * lebar);
}
double getPanjang() {
return panjang;
}
double getLebar() {
return lebar;
}
}

——————————end——————————



Balok.java

————————–begin—————————

class Balok extends PersegiPanjang{
double tinggi;

Balok(double panjang, double lebar, double tinggi) {
super(panjang, lebar);
this.tinggi = tinggi;
}

@Override
double hitungLuas() {
return (panjang * lebar * tinggi);
}
}

—————————–end————————-

Hitung.java

—————————begin——————–

class Hitung {
public static void main(String[] args) {
Balok b1 = new Balok(30, 40, 10);
PersegiPanjang p1 = new PersegiPanjang(30,40);
System.out.println(”panjang = ” +b1.panjang);
System.out.println(”lebar = ” +b1.lebar);
System.out.println(”tinggi = ” +b1.tinggi);
System.out.println(”luas = ” +p1.hitungLuas());
System.out.println(”volum = ” +b1.hitungLuas());
}
}

——————————-end—————————

hehehe… seperti biasa, saya masih baik hati.. jadi saya sediakan file .java nya… silakan download disini