kkn

Hallo..*^_______^*

Beberapa waktu yang lalu merasa waktu untuk tidur sedikit berkurang untuk kegiatan KKN dikampus Fisip Universitas Palangka Raya. Ini baru namanya benar-benar Kuliah, benar-benar Kerja, dan yang pasti ini benar-benar Nyata teman... Schedule mencuci pakaianpun jadi kacau, bahkan banyak drama korea yang mengantri menunggu untuk ditonton.

Apa kau tau apa saja yang dikerjakan bila KKN dikampus??? Berkebun, menanam, merumput dan semua kegiatan asisten rumah tangga lainnya, termasuk membersihkan toilet kampus.

Tapi terlepas dari keluhan orang yang malas tadi, KKN tidak benar-benar buruk, akan ada banyak hal baru yang ditemui, teman baru tentu saja, pengalaman baru, dan warna kulit baru yang berubah jadi sangat coklat karena bekerja dilapangan....

Meski sedang bekerja bersih-bersih, kegiatan foto-foto jangan sampai dilewatkan, dari narsis saat pelepasan KKN dengan dosen pembimbing sampai pamer jaket baru yang harganya mencapai 1 juta. trus kegiatan merumputnya? Akh sebaiknya itu jangan difoto atau sampai diperlihatkan.. heee

Hujan

Sore..

Sekarang lagi santai diruang tamu seraya bikin posting ini..

Dengan backsound lagu lama ost full house i think,  n i think this nice song..

Dari sini hampir setiap sudut rumah terlihat, karena selesai hujan jadi bisa santai disini biasanya panas..

Hari ini mandi lebih awal jam 2 siang, lagi-lagi karena hujan..

Hujan ternyata membuat banyak hal tidak biasa terjadi..

Love In Time of Cholera

Film yang diangkat dari sebuah novel dengan judul yang sama karya Gabriel Garcia Marquez. Sebuah cinta sepanjang masa. Sebuah kisah cinta abadi melintasi abad, dalam emosi-emosi yang sangat unik sekaligus paling kuat yang bisa dirasakan manusia. Di balik fragmen yang menghayutkan, tentang cinta dan keniscayaan.
Gabriel Garcia Marquez mengisahkan berbagai bentuk cinta di antara hubungan manusia: cinta bertepuk sebelah tangan, cinta dalam pernikahan, cinta platonik, cinta sarat amarah,cinta yang dibiasi api cemburu, cinta monyet, cinta yang berbahaya, perselingkuhan cinta, cinta jarak jauh, cinta di kala senja, hingga penantian cinta sejati.
Garcia Marwquez menyuguhkan nilai-nilai yang telah mengkristal tentang makna sesungguhnya menjalani hidup, mencintai, dan memperjuangkan kehidupan cinta. Sesuatu yang sangat humanis, mencintai, atau dicintai, dan kehilangan.

Aku sudah coba cari beberapa link yang share ne film agar bisa didownload agar mempermudah reader, yang ada cuma diyoutube.. So silahkan mencari situsnya sendiri jika ingin menonton ne film, dijamin g kecewa. Jeongmal mianhae... >.<

?

ingin pergi kebulan untuk sesaat..
mengasingkan diri
hari ini merasa agak lelah meski tidak ada yang terjadi..
perasaan yang aneh memang..

Negatif Gambar Pada Delphi

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    image1: TImage;

    image2: TImage;

    btn1: TButton;

    btn2: TButton;

    lbl1: TLabel;

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

  var

x, y: Integer;

p: pbytearray;

begin

image2.Height := image1.Picture.Bitmap.Height;

image2.Width := image1.Picture.Bitmap.Width;

for y := 0 to image1.Picture.Bitmap.Height  - 1 do

begin

p := image1.Picture.bitmap.ScanLine[y];

for x := 0 to image1.Picture.Bitmap.Width - 1 do

begin

image2.Canvas.pixels[x, y] := rgb(

255 - (p[x * 3] - 4),

255 - (p[x * 3] - 2),

255 - (p[x * 3] - 3));

end;

end;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

Sephia Pada Delphi

unit project2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    image1: TImage;

    image2: TImage;

    Intensitas: TLabel;

    edit1: TEdit;

    Sepia: TButton;

    Exit: TButton;

    procedure SepiaClick(Sender: TObject);

    procedure ExitClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SepiaClick(Sender: TObject);

var

color:longint;

r,g,b,rr,gg:byte;

h,w, depth:integer;

begin

// Menentukan nilai intensitasnya

depth := StrToInt(Edit1.Text);

// assign gambar ke image2 dari image1

