KENARI

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
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...
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
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
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
Diposting oleh Unknown di 20.22 0 komentar

 

Membuat Game lucu menggunakan visual basic 2008/vb.net

Membuat Game menggunakan visual basic 2008/vb.net

Kali ini saya akan membeberkan sedikit tentang cara Membuat Game menggunakan visual basic 2008/vb.net, dengan menggunakan visual basic 2008 atau visual basic 2010 saya rasa lebih mudah dalam mengawali pembuatan game tersebut, dan pada artikel berikutnya akan saya terangkan bagaimana membuat game menggunakan visual basic 6 dan inilah cara Membuat Game menggunakan visual basic 2008/vb.net.

Untuk Membuat Game menggunakan visual basic 2008/vb.net anda harus menyiapkan beberapa gambar kali ini saya membuat game helikopter pembunuh tikus, jadi saya persiapkan 5 gambar yaitu gambar background, helikopter, tikus, api dan dinamit, anda dapat melihat gambar-gambar yang saya gunakan dibawah ini:



 




Setelah gambar diatas anda download ke komputer atau laptop anda kemudian buatlah satu form lalu ganti background image untuk form dengan gambar begron yang ada diatas setelah itu buatlah  komponen:

  •  4 PictureBox dengan ketentuan:
  1. Picturebox1 masukkan pada  image gambar helikopter, style Mode StretchImage
  2. Picturebox2 masukkan pada  image gambar dinamit, style Mode StretchImage
  3. Picturebox3 masukkan pada image gambar api, style Mode StretchImage
  4. picturebox4 masukkan pada image gambar tikus, style mode StretchImage
  • Button ganti text menjadi Ulangi
  • 3 Timer
  • 2 label label1 ganti text menjadi 0 dan label2 ganti text menjadi Tikus yang terbunuh 
Lihat gambar dibawah:
 Setelah Form yang anda buat seperti gambar diatas, lalu klik 2 kali form yang sudah dibuat, hapus semua kode dan masukkan kode dibawah:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer3.Enabled = True
    End Sub



   

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If PictureBox3.Left = PictureBox4.Left Or PictureBox3.Right = PictureBox4.Right Then
            PictureBox4.Visible = False
            Label1.Text += 1
            Timer2.Enabled = False
        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Timer2.Enabled = True
        Timer1.Enabled = True
        PictureBox3.Visible = False
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        PictureBox4.Left += 10
        If PictureBox4.Left > Me.Right Then
            PictureBox4.Left = Me.Left
            PictureBox4.Visible = True
        End If
        If Label1.Text > 9 Then
            Timer3.Interval = 5
        ElseIf Label1.Text > 19 Then
            Timer3.Interval = 3
        ElseIf Label1.Text > 29 Then
            Timer3.Interval = 2
        ElseIf Label1.Text > 39 Then
            Timer3.Interval = 1
        End If
        If Label1.Text > 49 Then
            MsgBox("Selamat anda dapat membunuh 50 tikus besar")
            Timer2.Enabled = False
            Timer1.Enabled = False
            Button1.Visible = True
            Timer3.Enabled = False
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        PictureBox1.Left = MousePosition.X - 150

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox2.Visible = True
        PictureBox2.Top += 10
        If PictureBox2.Top > Me.Bottom - 280 Then
            Timer1.Enabled = False
            PictureBox2.Top = Me.Top
            PictureBox2.Visible = False
            PictureBox3.Visible = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer3.Enabled = True
        Label1.Text = "0"
        Button1.Visible = False
    End Sub
End Class
Maka hasilnya ketika anda Run aplikasi game ini adalah ketika arah kursor dipindah maka helikopter akan mengikuti arah kursos kekanan dan kekiri dan ketik gambar helikopter diklik maka dinamit akan jatuh, dan ketika dinamit mengenai tanah maka dinamit hilang dan yang keluar adalah api, lalu jika tikus yang berjalan dari kiri kekanan terkena dinamit maka tikus akan menghilang dan yang terlihat hanyalah api namun jika tidak mengenai tikus maka tikus akan berjalan terus.

By: http://artikelvisualbasic.blogspot.com/2013/11/membuat-game-menggunakan-visual-basic.html
Diposting oleh Unknown di 20.08 0 komentar

 
Langganan: Postingan (Atom)