Home Ask Question Answer Questions My Q&A Categories Ask the experts Expert leader board

Create a menu driven program under main menu Ari oper, submenu – add,subtract ,multiply , division & exit. Here the two integer numbers will be taken as input

Asked in Computers & Technology at 4:11 PM on June 14, 2008

Tags: create, menu, driven, program, submenu, division, here, integer, numbers, input

! This question is closed

Report abuse

Rakesh Singh
Profile | Q&A

Rate this : 0 0

Latest Answers(14)

Sort by Latest | Oldest | Top-rated

well Rakesh, You need three variables, one for the first number of type double(to hold large numbers.) one for the second number, and of course one for the sign, or type of calculation we are doing.

Dim first As Double
Dim second As Double
Dim sign As String

Private Sub Command1_Click(Index As Integer)
If txtDisplay.Text = "" Then
txtDisplay.Text
= Command1(Index).Caption
Else
txtD isplay.Text
= txtDisplay.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
first = txtDisplay.Text
txtDisplay.Te xt = ""
sign = Command2(Index).Caption
End Sub

Private Sub Form_Load()
txtDisplay.Enable d = False
txtDisplay.MaxLength = 10
End Sub

Private Sub cmdEq_Click()
second = txtDisplay.Text
If sign = "-" Then
txtDisplay.Text
= first - second
ElseIf sign = "+" Then
txtDisplay.Text
= first + second
ElseIf sign = "*" Then
txtDisplay.Text
= first * second
ElseIf sign = "/" Then
txtDisplay.Text
= first / second
End If
End Sub

Private Sub cmdDot_Click()
If InStr(txtDisplay.Text, ".") = 0 Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdClear_Click()
txtDisplay.T ext = "0"
End Sub

For more details , Please visit the site -
http://www.osix.net/modules /arti cle/?id=53

Answered by .... ..... , an ibibo Master, at 5:25 AM on July 12, 2008

Report Abuse | Rate this : 0 0

.... .....
Profile | Q&A

Answered by Satya ~ , an ibibo Master, at 4:49 PM on July 10, 2008

Report Abuse | Rate this : 0 0

Satya ~
Profile | Q&A

You need three variables, one for the first number of type double(to hold large numbers.) one for the second number, and of course one for the sign, or type of calculation we are doing.

Dim first As Double
Dim second As Double
Dim sign As String

Private Sub Command1_Click(Index As Integer)
If txtDisplay.Text = "" Then
txtDisplay.Text
= Command1(Index).Caption
Else
txtD isplay.Text
= txtDisplay.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
first = txtDisplay.Text
txtDisplay.Te xt = ""
sign = Command2(Index).Caption
End Sub

Private Sub Form_Load()
txtDisplay.Enable d = False
txtDisplay.MaxLength = 10
End Sub

Private Sub cmdEq_Click()
second = txtDisplay.Text
If sign = "-" Then
txtDisplay.Text
= first - second
ElseIf sign = "+" Then
txtDisplay.Text
= first + second
ElseIf sign = "*" Then
txtDisplay.Text
= first * second
ElseIf sign = "/" Then
txtDisplay.Text
= first / second
End If
End Sub

Answered by Yash , an ibibo Master, at 9:43 AM on July 02, 2008

Report Abuse | Rate this : 0 0

Yash
Profile | Q&A

well, You need three variables, one for the first number of type double(to hold large numbers.) one for the second number, and of course one for the sign, or type of calculation we are doing.

Dim first As Double
Dim second As Double
Dim sign As String

Private Sub Command1_Click(Index As Integer)
If txtDisplay.Text = "" Then
txtDisplay.Text
= Command1(Index).Caption
Else
txtD isplay.Text
= txtDisplay.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
first = txtDisplay.Text
txtDisplay.Te xt = ""
sign = Command2(Index).Caption
End Sub

Private Sub Form_Load()
txtDisplay.Enable d = False
txtDisplay.MaxLength = 10
End Sub

Private Sub cmdEq_Click()
second = txtDisplay.Text
If sign = "-" Then
txtDisplay.Text
= first - second
ElseIf sign = "+" Then
txtDisplay.Text
= first + second
ElseIf sign = "*" Then
txtDisplay.Text
= first * second
ElseIf sign = "/" Then
txtDisplay.Text
= first / second
End If
End Sub

Private Sub cmdDot_Click()
If InStr(txtDisplay.Text, ".") = 0 Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdClear_Click()
txtDisplay.T ext = "0"
End Sub

For more details , Please visit the site -
http://www.osix.net/modules /arti cle/?id=53

Answered by Raksha , an ibibo Master, at 3:09 PM on June 22, 2008

Report Abuse | Rate this : 0 0

Raksha
Profile | Q&A

code is

Dim first As Double
Dim second As Double
Dim sign As String

Private Sub Command1_Click(Index As Integer)
If txtDisplay.Text = "" Then
txtDisplay.Text
= Command1(Index).Caption
Else
txtD isplay.Text
= txtDisplay.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
first = txtDisplay.Text
txtDisplay.Te xt = ""
sign = Command2(Index).Caption
End Sub

Private Sub Form_Load()
txtDisplay.Enable d = False
txtDisplay.MaxLength = 10
End Sub

Private Sub cmdEq_Click()
second = txtDisplay.Text
If sign = "-" Then
txtDisplay.Text
= first - second
ElseIf sign = "+" Then
txtDisplay.Text
= first + second
ElseIf sign = "*" Then
txtDisplay.Text
= first * second
ElseIf sign = "/" Then
txtDisplay.Text
= first / second
End If
End Sub

Private Sub cmdDot_Click()
If InStr(txtDisplay.Text, ".") = 0 Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdClear_Click()
txtDisplay.T ext = "0"
End Sub

Answered by Madhurima , an ibibo Master, at 6:02 PM on June 19, 2008

Report Abuse | Rate this : 0 0

Madhurima
Profile | Q&A

Answered by Uttam , an ibibo Master, at 2:25 PM on June 18, 2008

Report Abuse | Rate this : 0 0

Uttam
Profile | Q&A

Answered by Gyan Singh , an ibibo Master, at 5:46 AM on June 18, 2008

Report Abuse | Rate this : 0 0

Gyan Singh
Profile | Q&A

hi there
code is

Dim first As Double
Dim second As Double
Dim sign As String

Private Sub Command1_Click(Index As Integer)
If txtDisplay.Text = "" Then
txtDisplay.Text
= Command1(Index).Caption
Else
txtD isplay.Text
= txtDisplay.Text & Command1(Index).Caption
End If
End Sub

Private Sub Command2_Click(Index As Integer)
first = txtDisplay.Text
txtDisplay.Te xt = ""
sign = Command2(Index).Caption
End Sub

Private Sub Form_Load()
txtDisplay.Enable d = False
txtDisplay.MaxLength = 10
End Sub

Private Sub cmdEq_Click()
second = txtDisplay.Text
If sign = "-" Then
txtDisplay.Text
= first - second
ElseIf sign = "+" Then
txtDisplay.Text
= first + second
ElseIf sign = "*" Then
txtDisplay.Text
= first * second
ElseIf sign = "/" Then
txtDisplay.Text
= first / second
End If
End Sub

Private Sub cmdDot_Click()
If InStr(txtDisplay.Text, ".") = 0 Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub

Private Sub cmdClear_Click()
txtDisplay.T ext = "0"
End Sub

Answered by Reeta K , an ibibo Master, at 3:11 PM on June 17, 2008

Report Abuse | Rate this : 0 0

Reeta K
Profile | Q&A

Answered by Sharad Singh , an ibibo Master, at 2:31 PM on June 17, 2008

Report Abuse | Rate this : 0 0

Sharad Singh
Profile | Q&A

Answered by Romi , an ibibo Master, at 5:16 PM on June 16, 2008

Report Abuse | Rate this : 0 0

Romi
Profile | Q&A

Prev 10 < 1 2 >Next 10

Related Search

Hi friends,Ive got Sony Ericsson K810i, i have changed the themes many times , but i am not able to change menu icons. Is there any way i can change menu?

-nse.FSTPAPRESETSYSTE MMEN UMENU ML and Icons HEREThats it .. Restart your phone and the new menu will greet you.Now lets see how these amazing menus are created !! MENU ML hacking !We will edit the menu ml to have custom-nse.FSTPAPRESETSYSTE MMEN UMENU ML and Icons HEREThats it .. Restart your phone and the new menu will greet you.Now lets see how these amazing menus are created !! MENU ML hacking !We will edit the menu ml to have custom