Problem with Place command

[milfredo]

I have been Ill for quite some time, but bouncing back a bit, so getting back to programming. I am having troube with the following code when it's supposed to print in a graphics window. Should be printing nased off of the x and y positions. But All I can do is get it to parin all in one column. Please help.  I know the place command as you'll see it here is not right.



  '-----Begin code for #Pace



   nomainwin

   WindowWidth = 1100

   WindowHeight = 600

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)





   '-----Begin GUI objects code



   button #Pace.button1,"Close",[closepace], UL, 445, 522,  75,  25



   '-----End GUI objects code



   open "Pace Pressure" for graphics_nsb as #Pace

   print #Pace, "down;fill buttonface; flush"

   print #Pace, "color black; backcolor buttonface"

   print #Pace, "font ms_sans_serif 10 Bold"

   print #Pace.button1, "!font ms_sans_serif 10 Bold"

   print #Pace, "trapclose [quit.Pace]"

print #Pace, "down"

   Y1 = 175

   Y2 = 175

   Y3 = 175

   Y4 = 175

   X1 = 20

   X2 = 260

   X3 = 510

   X4 = 775

   print #Pace, "color Blue"

  print #Pace, "font ms_sans_serif 14 Bold"

 print #Pace, "place  375  50 "

 print #Pace, "\Pace Pressure Map";

 print #Pace, "place  50  100 "

  print #Pace, "color Red"

 print #Pace, "\Speed";

 print #Pace, "color darkred"

 print #Pace, "place  270  100 "

 print #Pace, "\Early-Presser";

 print #Pace, "place  500  100 "

 print #Pace, "color Black"

 print #Pace, "\Late-Sustained";

  print #Pace, "place 800  100 "

 print #Pace, "\Big Closer";

 print #Pace, "font ms_sans_serif 10 Bold"

 print #Pace, "color Black"





  for v = 0 to ps-1

if nameofhorse$(srt(v,0)) = "" then

goto [noname]

ELSE

pacenumber = holder(srt(v,0),69)

gosub [getpacenumber]



print #Pace,"Place       ";  lenth;   depth;



print #Pace, "\";  holder(srt(v,0),69);"  ";TracSaddle$(srt(v,0)); ".  "; nameofhorse$(srt(v,0))







END if

[noname]

next v



print #Pace, "flush"



[Pace.inputLoop]   'wait here for input event

   wait







[closepace]   'Perform action for the button named 'button1'



   Goto [quit.Pace] 'Insert your own code here



   wait



[quit.Pace] 'End the program

print #Pace, "discard"

   close #Pace



goto [top.inputLoop]







y = 160







[getpacenumber]

test = 0

SELECT CASE

 CASE (pacenumber > 0) and (pacenumber < 3)

   lenth = X1

   depth = Y1

   Y1 = Y1+30

 CASE (pacenumber  > 2) and (pacenumber  < 4)

  lenth = X2

   depth = Y2

   Y2 = Y2+30

 CASE (pacenumber > 3) and (pacenumber < 6)

    lenth = X3

   depth = Y3

   Y3 = Y3+30

 CASE (pacenumber  > 6) and (pacenumber < 200)

   lenth = X4

   depth = Y4

   Y4 = Y4+30



 END SELECT



 Return




Thank You.

[Chris Iverson]

Missing a function or an array - what's srt()?

[tenochtitlanuk]

Yup- two 2-D arrays srt( ) and holder( ) not dimensioned or filled, and a line name [top.InputLoop] doesn't exist.

[Rod]

When you create a print command line with variables you need to use ;" "; space inserts to preserve the spacing so making it look like a typed in command. To check if you have it right just print the line to the mainwin. It should look like a normal line so "place ";x;" ";y;" ;\text" would print to screen as "place 100 100 ;\text"


'-----Begin code for #Pace


   nomainwin
   WindowWidth = 1100
   WindowHeight = 600
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   open "Pace Pressure" for graphics_nsb as #Pace

   print #Pace, "down;fill buttonface; flush"
   print #Pace, "color black; backcolor buttonface"
   print #Pace, "font ms_sans_serif 10 Bold"
   print #Pace, "trapclose [quit]"


   Y1 = 175
   Y2 = 175
   Y3 = 175
   Y4 = 175
   X1 = 20
   X2 = 260
   X3 = 510
   X4 = 775

 print #Pace, "color Blue"
 print #Pace, "font ms_sans_serif 14 Bold"
 print #Pace, "place  375  50 "
 print #Pace, "\Pace Pressure Map";
 print #Pace, "place  50  100 "
 print #Pace, "color Red"
 print #Pace, "\Speed";
 print #Pace, "color darkred"
 print #Pace, "place  270  100 "
 print #Pace, "\Early-Presser";
 print #Pace, "place  500  100 "
 print #Pace, "color Black"
 print #Pace, "\Late-Sustained";
 print #Pace, "place 800  100 "
 print #Pace, "\Big Closer";
 print #Pace, "font ms_sans_serif 10 Bold"
 print #Pace, "color Black"




text$="Rod"


'you need to insert spaces if you are using variables
'you dont need the word print
'or the comma after #Pace
#Pace "place ";X1;" ";Y1;" ;\";text$
#Pace "place ";X2;" ";Y2;" ;\";text$
print #Pace,"place ";X3;" ";Y3;" ;\";text$
print #Pace,"place ";X4;" ";Y4;" ;\";text$
wait

[quit]
close #Pace
end


[milfredo]

Thank you guys. Have been out of town for a few days. Just got back home to see this. Thanks again.


milfredo

[milfredo]

Rod,

Got it working. Thanks again.

milfredo