Smallbasic 可以同时打开Textwindow和Graphicwindow吗?

Smallbasic 可以同时打开Textwindow和Graphicwindow吗?,smallbasic,Smallbasic,我是韩国高中生。我做了一个关于韩语拼写规则的游戏。我想要的节目是。。[如果您选择了正确的答案,图形窗口将显示下一个问题,文本窗口将显示“干得好。”]这不可能吗 我想添加我的代码。不幸的是,我不知道如何添加代码 是的,绝对有可能。只要使用TextWindow.WriteLine即可随时显示TextWindow showButton = Controls.AddButton("Show", 20, 20) Controls.ButtonClicked = onButtonClic

我是韩国高中生。我做了一个关于韩语拼写规则的游戏。我想要的节目是。。[如果您选择了正确的答案,图形窗口将显示下一个问题,文本窗口将显示“干得好。”]这不可能吗


我想添加我的代码。不幸的是,我不知道如何添加代码

是的,绝对有可能。只要使用TextWindow.WriteLine即可随时显示TextWindow

showButton = Controls.AddButton("Show", 20, 20)
Controls.ButtonClicked = onButtonClicked

Sub onButtonClicked
  if Controls.LastClickedButton = showButton Then
    TextWindow.WriteLine("Button Clicked!")
    Shapes.Move(Shapes.AddText("Button Clicked!"), 20,50)
  EndIf
EndSub

是的,我喜欢用small basic编码,可以同时显示文本窗口和图形窗口。可以使用以下代码执行此操作:

GraphicsWindow.Show()
TextWindow.Show()

Controls.ButtonClicked=whichButton子whichButton Clicked Button=Controls.LastClicked Button如果Clicked Button=但退出,则退出程序。End()否则如果Clicked Button=但玩游戏,则退出文本窗口。WriteLine(“당신은 한국인이 아니군요.") ElseIf clickedButton=butMenu然后createGameWindow1()ElseIf clickedButton=ButStartName然后createGameWindow()ElseIf clickedButton=butPlayGame1然后TextWindow.WriteLine(“한국어 공부에 분발하세요.“”)如果单击按钮=但菜单1,则单击文本窗口。写入行(“”당신은 진정한 한국인입니다.)EndIf EndSubSub setup gww=1000 gwh=800 GraphicsWindow.Width=gww GraphicsWindow.Height=gwh EndSub createMain菜单GraphicsWindow.BackgroundColor=“Blue”GraphicsWindow.FontSize=45 GraphicsWindow.DrawBoundText(350100300,“한글 맞춤법 문제“”)butStartGame=Controls.AddButton(“”)문제풀기,400300)但退出=控件。添加按钮(“그만두기“,400,500)endsubsubsub createGameWindow GraphicsWindow.Clear()GraphicsWindow.BackgroundColor=“Blue”GraphicsWindow.FontSize=45 GraphicsWindow.DrawBoundText(350100300,”문제1“)但PlayGame=控件。添加按钮(“넌 나에게 뒤치닥거리일 뿐이야.,400300)但菜单=控件。添加按钮(“넌 나에게 뒤치닥꺼리일 뿐이야.,400,500)endsubsubsub createGameWindow1 GraphicsWindow.Clear()GraphicsWindow.BackgroundColor=“Green”GraphicsWindow.FontSize=45 GraphicsWindow.DrawBoundText(350100300)문제2“)但PlayGame1=控件。添加按钮(“시답잖은 말은 필요없어요.,400300)butMenu1=控件。添加按钮(“시덥잖은 말은 필요없어요.“,400500)EndSub安装程序()CreateMain菜单()