Obyek sound, program dan text

Disini kamu akan mempelajari bagaimana:
1. Menggunakan obyek Program 'tuk mengatur bagaimana program Small Basic kamu berjalan.
2. Memungkinkan pemutaran suara (lagu .mp3, .wav) dengan menggunakan obyek Sound.
3. Menggunakan fungsi-fungsi / operasi-operasi yang berhubungan dengan obyek Text.

OBYEK PROGRAM
LAB 1
Program ini pada dasarnya menuliskan alamat direktori program Small Basic dan menunggukan program (delay) Small Basic selama 5 detik (atau 5000 ms) dan kemudian mengakhiri/menutup program itu setelah 5 detik itu berlalu.

TextWindow.WriteLine("Program directory: " + Program.Directory)
TextWindow.WriteLine("This program will run for 5 seconds")
Program.Delay(5000)
Program.End()

LAB 2
Lab ini pada dasarnya adalah mengalikan argumen 1 dengan argumen 2 jika jumlah argumen yang disuplai ke program ini adalah 2. Jika tidak, program ini tidak jalan atau memberikan tampilan kata: "Please enter two number to be multiplied".

If Program.ArgumentCount = 2 Then
  TextWindow.WriteLine("First number = " + Program.getargument(1))
  TextWindow.writeline("Second number = " + Program.GetArgument(2))
  Multiplication = Program.GetArgument(1) * Program.GetArgument(2)
  TextWindow.writeline("The product of two number is: " + multiplication)
Else
  TextWindow.WriteLine("Please enter two number to be multiplied")
EndIf

OBYEK SOUND
Obyek sound punya operasi-operasi antara lain: Play, Pause dan Stop.

LAB 1
GraphicsWindow.Show()
filepath = "c:\windows\media\chime.wav"
Sound.Play(filepath)

Program.Delay(2000)
Sound.pause(filepath)

Sound.play(filepath)
Program.Delay(500)

Sound.stop(filepath)

OBYEK TEXT
Beberapa operasi dari obyek text yang akan dipakai pada lab ini:
1. Append (untuk menambahkan text yang satu ke text yang lain)
2. ConvertToUppercase(untuk mengubah suatu text menjadi huruf besar semua atau uppercase)

LAB 1
Pada dasarnya program ini meminta nama depan(first name) dan nama belakang(last name), kemudian menyatukan firstname dan lastname kedalam satu teks, kemudian huruf-huruf teks gabungan firstname dan lastname itu dikonversi ke huruf besar semua. Terakhir, hasil konversi ke huruf besar teks gabungan firstname ditampilkan dan ditambah kata "Hello". Gampang kan....?

TextWindow.Write("Enter your first name: ")
Firstname = TextWindow.Read()
TextWindow.Write("Enter your lastname: ")
Lastname = TextWindow.Read()
Completename = Text.Append(Firstname, " " + Lastname)
Nameinuppercase = Text.ConvertToUpperCase(Completename)
TextWindow.WriteLine ("Hello " + Nameinuppercase + "!")

LAB 2
Program ini pada dasarnya menguji ke-valid-an suatu alamat electronic mail atau e-mail yang dimasukkan dengan cara menguji apakah karakter '@' dan '.' merupakan bagian dari alamat email yang dimasukkan tersebut. Jika tidak bagian dari alamat email tersebut, program menolaknya dan menampilkan pesan: "Please enter a valid e-mail address". Easy...?

TextWindow.Write("Please enter a valid e-mail address: ")
EmailID = TextWindow.Read()
n = Text.IsSubText(EmailID, ".")
m = Text.IsSubText(EmailID, "@")
If n = "True" And m = "True" Then
  TextWindow.WriteLine("You have entered a valid e-mail address.")
Else
  TextWindow.WriteLine("Please enter a valid e-mail address.")
EndIf

Khusus untuk LAB ini saya buatkan pseudo-codenya:
1. Tampilkan kata "Please enter a valid e-mail address: "
2. Simpan alamat email yang diberikan ke dalam variabel EmailID
3. Cari apakah karakter "." ada di dalam teks yang dimasukkan ke dalam variabel EmailID. Dan simpan hasil penelitiannya ke dalam variabel n.
4. Cari apakah karakter "@" ada di dalam teks yang dimasukkan ke dalam variabel EmailID dan simpan hasil penelitiannya (true atau false) ke dalam variabel m.
5. Jika kedua variabel m dan n adalah true, true -- sesuai dengan tabel kebenaran teks yang dimasukkan adalah sebuah Email yang valid. Jadi, program akan mengeluarkan kata: "You have entered a valid e-mail address"
6. Jika kedua variabel m dan n adalah tidak true, -- sesuai dengan tabel kebenaran teks yang dimasukkan adalah bukan sebuah Email yang valid. Maka, program akan mengeluarkan kata: Please enter a valid e-mail address.