Tampilkan postingan dengan label VB. Tampilkan semua postingan
Tampilkan postingan dengan label VB. Tampilkan semua postingan

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

 

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
READMORE
Diposting oleh Unknown di 20.08 0 komentar

 

Cara Membuat Game joss di Vb.net

Cara Membuat Game di Vb.net 


http://ikutin-tutor.blogspot.com

Cara Membuat Game di Vb.net 2010 / 2008 - Sebenernya ini bukan disebut membuat game sih, tapi meng-add game yang telah ada, yaitu game flash. :D  Tapi lumayan loh, buat kita belajar dan menambah wawasan. Kita bisa bermain game flash tanpa harus membuka link-link atau site yang bertaburan game flash, cukup disini kita meng-add game flash dalam project kita. Bagaimana caranya, ok langsung aja.

Berikut cara membuat Game di Vb.net 2010 / 2008
Bahan-bahan :
1 AxShockwaveFlash beri nama ShockwaveFlash
1 GroupBox
1 ComboBox
1 Button
1 Label

Langkah-langkahnya :
  • Buka Microsoft Visual Studio 2008 / 2010
  • Buat New Project lalu pilih Windows Form Applikasi
  • Beri nama suka-suka kalian
  • Setelah keluar 1 Form di project kita
  • Add bahan-bahan component di toolbox seperti diatas
  • Dan atur posisi suka-suka sobat kalau saya seperti gambar diatas
  • Add Module dengan cara pilih Project -> Add Module -> Pilih Module beri nama "SetPlay.vb", Pastekan code berikut :
Public Class SetPlay
    Public Enum Gamers As Integer
        Raiden_X
        Exofusion
        Strikes_1945
        Planetary_Wars
        Prince_of_Persia
        Americas_Army
    End Enum

    Public Sub SetPlayGame(ByVal Game As String, ByVal selectedGame As Gamers)
        Dim RaidenX As String = "http://www.crazymonkeygames.com/Yt6Rfd/raidenx.swf"
        Dim Exofusion As String = "http://www.crazymonkeygames.com/Yt6Rfd/exofusion2.swf"
        Dim Strikes_1945 As String = "http://media.y8.com/games/content/strikers-1945-flash.swf"
        Dim PlanetaryWars As String = "http://www8.agame.com/mirror/flash/p/PlanetaryWars/PlanetaryWarsGames_co_id.swf"
        Dim PrinceofPersia As String = "http://www8.agame.com/mirror/flash/p/pop.swf"
        Dim AmericasArmy As String = "http://www8.agame.com/mirror/flash/a/americasarmy.swf"

        Select Case selectedGame
            Case Gamers.Raiden_X 'game 1
                Form1.ShockwaveFlash.Movie = RaidenX
                Form1.Text = "Raiden-X | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan Raiden-X"

            Case Gamers.Exofusion 'game 2
                Form1.ShockwaveFlash.Movie = Exofusion
                Form1.Text = "Exofusion | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan Exofusion"

            Case Gamers.Strikes_1945 'game 3
                Form1.ShockwaveFlash.Movie = Strikes_1945
                Form1.Text = "Strikers 1945 | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan Strikers 1945"

            Case Gamers.Planetary_Wars 'game 4
                Form1.ShockwaveFlash.Movie = PlanetaryWars
                Form1.Text = "PlanetaryWars | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan PlanetaryWars"

            Case Gamers.Prince_of_Persia 'game 5
                Form1.ShockwaveFlash.Movie = PrinceofPersia
                Form1.Text = "Prince of Persia Clasic | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan Prince of Persia Clasic"

            Case Gamers.Americas_Army 'game 6
                Form1.ShockwaveFlash.Movie = AmericasArmy
                Form1.Text = "America's Army | Flash Games"
                Form1.GroupBox1.Text = "Sedang dimainkan America's Army"
        End Select
    End Sub
End Class
  • Kembali ke Form1, Klik kanan pada form project, lalu pilih "View code", lalu pastekan kode berikut :
    Dim Nama_Gem As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DataSource = System.Enum.GetNames(GetType(SetPlay.Gamers))
    End Sub
  • Lalu kembali ke Form1 project, klik dua kali pada Button1, dan pastekan code berikut :
        Dim Gem As SetPlay = New SetPlay()
        Gem.SetPlayGame(Nama_Gem, CType(System.Enum.Parse(GetType(SetPlay.Gamers), ComboBox1.Text), SetPlay.Gamers))
  • Lalu save dan build atau play debuger.
  • Dan kita coba Play.

Bagaimana sobat, udah pahamkan..?
Cukup mudah bukan sob, sekarang silahkan kreasikan suka-suka kalian.

Berikut Link / URL Flash Game : silahkan di coba ya gan ....!!!

  • Junggle06    : http://www.GamesForWork.com/games/swf/jungle06.swf
  • Start Drive    : http://www8.agame.com/mirror/flash/m/motorradrennen2.swf
  • Pacman        : http://www.crazymonkeygames.com/Yt6Rfd/Pacman.swf
  • MotoMadness    : http://www8.agame.com/mirror/flash/m/MotoMadness/MotoMadness_games.co.id.swf
  • Puzzle Boubble    : http://files.agame.com/mirror/flash/p/puzzle_bobble.swf
  • Dream Pet Link    : http://files.agame.com/mirror/flash/p/puzzle_bobble.swf
  • Wolverine Mrd Esc    : http://www8.agame.com/mirror/flash/w/wolverine_mrd_escape.swf
  • Poker Games    : http://www8.agame.com/mirror/flash/g/governorofpoker/games.co.id/GOP.swf
  • Shuriken Assault    : http://www.flashninjaclan.com/games2/shurikenassault/assault.swf
  • King of Fighters 98    : http://www8.agame.com/mirror/flash/k/king_of_fighters_wing.swf
Selamat mencoba, semoga bermanfaat. 
READMORE
Diposting oleh Unknown di 20.05 2 komentar

 

Membuat Program Proses Hunter di VB.Net

Membuat Program Proses Hunter di VB.Net

Setelah lama tidak membuat posting karena sesuatu hal...
akhirnya saya menambah koleksi dari program-program VB.Net yang saya pelajari. Hari ini saya menyajikan tentang cara membuat task manager dan  fungsi untuk mematikan salah satu  proses...
Silahkan cek TKP
Pertama seperti biasa kita membuat sebuah form. dimana form ini memuat:
2 command button
1 list box
button 1 untuk mematikan proses yang sedang berjalan
button 2 untuk keluar dari form
list box untuk melihat daftar list proses yang sedang berjalan
langsung saja untuk codingnya.
berikut ini adalah contoh running programnya

Thx for your time
semoga bisa bermanfaat ^^v
untuk yang mau copas coding silahkan di bawa ini
 
Diposkan oleh
READMORE
Diposting oleh Unknown di 20.00 0 komentar

 

CLIENT SERVER dg VB 2010












Membuat program Server
Buka Microsoft visual Basic 2010 Express
Klik New Project
Pilih Windows Form Application
Name : Ketik server
Klik OK

 



 Masukkan objek kontrol-objek kontrol dan atur properti-porpertinya seperti pada tabel berikut:

Objek Kontrol
Properti
Perubahan
Form
Text
Server
TextBox
Name
TextBox1
MultiLine
True
ScrollBars
Both
TextBox
Name
TextBox2
Button
Name
BtnKirim
Text
Kirim Pesan
Button
Name
BtnHapus
Text
Hapus Text
Source Kode
Imports System.IO, System.Net, System.Net.Sockets
Public Class Form1
    Dim Listener As TcpListener
    Dim Client As TcpClient
    Dim ClientList As New List(Of ChatClient)
    Dim sReader As StreamReader
    Dim cClient As ChatClient
    Sub xLoad() Handles Me.Load
        Listener = New TcpListener(IPAddress.Any, 3818)
        Listener.Start()
        xUpdate("Server Aktif", False)
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub
    Sub AcceptClient(ByVal ar As IAsyncResult)
        cClient = New ChatClient(Listener.EndAcceptTcpClient(ar))
        AddHandler (cClient.MessageRecieved), AddressOf MessageRecieved
        AddHandler (cClient.ClientExited), AddressOf ClientExited
        ClientList.Add(cClient)
        xUpdate("client Baru Bergabung", True)
        Listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), Listener)
    End Sub
    Sub MessageRecieved(ByVal Str As String)
        xUpdate(Str, True)
    End Sub
    Sub ClientExited(ByVal Client As ChatClient)
        ClientList.Remove(Client)
        xUpdate("Client Keluar", True)
    End Sub
    Delegate Sub _xUpdate(ByVal Str As String, ByVal Relay As Boolean)
    Sub xUpdate(ByVal Str As String, ByVal Relay As Boolean)
        On Error Resume Next
        If InvokeRequired Then
            Invoke(New _xUpdate(AddressOf xUpdate), Str, Relay)
        Else
            TextBox1.AppendText(Str & vbNewLine)
            If Relay Then Send(Str)
        End If
    End Sub
    Sub Send(ByVal Str As String)
        For i As Integer = 0 To ClientList.Count - 1
            Try
                ClientList(i).Send(Str)
            Catch
                ClientList.RemoveAt(i)
            End Try
        Next
    End Sub
    Private Sub BtnKirim_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnKirim.Click
        xUpdate("Server Berkata: " & TextBox2.Text, True)
        TextBox2.Clear()
    End Sub
    Private Sub BtnHapus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnHapus.Click
        TextBox1.Clear()
    End Sub
End Class
Tambahkan Class
Project => Add Class

Pilih Class 
Klik Add
Masukkan Code di bawah ini ke Class:
Imports System.Net.Sockets, System.IO
Public Class ChatClient
    Public Event MessageRecieved(ByVal Str As String)
    Public Event ClientExited(ByVal Client As ChatClient)
    Private sWriter As StreamWriter
    Private Client As TcpClient
    Sub New(ByVal xclient As TcpClient)
        Client = xclient
        client.GetStream.BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    End Sub
    Private Sub Read()
        Try
            RaiseEvent MessageRecieved(New StreamReader(Client.GetStream).ReadLine)
            Client.GetStream.BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf Read), Nothing)
        Catch ex As Exception
            RaiseEvent ClientExited(Me)
        End Try
    End Sub
    Public Sub Send(ByVal Message As String)
        sWriter = New StreamWriter(Client.GetStream)
        sWriter.WriteLine(Message)
        sWriter.Flush()
    End Sub
End Class
Membuat program Client:
1. Buka Microsoft visual Basic 2010 Express
2. Klik New Project
3. Pilih Windows Form Application
4. Name : Ketik server


5. Klik OK
Masukkan objek kontrol-objek kontrol dan atur properti-porpertinya seperti pada tabel berikut:
Tambahkan ToolStrip 
Klik Yang saya lingkari untuk membuat tombol Connect
klik untuk membuat tombol About
Klik untuk membuat jam (00:00:00)
Atur seperti tabel di bawah ini :
Properti
Perubahan
Connect
Name
BtnConnect
DisplayStyle
Text
Text
Connect
About
Name
BtnAbout
DisplayStyle
Text
Text
About
00:00:00
Name
BtnJam
DisplayStyle
Text
Text
00:00:00
Objek Kontrol
Properti
Perubahan
Form
Text
Client
TextBox
Name
TextBox1
MultiLine
True
ScrollBars
Both
TextBox
Name
TextBox2
GroupBox
Name
IPAddress
Text
IP Address
GroupBox
Name
Port
Text
Port
GroupBox
Name
Nama
Text
Masukkan Nama Kamu
TextBox
Name
TxtIpAddress
Text
127.0.0.1
TextBox
Name
TxtPort
Text
3818
TextBox
Text
TxtNama
Button
Name
BtnHapus
Text
Hapus Text
Button
Name
BtnKirim
Text
Kirim Pesan
Timer
Enabled
True
Interval
1000
Tambahka form baru:
1. Project => Add Windows form
2. Pilih Windows Form
3. Klik Add
Source Kode
Imports System.IO, System.Net, System.Net.Sockets
Public Class Form1
    Dim Client As TcpClient
    Dim sWriter As StreamWriter
    Sub xLoad() Handles Me.Load
        Me.Text &= " " & TxtNama.Text
    End Sub
    Private Sub BtnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
        If BtnConnect.Text = "Connect" Then
            Try
                Client = New TcpClient(TxtIpAddress.Text, CInt(TxtPort.Text))
                Client.GetStream.BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf Read), Nothing)
                BtnConnect.Text = "Disconnect"
            Catch
                xUpdate("Tidak Dapat Connect Ke Server.")
            End Try
        Else
            Client.Client.Close()
            Client = Nothing
            BtnConnect.Text = "Connect"
        End If
    End Sub
    Sub Read(ByVal ar As IAsyncResult)
        Try
            xUpdate(New StreamReader(Client.GetStream).ReadLine)
            Client.GetStream.BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
        Catch
            xUpdate("Kamu Sekarang Tidak Terhubung Ke Server.")
            Exit Sub
        End Try
    End Sub
    Private Sub Send(ByVal Str As String)
        Try
            sWriter = New StreamWriter(Client.GetStream)
            sWriter.WriteLine(Str)
            sWriter.Flush()
        Catch
            xUpdate("Server Tidak Ada.")
        End Try
    End Sub
    Delegate Sub _xUpdate(ByVal Str As String)
    Sub xUpdate(ByVal Str As String)
        If InvokeRequired Then
            Invoke(New _xUpdate(AddressOf xUpdate), Str)
        Else
            TextBox1.AppendText(Str & vbNewLine)
        End If
    End Sub
    Private Sub BtnKirim_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnKirim.Click
        Send(TxtNama.Text & " Berkata: " & TextBox2.Text)
        TextBox2.Clear()
    End Sub
    Private Sub BtnHapus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnHapus.Click
        TextBox1.Clear()
    End Sub
    Private Sub BtnAbout_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAbout.Click
        Form2.Show()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Btnjam.Text = DateTime.Now()
    End Sub
End Class
READMORE
Diposting oleh Unknown di 19.06 0 komentar

 
Langganan: Postingan (Atom)