Kurikulum Small-Basic

1.3 Variabel
Soal:
Tulis sebuah program untuk menghitung luas (area) dan keliling (circumference) berdasarkan diamaternya:
1. Minta user untuk memasukkan nilai diameter sebuah lingkaran
2. Buat sebuah variabel dengan nama diameter dan simpan nilai dari user tersebut ke dalam variabel ini.
3. Buat sebuah variabel dengan nama radius, hitung / kalkulasi nilai radius lingkaran, kemudian simpan hasilnya ke dalam variabel radius.
4. Buat variabel dengan nama luas dan keliling, hitung luas lingkaran dan hitung keliling lingkaran, dan simpan nilai-nilai itu ke dalam variabel-variabel itu.
5. Tampilkan nilai luas lingkaran dan nilai keliling lingkaran.

You can use the following formulas for calculation:
radius = diameter / 2
area = (3.14) * radius * radius
circumference = (3.14) * 2 * radius

Jawaban:

TextWindow.Write("What is the diameter of the circle? ")
diameter = TextWindow.ReadNumber()
radius = diameter / 2
area = (3.14) * radius * radius
circumference = (3.14) * 2 * radius
TextWindow.WriteLine("The area of the circle is " + area + ".")
TextWindow.WriteLine("The circumference of the circle is " + circumference + ".")
1.4 Conditions and loops
Create a program to convert one or more student scores from a percentage to a letter grade. First, ask the user to specify how many grades will be calculated. Then ask the user to specify the first percentage, and convert it to a letter grade based on the following criteria:

Solution:

TextWindow.Write("How many student grades would you like to calculate? ")
number = TextWindow.Read()
n = 1
While n <= number
  TextWindow.Write("What is the student’s percentage? ")
  percentage = TextWindow.Read()
  If  percentage >= 75 Then
    TextWindow.WriteLine("The student’s grade is A.")
  ElseIf  percentage < 75 And percentage >= 60  Then
    TextWindow.WriteLine("The student’s grade is B.")
  ElseIf  percentage < 60 And percentage >= 35 Then
    TextWindow.WriteLine("The student’s grade is C.")
  Else
    TextWindow.WriteLine("The student’s grade is D.")
  EndIf
  n = n + 1
EndWhile


2.1 Graphics Window
Gali kreatifitas mu dengan menulis sebuah program yang menampilkan sebuah jendela grafik dan melakukan tugas-tugas berikut:
1. Tampilkan sebuah jendela grafik dengan tinggi 640 pixel dan lebar 800 pixel
2. Unjukkan 2 buah bidang dua dimensi (shape) berlainan warna dan saling menindih sedikit satu sama lain
3. Unjukkan beberapa kotak atau persegi dengan warna yang acak (random)
4. Unjukkan sebuah gambar (image) yang sudah diubah ukur pada lokasi yang cocok
5. Unjukkan sebuah kotak pesan yang memuat pesan "Have a nice day!"

Solusi
'solusi 1
GraphicsWindow.Height = 640
GraphicsWindow.Width = 800
GraphicsWindow.DrawEllipse(0,0,100,100)
GraphicsWindow.DrawEllipse(90,0,100,100)
For i = 1 To 5
  GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
  GraphicsWindow.DrawRectangle(190,i*20,20,20)
EndFor
image1 = "C:\Small Basic\Winter.jpg"
GraphicsWindow.DrawResizedImage(image1,210,0,430,200)
GraphicsWindow.ShowMessage("Have a nice day!","Message Box")

2.4 Obyek Sound, Program dan Text
Tulislah sebuah program yang menampilkan sebuah textwindow dan melakukan langkah-langkah berikut:
1. Minta user untuk mengetikkan sebuah jawaban atas sebuah pertanyaan sederhana
2. Jika jawaban adalah benar, tampilkan sebuah pesan yang pantas bersama dengan suara chime.
3. Jika jawaban adalah tidak tepat, tampilkan sebuah pesan yang pantas bersama dengan suara sebuah bell.

Solusi:
awal:
TextWindow.WriteLine("Apa nama ibukota Negera Indonesia? : ")
answer = TextWindow.Read()
m = Text.IsSubText(answer, "Jakarta")
n = Text.IsSubText(answer, "jakarta")
If m = "true" or n = "true" Then
  Sound.PlayChime()
  TextWindow.WriteLine("> Your answer is correct!")
Else
  Sound.PlayBellRing()
  TextWindow.WriteLine("> Sorry, your answer is incorrect!")
EndIf
Goto awal



Contoh capture selagi program jalan dari beberapa tipikal user hehehe:

Ada yang tipe ragu-ragu: jakarta? atau jakarta, ya?
Ada yang tipe style: Jakarta ajah broo, atau jakarta dunks, jakarta menn..
Ada yang tipe detail: Kota Jakarta
Ada yang tipe over detail (terlalu detail sehingga lebay, hehehe): Daerah Khusus Ibukota Jakarta.
Semuanya benar pada program ini asal ada kata jakarta atau Jakartanya. :)