Design_program and Create simple Animation

MENGAPA PERLU BELAJAR PROGRAM DELPHI

Delphi merupakan salah satu bahasa pemrograman yang mengalami perkembangan sangat pesat di dunia khususnya di Indonesia. Banyak aplikasi dapat dikembangkan dengan Delphi seperti operasi perhitungan matematis, grafis, Pengolah kata, Spreet Sheet, games dan basis data. Dengan dukungan OOP Delphi mempunyai kemampuan yang sangat handal apalagi dengan adanya komunitas Delphi semakin memperjelas eksistensinya. Tulisan ini akan mencoba menjabarkan bagaimana memanfaatkan Delphi sebagai salah satu Program.
Tutorial singkat ini sebenarnya ditujukan bagi siswa SMK dan mahasiswa yang ingin mempelajari bahasa pemrograman Delphi. Pada pembahasan dan contoh-contoh dijelaskan dasar-dasar pemrograman Delphi dengan pendekatan yang rasional. Harapan kami semoga tutorial ini bermanfaat bagi siapa saja yang ingin mengembangkan kemampuan menggunakan bahasa pemrograman khusunya Delphi

STARTING AND USING PROGRAM DELPHI

LAYAR DELPHI 6.0 TERDIRI DARI :

1. Title Bar fungsinya untuk menentukan judul dari sebuah program
2. close bottom : utuk menutup jendela aplikasi dalam program
3. Toolbar : kumpulan ikon yang berfungsi untuk mengaktifkan degan cepat
4. Form : untuk meracang design program
5. Objeck tree view : untuk mengatur letak posisi jendela aplikasi
6. Objeck properties : untuk mengganti format efek pd sebuah objek misal warna,size dll
7. View source : untuk menuliskan source program

creating this simple program and look at design and structure languange program
PRACTISE FIRST

Program coulum;
uses;
forms;
{ $APPTYPE CONSOLE }

CONST K=10;
VAR F:REAL;
QI,Q2,M :INTEGER;
BEGIN
Write ( 'Ketikan nilai QI =');READLN(Q1);
Write ( 'Ketikan nilai Q2 =');READLN(Q1);
Write ( 'Ketikan nilai M =');READLN(Q1);
F:=K*((Q1 * Q2)/ (M* M));
Write (' Besarny gaya adalah :'F:8:2);
READLN;
END.
PRACTISE SECOND

Creating new program and use program delphi for there are mother that will go to the arket has bought for daily live.he has some bought some soups,hulled rice,oil grease, tooth paste and sampoo. his address on jl. Flamboyan NO.2 CENGKARENG JAK-BAR PHONE : 081.586.122.667

USE COMMAND READLN TO ENTER IN PROGRAM
Count GRAND TOTAL IF CAN DISCOUNT 10 % FROM PAYMENT
LAY OUT by REQUEST

TOKO SUPERMAKET
JL. Flaboyan no.2 Cengkareg Jakarta barat
========================================
NAME BUYER = ..
PRICE SOUP = ..
PRICE HULLED RICE = ..
PRICE OIL GREASE = ...
PRICE TOOTPASTE = ..
PRICE PEMPES =..
PRICE RINSO = ..
=========================================
GRAND TOTAL Rp = xx
DISKONT 10 % Rp = xx
CASH PAYMENT Rp = xx
=========================================
create by : kelas : .....

SOAL ULANGAN PRAKTEK: 1

KETENTUAN PROGRAM:
1. Panjang,Lebar dan Tinggi diinput lewat keyboard
2. Dicari Luas Balok dan Volume Balok
3. Luas Balok=2 x ( panjang x lebar)+ 2 x ( panjang x tinggi)+ 2x(lbr x tinggi)
4. Volume Balok=panjang x tinggi x lebar
skore nilai=40

SOAL ULANGAN PRAKTEK: 2

KETENTUAN PROGRAM

1. Data yang diinput keyboard adalah Nama,Jurusan,jumlah SKS
2. Harga Per SKS adalah Rp.150.000
3. Uang Kuliah =Jumlah SKS X HARGA PER SKS
4. Uang Praktikum= 25 % x uang Kuliah
5. Uang Kegiatan =10% uang Kuliah
6. Total Bayar=Uang Kuliah + uang praktikum + uang kesehatan

skore Nilai=60

PRACTISE THIRD

DO EXERCISE NEW PROGRAM USE TO TOOLBOX AGREE WITH PICTURE
AND CHEM will GOOD A PROGRAM

DO EXERCISE FOUR
Use to command listbox1, edit1, label1,label2
and creating desing program bellow !

Struktur Program
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
ListBox1: TListBox;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
ListBox2: TListBox;
Button2: TButton;
Label4: TLabel;
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
listbox1.Items.Add(edit1.text);
edit1.Text:=' ';
edit2.Text:=inttostr(listbox1.Items.Count);

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//listbox1.Items.Move(listbox2.items.AddObject());

end;

end.

LATIHAN SOAL_IFTHEN

program PERHITUNGAN_NILAI;

{$APPTYPE CONSOLE}

uses
forms;
var
a,b,ket : string;
c,d,e,f,rata: real;
begin
writeln ('Identitas Siswa');
writeln ('________________');
write ('Nama : ');readln(a);
write('Kelas : ');readln(b);
write('Nilai 1: ');readln(c);
write('Nilai 2:');readln(d);
e:=(c+d)/2;
writeln('Rata-rata =',e:2:0);
if rata <=60 then ket:='lulus' else ket:='tidak lulus';
write ('Keterangan = ',ket);
readln;
end.

KETIKAN PROGRAM DI BAWAH UNTUK MENDAPATKAN HASIL DENGAN BENAR
PROGRAM IF THEN ELSE2
program IFTHENELSE;

{$APPTYPE CONSOLE}

uses
forms;

var c,f,g : string;
: real;
begin
writeln (' Rumah Makan "PASTI LEZAT" ');
writeln ('DATA PEMESAN TUMPENG BULAN AGUSTUS 2003');
writeln ('________________________________________');
writeln ('PROGAMMER : Pricilla Di Chiara/2 IPA 1 / 22');
writeln ('Nama Pemesan : ');readln(a);
writeln ('Kode tumpeng :');readln(b);
If copy (b,1,2) = 'TS' then

e:= 'Tumpeng Sunda '

else if b='TJ' then

e:='Tumpeng Sunda'

else if b='TK' then

e:='Tumpeng Kuning';

If copy (b,4,1) = 'K' then
begin
k:= 'Kecil ';
h :=25000 ;
end
else if b='S' then
begin
k:='Sedang';
h:=30000;
end
else if b='TB' then
begin
k:='Kecil';
h:=37500;
end;
writeln ('Ukuran Tumpeng :',k);
write ('Banyak pembelian :');readln(f);
c:=f*25000;
writeln ('Harga total :',c:2:0);
writeln ('Biaya pengiriman :',h:2:0);
j:=c+h;
writeln (' Total Bayar :',j:2:0);
readln;
end.

SOAL..
program Project2_WITH_IF THEN;

uses
forms;

var a,b,d,f,g : string;
c,h,j,e :real;

begin
writeln (' Biro Kiriman express ');
writeln ('_________________________');
writeln ('Dibuat oleh : Pricilla Di Chiara / 2B1 / 22');
writeln ('Nama pengirim = ');readln(a);
writeln ('Kode paket =');readln(b);
if b= 'PK1' then
begin
d:='makanan '
e:=6000
end
else if b='Pk2' then
begin
d:='pakaian'
e:=7500
end
else if b='Pk3' then
begin
d:='dokumen '
e:=10000
end
else if b='Pk4' then
begin
d:='elektronik'
e:=20000
end;
writeln ('Berat paket =');readln(c);
write ('Isi paket =',d);
write ('Biaya Paket/kg = Rp.',e);
f:= e*c;
write('Biaya kotor =',F);
write ('discount =',g);
if c>=20 then
begin
i:='jam tangan';
g:=1/10*f;
end
else if c>=10 then
begin
i:='tas anak';
g:=6/100*f;
end
else if c<10 then
i:='payung';
g:=0;
end;
h:=5/100*f;
j:=f-g+h;
write ('pajak =',h);
write ('total bayar =',j);
readln;
end.

LATIHAN MEMBUAT PROGRAM ANIMASI FLASH

BUATLAH LAYER 1:,LAYER 2, LAYER 3,LAYER 4

Ketikan Kalimat
Pada layer1, Informasi pendidikan & ONline

Aktikan Perintah MODIFY BREAK APART
untuk memecah agar kalimat bisa di modifiaski

Aturlah warna-warni dari teks tersebut

Untuk menggerakan animasi pilih :
atifkan di nomor 1: pilih- mouse kanan plihcreate
motion tween

Untuk menggeraan animasi - pilih Control- run

DESIGN GRAFIS CORELDRAW

buah segar

ANIMASI FLASH

ilmugrafis indonesia