Mesothelioma Cancer
Your Ad Here

Wednesday, September 24, 2008

ASP PROGRAM 2






Number:

Name:

Job:

Basic:






Employee Details
Number: 12345
Name: vishnu
Job: manager
Basic: 40000
HRA: 10000
NetSalary: 50000

Monday, September 22, 2008

ASP PROGRAM1







enter table number:









10 * 1 = 10
10 * 2 = 20
10 * 3 = 30
10 * 4 = 40
10 * 5 = 50
10 * 6 = 60
10 * 7 = 70
10 * 8 = 80
10 * 9 = 90
10 * 10 = 100


Monday, August 11, 2008

recent e-books of dot net only links

AppDev ASP.NET Using Visual C# 2005

you’ll learn how to use Visual Studio 2005 and Visual C# 2005 to build ASP.NET 2.0 Web pages and XML Web services. You’ll gain an understanding of the new architecture behind ASP.NET 2.0 and how to use the new server controls. You’ll learn to create consistent web sites using Master Pages, to improve performance with output caching, add membership features, configure and deploy ASP.NET applications, to authenticate users and limit their access to resources, direct users using new Site Navigation tools and to handle multi-user data access conflicts.Download:

http://rapidshare.com/files/133777280/ASP.NET2005.rar.001
http://rapidshare.com/files/133778467/ASP.NET2005.rar.002
http://rapidshare.com/files/133779560/ASP.NET2005.rar.003
http://rapidshare.com/files/133786992/ASP.NET2005.rar.004
http://rapidshare.com/files/133784046/ASP.NET2005.rar.005
http://rapidshare.com/files/133784097/ASP.NET2005.rar.006
http://rapidshare.com/files/133776207/ASP.NET2005.rar.007

join files with

http://rapidshare.com/files/126468532/FSJSetup.exe

Miror Megaupload

http://www.megaupload.com/?d=YB9X4E85
http://www.megaupload.com/?d=WH2IZ63B
http://www.megaupload.com/?d=XURSCPVW
http://www.megaupload.com/?d=VV75I6ID
http://www.megaupload.com/?d=1VPFZ2ZZ
http://www.megaupload.com/?d=Z3T80J5N
http://www.megaupload.com/?d=AVATJL2E

Friday, August 8, 2008

links of dot net e-books for free download

i think this link will help u out in learning dot net programming skills.

now i am providing one link for u for free download.

http://www.gayanb.com/free_dotnet_books.php


Read the disclaimer before downloading. Subscribe to receive more uploads from this blog. The details of the dot net will give u complete e-books for u.

Hi friends please send ur mail address i will post daily updated programs in dot net.
u can receive my programs daily in dot net.

please subscribe to my blog u will get latest updates in dot net.

Tuesday, August 5, 2008

IP ADDRESS SOURCE CODE



Imports System.ServiceProcess

Public Class Form1

' Used to access an instance of the selected service.
Private msvc As ServiceController
Private controllers As New System.Collections.Generic.SortedList(Of String, ServiceController)

Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
Try
msvc.Pause()
UpdateUIForSelectedService()
Catch exp As Exception
MsgBox("Cannot pause service.", MsgBoxStyle.OKOnly, Me.Text)
End Try
End Sub

Private Sub cmdResume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdResume.Click
Try
msvc.Continue()
UpdateUIForSelectedService()
Catch exp As Exception
MsgBox("Cannot resume service.", MsgBoxStyle.OKOnly, Me.Text)
End Try
End Sub

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
Try
msvc.Start()
UpdateUIForSelectedService()
Catch exp As Exception
MsgBox("Cannot start service.", MsgBoxStyle.OKOnly, Me.Text)
End Try
End Sub

Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
Try
msvc.Stop()
UpdateUIForSelectedService()
Catch exp As Exception
MsgBox("Cannot stop service.", MsgBoxStyle.OKOnly, Me.Text)
End Try
End Sub

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

Private Sub lvServices_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvServices.SelectedIndexChanged
UpdateUIForSelectedService()
End Sub

Private Sub EnumServices()
' Get the list of available services and
' load the list view control with the information
Try
Me.ToolStripStatusLabel1.Text = "Loading Service List, pleasse wait"

Me.lvServices.Items.Clear()

If controllers IsNot Nothing Then
controllers = New Generic.SortedList(Of String, ServiceController)
End If

Dim services As ServiceController() = ServiceController.GetServices()
For Each controller As ServiceController In services
With Me.lvServices.Items.Add(controller.DisplayName)
.SubItems.Add(controller.Status.ToString())
.SubItems.Add(controller.ServiceType.ToString())
End With
controllers.Add(controller.DisplayName, controller)
Next controller
Catch exp As Exception
MsgBox("Cannot enumerate the services.")
Finally
ToolStripStatusLabel1.Text = "Ready"
End Try
End Sub

Private Sub UpdateServiceStatus()
' Check each service
Try
ToolStripStatusLabel1.Text = "Checking Service Status . . "
Dim item As ListViewItem
For Each item In Me.lvServices.Items
msvc = controllers.Item(item.Text)
msvc.Refresh()
item.SubItems(1).Text = msvc.Status.ToString()
Next item
UpdateUIForSelectedService()
Catch exp As Exception
MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
ToolStripStatusLabel1.Text = "Ready"
End Try
End Sub

Private Sub UpdateUIForSelectedService()
' Update the command buttons for the selected service.
Dim strName As String

Try
If Me.lvServices.SelectedItems.Count = 1 Then
strName = Me.lvServices.SelectedItems(0).SubItems(0).Text
msvc = controllers.Item(strName)
With msvc
' If it's stopped, we should be able to start it
Me.cmdStart.Enabled = (.Status = ServiceControllerStatus.Stopped)
' Check if we're allowed to try and stop it and make sure it's not
' already stopped.
Me.cmdStop.Enabled = (.CanStop AndAlso (Not .Status = ServiceControllerStatus.Stopped))
' Check if we're allowed to pause it and see if it is not paused
' already.
Me.cmdPause.Enabled = (.CanPauseAndContinue AndAlso (Not .Status = ServiceControllerStatus.Paused))
' If it's paused, we must be able to resume it.
Me.cmdResume.Enabled = (.Status = ServiceControllerStatus.Paused)
End With
End If
Catch exp As Exception
MsgBox("Cannot update UI.", MsgBoxStyle.OKOnly, Me.Text)
End Try
End Sub

Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
UpdateServiceStatus()
End Sub

Private Sub RelistMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
EnumServices()
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



Friday, August 1, 2008

WINDOWS SHUTDOWN CODE


Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ForeColor = Color.Black
Me.BackColor = Color.Silver
CheckBox1.Visible = False
ComboBox1.Items.Add("AM")
ComboBox1.Items.Add("PM")
End Sub
Private Sub ChooseOpt(ByVal sender As System.Object, ByVal e As System.EventArgs)
If RadioButton1.Checked Then
Button1.Text = RadioButton1.Text
Label3.Text = "Choose " & RadioButton1.Text & " Time"
End If
If RadioButton2.Checked Then
Button1.Text = RadioButton2.Text
Label3.Text = "Choose " & RadioButton2.Text & " Time"
End If
If RadioButton3.Checked Then
Button1.Text = RadioButton3.Text
Label3.Text = "Choose " & RadioButton3.Text & " Time"
End If

End Sub
Private Sub ShutdownEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
If RadioButton1.Checked Then
Shell("shutdown -s -t 30")
End If
If RadioButton2.Checked Then
Shell("shutdown -r -t 30")
End If
If RadioButton3.Checked Then
Shell("shutdown -l -t 30")
End If
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim time As Integer
Dim st As String
If Now.Hour > 12 Then
time = Now.Hour - 12
st = "PM"
Else
time = Now.Hour
st = "AM"
End If

Label2.Text = "Current time is " & time & ": " & Now.Minute & ": " & Now.Second & ":" & st
If st = ComboBox1.SelectedItem Then
If NumericUpDown1.Value = time Then
If NumericUpDown2.Value = Now.Minute Then
If NumericUpDown3.Value = Now.Second Then
ShutdownEvent(sender, e)
End If
End If
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not ComboBox1.SelectedText = "AM" Or ComboBox1.SelectedText = "PM" Then
MsgBox("select the timestamp")
Else

MsgBox(" system will be " & Button1.Text & " at " & NumericUpDown1.Value & ":" & NumericUpDown2.Value & ":" & NumericUpDown3.Value)
CheckBox1.Visible = True
Button1.Enabled = False
CheckBox1.Checked = False
CheckBox1.Enabled = True
NumericUpDown1.Enabled = False
NumericUpDown2.Enabled = False
NumericUpDown3.Enabled = False
ComboBox1.Enabled = False
Label4.Text = "System will shutdown at " & NumericUpDown1.Value & ":" & NumericUpDown2.Value & ":" & NumericUpDown3.Value & ":" & ComboBox1.SelectedItem()
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then
Button1.Enabled = True
CheckBox1.Enabled = False
NumericUpDown1.Enabled = True
NumericUpDown2.Enabled = True
NumericUpDown3.Enabled = True
ComboBox1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub
End Class

Wednesday, July 30, 2008

Sunday, July 20, 2008

DOT NET



webbrowser Source code

step 1 :

Create a project choose vb in that window application and name it as Web Browser

step2 :

1.Drag a Menu strip

i. Name the menu as File and Edit

I. In file create sub menus &New , &Open , &Save , &Exit

II. In Edit menu Create a sub menu name as &properties

2.Drag a panel from the Container tool box and set The Dock properti (f4 to view the properties) Down

3. Drag a tool strip menu and choose the label or image (if image give the path of the image in properties option) in toolstrip menu choose the text box name it as WebAddress

choose the DOCK propertie to Top

4. Drag a web Browser and set The Dock Propertie to Center

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'WebBrowser1.Navigate("www.google.com")
ToolStripProgressBar1.Minimum = 0
ToolStripProgressBar1.Value = 0
WebAddress.Focus()
End Sub

Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged
Me.Text = "Rajender" & " " & WebBrowser1.DocumentTitle
End Sub

Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
WebAddress.Text = WebBrowser1.Url.ToString
End Sub

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

End Sub

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If (ToolStripProgressBar1.Value <= e.MaximumProgress) Then
ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + e.CurrentProgress
End If
End Sub

Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.StatusTextChanged
ToolStripStatusLabel1.Text = WebBrowser1.StatusText
End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
WebBrowser1.Navigate(WebAddress.Text)

End Sub

Private Sub WebAddress_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebAddress.DoubleClick
WebAddress.SelectAll()
End Sub

Private Sub WebAddress_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles WebAddress.KeyDown
Dim address As String
'MsgBox(e.Modifiers & " " & e.KeyData)
Select Case e.KeyData
Case Keys.Enter
If Not WebAddress.Text.StartsWith("http:\\") Then
address = "http:\\" & WebAddress.Text
WebBrowser1.Navigate(New Uri(address))
End If
End Select
End Sub


Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
WebBrowser1.Navigate("vishnu-inf.blogspot.com")
End Sub

Your Ad Here