LAPORAN PRAKTIKUM 1laporan praktikum progkom
-
Upload
bima-putra -
Category
Documents
-
view
1.088 -
download
25
description
Transcript of LAPORAN PRAKTIKUM 1laporan praktikum progkom
LAPORAN PRAKTIKUM
PEMEROGRAMAN KOMPUTER
Oleh
Kelompok 41.Rifki Tamami (150230045)
2.Riyan Kharisma P.A (150230046)
3.Bima Putra Samodra (150230018)
4.Faisal Akbar (150230000)
JURUSAN TEKNIK ELEKTROFAKULTAS TEKNIK DAN ILMU KELAUTAN
Universitas Hang TuahSurabaya
2016
KATA PENGANTAR
Puji syukur kita panjatkan kepada Tuhan Yang Maha Esa sebagai mahkluk yang beragama .Karena berkat,rahmat dan karunianya kelompok kami dapat menyelesaikan program dan sekaligus laporan praktikum komputer ini dengan semaksimal mungkin.
Program ini bisa menjadi dasar bagi kita untuk lebih teknologi yang semakin hari semakin berkembang hal itu pula yang seharusnya kita sebagai mahasiswa harus ikut serta dalam memajukan negri ini.Perogram yang kami buat mempunyai 5 ( lima ) bab yang mana kelima bab tersebut mempunyai kemampuan dan kelemahan masing-masing.
Oleh karena itu,kami membuat program ini semata mata bukan karena tugas tapi juga untuk keperluan sehari-hari terutama untuk pelayana para konsumen di suatu instalasi tertentu.kami selaku tim penyusun laporan juga berterima kasih kepada pihak-pihak yang telah banyak membantu baik itu dosen ,asisten dosen,senior,dan teman-teman sekalian.Kami sebagai penyusun laporan ini menyadari bahwa masih banyak kekurangan dalam pembuatan program dan laporan ini untuk itu kami mengharapkan kritik dan saran untuk lebih memperbaiki hasil pekerjaan kami.Akhir kata kami mengucapkan terimakasih.
i
BAB 1
1.PROGRAM MINAT KEAHLIAN
2.PROGRAM LOG IN KARYAWAN3.TUGAS (PROGRAM LOGIN KE APLIKASI LAIN)
1
BAB 1*)PROGRAM MINAT KEAHLIAN*)PendahuluanStatment merupakan bagian program yang berisi perintah yang akan dieksekusikan/dijalankan karena itu statment-statment ini menentukan bagaimana jalanya program dan bagaimana satu nilai variable dimanipulasi/berubah.
*)TujuanDalam pembelajaran hari ini kami ditugaskan untuk membuat aplikasi minat keahlian yang tujuannya adalah
untukmenentukan dan mencari secara otomatis referensi program yang sesuai dengan keahlian kita
2
*)Komponen yang digunakan1. ComboBox12. ListBox13. Label14. Label25. Button1
*)Petunjuk pemakaian program 1. Buka Program Minat dan Keahlian2. Pilih minat dan keahlan3. Klik Referensi untuk menampilkan referensi4. Referensi Program muncul sesuai minat dan keahlian
yang dipilih
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; cmbMinat: TComboBox; firstProgram: TListBox; btnRef: TButton; procedure FormCreate(Sender: TObject); procedure btnRefClick(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);begin // Menampilkan pilihan minat keahliancmbMinat.AddItem('Kedokteran', cmbMinat);cmbMinat.AddItem('Teknik', cmbMinat);cmbMinat.AddItem('Hukum', cmbMinat);end;
procedure TForm1.btnRefClick(Sender: TObject);begin //Membuat list box kosong firstProgram.Clear; if (cmbminat.Text='Kedokteran') then begin //Menampilkan jenis referensi program firstProgram.AddItem('Biologi',firstProgram); firstProgram.AddItem('Kimia',firstProgram); firstProgram.AddItem('Fisika',firstProgram);end; if(cmbminat.Text='Teknik') then begin //Menampilkan jenis referensi program firstProgram.AddItem('Matematika',firstProgram); firstProgram.AddItem('Fisika',firstProgram //firstProgram.AddItem('Fox Pro',firstProgram) end; if (cmbminat.Text='Hukum') then begin
//Menampilka jenis referensi program firstProgram.AddItem('Ilmu Undang-undang',firstProgram); firstProgram.AddItem('Ilmu Sosial',firstProgram); end; end;end.
*)Algoritma Program.1.Start2.Input Minat & Keahlian3.Proses Mencocokan Refrensi dengan Minat & Keahlian4.Refrensi ditampilkan5.End
*)Flowchart Program.
Start
Input Minat
Minat= Kedokteran
Minat=
Teknik
Minat=
Hukum
Refrensi=
Biologi,Fisika,Kimia
Refrensi=
Matematika,Fisika
Refrensi=
lmu undang-undang,ilmu sosial
END
Penutupan
*)Kesimpulan
Program dapat berjalan dengan baik.Dengan adanya program minat dan keahlian ini mempermudah dan membantu kita untuk mengetahui jurusan yang akan kita ambil.
*)PROGRAM PENGECEKAN KARYAWAN *)TUJUANApliaksi Login Karyawan ini di tunjukan untuk dapat memudahkan karyawan perusahaan dalam mengakses atau mengeceksebuah file atau aplikasi menggunakan sistem keamanan dengan user name dan password.
*)Komponen yang digunakan1.Label1
2.Label2
3.Edit1
4.Edit2
5.Button1
*)Petunjuk pemakian program 1.Buka Program
2.Pilih bagian karyawan di kotak bagian
3.Masukan password pada kotak password
4.Klik Login
5.Jika benar maka muncul ‘’Login sukses’’
6.Jika salah maka ‘’Login gagal’’ulangi masukan password
*)Gambar hasil run program >Login Sukses
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Bagian: TLabel;
cbBagian: TComboBox;
edPassword: TEdit;
btnLogin: TButton;
procedure FormCreate(Sender: TObject);
procedure btnLoginClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnLoginClick(Sender: TObject);var bagian,password:String;
begin
//Menampung bagian dan password
bagian:=cbbagian.text;
password:=edpassword.text;
//Pengecekkan Bagian Acconting
if(bagian='Accounting')and
(password='hitunguang')then
showmessage('Login sukses!!!')
else
begin
//Pengecekan Bagian Produksi
if(bagian='Produksi')and
(password='buatbarang')then
Showmessage('Login sukses!!!')
else
begin
//Pengecekan Bagian Personalia
if(bagian='Personalia')and
(password='rekrutorang')then
showmessage('Login sukses!!!')
else
begin
//Pengecekan Bagian Marketing
if(bagian='Marketing')and
(password='jualbarang')then
Showmessage('Login sukses!!!')
else
Showmessage('Login gagal!!!')
end;
end;
end;
procedure TForm1.FormCreate(Sender:TObject);
begin
//Menampilkan bagian pada combo box
cbbagian.Additem('Accounting',cbBagian);
cbbagian.Additem('Produksi',cbBagian);
cbbagian.Additem('Personalia',cbBagian);
end;
end.
*)Algoritma Program
1.start
2.Input password
4.Proses mencocokan password
5.jika benar menampilkan ‘’login sukses’’
6.Jika salah menampilkan ‘’login gagal’’ ulang masukan password
7.End
*)Flowchart Program
Start
Input Bagian & Password
*)PenutupKesimpulan
Program dapat berjalan dengan baik namun program ini masih sangat sederhana .Untuk pengembangannya perlu pembelajaran dan waktu lebih banyak.
Tugas (Program Login Aplikasi)
*)Tujuan Aplikasi Login aplikasi ini di buat dengan tujuan untuk membuat Login page untuk membuka aplikasi lain hanya kita yang terdaftar sebagai member yang mempunyai username dan password yang bisa mengaksesnya.
*) Komponen komponen yang digunakan1.Lebel1
2.Lebel2
3.Edit1
4. Edit2
5.Button1
*)Gambar Hasil Run Program
*)Source Code program nit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btnRef: TButton;
lstProgram: TListBox;
cmbMinat: TComboBox;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure btnRefClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Menampung bagian dan password bagian:=Edit1.Text;
Password:=Edit2.Text;
If(bagian=’Rifki’and
(password=’kelompok4’)then
Form2.show;
End;
*)Algoritma Program1.Start
2.input user name
3.input password
4.Proses mencocokan pasword
5.jika benar menampilkan nama kelompok
6.jika salah menampilkan’’login salah’’
7.end
*)Flowchart program
Start
*)PenutupProgram dapat berjalan dengan baik namun program ini masih jauh dari harapan karena butuh proses pembuatan yang lebih baik lagi.
Input User & Password
Username &Password
sesuai
Muncul nama kelompok 4
End
Login Salah
*)Pendahuluan
Windows API (Aplication Programming Interface) Merupakan sekumpulan fungsi fungsi eksternal yang terdapat dalam file file perpustakaan windows (Library Windows) atau library lainnya yang dapat digunakan oleh programer.
Fungsi ini dapat menangani semua yang berhubungan dengan Windows, kotak dialog (buka file. Simpan file, memilih font, memilih warna, dan lain lain), Windows shell, setting sistem operasi, penanganan file, mengakses sistem registry, memainkan musik, dan sebgainya. Fungsi ini menyediakan banyak fitur-fitur standart untuk semua program yang berbasis Windows.
*)Program 1 Informasi Memori
Tujuan
Program untuk mengetahui informasi memori dari komputer/pc pemakai dengan menggunakan program delphi.
*) Komponen yang digunakan
• Form `
• Label 1
• Label 2
• Label 3
• Label 4
• Label 5
• Label 6
• Label 7
• Label 8
• Label 9
• Label 10
• Label 11
• Label 12
• Label 13
• Label 14
• Edit 1
• Edit 2
• Edit 3
• Edit 4
• Edit 5
• Edit 6
• Edit 7
• Timer
*)Petunjuk pemakaian program
1.Buka form program percobaan 2.
2.Run program.
3.Tampil informasi mengenai memori dari pc pengguna
*) Algoritma
1.Start
2.Memproses Informasi Memori
3.Menampilkan Informasi Memory
*) Flow chart
Start
Pemberian Type Komponen
*) Gambar hasil running program
END
Menginput Data Bahasa Pemrograman
Proses Pengolahan Data
Hasil Akhir Date Time
Penggunaan Memori Berjalan
Proses Pengolahan Data
Proses Menjalankan Sub
Program
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
EditMemLoad: TEdit;
EditTotPhys: TEdit;
EditAvailPhys: TEdit;
EditTotPage: TEdit;
EditAvailPage: TEdit;
EditTotVir: TEdit;
EditAvailVir: TEdit;
Timer1: TTimer;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
MemInfo:TMemoryStatus;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MemInfo.dwLength:=SizeOf(TMemoryStatus);
GlobalMemoryStatus(MemInfo);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
GlobalMemoryStatus(MemInfo);
//Memori fisik yang terpakai (%)
EditMemLoad.Text:=IntToStr(MemInfo.dwMemoryLoad);
//Total memori fisik (KByte)
EditTotPhys.Text:=FormatFloat('#,',
MemInfo.dwTotalPhys div 1024);
//Memori fisik yg tersisa (KByte)
EditAvailPhys.Text:=FormatFloat('#,',
MemInfo.dwAvailPhys div 1024);
//Total pagefile (KByte)
EditTotPage.Text:=FormatFloat('#,',
MemInfo.dwTotalPageFile div 1024);
//Pagefile tersisa (KByte)
EditAvailPage.Text:=FormatFloat('#,',
MemInfo.dwTotalPageFile div 1024);
//Total memori virtual (KByte)
EditTotVir.Text:=FormatFloat('#,',
MemInfo.dwTotalVirtual div 1024);
//Memori virtual tersisa (KByte)
EditAvailVir.Text:=FormatFloat('#,',
MemInfo.dwAvailVirtual div 1024);
end;
end
A.8 Kesimpulan
Program berjalan lancar,tidak mengal
ami error dan menampilkan informasi memeori dari pengguna pc.
*)(Program 2 Mengeset Waktu Sistem
*)Tujuan
untuk mengeset atau mengatur waktu sistem (tanggal dan jam) dengan menggunakan program delphi.
*)Komponen yang digunakan
• Form
• Group Box
• Date Time Picker1
• Date Time Picker 2
• Label 1
• Label 2
• Button
*)Petunjuk pemakaian program
1.Buka program.
2.Run program.
3.Atur waktu.
4.Klik set waktu sistem.
5.Tanggal dan jam akan berubah sesuai yang kita atur/setting.
*) Algoritma
1.Start
2.Input Tanggal Dan Waktu
3.Proses Mengubah Tanggal Dan Waktu
4.End
*) Flow chart
*)Gambar hasil running program
Start
Pemberian Komponen
Input Data
Proses Pengolahan/Penulisa
n Data
Atur setting waktu untuk mengeset dan
tanggal
Berhasil mengeset waktu ?
End
Proses menjalankan sub program
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
TheSysTime:TSystemTime;
//Tahun,Bulan,Tanggal:Word;
//Jam,Menit,Detik,MDetik:Word;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var TheDate:TDate;
TheTime:TTime;
begin
FillChar(TheSysTime,sizeof(TheSysTime),#0);
//Mengambil data tanggal dari komponen DateTimePicker1
TheDate:=DateTimePicker1.Date;
DecodeDate(TheDate,TheSysTime.wYear,TheSysTime.wMonth,
TheSysTime.wDay);
//Mengambil data waktu dari komponen DateTimePicker2
TheTime:=DateTimePicker2.Time;
DecodeTime(TheTime,TheSysTime.wHour,TheSysTime.wMinute,
TheSysTime.wSecond,TheSysTime.wMilliSeconds);
//Mengeset waktu system
if SetSystemTime(TheSysTime)then
ShowMessage('Berhasil mengeset waktu sistem')
else
ShowMessage('Gagal mengeset waktu sistem');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
*) Kesimpulan
Diprogram ini kami mengalami error pada setting waktu. Waktu disetting waktu tidak sesuai dengan yang kita atur,melainkan waktu yang kita atur menjadi maju 7 jam dari waktu yang kita setting.
BAB 3
*)PROGRAM CEK NAMA KOMPUTER
PENDAHULUAN
*)Latar BelakangDalam modul ini mempelajari mengenai bagaimana kita dapat mengetahui name dari komputer teersebut tanpa harus melihat spesifikasi pada propertis dari komputer tersebut. Program ini juga dapat menjadi program plugin-play yang artinya program yang dapat dibawa kemanapun tanpa harus install (pasang langsung jalan)
*)Tujuan- Program yang menggunakan Delphi 7 ini dirancang memang untuk memudahkan si pengguna komputer untuk lebih mudah mengetahui name komputer tersebut.
- Dengan program yang sederhana ini dapat di aplikasikan dengan program lain.
- Agar mahasiswa dapat mebuat dan mendisain sendiri program mengidentifikasikan komputer tersebut.
*)Komponen yang digunakan 1. Button
*)Source code programunit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Fungsi untuk memperoleh nama user
function GetCompName(var CompName:string):boolean;
const
MaxCompNameLen=255;
var
dwCompNameLen:DWORD;
begin
Result:=false;
dwCompNameLen:=MaxCompNameLen-1;
//Mengubah alokasi panjang string'sCompName'SetLenght(CompName,MaxCompNameLen);
//Cari nama user
if GetComputerName(PChar(CompName),dwCompNameLen)then
Result:=true;
//Mengubah panjang string'sCompName' sesuai dengan
//panjang karakter nama komputer yg diperoleh
SetLength(CompName,dwCompNameLen);
end;
procedure TForm1.Button1Click(Sender: TObject);
var CompName:string;
begin
if GetCompName(CompName)=true then
ShowMessage('Nama Komputer:'+CompName)
else
ShowMessage('Gagal memperoleh nama komputer');
end.
*)Proses jalannya program1. Buka program.
2. Tekan Cek Nama Komputer.
3. Menampilkan nama komputer anda.
*)Gambar hasil run program
*)Algoritma Program1. Start
2. Proses mengambil Nama Komputer
3. Menampilkan Nama Komputer
4. End
*)Flowchart program
*)PENUTUP
*)KesimpulanProgram berjalan dengan baik. Program ini membantu kita untuk mengidentifikasikan nama komputer yang kita gunakan hanya dengan menjalankan program ini. Semoga program ini bermanfaat bagi kita.
Start
Mengambil Nama Komputer
Menampilkan Nama Komputer
End
*)PROGRAM CEK NAMA HOST DAN IP
*)PENDAHULUAN
*)Latar Belakang
Latar belakan pembuatan program ini adalah semata mata untuk lebih mendalami program Borland Delphi ini. Modul ini mempunyai struktur program yang sedikit lebih rumit di bandingkan modul sebelumnya sehingga lebih melatih mahasiswa dalam pembuatan program ini.
*)Tujuan
Kegunaan aplikasi ini sangan luas sebenarnya dibandingkan aplikasilainnya. Karena dapat menghubungkan komputer 1 kekomputer lainnya dan mematikan komputer tersebut dari komputer server.
*)Kompoen yang digunakan
Server
1. Form2
2. StaticText1
3. Edit1
Client
1. Form1
2. GroupBox1
3. Edit1
4. Button1
5. StaticText1
6. StaticText2
7. Button3
8. ClientSocket1
9. Button2
*)Proses jalannya program
Client
1. Buka program server dari komputer server
2. Masukkan IP addres client
3. Klik connect tunggu hingga status menjadi connect
4. Klik shutdown untuk mematikan komputer.
*)Gambar hasil run program
Server
*)Algoritma program
*)Server
1. Start
2. Proses mematikan komputer
3. Komputer mati
4. End
*)Client
1. Start
2. Input IP address
3. IP address di proses oleh client
4. Proses mematikan komputer client
5. komputer client telah mati
6. End
*)Flowchart program
Start
•
PENUTUP
*)Kesimpulan
program tidak berjalan karena kesalahan source code pada component client dan server socket.
Masukkan IP Address tujuan (client
Menghubungkan Server dengan Client
Client dan server terhubung
Proses mengirim data ke client
Komputer client mati
End
Bab 4
*)PROGRAM COLOR BLENDED 2 WARNA
*)PendahuluanGrafik selalu di gambarkan pada object kanvas.Dengan konsep kanvasnya ,pemerograman grafik menjdi lebih mudah .fasilitas grafik ini didefinisikan dalam unit graphics.unit ini memanfaatkan apa yang di sebut dengan GDI(grapichis device interface)yang disediakan oleh window dan mengekpluasi fungsi funsinya sehingga impelementasi grafik pada aplikasi windows menjadi mudah .
*)Komponen yang digunakan1.Lebel1
2.Lebel2
3.Lebel3
4.Shape1
5.Shape2
6.Shape3
7.Shape4
8.Color Dialog
9.SpeedButton
10.LebelWarna1
11.LebelWarna2
*)Proses jalanya program1.Buka program
2.Pilih komposisi warna pertama
3.Pilih komposisi warna kedua
4.klik color blending
5.Campuran komposisi warna pertama dan kedua keluar
*)Gambar Hasil Run Program
*)Source Code programinterface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, StdCtrls, ComCtrls, jpeg;
type
TForm1 = class(TForm)
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
LblWarna1: TLabel;
LblWarna2: TLabel;
LblHasil: TLabel;
Label4: TLabel;
Label5: TLabel;
ColorDialog1: TColorDialog;
Label6: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure Shape2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{--COLOR BLENDING--}
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
Clr1,Clr2,Clr3:TColor;
R1,R2,R3,G1,G2,G3,B1,B2,B3:Byte;
begin
{--warna kuning--}
Clr1:=ColorToRGB(Shape2.Brush.Color);
R1:=GetRValue(Clr1);
G1:=GetGValue(Clr1);
B1:=GetBValue(Clr1);
{--warna merah--}
Clr1:=ColorToRGB(Shape3.Brush.Color);
R2:=GetRValue(Clr2);
G2:=GetGValue(Clr2);
B2:=GetBValue(Clr2);
{--warna gabungan--}
R3:=Round((R1+R2)/2);
G3:=Round((G1+G2)/2);
B3:=Round((B1+B2)/2);
Clr3:=RGB(R3,G3,B3);
Shape4.Brush.Color:=Clr3;
{--label komponen warna--}
LblWarna1.Caption:=Format('R=%d G=%d B=%d',[R1,G1,B1]);
LblWarna2.Caption:=Format('R=%d G=%d B=%d',[R2,G2,B2]);
LblHasil.Caption:=Format('R=%d G=%d B=%d',[R3,G3,B3]);
end;
procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ColorDialog1.Execute then
Shape2.Brush.Color:=ColorDialog1.Color;
end;
procedure TForm1.Shape3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ColorDialog1.Execute then
Shape3.Brush.Color:=ColorDialog1.Color;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton1Click(Sender);
end;
end.
*)Algoritma Program1.Start
2.Input Color 1 & Color 2
3.Proses memadukan (mencamourkan )warna 1 & warna 2
4.Hasil campuran warna ditampilkan
5.selesai
*)Flowchart program
Start
Input Color 1
Color 1+ Color 2
Input Color 2
Hasil Blending
End
*)Penutup
*)Kesimpulan
Program berjalan dengan baik. Dengan adanya program pencampuran 2 warna ini akan apat mempermudah kita untuk mencampurkan 2 warna dan mengetahui hasil percampuran 2 warna tersebut.
*)PROGRAM DEGRADASI WARNA
*)Tujuan Untuk mengetahui kordinat X dan koordinat Y pada gambar dan mendeteksi pencampuran warna (RGB) pada gambar . Agar kita lebih mudah untuk mengetahui kombinasi pencampuran warna pada gambar.
*)Komponen yang digunakan 1.Form1
2.Image1
3.Image2
4.Edit1
5.Edit2
6.Edit3
7.Edit4
8.Edit5
9.BitBtn1
10.Label1
11.Label2
12.Label3
13.Label4
14.Label5
15.Button1
*)Proses Jalanya Program1.Buka Program
2.Pilih pola gambar & grafik pada gambar
3.Hasil RGB dan koordinat gambar keluar
4.Selesai
*)Gambar Run program
*)Source Code programunit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ex,ye:integer;
R,G,B:byte;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,Hasil:byte;
begin
for i:=0 to Image1.Height do
begin
for j:=0 to image1.Width do
begin
R:=getRValue(Image1.Canvas.Pixels[j,i]);
G:=getGValue(Image1.Canvas.Pixels[j,i]);
B:=getBValue(Image1.Canvas.Pixels[j,i]);
if (R<G) and (R<B) Then BEGIN
R:=0;
G:=0;
B:=0;
END;
// hasil:=round((R+G+B)/3);
image2.Canvas.Pixels[j,i]:=RGB(R,G,B);
// image2.Refresh;
end;
end;
for i:=0 to Image2.Height do
begin
for j:= 0 to Image2.Width do
begin
R:=getRValue(Image2.Canvas.Pixels[j,i]);
G:=getGValue(Image2.Canvas.Pixels[j,i]);
B:=getBValue(Image2.Canvas.Pixels[j,i]);
if (R>200) and (G>200) THEN BEGIN
if (B<G) and (B<R) THEN BEGIN
R:=0;
G:=0;
B:=0;
END;
// hasil:=round((R+G+B)/3);
image2.Canvas.Pixels[j,i]:=RGB(R,G,B);
// image2.Refresh;
end;
end;
end;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ex:=X;
ye:=Y;
R:=getRValue(Image1.Canvas.Pixels[X,Y]);
G:=getGValue(Image1.Canvas.Pixels[X,Y]);
B:=getBValue(Image1.Canvas.Pixels[X,Y]);
EDIT1.Text:=inttostr(ex);
EDIT2.Text:=inttostr(ye);
edit3.Text:=inttostr(R);
edit4.Text:=inttostr(G);
edit5.Text:=inttostr(B)
end;
end.
*)Algoritma Program1.Start
2.Input pola gambar &grafik pada gambar
3.Proses mencocokan wara dengan kombinasi RGB
4.Hasil RGB & Koordinat gambar keluar
5.selesai
*)Flowchart Program
*)Penutup Program berjalan dengan baik.Program ini dibuat untuk membantu kita mengetahui combinasi warna (RGB) pada suatu gambar.
Start
Proses mendeteksi pola warna (RGB) dan koordinat X dan Y
Input gambar yang sudah
ada
Hasil Pola warna
End
Bab 5
*)PROGRAM PENYIMPANAN FRAME FOTO*)PendahuluanKompoen komponen standart dari delphi tidak dapat digunakan untuk mengakses kamera digital atau pun webcam.Oleh karena itu diperlukan komponen tambahan untuk menangkap citra atau frame dari wabcam untuk menangkap citra secara tunggal maupun bentuk citra dinamik .Dalam praktikum ini di gunakan komponen JHVideocap bersifat freeware dan tidak diperlukan lisensi sama sekali .Paket ini terdiri dari 2 komponen yaitu:Tvideocap dan Tvideodisp
*)TujuanDalam pembelajaran Bab V ini kami ditugaskan untuk membuat aplikasi berbasis webcam yang tujuanya adalah untuk menyimpan frame gambar dalam bentuk foto.
*)Komponen yang digunakan1.Button
2.Button
3.Lable
4.SavePictureDialog
5.VideoCap
*)Proses Jalan Program1.Buka Program
2.Klik nama file untuk mengubah nama file dan tempat penyimpanan
3.Klik simpan untuk menyimpan frame
*)Gambar Run Program
*)Source Code Programunit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, Videocap, vfw, ExtDlgs;
type
TForm1 = class(TForm)
SavePictureDialog1: TSavePictureDialog;
LabelNamaFile: TLabel;
ButtonNamaFile: TButton;
ButtonSimpan: TButton;
VideoCap1: TVideoCap;
procedure FormCreate(Sender: TObject);
procedure ButtonNamaFileClick(Sender: TObject);
procedure ButtonSimpanClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
VideoCap1.DriverIndex:=0;
VideoCap1.DriverOpen:=true;
VideoCap1.VideoPreview:=true;
end;
procedure TForm1.ButtonNamaFileClick(Sender: TObject);
begin
if (SavePictureDialog1.Execute) then
LabelNamaFile.Caption:=SavePictureDialog1.FileName;
end;
procedure TForm1.ButtonSimpanClick(Sender: TObject);
begin
VideoCap1.SingleImageFile:=LabelNamaFile.Caption;
VideoCap1.GrabFrameNoStop;
if VideoCap1.SaveAsDIB then
ShowMessage('Frame tersimpan')
else
ShowMessage('Gagal menyimpan')
end;
end.
*)Algoritma Program1.Mulai
2.Input gambar dari wabcam
3.Ambil foto
4.Proses penyimpanan
5.Foto Tersimpan
6.Selesai
*)Flowchart Program
*)PenutupProgram ini berjalan tidak terlalu lancar terkadang eror tidak bisa dirun perlu pembelajaran yang lebih banyak untuk pengembanganya.
*) PROGRAM PENYIMPANAN FRAME TUNGGAL DALAM VIDEO
Start
Input gambar dari wabcam
Ambil foto
Foto Tersimpan
End
*)PendahuluanKompoen komponen standart dari delphi tidak dapat digunakan untuk mengakses kamera digital atau pun webcam.Oleh karena itu diperlukan komponen tambahan untuk menangkap citra atau frame dari wabcam untuk menangkap citra secara tunggal maupun bentuk citra dinamik .Dalam praktikum ini di gunakan komponen JHVideocap bersifat freeware dan tidak diperlukan lisensi sama sekali .Paket ini terdiri dari 2 komponen yaitu:Tvideocap dan Tvideodisp
*)TujuanDalam pembelajaran Bab V ini kami ditugaskan untuk membuat aplikasi berbasis webcam yang tujuanya adalah untuk menyimpan frame gambar dalam bentuk foto.
*)Komponen yang digunakan
1.VideoCap
2.ButtonSimpan
3.ButtonNama
4.LableNama
5.SavePictureDialog
6.Buttonkompresi
7.ButtonFormat
8.Lable1
9.EditLama
10.EditIndeks
11.Lable2
*)Gambar Run Program
*)Algoritma Program1.Start
2.Pilih jenis kamera yang akan digunakan
3.Ganti nama file
4.Ganti format Video
5.Ganti kompresi Video
6.Simpan
7.Stop
8.Video Tersimpan
9.Selesai
*)Flowchart program
*) Penutup
Start
Pilih jenis kamera
Ganti nama File
Ganti Format Video
Kompresi Video
Simpan
Stop
Video Tersimpan
End