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
Untuk menginstal Java di linux saya menemukan artikel di bawah ini untuk mempelajari bagaimana cara menginstal java di linux. Tidak sedikit pengguna yang kesulitan untuk melakukan instalasi java di linux, selain masih kurangnya pengalaman dalam menggunakan linux, instalasi java di linux juga tidak terlalu bersahabat, berbeda dengan instalasi di windows yang di manjakan dengan user interface secara grafis. Namun semua itu tetap tidak bisa di jadikan alasan, kita harus mencoba hingga berhasil 
.
