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

djwhiterice

Thu Mar 04, 2004 9:33 pm


big turing program with gui i dont understand andneed help

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

[b]ok well its kinda a biggy 

try running this program 
____________________________________________________________ 

import GUI in "%oot/lib/GUI" 

View.Set ("graphics:800;600,nobuttonbar") 
var Open : int 
var item : array 1 .. 8 of int 
var x1,x2,x3,x4,x5,x6,x7,x8:int:=0 

var name : array 1 .. 8 of string (60) := 
init ("#1-Instruction Pages","#2-Enter Employee Information","#3-Display Employee Information","#4-Display Employee Information", 
"#5-Display Employee Pay Information","#6-Display Employee Hiring/Age Information","#7-Edit Employee Information","#8-Exit") 


procedure Instructions 
locate(1,1) 
put "Instructions" 
end Instructions 

procedure Employee_Info_Entry 
locate(1,1) 
put "Employee_Info_Entry" 
end Employee_Info_Entry 

procedure Employee_Info_Unformatted 
locate(1,1) 
put "Employee_Info_Unformatted" 
end Employee_Info_Unformatted 

procedure Employee_Info_Table 
locate(1,1) 
put "Employee_Info_Table" 
end Employee_Info_Table 

procedure Employee_Pay 
locate(1,1) 
put "Employee_Pay" 
end Employee_Pay 

procedure Hiring_Age_Info 
locate(1,1) 
put "Hiring_Age_Info" 
end Hiring_Age_Info 

procedure Edit_Employee_Info 
locate(1,1) 
put "Edit_Employee_Info" 
end Edit_Employee_Info 

procedure bye 
x1:=39 
x2:=40 
x3:=41 
x4:=42 
x5:=43 
x6:=44 
x7:=45 
x8:=46 
colorback(7) 
cls 
loop 
for i: 1..8 

x1:=x1+1 
x2:=x2+1 
x3:=x3+1 
x4:=x4+1 
x5:=x5+1 
x6:=x6+1 
x7:=x7+1 
x8:=x8+1 

