마이크로소프트 스몰 베이직

마이크로소프트 스몰 베이직(Microsoft Small Basic)은 마이크로소프트에서 프리웨어로 만든 교육용 언어 중 하나이다. 이 언어는 베이직(BASIC)에 기반을 두고 있다.

test_code1.sb

Turtle.Show()
Turtle.Speed = 10
GraphicsWindow.BackgroundColor = "pink"
GraphicsWindow.PenColor = "red"

For loop = 1 To 5
  
  If loop = 2 Then
    GraphicsWindow.PenColor = "green"
  EndIf
  
  If loop = 3 Then
    GraphicsWindow.PenColor = "black"
  EndIf
  
  If loop = 4 Then
    GraphicsWindow.PenColor = "yellow"
  EndIf
  
  If loop = 5 Then
    GraphicsWindow.PenColor = "blue"
  EndIf
  
  
    For i = 1 To 45 
        Turtle.Turn(8)
        Turtle.Move(10)
    EndFor
    Turtle.Turn(72)
    
EndFor
Turtle.Hide()

test_code2.sb

엉터리 코드니 큰 의미 두지마세요!!!

Turtle.Show()
Turtle.Speed = 10 
Turtle.X = GraphicsWindow.Width/2
Turtle.Y = GraphicsWindow.Height/2

n = 256
turn = 30 
GraphicsWindow.BackgroundColor = "black"
GraphicsWindow.PenColor = "green"
Turtle.Hide()

for loop = n To 1 Step -(Math.GetRandomNumber(8))
  T_Circle()
  Turtle.Turn(360/loop)
  GraphicsWindow.Title = loop+",X=>"+Turtle.X+",Y=>"+Turtle.Y
  
  If Math.Remainder(loop,2) = 1 Then 
    turn = 30
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  Else 
    turn = -30
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  EndIf
EndFor

Sub T_Circle
  For i = 1 To 12
    Turtle.Turn(turn*2)
    Turtle.Move(loop*360)
  EndFor
EndSub 

관련자료

스몰베이직 사이트
https://smallbasic-publicwebsite.azurewebsites.net/

튜토리얼
https://smallbasic-publicwebsite.azurewebsites.net/tutorials

다운로드
https://smallbasic-publicwebsite.azurewebsites.net/assets/SmallBasic_v1.2.msi