smallbasic - 我希望能够让我的 Small Basics Program 提交多票

Question

所以我正在制作一个基础知识很少的程序，这是我的代码：

initialiseprogram()

Sub initialiseprogram
  GraphicsWindow.Show()
  GraphicsWindow.Clear()
  GraphicsWindow.FontBold = "True"
  GraphicsWindow.BrushColor = "Green"
  GraphicsWindow.BackgroundColor = "lightgreen"
  GraphicsWindow.Title = "Favorite Football Teams"
  GraphicsWindow.Width = "700"
  GraphicsWindow.CanResize = "false"
  GraphicsWindow.Height = "430"
  GraphicsWindow.FontSize = "20"
  GraphicsWindow.DrawText(50,55, "Please enter the names of five football teams.")
  GraphicsWindow.DrawText(230, 15, "Favorite Football Teams")
  GraphicsWindow.DrawText(230, 20, "___________________")
  ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
  Image = ImageList.LoadImage(ImageLoc)
  GraphicsWindow.DrawImage(Image, 400, 100)  
  'team1:
  GraphicsWindow.DrawText(50, 105, "Team 1:")
  team1textbox = Controls.AddTextBox(180, 100)
  'team2:
  GraphicsWindow.DrawText(50, 155, "Team 2:")
  team2textbox = Controls.AddTextBox(180, 150)
  'team3:
  GraphicsWindow.DrawText(50, 205, "Team 3:")
  team3textbox = Controls.AddTextBox(180, 200)
  'team4:
  GraphicsWindow.DrawText(50, 255, "Team 4:")
  team4textbox = Controls.AddTextBox(180, 250)
  'team5:
  GraphicsWindow.DrawText(50, 305, "Team 5:")
  team5textbox = Controls.AddTextBox(180, 300)
  submitTeamNames = Controls.AddButton("Submit Teams", 460, 320)
  Controls.ButtonClicked = buttonclickedfunction
EndSub

