Kunci Jawaban Game Tebak Gambar

Kunci Jawaban Game Tebak Gambar Android Level 1-20


Kunci Jawaban Game Tebak Gambar Andorid Level 1 - 9Kunci Jawaban Game Tebak Gambar Andorid Lengkap - Game Tebak Gambar adalah salah satu game atau permainan buatan anak Indonesia yang lumayan banyak diminati. Game ini menguji imajinasi, nalar, dan logika Anda.

Sesuai dengan judulnya, pada game ini Anda akan disuruh menebak beberapa gambar yang disediakan untuk disusun menjadi beberapa kalimat. Di dalam permainan ini disediakan banyak level, makin tinggi level maka makin rumit tebakan yang diberikan.

Jika Anda sudah memainkannya, pasti akan merasakan kesulitan dalam menyelesaikan suatu tebakan. Tapi tenang, kali ini Faisal Fachrureza Share akan memberitahu Anda Kunci Jawaban Game Tebak Gambar Android Lengkap

Baca juga : Mainkan Flappy Bird Online

Level 1

  1. JAMBU BATU
  2. POTONG HARGA
  3. MATI RASA
  4. TENAGA LISTRIK
  5. MATA PISAU
  6. MARI MAKAN
  7. TAMBAH TUA
  8. TAHI LALAT
  9. MINTA UANG
  10. OBAT CINA
  11. FERMENTASI ANGGUR
  12. KAMBING HITAM
  13. ALAS KAKI
  14. IGA BAKAR
  15. DAUN BAYAM
  16. TUA BANGKA
  17. KUPAS UDANG
  18. JAM KOSONG
  19. TANTANGAN SERU
  20. AKU SAYANG MAMA DAN PAPA

Level 2

  1. NASIB BURUK
  2. PUTRI ISTANA
  3. HIDUP MEWAH
  4. KUCING BELANG
  5. PETENIS HANDAL
  6. PEMIMPIN KELUARGA
  7. MENDADAK MIMISAN
  8. PINJAM KEMEJA
  9. TRUK GANDENG
  10. JANGKA KAKI
  11. TIDAK SETUJU
  12. KOTAK SARAN
  13. LEBIH BAIK
  14. JAMBU KUNING
  15. AKAR RUMPUT
  16. UNTAIAN BUNGA
  17. HARGA DIRI
  18. POLISI TIDUR
  19. PULANG KANDANG
  20. BATANG POHON RAMBUTAN ROBOH

Level 3

  1. PENDUDUK ASING
  2. ANGKATAN LAUT
  3. PERSENTASE BIAYA
  4. DEKORASI BUTIK
  5. BISNIS WARALABA
  6. MENGEJAR WAKTU
  7. SALON MINIMALIS
  8. ANAK DUNGU
  9. SEPERTI GARAM
  10. EKSPANSI PERUSAHAAN
  11. DEMAM BERDARAH
  12. DISTRIBUSI DAGING
  13. ASIMILASI OKSIGEN
  14. BOSAN BERCINTA
  15. BEBAN TALANGAN
  16. MENANGKAP LALAT
  17. PELAMPUNG RENANG
  18. BASKOM AIR
  19. SAMBAL BAJAK
  20. BELASAN KORBAN MATI KELAPARAN

Level 4

  1. KUNCIR KUDA
  2. INFORMASI BERHARGA
  3. PELUKIS WAJAH
  4. RAMBUTAN MANIS
  5. PERIJINAN TAMBANG
  6. PULAU BATAM
  7. SOBAT PERTAMA
  8. NAIK OKTAF
  9. KHUSUS DEWASA
  10. JAMU KUAT
  11. SUSUNAN ASLI
  12. GAGAL GINJAL
  13. KURANG AJAR
  14. RUMAH TANGGA
  15. SEKSI SEKALI
  16. KERAMIK LANTAI
  17. JASA TULIS
  18. BANGKU DATAR
  19. TANGKI GAS
  20. HORMATI BUNDA AGAR HIDUP TENANG

Level 5

  1. KAPTEN KAPAL
  2. PELAMPIASAN HASRAT
  3. GOLOK PUSAKA
  4. PENYUMBATAN DARAH
  5. TARIF LISTRIK
  6. INDUKSI MAGNET
  7. HAK ASASI
  8. PETANI INDONESIA
  9. PIRING TERBANG
  10. ANAK ZEBRA
  11. BUAH ZAKAR
  12. KRITIK TAJAM
  13. SIANG BOLONG
  14. MERASA TEGANG
  15. KERANGKA GEDUNG
  16. KUALITAS FILM
  17. TEKAD BULAT
  18. KIRIM UANG
  19. UKURAN EMPANG
  20. KERJA RINGAN GAJI KURANG BANYAK

Level 6

  1. KACANG POLONG
  2. TAYANG SEKILAS
  3. KETUA PARTAI
  4. MOBIL MOBILAN
  5. BANDAR TEKOR
  6. RUMPUT LIAR
  7. KOTA BESAR
  8. KUMIS KUCING
  9. KURANG GIGIH
  10. KERTAS HIAS
  11. BAU TANAH
  12. DUA ANAK
  13. NAFAS CINTA
  14. KEPALA SUKU
  15. KAWAN SERUMAH
  16. GULALI MATANG
  17. KOLAK PISANG
  18. GEMBOK RUMAH
  19. BUNGA IMITASI
  20. SUPIR MOBIL TINJA MAKAN DADA UNGGAS

Level 7

  1. KESELAMATAN PRESIDEN
  2. TUANG KOPI
  3. KAMERA RUSAK
  4. DARAH TINGGI
  5. DAUN PANDAN
  6. BUNGA SAKURA
  7. MALAM KELABU
  8. ANJING TETANGGA
  9. BALING PESAWAT
  10. RUANG KARAOKE
  11. LAPANG DADA
  12. SEDOT UPIL
  13. KEONG RACUN
  14. SOLIDARITAS BURUH
  15. KELUAR GARIS
  16. GUDANG LAMPION
  17. JEMBATAN LAYANG
  18. PANJANG KARET
  19. KOPERASI MANDIRI
  20. RAJIN MENIMBA ILMU AGAR JADI SERBA BISA

Level 8

  1. PATROLI GABUNGAN
  2. ABORSI LANGSUNG
  3. PAHAM LIBERAL
  4. TENDANG SELANGKANGAN
  5. KERACUNAN FORMALIN
  6. SEMESTA ABADI
  7. MENANAK NASI
  8. JUARA GULAT
  9. LINGKARAN SETAN
  10. HARGA LONTONG
  11. AKAL BULUS
  12. PANGKUAN BANGSA
  13. KESET RUMAH
  14. SEDANG PAMERAN
  15. SUMPAH KERAMAT
  16. SATELIT PARABOLA
  17. PENAMBANG KUAT
  18. REKENING GENDUT
  19. SEKOPER SENAPAN
  20. BUALAN DAKU MERAYU RAJA KERAS KEPALA

Level 9

  1. KURANG GARAM
  2. BABI NGOROK
  3. PEREMPUAN TINGGI
  4. MERICA PUNGUT
  5. KALIBRASI BATERAI
  6. PELUMAS KERETA
  7. PEMICU ACARA
  8. KUASA HAKIM
  9. SELALU MEMUJAMU
  10. ISU PERSAINGAN
  11. SUARA KETAPEL
  12. AKU PUCAT
  13. KEBELET PIPIS
  14. NINA BOBO
  15. STRUKTUR KRISTAL
  16. BISIKAN RIMBA
  17. EKONOMI SULIT
  18. SUSUN SILANG
  19. ENERGI GITARIS
  20. USUS TERPOTONG SEPARUH SAAT OPERASI PENGANGKATAN LIMPA

Level 10

  1. JATUH BANGUN
  2. MOTIVASI KATA
  3. KECUALI DAHI
  4. OBESITAS RINGAN
  5. BIAYA RELOKASI
  6. PENYUSUTAN ASET
  7. PERANGKO KILAT
  8. ANGKAT TANGAN
  9. EMPATI GURU
  10. SI OTAK UDANG
  11. MEMUTAR LOGIKA
  12. JEJAKA TAKUT
  13. BUAH BIBIR
  14. NOTA HUTANG
  15. KODE ETIK
  16. PELATIHAN DUKUN
  17. BIASA PUSING
  18. BUKU LARIS
  19. CUMA RAHASIA
  20. SERDADU GAGAH BATAL JUARA KETIKA DIA LUPA DIRI

Level 11

  1. TANGAN KOSONG
  2. OTAKMU MIRING
  3. KOMPUTER LELET
  4. ATURAN SELERA
  5. GARIS POLISI
  6. TITIK HITAM
  7. DONATUR RESMI
  8. GEDUNG KEMBAR
  9. MAKANANKU BUSUK
  10. TUKANG BUBUR SEKARANG BESAR KEPALA SEBAB JADI BINTANG PAPAN ATAS
  11. CUMA SINIS
  12. BERANGKAT AKROBAT
  13. KODOK TERBANG
  14. ADU ITIK
  15. SENIN JANUARI
  16. TOKO BORGOL
  17. SEMOGA DINGIN
  18. JURAGAN TENAR
  19. PENDIDIKAN JASMANI
  20. JANGAN SUKA PAKSAKAN MIMPI BILA TAK BERUSAHA SEKUAT TENAGA

Level 12

  1. JAWABAN POLOS
  2. LAYAR KACA
  3. SURYA TENGGELAM
  4. NAMA WARNET
  5. KALKULASI PUTARAN
  6. BELUM BACA
  7. OBAT MANUSIA
  8. PEDANGDUT GANTENG
  9. PANTAUAN DALANG
  10. BANTING TULANG SIANG MALAM SAMPAI PUSINGTUJUH KELILING DEMI UANG SEKOLAH
  11. PATROLI MALAM
  12. KECAMATAN MAJU
  13. SAKSI BISU
  14. PERBAN DOKTER
  15. POTONG TONGKAT
  16. PERBAN DOKTER
  17. BAJU MELAYU
  18. BAGIAN LANGKA
  19. TARIK KEPUTUSAN
  20. KOIN TIPIS
  21. SURAT EDARAN PENANGKAPAN BERADA DALAM PUSAT EVALUASI

Level 13

  1. MENCELA NASIHAT
  2. HAMPIR PIRANG
  3. SIFAT TERPENDAM
  4. BIRO DAGANG
  5. PELAYAN WARUNG
  6. BLANGKO PERMOHONAN
  7. KAKI PERAWAN
  8. HORMATI GADIS
  9. BINTANG KECIL
  10. PEJABAT TURUN LAPANGAN HADAPI DEMO NASIB BURUK PENDUDUK MALAS
  11. BACA PIKIRAN
  12. BAHAN TULISAN
  13. RESIKO BOIKOT
  14. PINJAM BANK
  15. SERIBU SURAT
  16. PERSENTASE TIRUAN
  17. OBATI KESEPIAN
  18. TULAR PENYAKIT
  19. DARAH PANAS
  20. GADIS BISU SUKA MERANGKUL GULING DIRUANG PRIBADI

