Visual Studio

Belajar Visual Studio

Assalamualaikum Warahmatullahi Wabarakatu.....

puji syukur saya panjatkan atas rahmat Allah yang maha kuasa

karna dengan rahmatnyalah saya dapat menuliskan blog ini untuk pembelajaran untuk kita semua dibidang pemrograman visual studio

Langsung saja berikut coding-coding tutorialnya

1.if statement

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "hello" Then

            Label1.Text = "world"

        End If

    End Sub

End Class

 

2.Math Function

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MessageBox.Show(20 + 5)

        MessageBox.Show(20 - 5)

        MessageBox.Show(20 * 5)

        MessageBox.Show(20 / 5)

    End Sub

End Class

3.The Progress Bar

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ProgressBar1.Value = ProgressBar1.Value + 20

    End Sub

End Class

4.List Box

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Add(TextBox1.Text)

    End Sub

End Class

5.Radio Button and CheckBox

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then

            MessageBox.Show("You are under 16!")

        ElseIf RadioButton2.Checked = True Then

            MessageBox.Show("You are over 16!")

        End If

        If CheckBox1.Checked = True Then

            MessageBox.Show("You like Harry Potter, nerd")

        End If

        If CheckBox2.Checked = True Then

            MessageBox.Show("What the hell, 2010 sucked")

        End If

        If CheckBox3.Checked = True Then

            MessageBox.Show("the simpsons movie is a conspiracy dude")

        End If

    End Sub

End Class

6.Menu Strip

Public Class Form1

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click

        MessageBox.Show("this is the help form")

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

7.linking form

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

    End Sub

End Class

8.Login form

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "password123" Then

            data.Show()

        Else

            MessageBox.Show("Wrong Password!")

        End If

    End Sub

End Class

9.Text to speech

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SAPI

        SAPI = CreateObject("SAPI.spvoice")

        SAPI.Speak("Welcome to the 13th visual basic .net tutorial")

    End Sub

End Class

10.for_Loop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer = 0

        For i = 0 To 10

            MessageBox.Show("The value of i is: " & i)

        Next

    End Sub

End Class

11.Do While

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim num1 As Integer = 1

        Do While num1 < 10

            MessageBox.Show("The value of num1 is :" & num1)

            num1 = num1 + 1

        Loop

    End Sub

End Class

12.Do Until

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim num As Integer = 1

        Do Until num = 5

            MessageBox.Show("The value of num is: " & num)

            num = num + 1

        Loop

    End Sub

End Class

13.sub

Public Class Form1

    Sub givemessage()

        MessageBox.Show("I am cool for using subs")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call givemessage()

    End Sub

End Class

14.function

Public Class Form1

    Dim labeltext As String = "functions are cool lol"

    Private Function changelabeltext()

        Return labeltext

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = changelabeltext()

    End Sub

End Class

15.Advance Message Box

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If MessageBox.Show("whatever", "whatever", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            MessageBox.Show("you clicked yes")

        Else

            MessageBox.Show("you clicked no")

        End If

    End Sub

End Class

16.logical Operators

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Then

            MessageBox.Show("You didn't fill in the fields!")

        End If

        If TextBox1.Text = "thepassword" And TextBox2.Text = "thesecondpassword" Then

            Form2.Show()

        End If

    End Sub

End Class

17.Timer

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox1.Text = TextBox1.Text + 1

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Stop()

    End Sub

End Class

18.Sending An email

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Mail As New MailMessage

        Mail.Subject = "test email"

        Mail.To.Add("youremail@googlemail.com")

        Mail.From = New MailAddress("youremail@googlemail.com")

        Mail.Body = "This is an ownage email using VB.NET"

        Dim SMTP As New SmtpClient("smtp.gmail.com")

        SMTP.EnableSsl = True

        SMTP.Credentials = New System.Net.NetworkCredential("username", "password")

        SMTP.Port = "587"

        SMTP.Send(Mail)

    End Sub

End Class

19.Emailing application

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Mail As New MailMessage

        Mail.Subject = "test email"

        Mail.To.Add(TextBox2.Text)

        Mail.From = New MailAddress(TextBox2.Text)

        Mail.Body = TextBox1.Text

        Dim SMTP As New SmtpClient("smtp.gmail.com")

        SMTP.EnableSsl = True

        SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)

        SMTP.Port = "587"

        SMTP.Send(Mail)

    End Sub

End Class

26.Ftp Apploud

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/file.txt"), System.Net.FtpWebRequest)

        request.Credentials = New System.Net.NetworkCredential("user", "password")

        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte = System.IO.File.ReadAllBytes("c:\file.txt")

        Dim strz As System.IO.Stream = request.GetRequestStream()

        strz.Write(file, 0, file.Length)

        strz.Close()

        strz.Dispose()

    End Sub

End Class

27.Ftp Aplication

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/file.txt"), System.Net.FtpWebRequest)

        request.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte = System.IO.File.ReadAllBytes(TextBox3.Text)

        Dim strz As System.IO.Stream = request.GetRequestStream()

        strz.Write(file, 0, file.Length)

        strz.Close()

        strz.Dispose()

    End Sub

28.Dounloud and run file

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Network.DownloadFile("url", "C:\downloadedfile.exe")

        Process.Start("C:\downloadedfile.exe")

    End Sub

End Class

29.Web Browser

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        WebBrowser1.GoBack()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        WebBrowser1.GoForward()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        WebBrowser1.Refresh()

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        TextBox1.Text = WebBrowser1.Url.ToString

    End Sub

End Class

30.Aplication Setting

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = My.Settings.greettext

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Settings.greettext = TextBox1.Text

    End Sub

End Class

31.Auto tyred

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        SendKeys.Send(TextBox1.Text)

        SendKeys.Send("{Enter}")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Interval = TextBox2.Text * 1000

        Timer1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Stop()

    End Sub

End Class

32.Array

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tvshows(4) As String

        tvshows(0) = "South Park"

        tvshows(1) = "Family Guy"

        tvshows(2) = "American Dad"

        tvshows(3) = "The Simpsons"

        tvshows(4) = "Supernatural"

        For i = 0 To tvshows.Length - 1

            MessageBox.Show(tvshows(i))

        Next

    End Sub

End Class

33.Spitting String

Dim somestring2() As String

domestring2 = TextBox1.Text.Split(TextBox2.Text)

For i = 0 to somestring2.Length - 1

MessageBox.Show(somestring2(i))

Next

34.Computer Information

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = My.Computer.Name

        TextBox2.Text = My.User.Name

        TextBox3.Text = My.Computer.Info.OSFullName

        TextBox4.Text = My.Computer.Keyboard.CapsLock

        TextBox5.Text = My.Computer.Mouse.WheelExists

        TextBox6.Text = My.Computer.Screen.WorkingArea.ToString

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

    End Sub

End Class

35.Try Catch

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Process.Start(TextBox1.Text)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class

36.Web source code

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox2.Text)

        Dim response As System.Net.HttpWebResponse = request.GETRESPONSE()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim sourcecode As String = sr.ReadToEnd()

        TextBox1.Text = sourcecode

    End Sub

End Class

37.Aplication Adapter

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://h1.ripway.com/TeachMeComputer/currentversion.txt")

        Dim response As System.Net.HttpWebResponse = request.GETRESPONSE()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()

        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then

            MessageBox.Show("You have the current version")

        Else

            MessageBox.Show("Newer version available")

        End If

    End Sub

End Class

38.Website Login

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("http://login.yahoo.com/")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        WebBrowser1.Document.GetElementById("login").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("passwd").SetAttribute("value", TextBox2.Text)

        WebBrowser1.Document.GetElementById(".save").InvokeMember("click")

    End Sub

End Class

29.Reading Text File

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If System.IO.File.Exists(TextBox1.Text) = True Then

            Dim objreader As New System.IO.StreamReader(TextBox1.Text)

            TextBox2.Text = objreader.ReadToEnd

            objreader.Close()

        Else

            MessageBox.Show("That file does not exist!")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox2.Clear()

    End Sub

End Class

30.Saving Text File

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If System.IO.File.Exists(TextBox1.Text) = True Then

            MessageBox.Show("That file does not exist!")

        Else

            Dim objwriter As New System.IO.StreamWriter(TextBox1.Text)

            objwriter.Write(TextBox2.Text)

            objwriter.Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Process.Start(TextBox1.Text)

    End Sub

End Class

40.Open File dialog

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        TextBox1.Text = OpenFileDialog1.FileName

    End Sub

End Class

41.Save File Dialog

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

        Dim FileToSaveAs As String = SaveFileDialog1.FileName

        Dim objwriter As New System.IO.StreamWriter(FileToSaveAs)

        objwriter.Write(TextBox1.Text)

        objwriter.Close()

    End Sub

End Class

42.Special  Folder

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim thepath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        Process.Start(thepath & "\image.jpg")

    End Sub

End Class

43.Get Elemen By tag Name

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate(TextBox1.Text)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")

        For Each CurElement As HtmlElement In PageElements

            TextBox2.Text = TextBox2.Text & CurElement.GetAttribute("src") & Environment.NewLine

        Next

    End Sub

End Class

44.Get all HTML elements

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("www.youtube.com")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            ListBox1.Items.Add(webpageelement.GetAttribute("src"))

        Next

    End Sub

End Class

45.Click Button Without ID

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("http://login.facebook.com/login.php")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            If webpageelement.GetAttribute("value") = "Log In" Then

                webpageelement.InvokeMember("click")

            End If

        Next

    End Sub

End Class

46.Write to Online Save file

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As WebRequest = WebRequest.Create("http://h1.ripway.com/writetext/post.php?w=" & TextBox1.Text)

        request.GETRESPONSE()

    End Sub

End Class1.if statement

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "hello" Then

            Label1.Text = "world"

        End If

    End Sub

End Class

 

2.Math Function

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MessageBox.Show(20 + 5)

        MessageBox.Show(20 - 5)

        MessageBox.Show(20 * 5)

        MessageBox.Show(20 / 5)

    End Sub

End Class

3.The Progress Bar

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ProgressBar1.Value = ProgressBar1.Value + 20

    End Sub

End Class

4.List Box

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Add(TextBox1.Text)

    End Sub

End Class

5.Radio Button and CheckBox

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then

            MessageBox.Show("You are under 16!")

        ElseIf RadioButton2.Checked = True Then

            MessageBox.Show("You are over 16!")

        End If

        If CheckBox1.Checked = True Then

            MessageBox.Show("You like Harry Potter, nerd")

        End If

        If CheckBox2.Checked = True Then

            MessageBox.Show("What the hell, 2010 sucked")

        End If

        If CheckBox3.Checked = True Then

            MessageBox.Show("the simpsons movie is a conspiracy dude")

        End If

    End Sub

End Class

6.Menu Strip

Public Class Form1

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click

        MessageBox.Show("this is the help form")

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

7.linking form

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

    End Sub

End Class

8.Login form

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "password123" Then

            data.Show()

        Else

            MessageBox.Show("Wrong Password!")

        End If

    End Sub

End Class

9.Text to speech

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SAPI

        SAPI = CreateObject("SAPI.spvoice")

        SAPI.Speak("Welcome to the 13th visual basic .net tutorial")

    End Sub

End Class

10.for_Loop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer = 0

        For i = 0 To 10

            MessageBox.Show("The value of i is: " & i)

        Next

    End Sub

End Class

