RE:Simplest question: How to control some values in Input dialog box
- To: mathgroup at smc.vnet.net
- Subject: [mg67782] RE:Simplest question: How to control some values in Input dialog box
- From: abdou.oumaima at hotmail.com
- Date: Fri, 7 Jul 2006 07:13:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello David Park,
As usual you are so special and your code is also very nice:
******** Code's David Park **********
SetMyParameters::badCN = "CN must be a positive integer. You entered ``";
SetMyParameters::badc = "You must have 0 < c < 0.9. You entered ``";
SetMyParameters[CNin_, cin_] :=
Module[{gooddata = True},
Clear[CN, c];
If[¬ (IntegerQ[CNin] \[And] CNin > 0),
Message[SetMyParameters::badCN, CNin]; gooddata = False];
If[¬ 0 < cin < 0.9, Message[SetMyParameters::badc, cin];
gooddata = False];
If[gooddata, CN = CNin; c = cin;]
]
***********
But Sorry does not work and my program break.
How to resolve this please.