Здесь приведены различные примеры использования ключевых слов Small Basic в различных алгоритмических структурах.
Вы можете скопировать указанный ниже код в IDE MS Small Basic и запустить:
' выводим на экран числа от 1 до 10For i = 1 To 10
TextWindow.WriteLine(i)
EndFor
' Печатаем только числа: 1, 3, 5, 7, 9
For i = 1 To 10 Step 2
TextWindow.Write(i + " ")
EndFor
' безостановочно выводим на экран последовательные целые числа
start:
TextWindow.WriteLine(i)
i = i + 1
Goto start
' выводим на экран в зависимости от выпавшего жребия "Выигрыш" или "Проигрыш"
If flip = "Решка" Then
TextWindow.WriteLine("Выигрыш")
Else
TextWindow.WriteLine("Проигрыш")
EndIf
' пример содержит подпрограммы, которая сообщает о победе и выводит на экран слово "Выигрыш"
Sub Win
Sound.PlayBellRing()
TextWindow.WriteLine("Выигрыш!")
EndSub
' выводим на экран cлучайные числа до тех пор, пока не выпадет число больше 100
While i < 100
i = Math.GetRandomNumber()
TextWindow.WriteLine(i)
EndWhile
' Печатаем только числа от 1 до 9
i = 1
While i < 10
TextWindow.Write(i + " ")
i = i + 1
EndWhile
' Пример проверки условия - текущего года
If Clock.Year = 2021 Then
TextWindow.WriteLine("Год - 2021.")
EndIf
' то же самое, но с альтернативой
If Clock.Year = 2021 Then
TextWindow.WriteLine("Год - 2021.")
Else
TextWindow.WriteLine("Год не 2021.")
EndIf
' Проверка множественного условия
If Clock.Year = 2021 Then
TextWindow.WriteLine("Год - 2021.")
ElseIf Clock.Year = 2022 then
TextWindow.WriteLine("Год - 2022.")
Else
TextWindow.WriteLine("Год не 2021 и не 2022.")
EndIf
' Использование подпрограмм
Sub PrintSomeMoreText ' подпрограмма
TextWindow.WriteLine("Четвертая строка для вывода.")
EndSub
Sub PrintSomeText ' подпрограмма
TextWindow.WriteLine("Третья строка для вывода.")
EndSub
' основная программа
TextWindow.WriteLine("Первая строка для вывода.")
TextWindow.WriteLine("Вторая строка для вывода.")
PrintSomeText() ' вызов подпрограммы
Goto PrintMoreText ' Безусловный переход к метке
goodbye: ' метка
TextWindow.WriteLine("До встречи!")
Goto end
Sub ThisWillNotPrint ' подпрограмма, описанная где-то в коде основной программы
TextWindow.WriteLine("Это не будет напечатано, если не будет вызова из программы.")
EndSub
printMoreText: ' метка
PrintSomeMoreText() ' вызов подпрограммы
Goto goodbye ' Безусловный переход к метке.
end: ' метка
Поделиться: