cara membuat aplikasi mengkonversi gambar/foto RGB ke grayscale dan rotasi gambar dengan gambas di linux

Akhirnya tugas saya pun siap, mungkin karena saya terus mencari kali ya..hehe.. beberapa minggu lalu saya mendapat tugas dari dosen fakultas teknik informatika universitas gajah putih takengon untuk membuat sebuah aplikasi yaitu meng konversi kan warna RGB gambar/foto ke grayscale dan juga harus membuat untuk me rotasikan gambar tersebut dan itu semua harus di lakukan di sistem operasi linux, dan saya mencoba membuat nya dengan GAMBAS,,

hmm...

sekarang saya lagi bingung ni, apa mungkin ya aplikasi ini bisa untuk SKRIPSI nanti...

ahh..itu nanti saja lah..

yang penting sekarang saya ingin berbagi ilmu dengan kawan semua...

mungkin jika kawan2 ingin mencari cara membuat aplikasi meng konversi warna gambar ke grayscale dengan visual basic or VB..klik aja di sini

dan ini lah cara membuat aplikasi mengkonversi gambar yang berwarna RGB ke grayscale dengan Gambas..

buat form seperti gambar di atas dan Sediakan 5 buah button, 1 picture box

ubah seperti di bawah ini

button1 : name bsearch, caption open

button2 : name bblack, caption konversi

button3 : name brotate, caption rotasi

button4 : name bmirror, caption kembali

button5 : name bquit, caption quiter

picturebox1 : name ppicture

dan kopi kan, eh Copy kan script di bawah ini :

' Gambas class file
PUBLIC nomfichier AS String
PUBLIC myimg AS Image
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
ME.Center
END

PUBLIC SUB bquit_Click()
ME.Close
END

PUBLIC SUB Menu2_Click()
bquit_Click
END



PUBLIC SUB bsearch_Click()

Dialog.Filter = ["*.jpg", "Fichiers JPEG", ".png", "Fichiers PNG", ".xpm", "Fichiers XPM"]
Dialog.Title = "Ouvrir une photo d'identite"
Dialog.Path = Application.Path

IF Dialog.OpenFile() THEN RETURN
IF Dialog.Path <> "" THEN
brotate.Enabled = TRUE
bblack.Enabled = TRUE
bmiror.Enabled = TRUE
ENDIF
nomfichier = Dialog.Path
myimg = Image.Load(nomfichier)
ppicture.Picture = myimg.Picture
END

PUBLIC SUB bblack_Click()
myimg.Gray
ppicture.Picture = myimg.Picture
END

PUBLIC SUB brotate_Click()
myimg = myimg.Rotate(1.57)
ppicture.Picture = myimg.Picture
END

PUBLIC SUB bmiror_Click()
myimg = Image.Load(nomfichier)
ppicture.Picture = myimg.Picture
END

PUBLIC SUB Button1_Click()
IF myimg = NULL THEN RETURN
myimg.Resize(90, 128)
fplanche.drawallpicture(myimg)
END

Klik 2x pada form yang kosong dan paste kan script di atas..jalankan dengan menekan F5..
saya berhasil menjalankan..
saya harap anda juga..
semoga berhasil..

# cara koneksi kan mysql dengan gambas
# belajar Bahasa Jepang
# Langkah-langkah menginstal Apache,php dan mysql di ubuntu
# Membuat aplikasi mengitung bunga pinjaman dengan vb
# Cara mendapatkan uang dengan Facebook/FB
# cara membuat aplikasi untuk upload foto/gambar dengan gambas
# Langkah-langkah membuat skripsi
# Cara mengajar yang efektif
# Beberapa hal mudah dalam mengajar
# cara membuat status fb/facebook terbalik
# Cara Penulisan Kerja Praktek
# Cara Mudah menginstal Java di sistem operasi Linux
# Cara membuat web browser dengan Gambas di linux
# Cara membuat facebook untuk pemula
# Cara mengkonversi warna dengan VB
# 10 Keunggulan Linux
# Cara instal matlab di ubuntu 10.04
# Cara koneksikan gambas dan mysql
# Cara membuat baca selengkapnya di blog
# Kumpulan skripsi Matematika
# Kumpulan skripsi Informatika
# Kumpulan skripsi bahasa inggris
# Kumpulan skripsi Pertanian
# Kumpulan skripsi Bahasa Indonesia
# Kumpulan skripsi Keperawatan
# Cara mematikan Komputer/Labtop Yang tidak bisa Shut Down
# Daftar Repository Lokal Ubuntu 10.10 Maverick Meerkat di Indonesia
# Mengenal Backlink dan Fungsinya
# Fungsi Backlink dalam search engine
# Panen BackLink

Related Article: