Be A Everest for all and Don't be Ever At Rest
Be A Candle In your Life To Lighten The World
ComputerHeaven
Saturday, January 15, 2011
Seminar Topic
3D Passwords Cordless Telephone
Softwear Mouse Intelligent Wearables
WiBro Space Theatres
XForms Slackware
Cyber crime and Instruction Detection System Signcryption
Light Tree Packet Telephony
Wearable Computers Brain GateSeminar Websites:
http://latestseminartopic.blogspot.com
calculator pgm
Public Class Form1
Dim sum As Double = 0
Dim operand As String = ""
Dim value1 As Double = 0
Dim value2 As Double = 0
Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
txtBox1.Text += "1"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBox1.TextChanged
End Sub
Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
txtBox1.Text += "2"
End Sub
Private Sub btnThree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThree.Click
txtBox1.Text += "3"
End Sub
Private Sub btnFour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFour.Click
txtBox1.Text += "4"
End Sub
Private Sub btnFive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFive.Click
txtBox1.Text += "5"
End Sub
Private Sub btnSix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSix.Click
txtBox1.Text += "6"
End Sub
Private Sub btnSeven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeven.Click
txtBox1.Text += "7"
End Sub
Private Sub btnEight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEight.Click
txtBox1.Text += "8"
End Sub
Private Sub btnNine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNine.Click
txtBox1.Text += "9"
End Sub
Private Sub btnZero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZero.Click
txtBox1.Text += "0"
End Sub
Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click
Dim btnDot As Boolean = False
If txtBox1.Text.IndexOf(".") >= 0 Then btnDot = True
If btnDot = False Then txtBox1.Text += "."
End Sub
Private Sub btnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEquals.Click
value2 = Val(txtBox1.Text)
Select Case operand
Case Is = "+"
txtBox1.Text = (value1 + value2).ToString
Case Is = "-"
txtBox1.Text = (value1 - value2).ToString
Case Is = "X"
txtBox1.Text = (value1 * value2).ToString
Case Is = "/"
If value2 <> 0 Then
txtBox1.Text = (value1 / value2).ToString
End If
End Select
End Sub
Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
operand = "+"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
operand = "-"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnTimes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimes.Click
operand = "X"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click
operand = "/"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtBox1.Clear()
sum = 0
End Sub
Private Function checkInput() As Boolean
If IsNumeric(txtBox1.Text) = True And txtBox1.Text <> "" And txtBox1.Text <> Nothing Then
Return True
Else
Return False
End If
End Function
Dim sum As Double = 0
Dim operand As String = ""
Dim value1 As Double = 0
Dim value2 As Double = 0
Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
txtBox1.Text += "1"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBox1.TextChanged
End Sub
Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
txtBox1.Text += "2"
End Sub
Private Sub btnThree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThree.Click
txtBox1.Text += "3"
End Sub
Private Sub btnFour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFour.Click
txtBox1.Text += "4"
End Sub
Private Sub btnFive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFive.Click
txtBox1.Text += "5"
End Sub
Private Sub btnSix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSix.Click
txtBox1.Text += "6"
End Sub
Private Sub btnSeven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeven.Click
txtBox1.Text += "7"
End Sub
Private Sub btnEight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEight.Click
txtBox1.Text += "8"
End Sub
Private Sub btnNine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNine.Click
txtBox1.Text += "9"
End Sub
Private Sub btnZero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZero.Click
txtBox1.Text += "0"
End Sub
Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click
Dim btnDot As Boolean = False
If txtBox1.Text.IndexOf(".") >= 0 Then btnDot = True
If btnDot = False Then txtBox1.Text += "."
End Sub
Private Sub btnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEquals.Click
value2 = Val(txtBox1.Text)
Select Case operand
Case Is = "+"
txtBox1.Text = (value1 + value2).ToString
Case Is = "-"
txtBox1.Text = (value1 - value2).ToString
Case Is = "X"
txtBox1.Text = (value1 * value2).ToString
Case Is = "/"
If value2 <> 0 Then
txtBox1.Text = (value1 / value2).ToString
End If
End Select
End Sub
Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
operand = "+"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
operand = "-"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnTimes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimes.Click
operand = "X"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click
operand = "/"
If checkInput() = True Then value1 = CDbl(txtBox1.Text)
txtBox1.Clear()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtBox1.Clear()
sum = 0
End Sub
Private Function checkInput() As Boolean
If IsNumeric(txtBox1.Text) = True And txtBox1.Text <> "" And txtBox1.Text <> Nothing Then
Return True
Else
Return False
End If
End Function
General Knowledge
Important Days:
India:
No State Chief MinisterName
January 15-->Army Day
Sept 5-->Teachers Day
Aug 29-->National Sports Day
Nov 14-->Children's Day
Dec 23-->Farmer's Day
Apr 22-->Earth Day
Mar 8-->International Women's Day
Jan 1-->Global Family Day
Jan 12-->National Youth Day
Important Scientists:
Aeroplane-->Orville and Wright
Ball-point Pen-->L. and G.Brio
Bicycle-->Macmillan
Chloroform-->Simpson
Electric Lamp-->Thomas Alva Edison.
Foundain Pen-->L.E.Waterman.
Penicillin-->Sir Alexander Flemming.
Refrigerator-->J.Perkins.
Safety Pin-->William Hunt.
Telephone-->Graham Bell.
WashingMachine-->HurleyMachine Co.
Thermometer-->Galileo Galilei
India:
1 Andhra Pradesh N. Kiran Kumar Reddy
2 Arunachal Pradesh Dorjee Khandu
3 Assam Tarun Kumar Gogoi
4 Bihar Nitish Kumar
5 Chhattisgarh Raman Singh
6 Delhi Sheila Dikshit
7 Goa Digambar Kamat
8 Gujarat Narendra Modi
9 Haryana Bhupinder Singh Hooda
10 Himachal Pradesh Prem Kumar Dhumal
11 Jammu & Kashmir Omar Abdullah
12 Jharkhand Arjun Munda
13 Karnataka B. S. Yeddyurappa
15 Madhya Pradesh Shivraj Singh Chauhan
16 Maharashtra Prithviraj Chavan
17 Manipur Okram Ibobi Singh
18 Meghalaya Mukul Sangma
19 Mizoram Lal Thanhawla
20 Nagaland Neiphiu Rio
21 Odisha Naveen Patnaik
22 Pondicherry V. Vaithilingam
23 Punjab Parkash Singh Badal
24 Rajasthan Ashok Gehlot
25 Sikkim Pawan Kumar Chamling
26 Tamil Nadu M. Karunanidhi
27 Tripura Manik Sarkar
28 Uttarakhand Ramesh Pokhriyal
29 Uttar Pradesh Mayawati
30 West Bengal Buddhadeb Bhattacharjee
Top Ten Software Companies
List Of Company:
TCS Infosys
WiproSatyam
HCL Technologies
Patni Computer Systems Ltd.
i-flex Solutions
Tech.Mahindra
Perot Systems TSI Ltd.
L & T Infotech
1.TCS:
TCS was Founded in the Year 1968.
S.Ramadorai is the CEO and MD of TCS
2.Infosys:
INFOSYS was founded in the Year 1981.
Kris GopalaKrishnan and NR Narayana Murthy.
3.Wipro:
Mr.Azim Premji is the Chairman of Wipro Company.
4.Satyam Computer Services:
Satyam was founded in the Year 1987.
Ramalinga Raju is the Chairman of Company.
5.HCL Technologies:
HCL was founded in the year 1976.
Shiv-nadar is the Chairman of the Company.
6. Patni Computer Systems Ltd:
Patni was founded in the Year 18 Sep 2003.
Narendra K Patni is the Chairman of the Company.
7.i-flex Solutions:
Rajesh Hukku is the Chairman of i-flex Company.
8. Tech Mahindra:
Anand Mahindra is the Chairman of Tech Mahindra.
9.Perot System TSI Ltd:
10.L & T Infotech(Larsen and Toubro Ltd):
This Company was Founded in the Year 1st April 1997.
A M Naik is the Chairman of the Company.
Details of company
Additional Details
Other Companies:
Dell---->Michael s Dell Intel---->Craig Barrette
Microsoft Corporation--->BillGates
Ingaram Micro Inc--->Dale Laurance
Friday, January 14, 2011
Subscribe to:
Comments (Atom)

