image2.Picture.Bitmap := image1.Picture.Bitmap;

for h := 0 to image2.Picture.Bitmap.height do

begin

for w := 0 to image2.Picture.Bitmap.width do

begin

// membuat tampilan dengan warna sephia

color:=colortorgb(image2.Picture.Bitmap.Canvas.pixels[w,h]);

r:=getrvalue(color);

g:=getgvalue(color);

b:=getbvalue(color);

rr:=r+(depth*2);

gg:=g+depth;

if rr <= ((depth*2)-1) then

rr:=255;

if gg <= (depth-1) then

gg:=255;

image2.Picture.Bitmap.canvas.Pixels[w,h]:=RGB(rr,gg,b);

end;

end;

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

 Application.Terminate;

end;

end.

Grayscale Pada Delphi

Lama tidak buat posting, hari ini ingin share program yang pernah dibuat dulu, semoga bisa bermanfaat...
program ini menggunkan software delphi, untuk mengubah warna gambar berupa grayscale..

listing program grayscale:

unit Unit01;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    image1: TImage;

    image2: TImage;

    Grayscale: TButton;

    Exit: TButton;

    procedure GrayscaleClick(Sender: TObject);

    procedure ExitClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure imagegrayscale(AnImage: TImage; var output : TImage);

 var

JPGImage: TJPEGImage;

BMPImage: TBitmap;

MemStream: TMemoryStream;

begin

BMPImage := TBitmap.Create;

try

BMPImage.Width := AnImage.Picture.Bitmap.Width;

BMPImage.Height := AnImage.Picture.Bitmap.Height;

JPGImage := TJPEGImage.Create;

try

JPGImage.Assign(AnImage.Picture.Bitmap);

JPGImage.CompressionQuality := 100;

JPGImage.Compress;

JPGImage.Grayscale := True;

BMPImage.Canvas.Draw(0, 0, JPGImage);

MemStream := TMemoryStream.Create;

try

BMPImage.SaveToStream(MemStream);

MemStream.Position := 0;

output.Picture.Bitmap.LoadFromStream(MemStream);

output.Refresh;

finally

MemStream.Free;

end;

finally

JPGImage.Free;

end;

finally

BMPImage.Free;

end;

end;

procedure TForm1.GrayscaleClick(Sender: TObject);

begin

ImageGrayScale(Image1, Image2);

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

Application.Terminate;

end;

end.

Terinspirasi Drama

Bagaimana mungkin kau lebih mempercayai orang lain

Orang yang kau cintai daripada orang yang telah lama kau kenal

Orang yang lama bersamamu

Orang yg telah melalui banyak hal dengan mu

Orang yang telah berbagi senang dan tangisnya denganmu

Sekalipun ia mengecewakanmu

Melakukan hal yang kau benci

Berlawanan arah dengan orang yang baru kau kenali itu

Orang yang yang kau cintai itu

Tidakkah kau berpikir

Tidakkah kau mempercayainya

Karena tentu saja ada hal yang membuatnya begitu

Hal yang tidak mungkin menyakitimu

Hal yang mungkin akan menyakitinya lebih dari sakit kau rasa

Hal yang menjadi alasan ia begitu

Alasan ia berlawanan arah denganmu

Orang yang telah lama bersamanya

Orang yg telah melalui banyak hal dengannya

Orang yang telah berbagi senang dan tangis dengannya

Lirik Lagu Noel - I Miss You 그리워 그리워

늦은저녁 하루를보내고
찬바람에 창문을 닫으니

아득하게 조용한 방에서

아주

작은 조명하나를 켜놓고

어둑해진 밖을 바라보니

문득 너무도 슬퍼지네

매일듣는 노래 LIST 엔

하나같이 다 우리얘기뿐

이별은 모두 다 같으니까

다시

조심스럽게 행복했던날

아름답던 너를 그려보니

나도모르게 눈물이 나네


그리워 그리워 니가 너무나 그리워서

보고싶어서

잊고싶지않아서 잊을수가 없어서

못해준게 너무 많아서

더 그리워


너무나도 사랑했었기에

아름답게 우린 헤어졌어

현실안에 서로를 위해서

알아
selanjutnya..

Lirik Lagu CNBLUE (Minhyuk) Star Ost. Heartstring

하늘에 빛나던 별이
저 멀리 빛나던 별이
내 맘에 내려왔나봐

가슴에 새겨진 별이
가슴에 빛나던 별이
아마 너인것 같아

떨리는 소리가 들리니
Oh star
뜨거운 심장을 느끼니
You’re my star

아주 오랜 먼 옛날부터 나 꿈꿔왔던 사랑이
너인걸 알아
언제나 함께 해줘

아주 오랜 시간을 너도
늘 같은 자리에서 빛나주길
내맘 너에게만 빌려줄게

간주

가슴에 새겨진 별이
가슴에 빛나던 별이
아마 너인것 같아

떨리는 소리가 들리니
Oh star
뜨거운 심장을 느끼니
You’re my star

아주 오랜 먼 옛날부터 나 꿈꿔왔던 사랑이
너인걸 알아
언제나 함께 해줘
  

아주 오랜 시간을 너도
늘 같은 자리에서 빛나주길
내맘 너에게만 줄게

니 맘 속에 새겨진 별도
니 맘 속 빛나는 별도
나에게 말해 영원히 널 사랑해

내 눈 너만 바라볼거야
Oh 너도 나만을 바라봐줄래
우리 서로의 별이 되~ 주길

selanjutnya

Lirik Lagu Lee Seung Gi - We're Friends 친구잖아

울고 있는 네 어깨를 감싸려다
손을 내려놓고 말았어
친구잖아 친구잖아 친구잖아
난 어차피 너에게 난
그냥 좋은 친구잖아
너를 아프게 한다는 그 녀석을
찾아가 때리고 싶었지만
못하잖아 못하잖아 못하잖아
난 그래 봤자 너의 친구 이상은
난 안 되니까
너를 왈칵 안고 입술을 꼭 맞추고
놀라는 널 달래며 오 널
행복하게 할 사람은 나라고
말하고 싶지만 주먹을 꽉 쥐지만
결국엔 말 못해 난 오 난
비겁하게 내 가슴에 핑계를 대
친구잖아

Lanjut...

Lirik Lagu 2NE1 투에니원 - It Hurts 아파

CL
내가 준 신발을 신고 그녀와 길을 걷고
아무렇지 않게 그녀와 kiss하고
내가 준 향술 뿌리고 그녀를 품에 안고
나와 했던 그 약속 또 다시 하겠죠


Minzy
우린 이미 늦었나 봐요. 우리 사랑 끝난 건가요
아무 말이라도 좀 내게 해줘요 Oh-
우리 정말 사랑했잖아 되돌릴 순 없는 건가요


Dara
오늘밤 나만이 아파요


HOOK
Bom
변했니 네 맘 속에 이제 난 더 이상 없는 거니
난 널- 널 생각하면 너무 아파 아파 아-파-


Verse 2]


Minzy
아무것도 아니란 듯 내 눈물 바라보고
태연하게 말을 또 이어가고


CL
아니란 말 못하겠다고 그 어떤 미련도
후회도 전혀 없다고 잔인하게 말했죠


Bom
우린 이미 늦은 건가요 우리 사랑 끝난 건가요
거짓말이라도 좀 아니라고 해줘요-
이젠 더 잘할 수 있는데
다시 만날 수는 없지만


Dara
오늘 밤 나만이 아파요
Lanjut..

Lirik Lagu Someday - IU( 아이유 ) (ost dream hight)

언젠간 이 눈물이 멈추길 언젠간 이 어둠이 걷히고
따스한 햇살이 이 눈물을 말려주길

지친 내 모습이 조금씩 지겨워지는 걸 느끼면
다 버리고 싶죠 힘들 게 지켜오던 꿈을
가진 것보다는 부족한 것이 너무나도 많은 게
느껴질 때마다 다리에 힘이 풀려서 나 주저앉죠
 
언젠간 이 눈물이 멈추길 언젠간 이 어둠이 걷히고
따스한 햇살이 이 눈물을 말려주길

괜찮을 거라고 내 스스로를 위로하며 버티는
하루하루가 날 조금씩 두렵게 만들고
나를 믿으라고 말하면서도 믿지 못 하는 나는
이제 얼마나 더 오래 버틸 수 있을 지 모르겠어요
 
기다리면 언젠간 오겠지 (오겠지) 밤이 길어도 해는 뜨듯이
아픈 내 가슴도 언젠간 (언젠간) 다 낫겠지

날 이젠 도와주길 하늘이 제발 도와주길
나 혼자서만 이겨내기가 점점 더 자신이 없어져요
 
언젠간 이 (언젠간) 눈물이 멈추길 언젠간 이 어둠이 걷히고 (이 어둠이 걷히고)
따스한 (따스한) 햇살이 이 눈물을 말려주길 (이 눈물을 말려주길)
 
기다리면 언젠간 오겠지 (오겠지) 밤이 길어도 해는 뜨듯이 (해는 뜨듯이)
아픈 내 가슴도 언젠간 다 낫겠지 (언젠간 다 낫겠지)

translate