Source Code Gambar jpg To grayscale Using Delphi

Selamat Siang para pemirsa blog seputarinternetku berjumpa kembali dengan saya penulis blog yang simple ini, hehehe

ok awal ceritanya sih ini tugas dari dosen yang di suruh untuk mengubah gambar jpg dengan mengganti gambar menjadi hitam putih atau bisa di sebut grayscale, tugas pertama sih cuman di suruh untuk upload foto setelah itu di copy ke dalam form sampingnya dan di simpan ke format jpg akhirnya tugas pertama sucses terselesaikan alhamdulilah dengan semangat tinggi tugas apapun jika kita SEMANGAT pasti bisa teratasi :)

ok langsung saja ini scripnya

oh ya klo untuk mempercantik tampilan seperti punya saya anda harus menginstal Alphascin dulu..

 

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, jpeg, clipbrd, ComCtrls, inifiles,
  sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    open1: TMenuItem;
    Open2: TMenuItem;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    BitBtn2: TBitBtn;
    SaveDialog1: TSaveDialog;
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    i1: TMenuItem;
    g1: TMenuItem;
    Greyscale1: TMenuItem;
    Greyscale2: TMenuItem;
    Greyscale3: TMenuItem;
    R1: TMenuItem;
    ScrollBox2: TScrollBox;
    Image1: TImage;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    procedure Open2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure g1Click(Sender: TObject);
    procedure Greyscale1Click(Sender: TObject);
//    procedure Greyscale1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.Open2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then Exit;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
statusbar1.Panels[0].Text:= opendialog1.FileName;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);

begin
image2.Picture.Assign(image1.Picture);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if SaveDialog1.execute then
begin
image2.picture.SaveToFile(SaveDialog1.FileName + '.jpg');
showmessage(savedialog1.FileName);
end
else
  begin
    MessageBox(0,PChar('Gagal melakukan asosiasi file'),PChar('Kesalahan'),MB_OK+MB_TASKMODAL+MB_ICONINFORMATION);
  end;
end;
// if SaveDialog1.execute then
 //begin
 // image2.picture.SaveToFile(SaveDialog1.FileName);
  //ShowMessage(SaveDialog1.FileName);
  //SaveDialog1.Filter := '(*.jpg)';
  //if Pos('.jpg',SaveDialog1) = 0 then SaveDialog1 := SaveDialog1 + '*.jpg';
procedure TForm1.g1Click(Sender: TObject);
var gg,r, g,b:
byte;
x, y,i, j:
integer;
imgBuff:TBitmap;
begin
imgBuff:=TBitmap.Create;;
imgBuff.Assign(image1.Picture.Graphic); // convert dari jpg ke bitmap

image2.Picture.Bitmap:=TBitmap.Create;
image2.Picture.Bitmap.PixelFormat:=pf24bit;
image2.Picture.Bitmap.Width:=imgBuff.Width;
image2.Picture.Bitmap.Height:=imgBuff.Height;

For i:=0 to imgBuff.width-1 do
For j:=0 to imgBuff.Height-1 do
image2.canvas.pixels[i,j]:=imgBuff.Canvas.pixels[i,j];
begin
for x:=0 to image2.picture.Width do begin
for y:=0 to image2.picture.Height do begin
r:=getRvalue(image2.canvas.Pixels[x,y]);
g:=getGvalue(image2.canvas.Pixels[x,y]);
b:=getBvalue(image2.canvas.Pixels[x,y]);
gg:=round((0.299*R) + (0.587*G) + (0.114*B));
image2.Canvas.Pixels[x,y]:=RGB(gg,gg,gg);
end;
end;
end;
end;

procedure TForm1.Greyscale1Click(Sender: TObject);
var gg,r, g,b:
byte;
x, y,i, j:
integer;
imgBuff:TBitmap;
begin
imgBuff:=TBitmap.Create;;
imgBuff.Assign(image1.Picture.Graphic); // convert dari jpg ke bitmap

image2.Picture.Bitmap:=TBitmap.Create;
image2.Picture.Bitmap.PixelFormat:=pf24bit;
image2.Picture.Bitmap.Width:=imgBuff.Width;
image2.Picture.Bitmap.Height:=imgBuff.Height;

For i:=0 to imgBuff.width-1 do
For j:=0 to imgBuff.Height-1 do
image2.canvas.pixels[i,j]:=imgBuff.Canvas.pixels[i,j];
begin
for x:=0 to image2.picture.Width do begin
for y:=0 to image2.picture.Height do begin
r:=getRvalue(image2.canvas.Pixels[x,y]);
g:=getGvalue(image2.canvas.Pixels[x,y]);
b:=getBvalue(image2.canvas.Pixels[x,y]);
gg:=round((0.333*R) + (0.333*G) + (0.333*B));
image2.Canvas.Pixels[x,y]:=RGB(gg,gg,gg);
end;
end;
end;
end;
end.

untuk source codenya bisa di download di sini

Clash Royale Update Terbaru

Clash of Royale adalah sebuah game yang berbeda — dilihat dari sisi gameplay — dari Clash of Clans. Game ini menggabungkan beberapa macam genre menjadi satu; tower defense, cards game, dan sekaligus real-time strategy.

Dalam Clash of Royale, tugas pemain adalah berusaha mempertahankan tiga bangunan utama dari berbagai serangan musuh. Satu bangunan yang terletak di tengah ditempati oleh sang raja, adalah bangunan utama. Sedangkan dua bangunan lainnya yang terletak di kanan dan kiri bangunan utama adalah bangunan pendamping yang ditempati oleh pemanah. Tugas lainnya yaitu menghancurkan bangunan utama musuh untuk merebut ketiga tropi mereka sekaligus. Pemain akan diberikan waktu selama tiga menit saja sebelum sudden death muncul. Setelah sudden death muncul, pemain yang mendapatkan dua tropi pun akan otomatis memenangkan pertandingan.

Pertahanan yang baik adalah sebuah serangan. Begitu juga dengan strategi yang saya terapkan pada Clash of Royale. Walaupun masing-masing tower mempunyai penjaganya sendiri, pemain harus tetap memberikan pasukan untuk membantu mempertahankan ketiga tower tersebut. Disinilah permainan kartu muncul.

Disinilah letak keunikan Clash of Royale. Jika sebelum bertanding pemain dapat memilih kartu pasukan apa saja yang ingin mereka gunakan saat bertanding, maka pada saat pertandingan berlangsung, kartu pasukan yang keluar tetap bersifat acak. Hal ini sengaja dibuat agar setiap pemain mendapatkan kesempatan yang sama besar untuk memenangkan pertandingan walaupun terdapat perbedaan level.

Terakhir adalah elemen real-time strategy, yang dapat kalian temukan pada saat pertandingan berlangsung. Untuk mendapatkan serangan yang efektif, kalian dapat mengatur penempatan pasukan sedemikian rupa agar pasukan musuh berada pada jarak serangan tower kalian. Hal ini akan membuat pasukan musuh melemah dan sekaligus memberikan kesempatan pasukan kalian untuk maju mendekati tower musuh. Strategi yang pemain lakukan akan bergantung dengan tanggapan strategi lawan. Clash of Royale adalah sebuah game PVP based, yang berarti lawan kalian bukanlah sebuah AI komputer sehingga setiap pertandingan akan berbeda satu dengan yang lainnya.

DOWNLOAD

Finger Security Premium Apk

FingerSecurity adalah aplikasi pertama yang memungkinkan pemilik perangkat Samsung dengan pembaca sidik jari untuk melindungi aplikasi pilihannya.
FingerSecurity rilis pertama pada 16 Juli 2014
Fitur Widget untuk cepat mengaktifkan / menonaktifkan layanan Timeout untuk memungkinkan adanya pendek atau tidaknya sampai Anda mengunci keamanan berbasis layar Lokasi sehingga Anda tidak perlu membuka aplikasi Anda ketika Anda berada di rumah (WiFi dan Bluetooth). Keamanan canggih untuk mencegah uninstall Auto melindungi aplikasi baru Sembunyikan UI untuk scanner jari sandi Alternatif Kustom per pengaturan aplikasi Lindungi Pemberitahuan (setelah teks ticker) Gunakan tema Gunakan Fingers khusus untuk membuka aplikasi yang berbeda Multi-Lang Didukung
Petunjuk Download APK Run & install itu Selesai.

screenshot

DOWNLOAD

Avast Premier 2016 Terbaru

