-----------------------------------

Bruski

Fri Jun 13, 2003 12:46 pm


Text Box Question!!!!

-----------------------------------

Hello i need some serious help most of my gui is done but i need some help. I want to put a check box so that ppl get to choose weather or not they have a membership and another if they want one...my problem is that i dont know how to make it that when they click buy membership, the discount is shown and the amount of the membership is put in the membership fee when you press calc...

for example...

if they have membership...put automatic discount
if they dont have membership...they go to the next two boxes and are asked if they want to purchase one, if no then the calculation is processed without discount or mem fee but if yes then a mem fee is added to the total and a discount is also taken away...plz plz plz help this is due tuesday and its worth like 20% of my mark...thx again heres the code...


import GUI 

View.Set ("graphics:400;300,nobuttonbar") 

var nameTextField, addressTextField, cityTextField, provinceTextField, costTextField : int 
var total, tax, cost, subTotal, GSTtot, PSTtot, discount, membership : real 
var tot := "" 
var sub := "" 
var gst := "" 
var pst := "" 
var dis := ""
var mem := ""
const gstTax:=0.07 
const pstTax:=0.08 
var draw : boolean := false 
tax := 0.15 
colorback (black) 

procedure NameEntered (text : string) 
   GUI.SetSelection (addressTextField, 0, 0) 
   GUI.SetActive (addressTextField) 
end NameEntered 

procedure AddressEntered (text : string) 
   GUI.SetSelection (cityTextField, 0, 0) 
   GUI.SetActive (cityTextField) 
end AddressEntered 

procedure CityEntered (text : string) 
   GUI.SetSelection (provinceTextField, 0, 0) 
   GUI.SetActive (provinceTextField) 
end CityEntered 

procedure ProvinceEntered (text : string) 
   GUI.SetSelection (costTextField, 0, 0) 
   GUI.SetActive (costTextField) 
end ProvinceEntered 

procedure CostCD (text : string)
    
   total := strreal (text) + strreal (text) * tax 
   tot := realstr (total, 10) 
   subTotal :=strreal (text) 
   sub := realstr (subTotal, 10) 
   GSTtot :=strreal (text) * gstTax 
   gst := realstr (GSTtot, 10) 
   PSTtot :=strreal (text) * pstTax 
   pst := realstr (PSTtot, 10)
   discount:=strreal (text) + strreal (text) *1.15
   dis:=realstr (discount, 10) 
   membership:=strreal (text) + strreal (text) *1.15
   mem:=realstr (membership, 10) 
end CostCD 

procedure emptyf (text : string) 
   tot:= "" 
   sub:= "" 
   gst:= "" 
   pst:= "" 
   dis:= ""
   mem:= ""
end emptyf 

procedure caculate () 
   draw := true 
end caculate 

GUI.SetBackgroundColor (yellow) 
%declare fields & labels 
nameTextField := GUI.CreateTextFieldFull (65, 250, 100, "", NameEntered, GUI.INDENT, 0, 0) 
var nameLabel := GUI.CreateLabelFull (55, 250, "Name:", 0, 0, GUI.RIGHT, 0) 

addressTextField := GUI.CreateTextFieldFull (65, 220, 100, "", AddressEntered, GUI.INDENT, 0, 0) 
var addressLabel := GUI.CreateLabelFull (55, 220, "Address:", 0, 0, GUI.RIGHT, 0) 

cityTextField := GUI.CreateTextFieldFull (65, 190, 100, "", CityEntered, GUI.INDENT, 0, 0) 
var cityLabel := GUI.CreateLabelFull (55, 190, "City:", 0, 0, GUI.RIGHT, 0) 

provinceTextField := GUI.CreateTextFieldFull (65, 160, 100, "", ProvinceEntered, GUI.INDENT, 0, 0) 
var provinceLabel := GUI.CreateLabelFull (55, 160, "Province:", 0, 0, GUI.RIGHT, 0) 

var taxtf := GUI.CreateTextFieldFull (235, 130, 155, "", emptyf, GUI.INDENT, 0, 0) 
var subTotalf := GUI.CreateTextFieldFull (235, 250, 155, "", emptyf, GUI.INDENT, 0, 0) 
var gstf := GUI.CreateTextFieldFull (235, 160, 55, "", emptyf, GUI.INDENT, 0, 0) 
var pstf := GUI.CreateTextFieldFull (335, 160, 55, "", emptyf, GUI.INDENT, 0, 0)
var disf := GUI.CreateTextFieldFull (235, 190, 155, "", emptyf, GUI.INDENT, 0, 0)
var memf := GUI.CreateTextFieldFull (235, 220, 155, "", emptyf, GUI.INDENT, 0, 0) 


costTextField := GUI.CreateTextFieldFull (65, 130, 100, "", CostCD, GUI.INDENT, 0, 0) 
var gtax := GUI.CreateLabelFull (225, 130, "Total:", 0, 0,GUI.RIGHT, 0) 
var ggst := GUI.CreateLabelFull (225, 160, "GST:", 0, 0,GUI.RIGHT, 0) 
var gpst := GUI.CreateLabelFull (325, 160, "PST:", 0, 0,GUI.RIGHT, 0) 
var gsub := GUI.CreateLabelFull (225, 250, "Subtotal:", 0, 0,GUI.RIGHT, 0) 
var gdis := GUI.CreateLabelFull (225, 190, "Discount:", 0, 0,GUI.RIGHT, 0)
var gmem := GUI.CreateLabelFull (225, 220, "Mem Fee:", 0, 0,GUI.RIGHT, 0)

var costLabel := GUI.CreateLabelFull (55, 130, "CD Cost:", 0, 0, GUI.RIGHT, 0) 
var quitBtn : int := GUI.CreateButton (100, 80, 0, "Quit", GUI.Quit) 

var calcb : int := GUI.CreateButton (160, 80, 0, "Calculate", caculate) 
var clearScrn : int := GUI.CreateButton (245, 80, 0, "Clear Screen", caculate)
loop 
   if draw then 
       GUI.SetText (taxtf, tot) 
       GUI.SetText (subTotalf, sub) 
       GUI.SetText (gstf, gst) 
       GUI.SetText (pstf, pst) 
       GUI.SetText (disf, dis)
       GUI.SetText (memf, mem)
       draw := false 
   end if 
   exit when GUI.ProcessEvent 
end loop 


thanks yet again alex :cry: