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

Upload File

Bila Plug-in tidak bisa di instal, silahkan membuka halaman ini menggunan Google Crome

Encript - unEncript Data

Mungkin tidak bisa berjalan dengan normal, agar lebih baik silahkan menggunakan Google Crome untuk menggunakannya.

Borland C++ Builder 6.0 (Bag 02)

Integrated Development Integration

Integrated Development Integration ( IDE ) adalah bidang tempat kita bekerja untuk menghasilkan program aplikasi. Secara umum, IDE C++Builder dibagi menjadi lima bagian besar yaitu Main Window, Object Treeview, Form Designer, Object Inspector dan Code Editor.

Main Window

Main window terdapat pada bagian atas dari C++ builder IDE, dimana bagian ini dapat dibagi menjadi tiga kelompok yaitu Main menu yang berisi semua menu yang terdapat dalam C++ builder, tool panel yang berisi menu-menu yang sering digunakan saja dan ditampilkan dalam bentuk icon dan component pallete yang berfungsi untuk menyimpan komponen-komponen C++builder yang digunakan dalam pembuatan aplikasi.

Object Treeview

Object Treeview akan menampilkan daftar komponen yang ditempatkan didalam Form, data module, maupun frame.Komponen-komponen tersebut akan ditampilkan dalam bentuk tree yang menunjukan huibungan logic antara komponen parent dengan komponen yang terdapat didalamnya.

Form Designer

Form designer adalah bagian yang digunakan untuk pembuatan form yang kemudian akan ditampilkan dalam aplikasi.Untuk setiap pembuatan aplikasi visual dengan menggunakan C++ builder, bagian inilah yang akan menjadi induk pengaturan komponen-komponen yang ditempatkan.

Object Inspector


Bagian ini berfungsi untuk melakukan pengesetan dan mengatur property dan event dari suatu object didalam C++ builder. Gambar sebelah kiri Tab Properties dan Gambar sebelah kanan Tab Event.

















Code Editor

Code Editor adalah bagian yang berfungsi untuk menyunting atau menuliskan kode-kode program yang akan digunakan sebagai pengontrol aplikasi yang dibuat didalam bahasa C++ builder.Dalam C++ builder file unit dibagi menjadi dua bagian yaitu file dengan exstensi .cpp (berisi implementasi) dan .h (berisi daftar deklarasi).