Level 14

  1. LURUS HATI
  2. KENCING MANIS
  3. POLISI NAKAL
  4. KUNCI CAKRAM
  5. MANGKOK KOKOH
  6. OMBAK TENANG
  7. PETAKA SURAM
  8. IBUKU PANDAI
  9. BUAYA BUNTUNG
  10. RONA WAJAH WARTAWAN HIDUNG BELANG TERSIPU MALU JIKA KEDOK TERBUKA
  11. KESET RUMAH
  12. KOPI SAUDAGAR
  13. MACAN OMPONG
  14. DENGAR PUJANGGA
  15. TEKKO BENGKOK
  16. TANGGAL TUA
  17. SAUDARAKU VOKALIS
  18. TOPI PANTAI
  19. BERISTRI DUA
  20. DI LORONG HAMPA NAHKODA HIMBAU KALAU PIPIS TOLING DISIRAM

Level 15

  1. WAKTU BEGADANG
  2. BANGKU SIRKUS
  3. KOPI ALAMI
  4. INJAK GAS
  5. CUCU PANGLIMA
  6. DILANDA KECEMASAN
  7. JASA MURAH
  8. ROTI KUKUS
  9. MUKA TEMBOK
  10. CALON MERTUA MINTA AKU JADI PILOT HANDAL DAN TIDAK MEROKOK
  11. TEKANAN BATIN
  12. LUDAHI LAWAN
  13. KEJUTAN DUKA
  14. KOMPOSISI CAIRAN
  15. ANGKARA MURKA
  16. BANYAK MULUT
  17. USAHA DAHULU
  18. ABSEN TERATUR
  19. KOREKSI OTOMATIS
  20. LAHAN DUKU GERSANG KARENA ULAH KELICIKAN WARGA KAPITALIS

Level 16

  1. KAKUS JOROK
  2. BALITA BUNGKUK
  3. FREKUENSI LETUSAN
  4. WANITA MENGGIGIL
  5. MESKI DIABAIKAN
  6. AURA JAHAT
  7. KELIPATAN RATUSAN
  8. IMBAS KETAMAKAN
  9. KOMANDO PETUALANGAN
  10. BANDAR EKSTASI MENANGIS MIRIS MERATAPI NASIB YANG PILU
  11. BIODATA WANITA
  12. CUMA SEPELE
  13. DAUN SALAM
  14. ASA PASTI
  15. PECAT KOMISARIS
  16. LAHAR PANAS
  17. PEDANG HALILINTAR
  18. BAYANG ILUSI
  19. MEMBUANG MUKA
  20. WAJAH KUSAM POLISI SIRIK BERDARAH DITABRAK TUKANG BECAK AMATIR

Level 17

  1. BAYI TENGKURAP
  2. MAKALAH HUKUM
  3. SPONSOR BANK
  4. LISTRIK MATI
  5. FASE KOMOTERAPI
  6. SEDOT WC
  7. GELANGGANG GURUN
  8. PEDALAMAN DIJELAJAHI
  9. HANTU PENASARAN
  10. WAHAI KAWAN MARI PANJATKAN DOA SUPAYA RENCANA KITA LANCAR
  11. DIBORGOL SERDADU
  12. BERSILAT LIDAH
  13. IMIGRAN GELAP
  14. PELURUS AKIDAH
  15. ALAT BERAT
  16. DATANG BULAN
  17. GARIS BAWAH
  18. PISAH RANJANG
  19. CERITA KLIMAKS
  20. SUDAH SEPATUTNYA MUKA BERSINAR TERANG JADI DAMBAAN TUKANG RIAS

Level 18

  1. RESTO ASING
  2. PEMERAH SAPI
  3. ISU MIRING
  4. MATA JELALATAN
  5. ADU DOMBA
  6. MEMALINGKAN DUNIAKU
  7. TELANJANG BULAT
  8. LIRIK LAGU
  9. SUPER STAR
  10. TETANGGA TANGAN PANJANG KEPERGOK NAIK TURUN BAWA SEKOPER PERMATA DI RUMAH KOSONG
  11. PUTAR FILM
  12. RINGAN TANGAN
  13. KERTAS LOAK
  14. KERANJINGAN BOLA
  15. PETIK APEL
  16. JAGA SINGGASANA
  17. SERANGAN FAJAR
  18. BIBIKU MANTRI
  19. MELATIH NAFAS
  20. PARA KETURUNAN SATRIA BAKAR CATATAN DUKUN PELET DALAM BUNGKUSAN KERAMAT

Level 19

  1. PEMBANTU ASRAMA
  2. PERISTIWA GANJIL
  3. KELUARGA KECIL
  4. GARIS KETURUNAN
  5. UMPAN SILANG
  6. USIR NYAMUK
  7. PERANG KOLONI
  8. MENDARAH DAGING
  9. DELAPAN PERSEN
  10. HATI AKAN TENANG BILA JAUHI URUSAN DUNIA DAN BISIKAN SETAN TERKUTUK
  11. SERUPA DIKTATOR
  12. JEJAKA LUNGLAI
  13. DUKA KEKACAUAN
  14. LOKASI KUA
  15. SUSU ITALIA
  16. HURUF ROMAWI
  17. SALURAN TANGGUL
  18. KODE MOBIL
  19. TULANG BELAKANG
  20. CELANA DALAM PINJAMAN DARI DOSEN DONGKOL DIJEMUR DI ATAS MENARA