color(x1) 
delay(50) 
locate(9,3 
put "g".. 
color(x2) 
delay(50) 
locate(10,3 
put "o".. 
color(x3) 
delay(50) 
locate(11,3 
put "o".. 
color(x4) 
delay(50) 
locate(12,3 
put "d".. 
locate(13,3 
put " ".. 
color(x5) 
delay(50) 
locate(14,3 
put "b".. 
color(x6) 
delay(50) 
locate(15,3 
put "y".. 
color(x7) 
delay(50) 
locate(16,3 
put "e".. 
end for 
exit when x1>=55 
end loop 
end bye 


Open := GUI.CreateMenu ("Open") 
item (1) := GUI.CreateMenuItem (name (1), Instructions) 
item (2) := GUI.CreateMenuItem (name (2), Employee_Info_Entry) 
item (3) := GUI.CreateMenuItem (name (3), Employee_Info_Unformatted) 
item (4) := GUI.CreateMenuItem (name (4), Employee_Info_Table) 
item (5) := GUI.CreateMenuItem (name (5), Employee_Pay) 
item (6) := GUI.CreateMenuItem (name (6), Hiring_Age_Info) 
item (7) := GUI.CreateMenuItem (name (7), Edit_Employee_Info) 
item ( := GUI.CreateMenuItem (name (, bye) 
loop 
exit when GUI.ProcessEvent 
end loop 
_____________________________________________________________ 

under the procedure Employee_Info_Entry(program above) i wanna put this stuff: 
_____________________________________________________________ 

import GUI in "%oot/support/lib/GUI" 

View.Set ("graphics:800;600") 

% The Text Field IDs 
var titleTextField, firstnameTextField, lastnameTextField, addressTextField, cityTextField, provTextField, 
postalTextField, datehiredTextField, sexTextField , ageTextField ,hoursworkedTextField , hourlyrateTextField : int 

var z:=180 
% a slider 
var scrollBar : int 

% label for record 
var recordLabel : int 

% The array for data 
var data : array 1 .. 200 of 
record 
title : string 
firstname : string 
lastname : string 
address : string 
city : string 
prov : string 
postal : string 
datehired : string 
sex : string 
age : string 
hourswork : string 
hourlyrate : string 
end record 

var numRecords : int := 1 
var currentRecord : int := 1 

for i : 1 .. 200 
data (i).title := "" 
data (i).firstname := "" 
data (i).lastname := "" 
data (i).address := "" 
data (i).city := "" 
data (i).prov := "" 
data (i).postal := "" 
data (i).datehired := "" 
data (i).sex := "" 
data (i).age := "" 
data (i).hourswork := "" 
data (i).hourlyrate:= "" 
end for 

procedure ChooseRecord (recordNumber : int) 
% Save the current data 
data (currentRecord).title := GUI.GetText (titleTextField) 
data (currentRecord).firstname := GUI.GetText (firstnameTextField) 
data (currentRecord).lastname:= GUI.GetText (lastnameTextField) 
data (currentRecord).address := GUI.GetText (addressTextField) 
data (currentRecord).city := GUI.GetText (cityTextField) 
data (currentRecord).prov := GUI.GetText (provTextField) 
data (currentRecord).postal := GUI.GetText (postalTextField) 
data (currentRecord).datehired := GUI.GetText (datehiredTextField) 
data (currentRecord).sex := GUI.GetText (sexTextField) 
data (currentRecord).age := GUI.GetText (ageTextField) 
data (currentRecord).hourswork := GUI.GetText (hoursworkedTextField) 
data (currentRecord).hourlyrate := GUI.GetText (hourlyrateTextField) 
% Place the new current record in the text fields 
currentRecord := recordNumber 
GUI.SetText (titleTextField, data (currentRecord).title) 
GUI.SetText (firstnameTextField, data (currentRecord).firstname) 
GUI.SetText (lastnameTextField, data (currentRecord).lastname) 
GUI.SetText (addressTextField, data (currentRecord).address) 
GUI.SetText (cityTextField, data (currentRecord).city) 
GUI.SetText (provTextField, data (currentRecord).prov) 
GUI.SetText (postalTextField, data (currentRecord).postal) 
GUI.SetText (datehiredTextField, data (currentRecord).datehired) 
GUI.SetText (sexTextField, data (currentRecord).sex) 
GUI.SetText (ageTextField, data (currentRecord).age) 
GUI.SetText (hoursworkedTextField, data (currentRecord).hourswork) 
GUI.SetText (hourlyrateTextField, data (currentRecord).hourlyrate) 

% Set the label to indicate the current record 
GUI.SetLabel (recordLabel, "Record " + intstr (recordNumber) + " of " + 
intstr (numRecords)) 

% Set the selections to cover all the text in each of the text fields 
GUI.SetSelection (titleTextField, -1, -1) 
% Make the name field the active text field 
GUI.SetActive (titleTextField) 
GUI.SetSelection (firstnameTextField, -1, -1) 
GUI.SetSelection (lastnameTextField, -1, -1) 
GUI.SetSelection (addressTextField, -1, -1) 
GUI.SetSelection (cityTextField, -1, -1) 
GUI.SetSelection (provTextField, -1, -1) 
GUI.SetSelection (postalTextField, -1, -1) 
GUI.SetSelection (datehiredTextField, -1, -1) 
GUI.SetSelection (sexTextField, -1, -1) 
GUI.SetSelection (ageTextField, -1, -1) 
GUI.SetSelection (hoursworkedTextField, -1, -1) 
GUI.SetSelection (hourlyrateTextField, -1, -1) 
end ChooseRecord 

procedure AddRecord 
numRecords += 1 
GUI.SetSliderMinMax (scrollBar, 1, numRecords) 
% GUI.SetSliderValue calls ChooseRecord automatically 
GUI.SetSliderValue (scrollBar, numRecords) 
end AddRecord 
%1 
procedure Title (text : string) 
GUI.SetSelection (firstnameTextField, -1, -1) 
GUI.SetActive (firstnameTextField) 
end Title 
%2 
procedure Firstname (text : string) 
GUI.SetSelection (lastnameTextField, -1, -1) 
GUI.SetActive (lastnameTextField) 
end Firstname 
%3 
procedure Lastname (text : string) 
GUI.SetSelection (addressTextField, -1, -1) 
GUI.SetActive (addressTextField) 
end Lastname 
%4 
procedure Address (text : string) 
GUI.SetSelection (lastnameTextField, -1, -1) 
GUI.SetActive (lastnameTextField) 
end Address 
%5 
procedure City (text : string) 
GUI.SetSelection (provTextField, -1, -1) 
GUI.SetActive (provTextField) 
end City 
%6 
procedure Prov (text : string) 
GUI.SetSelection (postalTextField, -1, -1) 
GUI.SetActive (postalTextField) 
end Prov 
%7 
procedure Postal (text : string) 
GUI.SetSelection (datehiredTextField, -1, -1) 
GUI.SetActive (datehiredTextField) 
end Postal 
%8 
procedure DateHired (text : string) 
GUI.SetSelection (sexTextField, -1, -1) 
GUI.SetActive (sexTextField) 
end DateHired 
%9 
procedure Sex (text : string) 
GUI.SetSelection (ageTextField, -1, -1) 
GUI.SetActive (ageTextField) 
end Sex 
%10 
procedure Age (text : string) 
GUI.SetSelection (hoursworkedTextField, -1, -1) 
GUI.SetActive (hoursworkedTextField) 
end Age 
%11 
procedure Hoursworked (text : string) 
GUI.SetSelection (hourlyrateTextField, -1, -1) 
GUI.SetActive (hourlyrateTextField) 
end Hoursworked 


procedure Hourlyrate (text : string) 
if currentRecord = numRecords then 
AddRecord 
else 
GUI.SetSliderValue (scrollBar, currentRecord + 1) 
% GUI.SetSliderValue calls ChooseRecord automatically 
end if 
end Hourlyrate 

GUI.SetBackgroundColour (gray) 
recordLabel := GUI.CreateLabelFull (100, 390+z, "Record 1 of 1", 100, 0, 
GUI.CENTER, 0) 
titleTextField := GUI.CreateTextFieldFull (100, 370+z, 100, "", Title, 
GUI.INDENT, 0, 0) 
firstnameTextField := GUI.CreateTextFieldFull (100, 340+z, 100, "", Firstname, 
GUI.INDENT, 0, 0) 
lastnameTextField := GUI.CreateTextFieldFull (100, 310+z, 100, "", Lastname, 
GUI.INDENT, 0, 0) 
addressTextField := GUI.CreateTextFieldFull (100, 280+z, 100, "", Address, 
GUI.INDENT, 0, 0) 
cityTextField := GUI.CreateTextFieldFull (100, 250+z, 100, "", City, 
GUI.INDENT, 0, 0) 
provTextField := GUI.CreateTextFieldFull (100, 220+z, 100, "", Prov, 
GUI.INDENT, 0, 0) 
postalTextField := GUI.CreateTextFieldFull (100, 190+z, 100, "", Postal, 
GUI.INDENT, 0, 0) 
datehiredTextField := GUI.CreateTextFieldFull (100, 160+z, 100, "", DateHired, 
GUI.INDENT, 0, 0) 
sexTextField := GUI.CreateTextFieldFull (100, 130+z, 100, "", Sex, 
GUI.INDENT, 0, 0) 
ageTextField := GUI.CreateTextFieldFull (100, 100+z, 100, "", Age, 
GUI.INDENT, 0, 0) 
hoursworkedTextField := GUI.CreateTextFieldFull (100, 70+z, 100, "", Hoursworked, 
GUI.INDENT, 0, 0) 
hourlyrateTextField := GUI.CreateTextFieldFull (100, 40+z, 100, "", Hourlyrate, 
GUI.INDENT, 0, 0) 
var titleLabel := GUI.CreateLabelFull (95, 370+z, "Title", 0, 0, GUI.RIGHT, 0) 
var firstnameLabel := GUI.CreateLabelFull (95, 340+z, "First Name", 0, 0, GUI.RIGHT,0) 
var lastnameLabel := GUI.CreateLabelFull (95, 310+z, "Last Name", 0, 0, GUI.RIGHT, 0) 
var addressLabel := GUI.CreateLabelFull (95, 280+z, "Address", 0, 0, GUI.RIGHT, 0) 
var citynameLabel := GUI.CreateLabelFull (95, 250+z, "City", 0, 0, GUI.RIGHT,0) 
var provinceLabel := GUI.CreateLabelFull (95, 220+z, "Province", 0, 0, GUI.RIGHT, 0) 
var postalLabel := GUI.CreateLabelFull (95, 190+z, "Postal Code", 0, 0, GUI.RIGHT, 0) 
var datehiredLabel := GUI.CreateLabelFull (95, 160+z, "Date Hired", 0, 0, GUI.RIGHT,0) 
var sexLabel := GUI.CreateLabelFull (95, 130+z, "Sex", 0, 0, GUI.RIGHT, 0) 
var ageLabel := GUI.CreateLabelFull (95, 100+z, "Age", 0, 0, GUI.RIGHT, 0) 
var hoursworkedlabel := GUI.CreateLabelFull (95, 70+z, "Hours Worked", 0, 0, GUI.RIGHT,0) 
var hourlyrateLabel := GUI.CreateLabelFull (95, 40+z, "Hourly Rate", 0, 0, GUI.RIGHT, 0) 


var addRecord := GUI.CreateButton (99, 5+z, 100, "Add Record", AddRecord) 

scrollBar := GUI.CreateVerticalScrollBarFull (210, 38+z, 350, 1, 1, 1,ChooseRecord, 1, 5, 0) 
GUI.SetSliderReverse (scrollBar) 

loop 
exit when GUI.ProcessEvent 
end loop 

_____________________________________________________________ 

im new at gui so i dont know how to do it 
how would i go about doin this?


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

poly

Thu Mar 04, 2004 9:41 pm



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

First of all:
Buggy...naah its not buggy at all because it WONT RUN! You need to fix ALL the errors in your program,  your missing the ")" on your located, in your code you have "(" when you should have ")".etc etc etc
Also you might want to elaborate on what you cant do?


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

jonos

Thu Mar 04, 2004 10:25 pm



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

you have 29 errors and 49 warnings, so nect time try to solve the mistakes by yourself instead of just putting here. next time you might want to also upload it so the page doesn't get so big.

also, you should tell us what you are trying to do, and that goes beyond buggy.