LEARN DOT NET

Wednesday, September 24, 2008

ASP PROGRAM 2

<br />AT CLIENT SIDE ACCEPT ENO,NAME,JOB,AND BASIC SALARY IN TEXTBOXES WHEN USER SUBMITS RESPOND THE EMPLOYEE DETAILS FROM SERVER BY CALCULATING HRA AND NET SALARY IN TABLE FORMAT
<br />
<br />SAVE AS EMP.HTML
<br /><body>
<br /> <center>
<br />  <form name=f1 action=emp.asp method=post>
<br />    <font color=red size=10 >
<br />    Number:<input type=text name=enumber maxlength=10 size=30><br>
<br />    Name:<input type=text name=ename maxlength=25 size=30><br>
<br />   Job:<input type=text name=ejob maxlength=15 size=30><br>
<br />   Basic:<input type=text name=ebasic maxlength=5 size=30><br>
<br />   <input type=submit>
<br />   <input type=reset>
<br />  </form>
<br /></body>
<br />
<br />SAVE AS EMP.ASP
<br />
<br /><% number=request.form("enumber")%>
<br /><% name=request.form("ename")%>
<br /><% Job=request.form("ejob")%>
<br /><% basic=request.form("ebasic")%>
<br /><center><font color=red size=10 style=bold>Employee Details</font>
<br /><% response.write"<table border=4><tr><td>Number:</td><td>"&number&"</td></tr>"%>
<br /><% response.write"<tr><td>Name:</td><td>"&name&"</td></tr>"%>
<br /><% response.write"<tr><td>Job:</td><td>"&job&"</td></tr>"%>
<br /><% response.write"<tr><td>Basic:</td><td>"&basic&"</td></tr>"%>
<br /><% response.write"<tr><td>HRA:</td><td>"&eval(0.25*basic)&"</td></tr>"%>
<br /><% response.write"<tr><td>NetSalary:</td><td>"&eval(basic+(0.25*basic))&"</td></tr></table>"%>
<br />   
<br />

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

Monday, September 22, 2008

ASP PROGRAM1

Monday, August 11, 2008

recent e-books of dot net only links

Related Ebooks

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