Level 20

  1. REDAM POPULARITAS
  2. OPERA SABUN
  3. KAMAR TIDUR
  4. LUPAKAN CINTAMU
  5. PETINGGI POLISI
  6. DISUSUPI MALING
  7. BUNGA ANGSURAN
  8. BATANG LUNGLAI
  9. KOTAK KOSMETIK
  10. PENYUSUNAN ULANG ANGGARAN JANGKA PANJANG KARENA KURANG MEMIHAK KELAS BAWAH
  11. JENIS TANAH
  12. ANGKAT JEMURAN
  13. BAU TANAH
  14. ES JERUK
  15. JUSTRU MAHAL
  16. AURA POSITIF
  17. KOMPOR TABUNG
  18. LABA KOTOR
  19. MAHA PENCIPTA
  20. REMAJA RUMAHAN PECINTA BUNGA SEDANG KAGUMI VARIETAS LANGKA ASLI MANADO
Sekian artikel tentang Kunci Jawaban Game Tebak Gambar Andorid Level 1-20. Semoga menbantu Anda dan selamat bermain.
  1.  
READMORE
Diposting oleh Unknown di 20.21 0 komentar

 

KENARI

READMORE
Diposting oleh Unknown di 19.00 0 komentar

 

love bird

Jenis lovebird

Jenis lovebird di Indonesia

Ada tidaknya kacamata pada lovebird akan berpengaruh terhadap harga dan minat para penggemar lovebird. secara garis besar Love Bird dibedakan menjadi 2 jenis yaitu:
  1. Lovebird klep/kacamata
  2. Lovebird Non-klep/Non-kacamata
Perbedaan antara lovebird kacamata dan Non-kacamata adalah sebagai berikut:
1.Dilihat dari Mata Love Bird itu sendiri
pinggiran mata kalau kacamata ada garis putih tebal melingkari mata lovebird,sedangkan kalu Non-kacamata garisnya Cuma tipis atau bahkan tidak kelihatan sama sekali.

2.Dilihat dari Postur tubuh
Inilah perbedaan kedua yang mendasari bedanya Lovebird Kacamata dan Non Kacamata. Love Bird kacamata, rata rata bodynya lebih kecil dan ramping. Dibandingkan dengan Non Kacamata yang rata rata-rata agak besar dan gemuk.

3. Dilihat dari Rata Rata Bertelur / Birahi
Untuk  Love Bird Kacamata biasanya rata-rata birahi dan bertelur pada usia 8bulan sampai dengan 1tahun, sedangkan Love Bird Non Kacamata biasanya birahi lebih cepat. Biasanya pada usia sekitar7 Bulan Love Bird sudah mulai kawin dan mempersiapkan untuk bertelur
4. Dilihat dari Suara Ocehan
ove Bird non kacamata bnyak disukai oleh peminat Love Bird karena suaranya yang rata-rata panjang dan gacor, ini berbeda dengan Love Bird kacamata yang hanya beberapa jenis warna saja yang memiliki ocehan panjang.

5. Dilihat dari Warna Bulu
Love Bird Kacamata memiliki warna bulu dari yang biasa saj sampai dengan warna yang sangat indah. Untuk lebih jelasnya macam macam warna Love Bird kacamata bisa dilihat di bawah ini.Sedangkan Love Bird Non Kacamata memiliki warna yang sangat beragam sehingga tidak dapat diberi nama satu per satu. Pemberian nama biasanya berdasarkan warna dominan dan muka saja. Seperti : Hijau muka merah, Biru Muka Putih, Hijau muka orange, dsb.

6.Harga dan Minat
Untuk harga dan permintaan pasar dari masing masing Love Bird mungkin saja berubah menurut perkembangan pasar. Ada yang mencari lovebird untuk di dengarkan ocehannya,maka lovebird non kacamata lah pilihannya,Sedangkan untuk sekarang ini Love Bird Kacamata lebih memiliki banyak peminat dan harga yang berbeda 2x lipat lebih mahal dari Love Bird non Kacamata,karena banyak peminat lovebird yang mencari keindahan warnanya.

Untuk cara perawatannya, makanan, dan sifatnya, relative tidak ada perbedaan antara Love Bird kacamata dan non kacamata. Untuk itu, carilah Love bird yang sesuai dengan keinginan dan keperluan anda sebelum membelinya.

Jenis-jenis Lovebird di Indonesia

Lutino Mata Merah
Lutino Mata Hitam



Hitam pala hitam
cobalt dan Violet

Pastel putih
Hitam pala putih
Pastel kuning
Olive
Anakan umur 10 hari


SELAIN ITU ADA JUGA SPESIES NYA YAKNI:

JENIS-JENIS BURUNG LOVE BIRD MENURUT WARNANYA DAN KACAMATA
Inilah kumpulan Lovebird berdasarkan Warna,Kacamta dan Asalanya. mudah-mudahan bisa memberikan pengetahuan kepada pencinta burung Lovebird sehingga bisa tau jenis-jenisnya.
Bagi yang ingin menambahkan tentang jenis atau asalnya bisa di tambahkan di Postingan ini.












