Visual Basic 08/10 Tutorial | Back

[Karizan]

So hey guys, i'm back finally.
This Tutorial will be awesome because it's small and not hard.
-------------------------------------
"Computer Checker"
-Internet Checker
-Username Checker
-Time/Date!
Made the code in 20 minutes so it's easy to understand and i can't explain it.. lol
-------------------------------------
Items we will use:
-5 Timers
-1 BackgroundWorker
-4 Labels.
-------------------------------------
1- Change Label1 Text to: "Internet Status:"
2- Change Label2 Text to: "...."
3- Change Label3 Text to: 00:00
4- Change Label4 Text to: "User"
-------------------------------------
Now Let's start coding..
-------------------------------------
Double Click on Background worker then add this code up "Public Class Form1"

Imports Microsoft.Win32

After, add this code up Private Sub Background Worker 1

Dim InternetStatus As Boolean

Now it should be like this:

Imports Microsoft.Win32

Public Class Form1
    Dim InternetStatus As Boolean
    Private Sub BackgroundWorker1_DoWork(blah blah)

Now Type this code in Background Worker 1 Function or code area..

System.Threading.Thread.Sleep(1000)
        If My.Computer.Network.IsAvailable Then
            InternetStatus = True
        Else
            InternetStatus = False
        End If
End Sub

Now Click enter under End Sub and C+P This Code:

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        If InternetStatus = True Then
            Label2.Text = "Internet Connection Was Found"
            Label2.ForeColor = Color.Lime
        Else
            Label2.Text = "No Internet Connection"
            Label2.ForeColor = Color.Red
        End If
        BackgroundWorker1.RunWorkerAsync()
    End Sub

Now Double click on your form and type:

BackgroundWorker1.RunWorkerAsync()

So now we're 35% Done.
Now Double Click on your Timer1 (Make Sure all of your timers are enabled.)
Copy that code and paste it there:

If Label2.Text = "No Internet Connection" Then
            Timer1.Stop()
            Console.Beep(1000, 800)
            MsgBox("No Internet Connection!", MsgBoxStyle.Exclamation)
        End If

Now Double Click on Timer2
Code:

 If Label2.Text = "Internet Connection Was Found" Then
            Timer2.Stop()
            Console.Beep(1000, 200)
            MsgBox("Your Computer Was Connected with a Internet Connection")
        End If
    End Sub

And you're done!
Now Easy parts.
Click on your Timer4 and Write:

	
	
Label3.Text = Timeofday

This code for the Time.
Now Last part of the tutorial
Double click on your timer5 and write:

label4.text = Environment.UserName

Only. lol ^^
So yea hope you understood the tutorial, and if you need any help tell me
Good Luck.

[kcrossey]

Awesome man! Thanks for releasing new stuff on SSH! Really helpful tut actually for people who do not know what to do or want something new to try. Thanks man!