11.Do While

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim num1 As Integer = 1

        Do While num1 < 10

            MessageBox.Show("The value of num1 is :" & num1)

            num1 = num1 + 1

        Loop

    End Sub

End Class

12.Do Until

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim num As Integer = 1

        Do Until num = 5

            MessageBox.Show("The value of num is: " & num)

            num = num + 1

        Loop

    End Sub

End Class

13.sub

Public Class Form1

    Sub givemessage()

        MessageBox.Show("I am cool for using subs")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call givemessage()

    End Sub

End Class

14.function

Public Class Form1

    Dim labeltext As String = "functions are cool lol"

    Private Function changelabeltext()

        Return labeltext

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = changelabeltext()

    End Sub

End Class

15.Advance Message Box

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If MessageBox.Show("whatever", "whatever", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            MessageBox.Show("you clicked yes")

        Else

            MessageBox.Show("you clicked no")

        End If

    End Sub

End Class

16.logical Operators

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Then

            MessageBox.Show("You didn't fill in the fields!")

        End If

        If TextBox1.Text = "thepassword" And TextBox2.Text = "thesecondpassword" Then

            Form2.Show()

        End If

    End Sub

End Class

17.Timer

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox1.Text = TextBox1.Text + 1

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Stop()

    End Sub

End Class

18.Sending An email

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Mail As New MailMessage

        Mail.Subject = "test email"

        Mail.To.Add("youremail@googlemail.com")

        Mail.From = New MailAddress("youremail@googlemail.com")

        Mail.Body = "This is an ownage email using VB.NET"

        Dim SMTP As New SmtpClient("smtp.gmail.com")

        SMTP.EnableSsl = True

        SMTP.Credentials = New System.Net.NetworkCredential("username", "password")

        SMTP.Port = "587"

        SMTP.Send(Mail)

    End Sub

End Class

19.Emailing application

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Mail As New MailMessage

        Mail.Subject = "test email"

        Mail.To.Add(TextBox2.Text)

        Mail.From = New MailAddress(TextBox2.Text)

        Mail.Body = TextBox1.Text

        Dim SMTP As New SmtpClient("smtp.gmail.com")

        SMTP.EnableSsl = True

        SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)

        SMTP.Port = "587"

        SMTP.Send(Mail)

    End Sub

End Class

26.Ftp Apploud

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/file.txt"), System.Net.FtpWebRequest)

        request.Credentials = New System.Net.NetworkCredential("user", "password")

        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte = System.IO.File.ReadAllBytes("c:\file.txt")

        Dim strz As System.IO.Stream = request.GetRequestStream()

        strz.Write(file, 0, file.Length)

        strz.Close()

        strz.Dispose()

    End Sub

End Class

27.Ftp Aplication

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/file.txt"), System.Net.FtpWebRequest)

        request.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte = System.IO.File.ReadAllBytes(TextBox3.Text)

        Dim strz As System.IO.Stream = request.GetRequestStream()

        strz.Write(file, 0, file.Length)

        strz.Close()

        strz.Dispose()

    End Sub

28.Dounloud and run file

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Network.DownloadFile("url", "C:\downloadedfile.exe")

        Process.Start("C:\downloadedfile.exe")

    End Sub

End Class

29.Web Browser

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        WebBrowser1.GoBack()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        WebBrowser1.GoForward()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        WebBrowser1.Refresh()

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        TextBox1.Text = WebBrowser1.Url.ToString

    End Sub

End Class

30.Aplication Setting

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = My.Settings.greettext

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Settings.greettext = TextBox1.Text

    End Sub

End Class

31.Auto tyred

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        SendKeys.Send(TextBox1.Text)

        SendKeys.Send("{Enter}")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Interval = TextBox2.Text * 1000

        Timer1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Stop()

    End Sub

End Class

32.Array

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tvshows(4) As String

        tvshows(0) = "South Park"

        tvshows(1) = "Family Guy"

        tvshows(2) = "American Dad"

        tvshows(3) = "The Simpsons"

        tvshows(4) = "Supernatural"

        For i = 0 To tvshows.Length - 1

            MessageBox.Show(tvshows(i))

        Next

    End Sub

End Class

33.Spitting String

Dim somestring2() As String

domestring2 = TextBox1.Text.Split(TextBox2.Text)

For i = 0 to somestring2.Length - 1

MessageBox.Show(somestring2(i))

Next

34.Computer Information

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = My.Computer.Name

        TextBox2.Text = My.User.Name

        TextBox3.Text = My.Computer.Info.OSFullName

        TextBox4.Text = My.Computer.Keyboard.CapsLock

        TextBox5.Text = My.Computer.Mouse.WheelExists

        TextBox6.Text = My.Computer.Screen.WorkingArea.ToString

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

    End Sub

End Class

35.Try Catch

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Process.Start(TextBox1.Text)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class

36.Web source code

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox2.Text)

        Dim response As System.Net.HttpWebResponse = request.GETRESPONSE()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim sourcecode As String = sr.ReadToEnd()

        TextBox1.Text = sourcecode

    End Sub

End Class

37.Aplication Adapter

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://h1.ripway.com/TeachMeComputer/currentversion.txt")

        Dim response As System.Net.HttpWebResponse = request.GETRESPONSE()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()

        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then

            MessageBox.Show("You have the current version")

        Else

            MessageBox.Show("Newer version available")

        End If

    End Sub

End Class

38.Website Login

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("http://login.yahoo.com/")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        WebBrowser1.Document.GetElementById("login").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("passwd").SetAttribute("value", TextBox2.Text)

        WebBrowser1.Document.GetElementById(".save").InvokeMember("click")

    End Sub

End Class

29.Reading Text File

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If System.IO.File.Exists(TextBox1.Text) = True Then

            Dim objreader As New System.IO.StreamReader(TextBox1.Text)

            TextBox2.Text = objreader.ReadToEnd

            objreader.Close()

        Else

            MessageBox.Show("That file does not exist!")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox2.Clear()

    End Sub

End Class

30.Saving Text File

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If System.IO.File.Exists(TextBox1.Text) = True Then

            MessageBox.Show("That file does not exist!")

        Else

            Dim objwriter As New System.IO.StreamWriter(TextBox1.Text)

            objwriter.Write(TextBox2.Text)

            objwriter.Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Process.Start(TextBox1.Text)

    End Sub

End Class

40.Open File dialog

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        TextBox1.Text = OpenFileDialog1.FileName

    End Sub

End Class

41.Save File Dialog

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

        Dim FileToSaveAs As String = SaveFileDialog1.FileName

        Dim objwriter As New System.IO.StreamWriter(FileToSaveAs)

        objwriter.Write(TextBox1.Text)

        objwriter.Close()

    End Sub

End Class

42.Special  Folder

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim thepath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        Process.Start(thepath & "\image.jpg")

    End Sub

End Class

43.Get Elemen By tag Name

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate(TextBox1.Text)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")

        For Each CurElement As HtmlElement In PageElements

            TextBox2.Text = TextBox2.Text & CurElement.GetAttribute("src") & Environment.NewLine

        Next

    End Sub

End Class

44.Get all HTML elements

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("www.youtube.com")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            ListBox1.Items.Add(webpageelement.GetAttribute("src"))

        Next

    End Sub

End Class

45.Click Button Without ID

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("http://login.facebook.com/login.php")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            If webpageelement.GetAttribute("value") = "Log In" Then

                webpageelement.InvokeMember("click")

            End If

        Next

    End Sub

End Class

46.Write to Online Save file

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim request As WebRequest = WebRequest.Create("http://h1.ripway.com/writetext/post.php?w=" & TextBox1.Text)

        request.GETRESPONSE()

    End Sub

End Class

http://gengtsu.blogspot.com/2015/04/belajar-sql.html

Read More