• Прекрасно, если ложишься спать с мыслью о том, что создал что-то прекрасное.

Краткое введение в Small Basic

Для людей, которые уже знают, как программировать на других языках, или почему-либо не хотят изучать полные руководства по MS Small Basic, есть вот такой короткий пример программы, который содержит большинство языковых конструкций и краткое объяснение каждой из них.

Этот пример не может быть запущен непосредственно на модуле EV3, потому что он использует стандартное текстовое окно Small Basic.

В онлайн среде программирования переменные и имена подпрограмм зависят от регистра букв: большие и маленькие буквы различаются!

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

A = 5 ' переменные неявно объявляются при первом использовании и могут быть числовыми и текстовыми

a = a + 1 ' полная регистронезависимость имен переменных (неприменимо для онлайн среды программирования!)

B[a] = 55 ' массивы неявно определены и увеличиваются в размере по мере необходимости

X = "hi" ' тип переменных неявно определяется присваиваемым значением и может быть текстовым

Sub write ' определяем подпрограмму с именем "write" (параметры в подпрограммах невозможны - к великому сожалению)

    TextWindow.WriteLine(X)

EndSub ' возврат в основную программу

TextWindow.WriteLine("A=" + a) ' соединение строк оператором сложения "+"

WRITE() ' вызов подпрограммы. имена также нечувствительно к регистру (неприменимо для онлайн среды программирования!)

write2() ' можно вызывать подпрограмму, которая определена в любом месте кода

TextWindow.Writeline("B[6]=" + B[6]) ' доступ к массивам

For i = 2 to 5 ' цикл от 2 до 5 (включительно) с шагом по умолчанию = 1

    TextWindow.Writeline("I:" + I)

EndFor

For i = 6.5 to 10.5 step 2 ' цикл с дробными значениями и шагом не равным 1

    TextWindow.Writeline("I:" + I)

EndFor

Sub write2

    write() ' подпрограмма может вызывать другие подпрограммы и саму себя (рекурсия)

    write()

EndSub

I = 99

while i > 3 ' цикл с условием

i = i / 2

TextWindow.Writeline("I:" + i)

endwhile

TextWindow.WriteLine("PI=" + Math.PI) ' свойство объекта (доступ без скобок)

TextWindow.WriteLine("SIN=" + Math.Sin(0.5))  ' библиотечная функция - метод объекта, возвращающая значение

A = 50

B = 20

If a < 5 then ' условный оператор с несколькими условиями

    TextWindow.WriteLine("first")

elseif a < 10 and b < 100 then ' логическое "И"

    TextWindow.WriteLine("second")

elseif a < 20 or (b > 40 and b < 60) then ' логическое "ИЛИ"

    TextWindow.WriteLine("third")

else

    TextWindow.WriteLine("other")

endif



Поделиться: