Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Making a user interface

• To: mathgroup at smc.vnet.net
• Subject: [mg99524] Re: Making a user interface
• From: Bill <WDWNORWALK at aol.com>
• Date: Thu, 7 May 2009 06:35:18 -0400 (EDT)

Hi Jason:

Here's one example...


Module[{Entry1 = "", Entry2 = "", Answer = ""}, 
  Panel[Column[{Row[{"Entry 1: ", 
       InputField[Dynamic[Entry1], String, Background -> LightCyan]}], 
     Row[{"Entry 2: ", 
       InputField[Dynamic[Entry2], String, Background -> LightYellow]}], 
     Dynamic@Row[{"Answer: ", Answer}], 
     Row[{Button["Clear", Entry1 = ""; Entry2 = ""; Answer = ""], 
       Button["Calculate", 
        Answer = ToExpression[Entry1] ToExpression[Entry2]]}]}], 
   Style["Enter and Calculate_Multiplication", 16, Bold, Italic]]];
Framed[%, Background -> LightOrange]


Hth,

Bill

PS. I used Mathematica 6.0.1 with Win XP on a PC.

• Follow-Ups:
  • Re: Re: Making a user interface
    • From: Murray Eisenberg <murray@math.umass.edu>