Sub buttonclickedfunction
    If (Controls.LastClickedButton = submitTeamNames) Then
    'team 1:
    team1name = Controls.GetTextBoxText(team1textbox)
    'team 2:
    team2name = Controls.GetTextBoxText(team2textbox)
    'team 3:
    team3name = Controls.GetTextBoxText(team3textbox)
    'team 4:
    team4name = Controls.GetTextBoxText(team4textbox)
    'team 5:
    team5name = Controls.GetTextBoxText(team5textbox)
    If Text.GetLength(team1name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 1", "Alert")
    ElseIf Text.GetLength(team2name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 2", "Alert")
    ElseIf Text.GetLength(team3name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 3", "Alert")
    ElseIf Text.GetLength(team4name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 4", "Alert")
    ElseIf Text.GetLength(team5name) = 0 Then 
      GraphicsWindow.ShowMessage("You must enter a team name for team 5", "Alert")
    Else
      GraphicsWindow.Clear()
      ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
      Image = ImageList.LoadImage(ImageLoc)
      GraphicsWindow.DrawImage(Image, 400, 100)  
      'Drawing team 1 name on next slide
      GraphicsWindow.DrawBoundText(50,105, 265 team1name + ":")
      'Drawing team 2 name on next slide
      GraphicsWindow.DrawBoundText(50,155, 265 team2name + ":")
      'Drawing team 3 name on next slide
      GraphicsWindow.DrawBoundText(50,205, 265 team3name + ":")
      'Drawing team 4 name on next slide
      GraphicsWindow.DrawBoundText(50,255, 265 team4name + ":")
      'Drawing team 5 name on next slide
      GraphicsWindow.DrawBoundText(50,305, 265 team5name + ":")
      initialisenextslide()

    EndIf
  EndIf  
EndSub

Sub initialisenextslide
  GraphicsWindow.DrawText(230, 15, "Favourite Football Teams")
  GraphicsWindow.DrawText(230, 20, "____________________")
  GraphicsWindow.DrawBoundText(50,45, 640, "Please order your teams in preference, 1 being the favourite and 5 the least favourite")
  'team 1 text box
  team1NewTextBox = Controls.AddTextBox(306, 100)
  Controls.SetSize(team1NewTextBox, 35, 32)
  'team 2 text box
  team2NewTextBox = Controls.AddTextBox(306, 150)
  Controls.SetSize(team2NewTextBox, 35, 32)
  'team 3 text box
  team3NewTextBox = Controls.AddTextBox(306, 200)
  Controls.SetSize(team3NewTextBox, 35, 32)
  'team 4 text box
  team4NewTextBox = Controls.AddTextBox(306, 250)
  Controls.SetSize(team4NewTextBox, 35, 32)
  'team 5 text box
  team5NewTextBox = Controls.AddTextBox(306, 300)
  Controls.SetSize(team5NewTextBox, 35, 32)
  'Adding Submit Button
  ResultsButton = Controls.AddButton("Submit Preferences", 460,320)
  Controls.ButtonClicked = resultsSlideSub
EndSub

Sub resultsSlideSub
  If (Controls.LastClickedButton = ResultsButton) Then
    'team 1:
    t1vote = Controls.GetTextBoxText(team1NewTextBox)
    'team 2:
    t2vote = Controls.GetTextBoxText(team2NewTextBox)
    'team 3:
    t3vote = Controls.GetTextBoxText(team3NewTextBox)
    'team 4:
    t4vote = Controls.GetTextBoxText(team4NewTextBox)
    'team 5:
    t5vote = Controls.GetTextBoxText(team5NewTextBox)
    If Text.GetLength(t1vote) = 0 or Text.GetLength(t1vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 1: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t2vote) = 0 or Text.GetLength(t2vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 2: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t3vote) = 0 or Text.GetLength(t3vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 3: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t4vote) = 0 or Text.GetLength(t4vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 4: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t5vote) = 0 or Text.GetLength(t5vote) >= 2 Then 
      GraphicsWindow.ShowMessage("Team 5: You can only input one number for your preference.", "Alert")
    Else
      InitialiseVerification()
    EndIf
  Endif
EndSub

Sub InitialiseVerification
  If (t1vote + t2vote + t3vote + t4vote + t5vote = 15) Then
    If (t1vote = t2vote Or t1vote = t3vote Or t1vote = t4vote Or t1vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    ElseIf (t2vote = t1vote Or t2vote = t3vote Or t2vote = t4vote Or t2vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t3vote = t1vote Or t3vote = t2vote Or t3vote = t4vote Or t3vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t4vote = t1vote Or t4vote = t2vote Or t4vote = t3vote Or t4vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t5vote = t1vote Or t5vote = t2vote Or t5vote = t3vote Or t5vote = t4vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Else 
      InitialiseVerificationStage2()
    EndIf
  Else 
    GraphicsWindow.ShowMessage("Please make sure you haven't entered the same rank twice.", "Alert")
  EndIf
EndSub

Sub InitialiseVerificationStage2
  If (t1vote = 1 Or t1vote = 2 Or t1vote = 3 Or t1vote = 4 Or t1vote = 5) Then
    If (t2vote = 1 Or t2vote = 2 Or t2vote = 3 Or t2vote = 4 Or t2vote = 5) Then
      If (t3vote = 1 Or t3vote = 2 Or t3vote = 3 Or t3vote = 4 Or t3vote = 5) Then
        If (t4vote = 1 Or t4vote = 2 Or t4vote = 3 Or t4vote = 4 Or t4vote = 5) Then
          If (t5vote = 1 Or t5vote = 2 Or t5vote = 3 Or t5vote = 4 Or t5vote = 5) Then
            InitialiseResultsSlide()
          Else
            GraphicsWindow.ShowMessage("Your preferences must only consist of a number between 1 and 5", "Alert")
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

EndSub


Sub InitialiseResultsSlide
  GraphicsWindow.Clear()
  GraphicsWindow.DrawText(230, 15, "Favourite Football Teams")
  GraphicsWindow.DrawText(230, 20, "____________________")
  ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
  Image = ImageList.LoadImage(ImageLoc)
  GraphicsWindow.DrawImage(Image, 400, 100)  
  GraphicsWindow.DrawBoundText(50,60, 640, "Results Table")
  GraphicsWindow.DrawBoundText(50,175, 640, "Overall: ")
  GraphicsWindow.DrawText(50, 65, "____________________")
  GraphicsWindow.DrawText(50, 180, "____________________")
  'Displaying votes
  If (t1vote > t2vote and t1vote > t3vote and t1vote > t4vote and t1vote > t5vote) then
    preferedTeam = team1name
    preferedTeamVotes = t1vote
  ElseIf (t2vote > t1vote and t2vote > t3vote and t2vote > t4vote and t2vote > t5vote) then
    preferedTeam = team2name
    preferedTeamVotes = t2vote
  ElseIf (t3vote > t1vote and t3vote > t2vote and t3vote > t4vote and t3vote > t5vote) then
    preferedTeam = team3name
    preferedTeamVotes = t3vote
  ElseIf (t4vote > t1vote and t4vote > t2vote and t4vote > t3vote and t4vote > t5vote) then
    preferedTeam = team4name
    preferedTeamVotes = t4vote
  ElseIf (t5vote > t1vote and t5vote > t2vote and t5vote > t3vote and t5vote > t4vote) then
    preferedTeam = team5name
    preferedTeamVotes = t5vote
  EndIf
  GraphicsWindow.DrawBoundText(50,100, 350, "The preffered football team was " + preferedTeam + " which achieved " + preferedTeamVotes + " votes!")
  drawOverallTable()
EndSub

Sub drawOverallTable
  If (t1vote = 1) Then
    GraphicsWindow.DrawBoundText(50,210, 350, "Team 1: " + t1vote + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,210, 350, "Team 1: " + t1vote + " votes")
  EndIf
  If (t2vote = 1) Then
    GraphicsWindow.DrawBoundText(50,240, 350, "Team 2: " + t1vote + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,240, 350, "Team 2: " + t1vote + " votes")
  EndIf
  If (t3vote = 1) Then
    GraphicsWindow.DrawBoundText(50,270, 350, "Team 3: " + t1vote + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,270, 350, "Team 3: " + t1vote + " votes")
  EndIf
  If (t4vote = 1) Then
    GraphicsWindow.DrawBoundText(50,300, 350, "Team 4: " + t1vote + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,300, 350, "Team 4: " + t1vote + " votes")
  EndIf
  If (t5vote = 1) Then
    GraphicsWindow.DrawBoundText(50,330, 350, "Team 5: " + t1vote + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,330, 350, "Team 5: " + t1vote + " votes")
  EndIf
  RestartButton = Controls.AddButton("Restart", 520,320)
  controls.ButtonClicked = restartButtonSub
EndSub
Sub restartButtonSub
  If (Controls.LastClickedButton = RestartButton) Then
    initialiseprogram()
  EndIf
EndSub

目前它有效。然而，凭借我对 Small Basics 的后者知识，我一直在思考如何在第二张幻灯片上制作一个按钮，提交当前投票并再次加载页面，而无需下次继续。

这可能不太清楚，所以我将重新开始。

我知道怎么做一个按钮。但是在您提交排名的第二张幻灯片上，我想要另一个提交当前排名的按钮（以及“SubmitPreferences”按钮），因此您可以输入多于一组排名。然后，当您准备好时，单击提交首选项按钮，然后进入最终屏幕（结果屏幕）。

谢谢你。有人告诉我这只是我需要投入的一件事，但他们不会进一步帮助我。

Answer 1

我检查了您的代码并提出了这个解决方案，其中涉及使用 5 个全局变量（一个全局变量可通过所有程序访问和修改），添加第二个按钮“投票按钮”，将文本框的值与这些全局变量相加，并更改现有按钮的行为以仅显示结果。

    initialiseprogram()

Sub initialiseprogram
  'global variables
  globalTeam1Score = 0
  globalTeam2Score = 0
  globalTeam3Score = 0
  globalTeam4Score = 0
  globalTeam5Score = 0
  'in case nobody votes or all votes are the same
  preferedTeam = "(tie)" 
  preferedTeamVotes = 0

  GraphicsWindow.Show()
  GraphicsWindow.Clear()
  GraphicsWindow.FontBold = "True"
  GraphicsWindow.BrushColor = "Green"
  GraphicsWindow.BackgroundColor = "lightgreen"
  GraphicsWindow.Title = "Favorite Football Teams"
  GraphicsWindow.Width = "700"
  GraphicsWindow.CanResize = "false"
  GraphicsWindow.Height = "430"
  GraphicsWindow.FontSize = "20"
  GraphicsWindow.DrawText(50,55, "Please enter the names of five football teams.")
  GraphicsWindow.DrawText(230, 15, "Favorite Football Teams")
  GraphicsWindow.DrawText(230, 20, "___________________")
  ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
  Image = ImageList.LoadImage(ImageLoc)
  GraphicsWindow.DrawImage(Image, 400, 100)  
  'team1:
  GraphicsWindow.DrawText(50, 105, "Team 1:")
  team1textbox = Controls.AddTextBox(180, 100)
  'team2:
  GraphicsWindow.DrawText(50, 155, "Team 2:")
  team2textbox = Controls.AddTextBox(180, 150)
  'team3:
  GraphicsWindow.DrawText(50, 205, "Team 3:")
  team3textbox = Controls.AddTextBox(180, 200)
  'team4:
  GraphicsWindow.DrawText(50, 255, "Team 4:")
  team4textbox = Controls.AddTextBox(180, 250)
  'team5:
  GraphicsWindow.DrawText(50, 305, "Team 5:")
  team5textbox = Controls.AddTextBox(180, 300)
  submitTeamNames = Controls.AddButton("Submit Teams", 460, 320)
  Controls.ButtonClicked = buttonclickedfunction
EndSub

Sub buttonclickedfunction
    If (Controls.LastClickedButton = submitTeamNames) Then
    'team 1:
    team1name = Controls.GetTextBoxText(team1textbox)
    'team 2:
    team2name = Controls.GetTextBoxText(team2textbox)
    'team 3:
    team3name = Controls.GetTextBoxText(team3textbox)
    'team 4:
    team4name = Controls.GetTextBoxText(team4textbox)
    'team 5:
    team5name = Controls.GetTextBoxText(team5textbox)
    If Text.GetLength(team1name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 1", "Alert")
    ElseIf Text.GetLength(team2name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 2", "Alert")
    ElseIf Text.GetLength(team3name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 3", "Alert")
    ElseIf Text.GetLength(team4name) = 0 Then
      GraphicsWindow.ShowMessage("You must enter a team name for team 4", "Alert")
    ElseIf Text.GetLength(team5name) = 0 Then 
      GraphicsWindow.ShowMessage("You must enter a team name for team 5", "Alert")
    Else
      GraphicsWindow.Clear()
      ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
      Image = ImageList.LoadImage(ImageLoc)
      GraphicsWindow.DrawImage(Image, 400, 100)  
      'Drawing team 1 name on next slide
      GraphicsWindow.DrawBoundText(50,105, 265 team1name + ":")
      'Drawing team 2 name on next slide
      GraphicsWindow.DrawBoundText(50,155, 265 team2name + ":")
      'Drawing team 3 name on next slide
      GraphicsWindow.DrawBoundText(50,205, 265 team3name + ":")
      'Drawing team 4 name on next slide
      GraphicsWindow.DrawBoundText(50,255, 265 team4name + ":")
      'Drawing team 5 name on next slide
      GraphicsWindow.DrawBoundText(50,305, 265 team5name + ":")
      initialisenextslide()

    EndIf
  EndIf  
EndSub

Sub initialisenextslide
  GraphicsWindow.DrawText(230, 15, "Favourite Football Teams")
  GraphicsWindow.DrawText(230, 20, "____________________")
  GraphicsWindow.DrawBoundText(50,45, 640, "Please order your teams in preference, 1 being the favourite and 5 the least favourite")
  'team 1 text box
  team1NewTextBox = Controls.AddTextBox(306, 100)
  Controls.SetSize(team1NewTextBox, 35, 32)
  'team 2 text box
  team2NewTextBox = Controls.AddTextBox(306, 150)
  Controls.SetSize(team2NewTextBox, 35, 32)
  'team 3 text box
  team3NewTextBox = Controls.AddTextBox(306, 200)
  Controls.SetSize(team3NewTextBox, 35, 32)
  'team 4 text box
  team4NewTextBox = Controls.AddTextBox(306, 250)
  Controls.SetSize(team4NewTextBox, 35, 32)
  'team 5 text box
  team5NewTextBox = Controls.AddTextBox(306, 300)
  Controls.SetSize(team5NewTextBox, 35, 32)
  'Adding Vote again
  VoteAgainButton = Controls.AddButton("Vote!", 460,280)
  'Adding Submit Button
  ResultsButton = Controls.AddButton("See Results", 460,320)
  Controls.HideControl(ResultsButton)
  Controls.ButtonClicked = resultsSlideSub
EndSub


Sub resultsSlideSub
  'Check if Votes will be added or just jump to results
  If (Controls.LastClickedButton = VoteAgainButton Or Controls.LastClickedButton = ResultsButton) Then
    Controls.ShowControl(ResultsButton)
    'team 1:
    t1vote = Controls.GetTextBoxText(team1NewTextBox)
    'team 2:
    t2vote = Controls.GetTextBoxText(team2NewTextBox)
    'team 3:
    t3vote = Controls.GetTextBoxText(team3NewTextBox)
    'team 4:
    t4vote = Controls.GetTextBoxText(team4NewTextBox)
    'team 5:
    t5vote = Controls.GetTextBoxText(team5NewTextBox)
    If Text.GetLength(t1vote) = 0 or Text.GetLength(t1vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 1: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t2vote) = 0 or Text.GetLength(t2vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 2: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t3vote) = 0 or Text.GetLength(t3vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 3: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t4vote) = 0 or Text.GetLength(t4vote) >= 2 Then
      GraphicsWindow.ShowMessage("Team 4: You can only input one number for your preference.", "Alert")
    ElseIf Text.GetLength(t5vote) = 0 or Text.GetLength(t5vote) >= 2 Then 
      GraphicsWindow.ShowMessage("Team 5: You can only input one number for your preference.", "Alert")
    Else
      InitialiseVerification()
    EndIf
  Endif
EndSub

Sub InitialiseVerification
  If (t1vote + t2vote + t3vote + t4vote + t5vote = 15) Then
    If (t1vote = t2vote Or t1vote = t3vote Or t1vote = t4vote Or t1vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    ElseIf (t2vote = t1vote Or t2vote = t3vote Or t2vote = t4vote Or t2vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t3vote = t1vote Or t3vote = t2vote Or t3vote = t4vote Or t3vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t4vote = t1vote Or t4vote = t2vote Or t4vote = t3vote Or t4vote = t5vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Elseif (t5vote = t1vote Or t5vote = t2vote Or t5vote = t3vote Or t5vote = t4vote) Then
      GraphicsWindow.ShowMessage("Please make sure you haven't repeated any numbers for each team.", "Alert")
    Else 
      InitialiseVerificationStage2()
    EndIf
  Else 
    GraphicsWindow.ShowMessage("Please make sure you haven't entered the same rank twice.", "Alert")
  EndIf
EndSub

Sub InitialiseVerificationStage2
  If (t1vote = 1 Or t1vote = 2 Or t1vote = 3 Or t1vote = 4 Or t1vote = 5) Then
    If (t2vote = 1 Or t2vote = 2 Or t2vote = 3 Or t2vote = 4 Or t2vote = 5) Then
      If (t3vote = 1 Or t3vote = 2 Or t3vote = 3 Or t3vote = 4 Or t3vote = 5) Then
        If (t4vote = 1 Or t4vote = 2 Or t4vote = 3 Or t4vote = 4 Or t4vote = 5) Then
          If (t5vote = 1 Or t5vote = 2 Or t5vote = 3 Or t5vote = 4 Or t5vote = 5) Then
              globalTeam1Score = globalTeam1Score + t1vote
              globalTeam2Score = globalTeam2Score + t2vote
              globalTeam3Score = globalTeam3Score + t3vote
              globalTeam4Score = globalTeam4Score + t4vote
              globalTeam5Score = globalTeam5Score + t5vote
             If (Controls.LastClickedButton = VoteAgainButton) Then
               VoteAgain()
               GraphicsWindow.ShowMessage("Thanks for your vote!","Alert")
             ElseIf  (Controls.LastClickedButton = ResultsButton) Then
               InitialiseResultsSlide()
             EndIf

          Else
            GraphicsWindow.ShowMessage("Your preferences must only consist of a number between 1 and 5", "Alert")
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf
EndSub

Sub VoteAgain
  Controls.SetTextBoxText(team1NewTextBox,"")
  Controls.SetTextBoxText(team2NewTextBox,"")
  Controls.SetTextBoxText(team3NewTextBox,"")
  Controls.SetTextBoxText(team4NewTextBox,"")
  Controls.SetTextBoxText(team5NewTextBox,"")
EndSub

Sub InitialiseResultsSlide
  GraphicsWindow.Clear()
  GraphicsWindow.DrawText(230, 15, "Favourite Football Teams")
  GraphicsWindow.DrawText(230, 20, "____________________")
  ImageLoc = "H:\My Documents\banner-footballpitch.jpg"
  Image = ImageList.LoadImage(ImageLoc)
  GraphicsWindow.DrawImage(Image, 400, 100)  
  GraphicsWindow.DrawBoundText(50,60, 640, "Results Table")
  GraphicsWindow.DrawBoundText(50,175, 640, "Overall: ")
  GraphicsWindow.DrawText(50, 65, "____________________")
  GraphicsWindow.DrawText(50, 180, "____________________")
  'Displaying votes
  If (globalTeam1Score > globalTeam2Score and globalTeam1Score > globalTeam3Score and globalTeam1Score > globalTeam4Score and globalTeam1Score > globalTeam5Score) then
    preferedTeam = team1name
    preferedTeamVotes = globalTeam1Score
  ElseIf (globalTeam2Score > globalTeam1Score and globalTeam2Score > globalTeam3Score and globalTeam2Score > globalTeam4Score and globalTeam2Score > globalTeam5Score) then
    preferedTeam = team2name
    preferedTeamVotes = globalTeam2Score
  ElseIf (globalTeam3Score > globalTeam1Score and globalTeam3Score > globalTeam2Score and globalTeam3Score > globalTeam4Score and globalTeam3Score > globalTeam5Score) then
    preferedTeam = team3name
    preferedTeamVotes = globalTeam3Score
  ElseIf (globalTeam4Score > globalTeam1Score and globalTeam4Score > globalTeam2Score and globalTeam4Score > globalTeam3Score and globalTeam4Score > globalTeam5Score) then
    preferedTeam = team4name
    preferedTeamVotes = globalTeam4Score
  ElseIf (globalTeam5Score > globalTeam1Score and globalTeam5Score > globalTeam2Score and globalTeam5Score > globalTeam3Score and globalTeam5Score > globalTeam4Score) then
    preferedTeam = team5name
    preferedTeamVotes = globalTeam5Score
  EndIf
  GraphicsWindow.DrawBoundText(50,100, 350, "The preffered football team was " + preferedTeam + " which achieved " + preferedTeamVotes + " votes!")
  drawOverallTable()
EndSub

Sub drawOverallTable

  If (globalTeam1Score = 1) Then
    GraphicsWindow.DrawBoundText(50,210, 350, "Team 1: " + globalTeam1Score + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,210, 350, "Team 1: " + globalTeam1Score + " votes")
  EndIf
  If (globalTeam2Score = 1) Then
    GraphicsWindow.DrawBoundText(50,240, 350, "Team 2: " + globalTeam2Score + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,240, 350, "Team 2: " + globalTeam2Score + " votes")
  EndIf
  If (globalTeam3Score = 1) Then
    GraphicsWindow.DrawBoundText(50,270, 350, "Team 3: " + globalTeam3Score + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,270, 350, "Team 3: " + globalTeam3Score + " votes")
  EndIf
  If (globalTeam4Score = 1) Then
    GraphicsWindow.DrawBoundText(50,300, 350, "Team 4: " + globalTeam4Score + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,300, 350, "Team 4: " + globalTeam4Score + " votes")
  EndIf
  If (globalTeam5Score = 1) Then
    GraphicsWindow.DrawBoundText(50,330, 350, "Team 5: " + globalTeam5Score + " vote")
  Else 
    GraphicsWindow.DrawBoundText(50,330, 350, "Team 5: " + globalTeam5Score + " votes")
  EndIf
  RestartButton = Controls.AddButton("Restart", 520,320)
  controls.ButtonClicked = restartButtonSub
EndSub
Sub restartButtonSub
  If (Controls.LastClickedButton = RestartButton) Then
    initialiseprogram()
  EndIf
EndSub

试试这个，如果您有任何问题，请告诉我。