Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Waiting for user input in Turing Game
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
mapleleafs1917




PostPosted: Thu May 22, 2014 8:40 pm   Post subject: Waiting for user input in Turing Game

What is it you are trying to achieve?
I want the program to wait until the user has entered their text into the textbox and then continue from there


What is the problem you are having?
I cannot seem to figure out how to do that.


Describe what you have tried to solve this problem
I have used getch and i tried using delay but nothing is working.


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)


Turing:


import GUI
View.Set ("graphics: 1280;994, nobuttonbar")
GUI.SetBackgroundColor (77)

var font : int
var font2 : int
var player1Name, player2Name : int
var aButton, bButton, cButton, dButton, eButton, fButton, gButton, hButton, iButton, jButton, kButton, lButton, mButton, nButton, oButton, pButton, qButton, rButton, sButton, tButton, uButton,
    vButton, wButton, xButton, yButton, zButton : int
var quitter : int
var continue : int
var anykey :string


proc enter
put ""
end enter

procedure nameEntered (text : string)
    GUI.SetSelection (player2Name, 0, 0)
    GUI.SetActive (player2Name)
end nameEntered

procedure name2Entered (text : string)
    GUI.SetSelection (player1Name, 0, 0)
    GUI.SetActive (player1Name)
end name2Entered

proc a
end a

proc b
end b

proc c
end c

proc d
end d

proc e
end e

proc f
end f

proc g
end g

proc h
end h

proc i
end i

proc j
end j

proc k
end k

proc l
end l

proc m
end m

proc n
end n

proc o
end o

proc p
end p

proc q
end q

proc r
end r

proc s
end s

proc t
end t

proc u
end u

proc v
end v

proc w
end w

proc x
end x

proc y
end y

proc z
end z

font := Font.New ("Kozuka Gothic Pro EL:60")
font2 := Font.New ("Kozuka Gothic Pro EL:24:bold")
Font.Draw ("Welcome to Hangman", 65, 880, font, white)
Font.Draw ("Please Enter Names: ", 65, 550, font2, white)

player1Name := GUI.CreateTextFieldFull (65, 500, 100, "",
    nameEntered, GUI.INDENT, 0, 0)

player2Name := GUI.CreateTextFieldFull (65, 450, 100, "",
    name2Entered, GUI.INDENT, 0, 0)
continue := GUI.CreateButtonFull (65, 400, 40, "Enter", enter, 40, '^D', true)

% This a temprorary patch to help the program stay together
delay (3000)
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

GUI.Dispose (player1Name)
GUI.Dispose (player2Name)
GUI.SetBackgroundColor (72)

quitter := GUI.CreateButtonFull (100, 380, 100, "Quit (Ctrl+Q)", GUI.Quit, 40, '^Q', true)
GUI.SetColor (quitter, 65)

aButton := GUI.CreateButtonFull (100, 500, 40, "A", a, 40, '^D', true)
GUI.SetColor (aButton, white)
bButton := GUI.CreateButtonFull (160, 500, 40, "B", b, 40, '^D', true)
GUI.SetColor (bButton, white)
cButton := GUI.CreateButtonFull (220, 500, 40, "C", c, 40, '^D', true)
GUI.SetColor (cButton, white)
dButton := GUI.CreateButtonFull (280, 500, 40, "D", d, 40, '^D', true)
GUI.SetColor (dButton, white)
eButton := GUI.CreateButtonFull (340, 500, 40, "E", e, 40, '^D', true)
GUI.SetColor (eButton, white)
fButton := GUI.CreateButtonFull (400, 500, 40, "F", f, 40, '^D', true)
GUI.SetColor (fButton, white)
gButton := GUI.CreateButtonFull (460, 500, 40, "G", g, 40, '^D', true)
GUI.SetColor (gButton, white)
hButton := GUI.CreateButtonFull (520, 500, 40, "H", h, 40, '^D', true)
GUI.SetColor (hButton, white)
iButton := GUI.CreateButtonFull (580, 500, 40, "I", i, 40, '^D', true)
GUI.SetColor (iButton, white)
jButton := GUI.CreateButtonFull (640, 500, 40, "J", j, 40, '^D', true)
GUI.SetColor (jButton, white)

kButton := GUI.CreateButtonFull (100, 440, 40, "K", k, 40, '^D', true)
GUI.SetColor (kButton, white)
lButton := GUI.CreateButtonFull (160, 440, 40, "L", l, 40, '^D', true)
GUI.SetColor (lButton, white)
mButton := GUI.CreateButtonFull (220, 440, 40, "M", m, 40, '^D', true)
GUI.SetColor (mButton, white)
nButton := GUI.CreateButtonFull (280, 440, 40, "N", n, 40, '^D', true)
GUI.SetColor (nButton, white)
oButton := GUI.CreateButtonFull (340, 440, 40, "O", o, 40, '^D', true)
GUI.SetColor (oButton, white)
pButton := GUI.CreateButtonFull (400, 440, 40, "P", p, 40, '^D', true)
GUI.SetColor (pButton, white)
qButton := GUI.CreateButtonFull (460, 440, 40, "Q", q, 40, '^D', true)
GUI.SetColor (qButton, white)
rButton := GUI.CreateButtonFull (520, 440, 40, "R", r, 40, '^D', true)
GUI.SetColor (rButton, white)
sButton := GUI.CreateButtonFull (580, 440, 40, "S", s, 40, '^D', true)
GUI.SetColor (sButton, white)
tButton := GUI.CreateButtonFull (640, 440, 40, "T", t, 40, '^D', true)
GUI.SetColor (tButton, white)

uButton := GUI.CreateButtonFull (220, 380, 40, "U", u, 40, '^D', true)
GUI.SetColor (uButton, white)
vButton := GUI.CreateButtonFull (280, 380, 40, "V", v, 40, '^D', true)
GUI.SetColor (vButton, white)
wButton := GUI.CreateButtonFull (340, 380, 40, "W", w, 40, '^D', true)
GUI.SetColor (wButton, white)
xButton := GUI.CreateButtonFull (400, 380, 40, "X", x, 40, '^D', true)
GUI.SetColor (xButton, white)
yButton := GUI.CreateButtonFull (460, 380, 40, "Y", y, 40, '^D', true)
GUI.SetColor (yButton, white)
zButton := GUI.CreateButtonFull (520, 380, 40, "Z", z, 40, '^D', true)
GUI.SetColor (zButton, white)

loop
    exit when GUI.ProcessEvent
end loop





Please specify what version of Turing you are using
4.1.1
Sponsor
Sponsor
Sponsor
sponsor
mitheralice




PostPosted: Tue Jun 03, 2014 7:29 pm   Post subject: RE:Waiting for user input in Turing Game

Try the "get" command...
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 2 Posts ]
Jump to:   


Style:  
Search: