473,320 Members | 2,133 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Question

Is there any way I can store +, -, *, / in some kind of variable/object

Something like this
dim xTransaction as object = "+"
Then Instead of writing 100 + 50, I write 100 xTransaction 50.
Otherwise I have to write lots of code each for adding, substracting,
multiplying and dividing.

Please advise. Thanks.

Nov 19 '05 #1
5 2308
I did this useing an enum and a function. Kinda long but it works.

Public Enum Ops
Add
Subtract
Multiply
Divide
....
End Enum

Public function PerformOperation(num1 as double, num2 as double, operation
as Ops)

Select case operation
Case Ops.Add
return num1 + num2
Case Ops.Subtract
return num1 - num2
...
End select
end function

hope it helps.


"Kartic" <kg****@csystemssoftware.com> wrote in message
news:O9**************@TK2MSFTNGP12.phx.gbl...
Is there any way I can store +, -, *, / in some kind of variable/object

Something like this
dim xTransaction as object = "+"
Then Instead of writing 100 + 50, I write 100 xTransaction 50.
Otherwise I have to write lots of code each for adding, substracting,
multiplying and dividing.

Please advise. Thanks.

Nov 19 '05 #2
It still did not answer my question. Currently I am doing something like
your example.
Using this I still have to write if or case to check the operation type.

Any other suggestion.
Thanks, Kartic

"CJ Taylor" <ct*****@mortonwelding.com> wrote in message
news:ew**************@TK2MSFTNGP12.phx.gbl...
I did this useing an enum and a function. Kinda long but it works.

Public Enum Ops
Add
Subtract
Multiply
Divide
....
End Enum

Public function PerformOperation(num1 as double, num2 as double, operation
as Ops)

Select case operation
Case Ops.Add
return num1 + num2
Case Ops.Subtract
return num1 - num2
...
End select
end function

hope it helps.


"Kartic" <kg****@csystemssoftware.com> wrote in message
news:O9**************@TK2MSFTNGP12.phx.gbl...
Is there any way I can store +, -, *, / in some kind of variable/object

Something like this
dim xTransaction as object = "+"
Then Instead of writing 100 + 50, I write 100 xTransaction 50.
Otherwise I have to write lots of code each for adding, substracting,
multiplying and dividing.

Please advise. Thanks.


Nov 19 '05 #3
Hello,

"Kartic" <kg****@csystemssoftware.com> schrieb:
Is there any way I can store +, -, *, / in some kind of variable/object

Something like this
dim xTransaction as object = "+"
Then Instead of writing 100 + 50, I write 100 xTransaction 50.
Otherwise I have to write lots of code each for adding, substracting,
multiplying and dividing.


\\\
Private Sub Test()
MsgBox(DoOperation(10, 10, Operators.Addition))
End Sub

Public Function DoOperation( _
ByVal x As Double, _
ByVal y As Double, _
ByVal Operator As IOperator _
) As Double
Return Operator.Perform(x, y)
End Function
..
..
..
Public Interface IOperator
Function Perform( _
ByVal x As Double, _
ByVal y As Double _
) As Double
End Interface

Public Class AdditionOperator
Implements IOperator

Public Function Perform( _
ByVal x As Double, _
ByVal y As Double _
) As Double Implements IOperator.Perform
Return x + y
End Function
End Class

Public Class SubtractionOperator
Implements IOperator

Public Function Perform( _
ByVal x As Double, _
ByVal y As Double _
) As Double Implements IOperator.Perform
Return x - y
End Function
End Class

Public Class MultiplicationOperator
Implements IOperator

Public Function Perform( _
ByVal x As Double, _
ByVal y As Double _
) As Double Implements IOperator.Perform
Return x * y
End Function
End Class

Public Class DivisionOperator
Implements IOperator

Public Function Perform( _
ByVal x As Double, _
ByVal y As Double _
) As Double Implements IOperator.Perform
Return x / y
End Function
End Class

Public Class Operators
Private Shared m_Addition As AdditionOperator
Private Shared m_Subtraction As SubtractionOperator
Private Shared m_Multiplication As MultiplicationOperator
Private Shared m_Division As DivisionOperator

Shared Sub New()
m_Addition = New AdditionOperator()
m_Subtraction = New SubtractionOperator()
m_Multiplication = New MultiplicationOperator()
m_Division = New DivisionOperator()
End Sub

Public Shared ReadOnly Property Addition() As AdditionOperator
Get
Return m_Addition
End Get
End Property

Public Shared ReadOnly Property Subtraction() As SubtractionOperator
Get
Return m_Subtraction
End Get
End Property

Public Shared ReadOnly Property Multiplication() As
MultiplicationOperator
Get
Return m_Multiplication
End Get
End Property

Public Shared ReadOnly Property Division() As DivisionOperator
Get
Return m_Division
End Get
End Property
End Class
///

*huh*

HTH,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet
Nov 19 '05 #4
[snip]
*huh*


Indeed. Very nice.

~
Jeremy

Nov 19 '05 #5
Dear Kartic,

Without knowing much about what you are doing...

Perhaps delegates would be useful. Once created, you can call the
delegate with your arguments, whatever function it's going to perform.

Have a read about them. If nothing else, it's a fascinating topic :-)

Regards,
Fergus


Nov 19 '05 #6

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: Mohammed Mazid | last post by:
Can anyone please help me on how to move to the next and previous question? Here is a snippet of my code: Private Sub cmdNext_Click() End Sub Private Sub cmdPrevious_Click() showrecord
3
by: Stevey | last post by:
I have the following XML file... <?xml version="1.0"?> <animals> <animal> <name>Tiger</name> <questions> <question index="0">true</question> <question index="1">true</question> </questions>
7
by: nospam | last post by:
Ok, 3rd or is it the 4th time I have asked this question on Partial Types, so, since it seems to me that Partial Types is still in the design or development stages at Microsoft, I am going to ask...
3
by: Ekqvist Marko | last post by:
Hi, I have one Access database table including questions and answers. Now I need to give answer id automatically to questionID column. But I don't know how it is best (fastest) to do? table...
10
by: glenn | last post by:
I am use to programming in php and the way session and post vars are past from fields on one page through to the post page automatically where I can get to their values easily to write to a...
10
by: Rider | last post by:
Hi, simple(?) question about asp.net configuration.. I've installed ASP.NET 2.0 QuickStart Sample successfully. But, When I'm first start application the follow message shown. ========= Server...
53
by: Jeff | last post by:
In the function below, can size ever be 0 (zero)? char *clc_strdup(const char * CLC_RESTRICT s) { size_t size; char *p; clc_assert_not_null(clc_strdup, s); size = strlen(s) + 1;
56
by: spibou | last post by:
In the statement "a *= expression" is expression assumed to be parenthesized ? For example if I write "a *= b+c" is this the same as "a = a * (b+c)" or "a = a * b+c" ?
2
by: Allan Ebdrup | last post by:
Hi, I'm trying to render a Matrix question in my ASP.Net 2.0 page, A matrix question is a question where you have several options that can all be rated according to several possible ratings (from...
3
by: Zhang Weiwu | last post by:
Hello! I wrote this: ..required-question p:after { content: "*"; } Corresponding HTML: <div class="required-question"><p>Question Text</p><input /></div> <div...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.