Controls.ButtonClicked= whichButton
Sub whichButton
clickedButton = Controls.LastClickedButton
If clickedButton = butQuit Then
Program.End()
ElseIf clickedButton = butPlayGame then
TextWindow.WriteLine("당신은 한국인이 아니군요.")
ElseIf clickedButton = butMenu then
createGameWindow1()
ElseIf clickedButton = butStartGame then
createGameWindow()
ElseIF clickedButton = butPlayGame1 then
TextWindow.WriteLine("한국어 공부에 분발하세요.")
ElseIf clickedButton = butMenu1 then
TextWindow.WriteLine("당신은 진정한 한국인입니다.")
EndIf
EndSub
Sub setup
gww = 1000
gwh = 800
GraphicsWindow.Width = gww
GraphicsWindow.Height = gwh
EndSub
Sub createMainMenu
GraphicsWindow.BackgroundColor = "Blue"
GraphicsWindow.FontSize = 45
GraphicsWindow.DrawBoundText(350,100,300,"한글 맞춤법 문제")
butStartGame = Controls.AddButton("문제풀기", 400,300)
butQuit = Controls.AddButton("그만두기", 400, 500)
EndSub
Sub createGameWindow
GraphicsWindow.Clear()
GraphicsWindow.BackgroundColor = " Blue "
GraphicsWindow.FontSize = 45
GraphicsWindow.DrawBoundText(350,100,300,"문제1")
butPlayGame = Controls.AddButton("넌 나에게 뒤치닥거리일 뿐이야.",400,300)
butMenu = Controls.AddButton("넌 나에게 뒤치닥꺼리일 뿐이야.", 400, 500)
EndSub
Sub createGameWindow1
GraphicsWindow.Clear()
GraphicsWindow.BackgroundColor= " Green "
GraphicsWindow.FontSize = 45
GraphicsWindow.DrawBoundText(350,100,300,"문제2")
butPlayGame1 = Controls.AddButton("시답잖은 말은 필요없어요.",400,300)
butMenu1 = Controls.AddButton("시덥잖은 말은 필요없어요.",400,500)
EndSub
setup()
createMainMenu()
한글맞춤법 문제 코드를 짰는데요. 문제를 맞추었을때 Textwindow에는 참 잘했어요 가 뜨고 GraphicWindow에서는 다음 문제로 넘어갔으면 좋겠는데 어떻게 해야하나요? 둘이 동시에 실행될수 있나요?
댓글 0