Sumbangan Modul

Hai teman, yang mempunyai Modul Kuliah yang tidak ada di blog ini silahkan sumbangkan Modul Anda. klik disini untuk menyumbakan modul Anda.


Apa Tujuaannya:
Agar kita punya banyak modul yang bisa disebarkan kepada teman lain yang mungkin membutuhkan materi.

Manfaat:
Bagi blog ini, kaya akan modul.

Bagi Anda, partisipasi anda sangat membantu teman-teman kita dan mungkin Anda sendiri mungkin bisa membuka/ mendownload kembali data yang anda upload

Cara Upload:
klik disini dan setelah upload sukses, beri komentar dibawah ini.

Kami tunggu sumbangan Anda dan terimakasih.

Tentang saya

Aris Risyana
Kuningan, 18 September 1979

Pendidikan:
1986-1992 SD Negeri 2 Winduherang
1992-1995 SMP Negeri 6 Kuningan
1995-1998 SMA Negeri 3 Kuningan
1998-2000 D2 Profesi Komputer LPK IMBIA Yogyakarta
2006-2009 D3 Teknik Komputer Jaringan STMIK IKMI Cirebon

Sedang melanjutkan Kuliah S1 Teknik Informatika SMTIK IKMI Cirebon

Pekerjaan:
Staf Subbag Umum
Tenaga Teknis/ Operator Komputer
Dinas Pendidikan Kabupaten Kuningan

Tugas pokok:
Pengelola NUPTK Kab. Kuningan
Pengelola Jardiknas Kab. Kuningan
Operator NISN Kab. Kuningan
Tim KK Datadik Disdipora Kab. Kuningan

Melihat Yahoo Messanger teman aktif atau tidak aktif

Sekedar tips untuk mengetahui seseorang sedang yang mempunyai Yahoo messanger sedang

ketikan alamat dibawah ini di windows browser, ganti akun@yahoo.com dengan akun yahoo atau ymail orang yang mempunyai email yang akan kita cari tahu.

http://opi.yahoo.com/online?u=akun@yahoo.com&m=g&t=2&amp

lihat hasilnya Wow... kita bisa  melihat orang yang kita jadikan target sedag aktif YM-nya tau tidak.

atau silahkan klik link ini untuk mengecek YM seseorang sedang aktif atau tidak tanpa kita membuka YM kita atau bahkan kita tidak mempunyai YM.

Script Progam Rekaman (Pascal)

Script Progam Rekaman mengunakan bahasa Pascal
Nasabah Bank


uses wincrt;
Const
dmax=100;

type
recNasabah=record
NoAkun : string[10];
Nama : string[20];
Alamat : string[20];
Kota : string[10];
NoTelp : String[11]
end;

var
a:array[1..dmax] of recNasabah;
i,j,bd:integer;


Procedure Tampilan;
begin
clrscr;
gotoxy (5,2); write('Bank Sendiri Indonesia');
gotoxy (5,3); write('Input data Nasbah');
gotoxy (5,5); write('-------------------------------------');
gotoxy (5,7); write('Nomor Rekening :');
gotoxy (5,8); write('Nama :');
gotoxy (5,9); write('Alamat :');
gotoxy (5,10);write('Kota :');
gotoxy (5,11);write('No. Telp/ HP :');
gotoxy (5,13);write('-------------------------------------');
gotoxy (5,14);write('Data ke- dari ',bd,' ');
gotoxy (5,15);write('-------------------------------------');
end;

begin
Tampilan;
bd:=dmax;
gotoxy (5,14); Write('Banyak data yang akan masukan ? '); readln(bd);
for i:=1 to bd do
begin
Tampilan;
gotoxy (13,14);write(i);
gotoxy (25,7); readln(a[i].NoAkun);
gotoxy (25,8); readln(a[i].Nama);
gotoxy (25,9); readln(a[i].Alamat);
gotoxy (25,10);readln(a[i].Kota);
gotoxy (25,11);readln(a[i].NoTelp);
end;
clrscr;
gotoxy (1,2); write('Bank Sendiri Indonesia');
gotoxy (1,3); write('Data Nasabah');
gotoxy (1,4); write('--------------------------------------------------------------------------------');
gotoxy (1,6); write('--------------------------------------------------------------------------------');

gotoxy (1,5); write('No');
gotoxy (5,5); write('Rekening');
gotoxy (16,5);write('Nama');
gotoxy (37,5);write('Alamat');
gotoxy (58,5);write('Kota');
gotoxy (69,5);write('Telepon');
writeln;
for i:=1 to bd do
begin
gotoxy (1,7+i) ;writeln(i);
gotoxy (5,7+i) ;write(a[i].NoAkun);
gotoxy (16,7+i);write(a[i].Nama);
gotoxy (37,7+i);write(a[i].Alamat);
gotoxy (58,7+i);write(a[i].Kota);
gotoxy (69,7+i);write(a[i].NoTelp);
end;
gotoxy (1,9+i); write('--------------------------------------------------------------------------------');
gotoxy (1,10+i); write('Total data =',i);
readln;
end.

Tugas Kuliah - Animasi Hurup

Script progam ini masih dalam perbaikan, sampai diterbitkan masih terdapat beberapa kesalahan. Sudah lama tidak pernah menggunakan bahasa Pascal jadi lumayan harus mengingat ingat kembali.

Saya mempelajari Bahasa Pascal sekitar tahun 1999 dan baru kali ini membuka kembali lembaran ingatan masa lalu.

uses wincrt;
Const
Max=200;
type
PKar = ^RecKar;
RecKar = Record
Kar : Char;
Next : PKar;
end;
Var
Jml : byte;
Head, Tail, Now : Pkar;

Procedure Push(Ch:Char);
begin
New(Now);
if Head=Nil Then
Head:=Now
else
Tail^.Next:=Now;
Tail:=Now;
Tail^.Next:=Nil;
Now^.kar:=Ch;
end;

Procedure Pop;
Begin
Now:=Tail;
While (Tail^.next<>Now) And (Tail<>nil) do Tail:=Tail^.Next;
Dispose(Now);
Dec(Jml);
if Tail=Nil then Head:=Nil;
end;

Procedure Input;
Var
i:byte;
Kal:String[50];
begin
clrscr;
Jml:=1;
write('Masukan Karakter= ');
readln(Kal);
if Kal <>'' then
for i:= 1 to length(Kal) do
begin
Push(Kal[i]);
inc(Jml);
end
else
exit;
end;

Procedure Anim;
Var
ch:char;
x,y,i,Tx,Ty:byte;

Procedure Gerak;
begin
Repeat
if (y=1) and (x<>1) then
begin
dec(x);
gotoxy(x,y);
write(Now^.Kar);
end
else if (x<>80) and (y=24) then
begin
inc(x);
gotoxy(x,y);
write(Now^.Kar);
end
else if x=80 then
begin
dec(y);
gotoxy(x,y);
write(Now^.Kar);
end
else if x=1 then
begin
inc(y);
gotoxy(x,y);
write(Now^.Kar);
end;
inc(i);
if (Now^.Next<>Nil) then Now:=Now^.Next;
until i>=jml;
end;

Procedure Tekan;
var
Ch : Char;
begin
Ch:=ReadKey;
if (Ch<>#27) and (Jml < Max) and (Ch<>'-') then
begin
Push(Ch);
inc(Jml);
end;
if (ch='-') then
if Head<>Nil then Pop else exit;
end;

begin
x:=2;
y:=1;
Repeat
i:=1;
Now:=Head;
Tx:=x;
Ty:=y;
if Head <> nil then Gerak;
Delay(500);
clrscr;
x:=Tx;
y:=Ty;
if (x<>80) and (y=1) then inc(x) else
if (x=1) and (y=24) then dec(x) else
if (x=80) and (y<>24) then inc(y) else
if (x=1) and (y<>1) then dec(y) else
if KeyPressed then Tekan;
Until Ch=#13;
end;

Begin
Head:=Nil;
Tail:=Nil;
Input;
clrscr;
Anim;
end.

Download Materi Struktur Data

Struktur Data

Download Materi-1

Download Materi Riset Teknologi Informasi

Silahkan download materi Riset dan Teknologi Informasi (RTI)
Bambang Irawat, MT

Materi dalam bentuk zip file, setelah di download, extract file menggunakan winzip atau winrar
terdiri dari 7 materi.

download materi RTI (mata kuliah umum)

Download Materi Model dan Simulasi

Download Modul
Materi-1
Materi-2
Materi-3
Materi-4
Materi-5
Materi-6
Materi-7

Download Modul Pemrograman Berbasis Object

Materi Perkuliahan Semester 8
Donload Modul-1
Donload Modul-2

Membuat dan Memanggil Object

Contoh Script Aritmatika sederhana menggunakan Bahasa Java dengan memberikan nilai parameter kepada method.

Simpan script dibawah ini dengan nama file: Aritmatika.java

/* Aritmatika sederhana */

class Matematika{
int hasil=0;
double hasilbagi=0;
int angka1=0;
int angka2=0;

// Method Pertambahan
void Pertambahan(int x, int y){
hasil=x+y;
System.out.println ("Penjumlahan");
System.out.println (x + " + " + y + " = " + hasil );
System.out.println ();
}

// Method Pengurangan
void Pengurangan(int x, int y){
hasil=x-y;
System.out.println ("Pengurangan");
System.out.println (x + " - " + y + " = " + hasil);
System.out.println ();
}

// Method Perkalian
void Perkalian(int x, int y){
hasil=x*y;
System.out.println ("Perkalian");
System.out.println (x + " x " + y + " = " + hasil);
System.out.println ();
}

// Method Pembagian
void Pembagian(double x, double y){
hasilbagi=x/y;
System.out.println ("Pembagian");
System.out.println (x + " / " + y + " = " + hasilbagi);
}
}
public class Aritmatika {
public static void main(String[]args){
// Membuat Objek
Matematika OperasiMat = new Matematika();

// Memanggil method menunjuk nilai parameter
OperasiMat.Pertambahan(14,3);
OperasiMat.Pengurangan(19,99);
OperasiMat.Perkalian(18,9);
OperasiMat.Pembagian(19,79);
}
}

Bila dijalankan maka akan dihasilkan:

Penjumlahan
14 + 3 = 17

Pengurangan
19 - 99 = -80

Perkalian
18 x 9 = 162

Pembagian
19.0 / 79.0 = 0.24050632911392406