Mel Procedures (2)

[siddarthkohli]

hi

everyone out there i was trying out to make a procedure in mel which should take two numbers as inputs from the user and should provide the sum of its addition & subtraction ............. means in one procedure only i want to perform addition & subtraction both but i also want to give a choice to the user to decide weather he wants to add the two numbers or want to subtract the two ...................... but right now i am unable to do so, means i am able to get the result of both addition & subtraction in one go or either no result, but i don't want to do it like that instead i want it to work on step by step basis on the two given numbers.......... now i am posting you few of my codes pls tell me where exactly i am doing the mistake .............by step by step i mean that if the user want to add he should only get the addition result and if he wants to subtract then only the subtraction result...........

with regards
sid's

//procedure1 here i am able to add & subtract only when the number is greater or smaller from the other number but i //don't want to do like that.

proc numbers(int $a,int $b)
{
if($a<$b)
{
int $o = $a+$b;
print ($o+"\n");
}
else if($a>$b)
{
int $x = $a-$b;
print($x+"\n");
}
}
numbers(44,22);

//procedure2 here also i am doing the same thing but with one more addition of if the numbers are equal.

proc numbers(int $a,int $b)
{
if($a<$b)
{
int $o = $a+$b;
print ($o+"\n");
}
else if($a>$b)
{
int $x = $a-$b;
print($x+"\n");
}
else if($a==$b)
{
int $g = $a+$b;
print($g+"\n");
}

//procedure3 here i am comparing a second variable with add or subtract but i am not getting any result & am totally //confused what to do next

proc calc(int $a, int $b)
{
int $choice;
if ($choice == "add")
{
$choice = $a+$b;
print($choice+"\n");
}
else if ($choice == "subtract")
{
$choice = $a-$b;
print($choice+"\n");
}
}
}
numbers(44,44);

//procedure4 here i am trying it by another conditional statement but again not getting any result & is very confused

proc int calc(int $a, int $b)
{
int $sum1;
switch ($sum1)
{
case 1:
$sum1 = $a+$b;
print($sum1+"\n");
case 2:
$sum1 = $a-$b;
print($sum1+"\n");
}
return $sum1;
}

as you all can see my codes i know that i am doing a very silly mistake somewhere but i don't know where exactly and am unable to solve the problem so need a help on the same ............ kindly pls someone out there help me on the same as i am stuck right now...............

with regards
sid's

[davvey]

Hi

I think the problem is in the line

[codebox]
proc numbers(int $a,int $b)
{
if($a<$b){[/codebox]

It should read [codebox]
proc numbers(int $a,int $b)
{
if($a<=$b){[/codebox]

The equals sign is need to get into the procedure then you set the option based on the values which appears correct. The lines follwing the above are checking if two values are equal but you don't get to this point due to missing equal sign in lines above. At the moment you're procedures are missing two values that are equal.

[siddarthkohli]

thanx devvy i will try it out as u said & will get back to you ..............

with regards
sid's

[siddarthkohli]

hey man

i have done the way u told me to do but right now its giving me only the addition value of the two given numbers but i am unable to get the subtraction value for the same................

can u pls tell me how to do the same in the same procedure and that to on the step by step basis.................

i am posting u the code with examples and results...................

with regards
sid's

proc numbers(int $a, int $b)
{
if($a<=$b)
{
int $o = $a+$b;
print($o+"\n");
}
else if($a>=$b)
{
int $x = $a-$b;
print($x+"\n");
}
};
numbers(20,20);
40

[davvey]

Hi

Sorry I misread you original script lines. I noticed you are setting the variable int $Choice then asking to compare it to "add". You cannot set an integer and then try and compare it to string value. I Think that where the error is occuring. I have higlighted the lines where the error seems to be.

[codebox]//procedure3 here i am comparing a second variable with add or subtract but i am not getting any result & am totally //confused what to do next

proc calc(int $a, int $b)
{
int $choice;
if ($choice == "add")
{
$choice = $a+$b;
print($choice+"\n");
}
else if ($choice == "subtract")
{
$choice = $a-$b;
print($choice+"\n");
}
}
}
numbers(44,44);[/codebox]

[davvey]

Hi

Try this for the section with the error.
[codebox]
// $choice = "add"; // (select which one to use)
$choice = "subtract";

calc (44, 44);

proc calc(int $a, int $b)
{

string $choice;
int $Result
if ($choice == "add")
{
$Result = $a+$b;
print($Result + "\n");
}
else if ($choice == "subtract")
{
$Result = $a-$b;
print($Result + "\n");
}
}
[/codebox]

[siddarthkohli]

proc calc(int $a, int $b)
{

string $choice;
int $Result;
if ($choice == "add")
{
$Result = $a+$b;
print($Result + "\n");
}
else if ($choice == "subtract")
{
$Result = $a-$b;
print($Result + "\n");
}
}

hi davvey

this script is not returning any result to me, means neither it is adding or subtracting i just don't know what exactly it is doing pls tell me something else to do out here...............

with regards
sid's

[davvey]

Hi

You need to set the $choice to something by putting a string option in the call to the proc or query a field in the GUI (depending on how you call the proc).

[codebox]
proc calc(int $a, int $b, string $choice)
{

string $choice;
int $Result;
if ($choice == "add")
{
$Result = $a+$b;
print($Result + "\n");
}
else if ($choice == "subtract")
{
$Result = $a-$b;
print($Result + "\n");
}
}[/codebox]

Then call the proc with calc (44, 44, "add"); as an example or as I said leave it as calc(44, 44); and set a line in the proc such as below where the GUi contains a field called choiceTxtField or you could use an option menu and query that. Another choice is to use radioButtons to set calc option. If not sure let me know and I will do a sample for you.

[codebox]
proc calc(int $a, int $b)
{

string $choice = textField -q -txt choiceTxtField;
int $Result;
if ($choice == "add")
{
$Result = $a+$b;
print($Result + "\n");
}
else if ($choice == "subtract")
{
$Result = $a-$b;
print($Result + "\n");
}
}[/codebox]

[davvey]

Hi

Try this as an example of how you could do it. It is vey basic but should give you an idea.

Note $Choice is now an integer as it is querying the item item selected from an optionMenu
[codebox]
Calculation;

proc calc(int $a, int $b)
{
int $Choice = optionMenu -q -sl ChoiceOption;
int $Result;

if ($Choice == 1)
    {
        $Result = $a+$b;
        print($Result + "\n");
    }
else if ($Choice == 2)
    {
        $Result = $a-$b;
        print($Result + "\n");
    }
}

global proc Calculation()
{

//Check for multiple similar windows.
	if (`window -q -ex CalcWindow`) deleteUI CalcWindow;
//Build window.
	window -w 200 -h 150 -title "Calculator" CalcWindow;

columnLayout -adj 1;

	intFieldGrp -nf 2 -cw2 70 70 Inputs;

		optionMenu -width 75 -cc "" ChoiceOption;
			menuItem -l "add     ";
			menuItem -l "subtract";

	button -label "Calc" -c "calc(`intFieldGrp -q -v1 Inputs`, `intFieldGrp -q -v2 Inputs`);";

showWindow CalcWindow;

}
[/codebox]

[joojaa]

howabout:

proc calcIsBadGLobalProcName(int $a,int $b,string $operation){
string $operate[];
if ($operation=="")
$operate={"+","-","*","/","%"};
else
$operate[0]=$operation;
for ($item in $operate){
eval("print (\"operation "+$a+$item+$b+"= \"+("+ $a+$item+$b+")+\"\n\")");
}
}

calcIsBadGLobalProcName(1,3,"")

Anyway its a totaly useless function but hey you asked for it:

[siddarthkohli]

thanx guys i will try it out & will get back to u very soon any ways thanx for now

regards
sid's

[siddarthkohli]

thanx very much it worked out i am really glad to get the answer & will seek more help from u people in future ........................

thanx for now bye & take care

rgds
sid's