Список готовых программных кодов для Small Basic.
1. Код простой программы "Time Now". Она показывает текущие время, год, месяц, число, час, минуту, секунду и даже миллисекунду.
Code Start:
TextWindow.Title=("Time Now 1.0")
TextWindow.ForegroundColor="red"
TextWindow.WriteLine ("(С) Павел Смирнов, 2010")
TextWindow.ForegroundColor="green"
TextWindow.Write ("Год:")
TextWindow.WriteLine (Clock.Year)
TextWindow.Write ("Месяц:")
TextWindow.WriteLine (Clock.Month)
TextWindow.Write ("Сегодня:")
TextWindow.WriteLine (Clock.Day)
TextWindow.Write ("Часов:")
TextWindow.WriteLine (Clock.Hour)
TextWindow.Write ("Минут:")
TextWindow.WriteLine (Clock.Minute)
TextWindow.Write ("Секунд:")
TextWindow.WriteLine (Clock.Second)
TextWindow.Write ("Миллисекунд:")
TextWindow.WriteLine (Clock.Millisecond)
TextWindow.ForegroundColor="white"
TextWindow.WriteLine ("Нажмите любую клавшу, что бы обновить время.")
TextWindow.PauseWithoutMessage()
TextWindow.Clear()
Goto Start
2. Программа для перевода градусов из Фаренгейта в Цельсии.
Code TextWindow.Write("Enter temperature in Fahrenheit: ")
fahr = TextWindow.ReadNumber()
celsius = 5 * (fahr - 32) / 9
TextWindow.WriteLine("Temperature in Celsius is " + celsius)
3. Программа-приветствие. В зависимости от времени говорит "Доброе утро!" или "Добрый вечер!".
Code If (Clock.Hour < 12) Then
TextWindow.WriteLine("Good Morning World")
EndIf
If (Clock.Hour >= 12) Then
TextWindow.WriteLine("Good Evening World")
EndIf
4. Программа выводит на экран замысловатую фигуру. Code GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = "LightBlue"
GraphicsWindow.Width = 200
GraphicsWindow.Height = 200
For i = 1 To 100 Step 5
GraphicsWindow.DrawRectangle(100 - i, 100 - i, i * 2, i * 2)
EndFor
5. Программа с использованием инструмента Turtle, рисует дерево. Code angle = 30
delta = 10
distance = 60
Turtle.Speed = 9
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = "LightGreen"
DrawTree()
Sub DrawTree
If (distance > 0) Then
Turtle.Move(distance)
Turtle.Turn(angle)
Stack.PushValue("distance", distance)
distance = distance - delta
DrawTree()
Turtle.Turn(-angle * 2)
DrawTree()
Turtle.Turn(angle)
distance = Stack.PopValue("distance")
Turtle.Move(-distance)
EndIf
EndSub
6. Программа с использованием функции синхронизации с сайтом Flickr. Осуществляет поиск картинок на указанные ключивые слова и рандомно выбирает одну. Code GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.MouseDown = OnMouseDown
Sub OnMouseDown
pic = Flickr.GetRandomPicture("mountains, river")
GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)
EndSub
7. Наконец, программный код игры. Цель - не позволить мячику пролететь мимо платформы. Вы можете усовершенствовать её, добавить систему очков и разные уровни. Code GraphicsWindow.BackgroundColor = "DarkBlue"
paddle = Shapes.AddRectangle(120, 12)
ball = Shapes.AddEllipse(16, 16)
GraphicsWindow.MouseMove = OnMouseMove
x = 0
y = 0
deltaX = 1
deltaY = 1
RunLoop:
x = x + deltaX
y = y + deltaY
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x >= gw - 16 or x <= 0) Then
deltaX = -deltaX
EndIf
If (y <= 0) Then
deltaY = -deltaY
EndIf
padX = Shapes.GetLeft (paddle)
If (y = gh - 28 and x >= padX and x <= padX + 120) Then
deltaY = -deltaY
EndIf
Shapes.Move(ball, x, y)
Program.Delay(5)
If (y < gh) Then
Goto RunLoop
EndIf
GraphicsWindow.ShowMessage("You Lose", "Paddle")
Sub OnMouseMove
paddleX = GraphicsWindow.MouseX
Shapes.Move(paddle, paddleX - 60, GraphicsWindow.Height - 12)
EndSub
| 