Selamat Malam sahabat Blog di Sini Saya akan membagikan software avast PREMIER yang sangat ampuh untuk membasmi virus yang ada di laptop kalian,
ok deskripsinya seperti di bawah ini :
Avast! adalah sebuah program anti-virus yang dikembangkan oleh Alwil Software yang berdomisili di Praha, Republik Ceko. Program ini pertama kali dirilis pada April 1988. Avast! adalah salah satu program-antivirus yang pertama dirilis untuk Windows 64 bit bisa juga di jalankan di windows 32 bit

Kelebihan :
1. Avast Home Edition menawarkan anti virus, worm, trojan, boot time scanner, feature screen saver scaner membuat antivirus ini dapat bekerja sebagai screen saver
Scanning cepat
2. Tampilan Avast sangat menarik
3. Anda dibarikan opsi untuk menyesuaikan level mana pendeteksian virus, anda dapat menggunakan low detection atau level pendeteksian lainnya. Yang perlu diperhatikan Semakin tinggi level pendeteksian semakin banyak memakan resource atau sumber daya system komputer.
4. Realtime protection
5. AVAST menggabungkan teknologi anti-spyware dengan jaminan dari West Coast Lab’s Checkmark process dan anti-rootkit nya.

kekurangan :
1. Avast belum mempunyai file update offline sehingga avast negupdate dalam keadaan online
2. False alarm antivirus avast dinilai lumayan banyak. Sehingga ini dapat menjadi pekerjaan untuk Avast kedepannya dalam memperbaiki error false alarm.
3. Terkadang Avast tidak bisa heal virus infection
4. Avast sering terlambat mendeteksi virus-virus lokal baru (di Indonesia). Pernah terjadi ketika ada virus lokal terbaru maka avast baru bisa mendeteksiya beberapa bulan kemudian, hal ini terjadi kemungkinana disebabkan pengguna avast sangat banyak di dunia sehingga avast tidak dapat fokus meneliti virus-virus di Indonesia dengan maksimal.  

untuk instalasinya sabgat mudah, tinggal instal seperti byasa setelah itu jika masih free yang gratisan :D
tinggal masukkan lisensenya aja, ingat untuk masukkan lisensenya harus online internet ya :)
ini sudah saya rar beserta lisensenya
langsung download aja

DOWNLOAD

Cara Membuat jaringan offline Sendiri Di laptop

Selamat Malam sahabat web, di sini saya akan share tentang cara membuat jaringan sendiri secara offline yang nanti ini bisa sebagai sharing data dan juga bisa untuk multiplayer bermain berdua, sungguh mengasikkan bisa membuat jaringan offline sendiri 

ini saya memakai windows 7 recomended yang bisa di pakai untuk jaringan ad hoc

ok langsung  saja saya mulai 

hidupkan laptop komputer anda dan usahakan windows 7 ya :)

jika sudah mulai pertama

silahkan untuk klik kanan pada bagian icon jaringannya..

setelah itu yang kedua pilih yang open network and sharing center pada yang nomer dua tersebut

jika sudah akan tampil halaman seperti berikut ini

klik kiri pada nomer tiga yang saya tandai warna merah tersebut

setelah itu pilih yang paling bawah klik tombol scroll bawah 

yang bertulisan set up a wireless ad hoc klik kiri dan setelah itu klik next

maka akan terbuka seperti ini

setelah itu klik tombol next pada gambar di atas.

 setelah itu di suruh untuk memsaukkan nama jaringan anda

terserah apa maunya anda karna itu sifatnya hanya offline jadi gak akan nyambung ke internet,

kalau saya sendiri membuat nama itu @wifi.id biar keren di kira ada wifi,id di desa saya :v 

maaf curhat... hehe

ok lanjut

yang kedua untuk memilih security type jika memilih nomer satu yang  no authentication (open) ini tidak memiliki password jadi jika di konekkan langsung konek tanpa ada passswordnya

untuk yang kedua web bisa sesui keinginan anda memasukkan passwornya, karna yang tau anda passwornya :v

yang ketiga sama kayak yang nomer dua tadi

untuk menyembunyikan passwordnya bisa di klik hide character

setelah itu klik save  pada bagian bawahnya

 setelah itu klik pada bagian nextnya

 

seperti inilah jika proses berjalannya...

nah seperti inilah jika sudah selesai membuat jaringannya :)

akhirnya bisa terkoneksi.

ok sekian dari tutorial yang saya berikan, semoga bermanfaat bagi kalian yang membuat jaringannya sendiri secara offline.

untuk penggunaannya pantau terus website...