Projek 2: Pemecah cerita (space seperated value)

Screenshoot

Full Program (Small Basic):

Controls.ButtonClicked = bc
mlt = Controls.AddMultiLineTextBox(0,0)

button1 = Controls.AddButton("Proses", 200, 0)

i = 0



Sub bc
  if Controls.LastClickedButton = button1 Then
    takemlttext = Controls.GetTextBoxText(mlt)
    index = Text.GetIndexOf(takemlttext, " ")
    While index <> 0
      word[i] = Text.GetSubText(takemlttext, 1, index - 1)
      takemlttext = Text.GetSubTextToEnd(takemlttext, index + 1)
      index = Text.GetIndexOf(takemlttext, " ")
      TextWindow.WriteLine(word[i])
      i = i + 1
      EndWhile
    EndIf
EndSub