July Challenge: Code Sample

Question

Once I read someone asked "Is there sample code for each operation of Small Basic?" (I forgot where and who...)

My suggestion is to write simple sample codes for following categories in Small Basic.

Keywords

• If Then ElseIf Else EndIf
• For To Step EndFor
• While EndWhile
• Sub EndSub
• Goto

Operators

• =
• + - * /
• And Or

Objects (properties / operations / events)

• Array
• Clock
• Controls
• Desktop
• Dictionary
• File
• Flickr
• ...

---

Nonki Takahashi

Answer 1

This is my sample for If statement: WKV187.

This is another sample for Array object: JSM615.

---

Nonki Takahashi

Answer 2

This is the sample of Mouse object: MWC343-0.

---

Nonki Takahashi

Answer 3

This is my version for While EndWhile statement

The turtle start drawing random circles  with colors.

The While y <> 6 is the key to stop the drawing where you want, and stop the program to run.

program no: VXQ678

Answer 4

This is my version for While EndWhile statement

The turtle start drawing random circles  with colors.

The While y <> 6 is the key to stop the drawing where you want, and stop the program to run.

program no: VXQ678

Thank you for your sample, YLed.

---

Nonki Takahashi

Answer 5

For Keywords, I found examples in help of Small Basic IDE.

' Following code initializes a variable flip for If statement example.  [*]
coin = "1=Head;2=Tail;"
flip = coin[Math.GetRandomNumber(2)]

' If
' The If statement allows you to make decisions to do different things.

' Example
' The following example will print out either "Win" or "Lose" depending on the outcome of 
' the flip.

If flip = "Tail" Then
  TextWindow.WriteLine("Win")
Else
  TextWindow.WriteLine("Lose")
EndIf

' For
' The For statement allows you to execute a set of statements multiple times.

' Example
' The following example will print out numbers from 1 to 10
For i = 1 To 10 
  TextWindow.WriteLine(i)
EndFor

' While
' The While statement allows you to repeat something until you achieve a desired result.

' Example
' The following code will print a set of random numbers until one that is greater than 100
' is encountered.
While i < 100
  i = Math.GetRandomNumber(150)
  TextWindow.WriteLine(i)
EndWhile

' Following line shows how to call a subroutine. [*]
Win()

' Sub
' The Sub (Subroutine) statement allows you to do groups of things with a single call.
  
' Example
' The following example defines a subroutine that rings the bell and prints "Win".

Sub Win
  Sound.PlayBellRing()
  TextWindow.WriteLine("Win!")
EndSub

' This line is to wait before starting example for Goto statement. [*]
TextWindow.Pause()

' Goto
' The Goto statement allows branching to a new location in the program.
  
' Example
' The following program will print consecutive numbers endlessly.
start:
TextWindow.WriteLine(i)
i = i + 1
Goto start

Lines with [*] are added to complete the examples.

---

Nonki Takahashi

Answer 6

Here is some samples for the statement:   Sound.Playmusic

program no: JPN513

for musical symbols:

https://en.wikipedia.org/wiki/List_of_musical_symbols

Answer 7

I wrote a blog about sample codes.
Small Basic - Gather Code Samples

And, created a TechNet Wiki article also.
Small Basic: Sample Code

---

Nonki Takahashi

Answer 8

update: VXQ678-0

• nicer colors
• faster draw
• less codelines

Answer 9

I wrote a sample code for KinectFaceList object: LGR919.

---

Nonki Takahashi