Untuk informasi lebih lanjut dan pemesanan, silahkan hubungi:
Email : 
pecintalovebird@gmail.com  atau Via Tlp / Sms di 085347653897
READMORE
Diposting oleh Unknown di 04.27 0 komentar

 

Facebook Auto Update Status Via dengan Vb.net

Facebook Auto Update Status Via dengan Vb.net

http://ikutin-tutor.blogspot.com/
Facebook Auto Update Status Via - Iseng-iseng buat aplikasi kecil-kecilan yang beginian, sebenernya sudah lama saya buat, tapi baru bisa sekarang saya sheare. Saat saya menggunakan aplikasi ini atau dengan scripts php, temen facebook saya kurang seneng katanya, dia bilang saya cuma menuh-menuhin beranda dia aja, soalnya itu-itu aja yang saya update di status saya, hehehehe,,, iya juga sih.

Awalnya saya terinspirasi dari temen facebook yang menggunakan auto update status dengan script php, saya coba-coba oprek source dari facebook, ternyata masih bisa untuk auto update. Setelah facebook melakukan update, untuk auto like yang saya punya ga berfungsi jadi ya tinggal auto update aja deh, lom sempet oprek-oprek lagi untuk auto like-nya.

Untuk penggunaan aplikasi ini sayangnya kita harus online juga sob, beda banget dengan yang menggunakan script php, dimana kalau dengan php dalam keadaan offline pun kita bisa update status dan like. Tapi, lumayanlah sob buat promosi di status kita menggunakan aplikasi ini, sekarang yang sheare scripts php buat auto update status dan like udah jarang. Mungkin sudah sebagian scripts php sudah tidak berfungsi lagi setelah dari facebook sendiri melakukan update.

Disini saya hanya memberikan satu via yaitu via BlackBerry, sobat bisa menambahkan via apa aja di dalam sourcenya serta edit-edit suka-suka sobat. Untuk URL via apa aja nya sobat bisa cari di google. Silahkan download sorce code demonya, dan oprek-oprek suka-suka sobat tanpa menghilangkan Credit source tentunya.

Download Source Code
mirror I
http://www.mediafire.com/download/2ine7g06haa93rw/Facebook_Auto_Update_via.rar
mirror II
 https://sites.google.com/site/ikutintutor/home/savetheenvironment/Facebook%20Auto%20Update%20via.rar
Selamat mencoba, semoga bermanfaat.
Facebook Auto Update Status Via dengan Vb.net Title : Facebook Auto Update Status Via dengan Vb.net
Description : Facebook Auto Update Status Via - Iseng-iseng buat aplikasi kecil-kecilan yang beginian, sebe...
READMORE
Diposting oleh Unknown di 20.29 0 komentar

 

Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net

Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net

Untuk Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net anda harus mengerti terlebih dahulu jawaban dari pertanyaan yang akan anda buat dan mampu menghitung jumlah huruf dari setiap jawaban dari pertanyaan yang dibuat tersbut, kemudian harus bisa menggabungkan 2 jawaban atau lebih menjadi satu rangkaian kata dengan metode mendatar dan menurun.
Membuat Game TTS (Teka Teki Silang) Menggunakan Visual Basic 2008/VB.net susah-susah mudah sebenarnya, karena harus benar-benar jeli dan tau betul rancangan If & Then.
Karena rancangan If & Then ini tidak seperti If & Then sederhana yang hanya menggunakan 1 Alasan saja akan tetapi logika awalnya seperti ini Jika textbox1.text=A atau textbox1.text=a dan textboxt2.text=B atau textbox2.text=b maka label1.text=benar.
Baiklah untuk mempersingkat waktu dan tempat juga penulisan maka saya akan memulai pembuatan Game TTS ini, buatlah satu form dengan komponen:
  • 32 Textbox
  • 5 Label
  • 1 Picturebox
 Lihat gambar dibawah ini dan buatlah agar persis seperti gambar dibawah ini:

 
Selanjutnya klik 2 kali formnya, hapus semua kode yang sudah ada dan masukkan kode dibawah ini:
Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Enabled = False
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox2.Enabled = False
        If (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text += 1
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "" Or TextBox3.Text = "") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "" Or TextBox3.Text = "") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        TextBox3.Enabled = False
        If (TextBox1.Text = "a" Or TextBox1.Text = "A") And (TextBox2.Text = "k" Or TextBox2.Text = "K") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text += 1
        ElseIf (TextBox1.Text = "" Or TextBox1.Text = "") And (TextBox2.Text = "" Or TextBox2.Text = "") And (TextBox3.Text = "u" Or TextBox3.Text = "U") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        TextBox4.Enabled = False
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        TextBox5.Enabled = False
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        TextBox6.Enabled = False
        If (TextBox4.Text = "l" Or TextBox4.Text = "L") And (TextBox5.Text = "a" Or TextBox5.Text = "A") And (TextBox6.Text = "r" Or TextBox6.Text = "R") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub


    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        TextBox7.Enabled = False
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        TextBox8.Enabled = False
    End Sub

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        TextBox9.Enabled = False
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        TextBox10.Enabled = False
        If (TextBox7.Text = "a" Or TextBox7.Text = "A") And (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox9.Text = "g" Or TextBox9.Text = "G") And (TextBox10.Text = "e" Or TextBox10.Text = "E") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
        TextBox11.Enabled = False
    End Sub

    Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged
        TextBox12.Enabled = False
    End Sub

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
        TextBox13.Enabled = False
        If (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text += 1
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "" Or TextBox14.Text = "") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "" Or TextBox8.Text = "") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        TextBox14.Enabled = False
        If (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "o" Or TextBox11.Text = "O") And (TextBox12.Text = "b" Or TextBox12.Text = "B") And (TextBox13.Text = "o" Or TextBox13.Text = "O") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text += 1
        ElseIf (TextBox8.Text = "r" Or TextBox8.Text = "R") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        ElseIf (TextBox8.Text = "" Or TextBox8.Text = "") And (TextBox11.Text = "" Or TextBox11.Text = "") And (TextBox12.Text = "" Or TextBox12.Text = "") And (TextBox13.Text = "" Or TextBox13.Text = "") And (TextBox14.Text = "t" Or TextBox14.Text = "T") Then
            Label3.Text = Label3.Text
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox20_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox20.TextChanged
        TextBox20.Enabled = False
        If (TextBox15.Text = "p" Or TextBox15.Text = "P") And (TextBox16.Text = "r" Or TextBox16.Text = "R") And (TextBox17.Text = "i" Or TextBox17.Text = "I") And (TextBox18.Text = "n" Or TextBox18.Text = "N") And (TextBox14.Text = "t" Or TextBox14.Text = "T") And (TextBox19.Text = "e" Or TextBox19.Text = "E") And (TextBox20.Text = "r" Or TextBox20.Text = "R") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        TextBox15.Enabled = False
    End Sub

    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
        TextBox16.Enabled = False
    End Sub

    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged
        TextBox17.Enabled = False
    End Sub

    Private Sub TextBox18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox18.TextChanged
        TextBox18.Enabled = False
    End Sub

    Private Sub TextBox19_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox19.TextChanged
        TextBox19.Enabled = False
    End Sub

    Private Sub TextBox21_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox21.TextChanged
        TextBox21.Enabled = False
    End Sub

    Private Sub TextBox22_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox22.TextChanged
        TextBox22.Enabled = False
    End Sub

    Private Sub TextBox23_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox23.TextChanged
        TextBox23.Enabled = False
    End Sub

    Private Sub TextBox24_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox24.TextChanged
        TextBox24.Enabled = False
        If (TextBox15.Text = "p" Or TextBox15.Text = "P") And (TextBox21.Text = "u" Or TextBox21.Text = "U") And (TextBox22.Text = "a" Or TextBox22.Text = "A") And (TextBox23.Text = "s" Or TextBox23.Text = "S") And (TextBox24.Text = "a" Or TextBox24.Text = "A") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub

    Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox25.TextChanged
        TextBox25.Enabled = False
    End Sub

    Private Sub TextBox26_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox26.TextChanged
        TextBox26.Enabled = False
    End Sub

    Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox27.TextChanged
        TextBox27.Enabled = False
    End Sub

    Private Sub TextBox28_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox28.TextChanged
        TextBox28.Enabled = False
    End Sub

    Private Sub TextBox29_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox29.TextChanged
        TextBox29.Enabled = False
        If (TextBox22.Text = "a" Or TextBox22.Text = "A") And (TextBox25.Text = "m" Or TextBox25.Text = "M") And (TextBox26.Text = "a" Or TextBox26.Text = "A") And (TextBox27.Text = "n" Or TextBox27.Text = "N") And (TextBox28.Text = "a" Or TextBox28.Text = "A") And (TextBox29.Text = "t" Or TextBox29.Text = "T") Then
            Label3.Text += 1
        Else
            Label4.Text += 1

        End If
    End Sub

    Private Sub TextBox30_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox30.TextChanged
        TextBox30.Enabled = False
    End Sub

    Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox31.TextChanged
        TextBox31.Enabled = False
    End Sub

    Private Sub TextBox32_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox32.TextChanged
        TextBox32.Enabled = False
        If (TextBox18.Text = "n" Or TextBox18.Text = "N") And (TextBox30.Text = "e" Or TextBox30.Text = "E") And (TextBox27.Text = "n" Or TextBox27.Text = "N") And (TextBox31.Text = "e" Or TextBox31.Text = "E") And (TextBox32.Text = "k" Or TextBox32.Text = "K") Then
            Label3.Text += 1
        Else
            Label4.Text += 1

        End If
    End Sub


    Private Sub Label3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.TextChanged
        If Label3.Text = 9 Then
            MsgBox("Otak anda cerdas juga yah...")
        End If
    End Sub

    Private Sub Label4_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label4.TextChanged
        If Label4.Text >= 9 Then
            MsgBox("Otak anda sepertinya perlu dibawa kedokter jiwa...")
        End If
    End Sub

    Private Sub TextBox33_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox33.TextChanged
        TextBox33.Enabled = False
        If (TextBox20.Text = "r" Or TextBox20.Text = "R") And (TextBox33.Text = "s" Or TextBox33.Text = "S") Then
            Label3.Text += 1
        Else
            Label4.Text += 1
        End If
    End Sub


End Class
 
Share this article :
Posted by Aang Misbah
READMORE
Diposting oleh Unknown di 20.25 1 komentar

 

Membuat Animasi menggunakan Visual Basic 2008/VB.net

Membuat Animasi menggunakan Visual Basic 2008/VB.net

Langkah awal untuk Membuat Animasi menggunakan Visual Basic 2008/VB.net adalah siapkan gambar yang akan digunakan menjadi animasi, cukup satu gambar saja, saya akan mencoba dengan gambar dibawah ini:
 Simpan gambar diatas di Drive D:\, gambar dan pastikan gambar tersebut bukanlah gambar yang bisa bergerak sebelum dimasukkan kedala Visual Basic 2008, lalu masukkan komponen Picturebox dan Button.
Kemudian Klik 2 kali Form1, hapus semua kode dan masukkan kode dibawah ini:
Public Class Form1
    Dim bingkai(15) As Bitmap

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static mba As Integer = -1
        If mba < 15 Then
            mba += 1
        Else
            mba = 0
        End If
        PictureBox1.Image = bingkai(mba)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim img As New Bitmap("D:\caveman.bmp")
        For x As Integer = 0 To 15
            bingkai(x) = New Bitmap(264, 264)
            Dim gr As Graphics = Graphics.FromImage(bingkai(x))
            Dim leftPos As Integer = 0
            Select Case x
                Case 1, 5, 9, 13
                    leftPos = 64
                Case 2, 6, 10, 14
                    leftPos = 128
                Case 3, 7, 11, 15
                    leftPos = 192
            End Select
            gr.DrawImage(img, 0, 0, New RectangleF(leftPos, Int(x / 4) * 64, 264, 264), GraphicsUnit.Pixel)
        Next
        Timer1.Enabled = True
    End Sub
End Class
Share this article :
Posted by Aang Misbah
READMORE
Diposting oleh Unknown di 20.23 3 komentar

 

Membuat Photo Editor menggunakan visual basic 2008/VB.net

Membuat Photo Editor menggunakan visual basic 2008/VB.net (tahap I)


Untuk Membuat Photo Editor menggunakan visual basic 2008/VB.net cukup rumit, oleh karena itu saya akan membuat tutorialnya bertahap, pada tahap awal ini saya akan menerangkan bagaimana memembuat brightness dan contrass pada gambar dengan menggunakan Visual Basic 2008, langkah awal untuk membuat Brightness dan contrast pada gambar adalah dengan membuat 1 form dan 1 class (masukkan nama filters pada saat membuat class).
Pada Form1 masukkan komponen-komponen dibawah:
  • 1 picturebox
  • 2 trackbar
  • 2 label
  • 1 button
  • 1 openfiledialog
 Letakkan Picturebox dibagian atas, kemudian letakkan button1 dibawah picturebox untuk mempersingkat tulisan lihat saja gambar dibawah ini:

Kemudian klik 2 kali Class yang berada pada list sebelah kanan (Slutions Explorer) hapus semua kode dan masukkan kode dibawah ini:
Imports System.Runtime.InteropServices ' The Marshal class is derieved from here
Imports System.Drawing.Imaging         ' BitmapData structure from here

Public Class Filters

    Shared bmData As BitmapData
    Shared ptr As System.IntPtr
    Shared Red As Integer, Green As Integer, Blue As Integer
    Shared x As Integer, y As Integer
    Shared nOffset As Integer

    Public Shared Function ContrastFilter(ByVal ContrastValue As Integer, ByRef b As Bitmap) As Bitmap
        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("Tidak support dengan gambar value warna 256.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If
        If (ContrastValue < -100 Or ContrastValue > 100) Then Return Nothing

        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
                ptr = bmData.Scan0
        nOffset = bmData.Stride - b.Width * 3
        Dim pixel As Double
        Dim contrast As Double = (100 + ContrastValue) / 100
        contrast *= contrast
                For y = 0 To b.Height - 1
            For x = 0 To b.Width - 1
                Blue = Marshal.ReadByte(ptr, 0)
                pixel = Blue / 255
                pixel -= 0.5
                pixel *= contrast
                pixel += 0.5
                pixel *= 255
                If (pixel < 0) Then pixel = 0
                If (pixel > 255) Then pixel = 255
                Marshal.WriteByte(ptr, 0, CByte(pixel))

                Green = Marshal.ReadByte(ptr, 1)
                pixel = Green / 255
                pixel -= 0.5
                pixel *= contrast
                pixel += 0.5
                pixel *= 255
                If (pixel < 0) Then pixel = 0
                If (pixel > 255) Then pixel = 255
                Marshal.WriteByte(ptr, 1, CByte(pixel))

                Red = Marshal.ReadByte(ptr, 2)
                pixel = Red / 255
                pixel -= 0.5
                pixel *= contrast
                pixel += 0.5
                pixel *= 255
                If (pixel < 0) Then pixel = 0
                If (pixel > 255) Then pixel = 255
                Marshal.WriteByte(ptr, 2, CByte(pixel))
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 3)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

    Public Shared Function BrightnessFilter(ByVal BrightnessValue As Integer, ByRef b As Bitmap) As Bitmap
        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("256 colors bitmap are not supported.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If
        If BrightnessValue = 0 Then Return Nothing
        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
        ptr = bmData.Scan0
        nOffset = bmData.Stride - b.Width * 3
        For y = 0 To b.Height - 1
            For x = 0 To (b.Width * 3) - 1
                Dim bByte As Integer = Marshal.ReadByte(ptr, 0)
                bByte += BrightnessValue
                If bByte > 255 Then bByte = 255
                If bByte < 0 Then bByte = 0

                Marshal.WriteByte(ptr, 0, CByte(bByte))
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 1)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

    Public Shared Function Invert(ByRef b As Bitmap) As Bitmap
        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("256 colors bitmap are not supported.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If

        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
        ptr = bmData.Scan0
        nOffset = bmData.Stride - b.Width * 3
        For y = 0 To b.Height - 1
             For x = 0 To (b.Width * 3) - 1
                Marshal.WriteByte(ptr, 0, CByte(255 - Marshal.ReadByte(ptr, 0)))
               
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 1)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

    Public Shared Function Grayscale(ByRef b As Bitmap) As Bitmap
        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("256 colors bitmap are not supported.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If
        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
        ptr = bmData.Scan0
        nOffset = bmData.Stride - b.Width * 3
        Dim bVal As Byte
        For y = 0 To b.Height - 1
            For x = 0 To b.Width - 1
                Blue = Marshal.ReadByte(ptr, 0)
                Green = Marshal.ReadByte(ptr, 1)
                Red = Marshal.ReadByte(ptr, 2)
                bVal = CByte(0.299 * Red + 0.587 * Green + 0.114 * Blue)
                Marshal.WriteByte(ptr, 0, bVal)
                Marshal.WriteByte(ptr, 1, bVal)
                Marshal.WriteByte(ptr, 2, bVal)
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 3)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

    Public Shared Function AdjustColors(ByRef b As Bitmap, ByVal RedValue As Integer, ByVal BlueValue As Integer, ByVal GreenValue As Integer) As Bitmap
        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("256 colors bitmap are not supported.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If
        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
        ptr = bmData.Scan0
        Dim bVal As Byte
        nOffset = bmData.Stride - b.Width * 3
        For y = 0 To b.Height - 1
            For x = 0 To b.Width - 1
                Blue = Marshal.ReadByte(ptr, 0)
                Green = Marshal.ReadByte(ptr, 1)
                Red = Marshal.ReadByte(ptr, 2)


                Red += RedValue
                Red = Math.Max(Red, 0)
                Red = Math.Min(Red, 255)


                Green += GreenValue
                Green = Math.Max(Green, 0)
                Green = Math.Min(Green, 255)


                Blue += BlueValue
                Blue = Math.Max(Blue, 0)
                Blue = Math.Min(Blue, 255)


                Marshal.WriteByte(ptr, 0, CByte(Blue))
                Marshal.WriteByte(ptr, 1, CByte(Green))
                Marshal.WriteByte(ptr, 2, CByte(Red))
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 3)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

    Public Shared Function AdjustGamma(ByRef b As Bitmap, ByVal RedValue As Double, ByVal GreenValue As Double, ByVal BlueValue As Double) As Bitmap



        If b.PixelFormat = PixelFormat.Format8bppIndexed Then
            MsgBox("256 colors bitmap are not supported.", MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
            Return Nothing
        End If


        If (RedValue < 0.2 Or RedValue > 5) Then Return Nothing
        If (GreenValue < 0.2 Or GreenValue > 5) Then Return Nothing
        If (BlueValue < 0.2 Or BlueValue > 5) Then Return Nothing

        Dim redGamma(256) As Byte
        Dim greenGamma(256) As Byte
        Dim blueGamma(256) As Byte

        Dim i As Integer

        For i = 0 To 255
            redGamma(i) = CByte(Math.Min(255, CInt(((255.0 * Math.Pow(i / 255.0, 1.0 / RedValue)) + 0.5))))
            greenGamma(i) = CByte(Math.Min(255, CInt(((255.0 * Math.Pow(i / 255.0, 1.0 / GreenValue)) + 0.5))))
            blueGamma(i) = CByte(Math.Min(255, CInt(((255.0 * Math.Pow(i / 255.0, 1.0 / BlueValue)) + 0.5))))
        Next

        bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
        ptr = bmData.Scan0
        nOffset = bmData.Stride - b.Width * 3
        For y = 0 To b.Height - 1
            For x = 0 To b.Width - 1
                Marshal.WriteByte(ptr, 0, blueGamma(Marshal.ReadByte(ptr, 0)))
                Marshal.WriteByte(ptr, 1, greenGamma(Marshal.ReadByte(ptr, 1)))
                Marshal.WriteByte(ptr, 2, redGamma(Marshal.ReadByte(ptr, 2)))
                ptr = IntPtr.op_Explicit(ptr.ToInt32 + 3)
            Next
            ptr = IntPtr.op_Explicit(ptr.ToInt32 + nOffset)
        Next
        b.UnlockBits(bmData)
        Return b
    End Function

End Class
Kemudian Klik 2 kali form1, hapus semua kode yang ada dan masukkan kode dibawah ini:

Public Class Form1
    Dim op As OpenFileDialog
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        On Error Resume Next


       
        Filters.BrightnessFilter(TrackBar1.Value, CType(PictureBox1.Image, Bitmap))
        PictureBox1.Refresh()
        Cursor.Current = Cursors.Arrow
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TrackBar1.Minimum = -255
        TrackBar1.Maximum = 255
        TrackBar2.Minimum = -255
        TrackBar2.Maximum = 255
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        End If
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        Filters.ContrastFilter(TrackBar2.Value, CType(PictureBox1.Image, Bitmap))
        PictureBox1.Refresh()
        Cursor.Current = Cursors.Arrow
    End Sub
End Class
 
Share this article :
Posted by Aang Misbah
READMORE
Diposting oleh Unknown di 20.22 0 komentar

 
Langganan: Postingan (Atom)