Obyek Clock, Desktop, Disctopnary

1. Obyek Clock
Operasi yang akan digunakan:
1. Date (untuk menampilkan tanggal lengkap sekarang, contoh: 24/09/2014.
2. Weekday (untuk menampilkan hari apa sekarang (senin, selasa, dst.)
3. Time (untuk menampilkan waktu lengkap sekarang , contoh: 7:30:13.
4. Year (untuk menampilkan tahun sekarang saja, contoh: 2014)


LAB 1:
Pada dasarnya LAB ini hanya menampilkan date, weekday, dan time dari komputer mu kemudian menampilkan nya pada jendela grafik (graphicWindow) secara wrap pada koordinat start(x,y)=(40,40) ke kanan sebanyak 100 pixel kemudian lompat lagi kebawah, begitu seterusnya hingga semua teks selesai dikeluarkan.

date = Clock.Date
weekday = Clock.WeekDay
time= Clock.Time 
display = ("Current Date: " + date + ", " + "Current Weekday: " + weekday + ", " + "Current time: " + time)
GraphicsWindow.DrawBoundText(40, 40, 100, display)

LAB 2:

TextWindow.WriteLine("Enter the year of your birth: ")
birthyear = TextWindow.Read()
age = Clock.Year - birthyear
TextWindow.WriteLine("Your age is " + age + ".")

LAB 3
LAB ini adalah mudah. LAB ini hanya menanyakan angka bulan kelahiranmu dan angka tanggal kelahiranmu. Kemudian program ini mencocokkan kedua angka ini dengan angka bulan dan angka tanggal sekarang.

TextWindow.Write("Enter the month of your birthday: ")
birthdaymonth = TextWindow.ReadNumber()
TextWindow.Write("Enter the date of your birthday: ")
birthdaydate = TextWindow.ReadNumber()

if birthdaymonth = Clock.Month And birthdaydate = Clock.Day Then
  TextWindow.WriteLine("Hey! Wish You A very Happy birthday")
EndIf

Kebiasaan yang terdefinisikan secara jelas. Bulan berapa kau lahir? Tanggal? Kemudian kamu melihat kalender untuk mengetahui bulan berapa sekarang dan tanggal berapa hari ini. Jika bulan hari ini tidak sama dengan bulan kelahiran temanmu, kamu akan mengeluarkan pernyataan, "Oh sudah lewat", atau "Oh, sekian bulan lagi ya?" atau jika bulan

TextWindow.Write("Enter the month of your birthday: ")
birthdaymonth = TextWindow.ReadNumber()
TextWindow.Write("Enter the date of your birthday: ")
birthdaydate = TextWindow.ReadNumber()
if birthdaymonth = Clock.Month Then
 if birthdaydate = Clock.Day Then
  TextWindow.WriteLine("Hey! Wish You A very Happy birthday")
EndIf
EndIf

LAB 4 - Digital clock

GraphicsWindow.FontSize = 26
GraphicsWindow.BrushColor = "Green"

up:
If Clock.Hour > 12 Then
  status = "PM"
Else
  status = "AM"
EndIf
currenttime = clock.Hour + " : " + Clock.Second

GraphicsWindow.DrawText(desktop.Width / 2 , desktop.height/2, currenttime)
Program.Delay(1000)
GraphicsWindow.Clear()
Goto up

OBYEK Desktop
Properti-properi dan operational dari obyek desktop adalah:
- setwallpaper (Operational)
- Height (Properti)
- Width (Properti)

Jadi kamu bisa
- Memilih/menentukan/menggati wallpaper desktop mu (desktop.setwallpaper)
- Melihat/ berapa ukuran panjang dan lebar layar desktop-mu.

LAB 1 - Mengganti wallpaper desktop 

LAB 2 - Melihat panjang dan lebar layar desktop kamu
textwindow.writeline(desktop.height)
textwindow.writeline(desktop.width)

LAB 3 - Meletakkan graphicwindows persis ditengah layar desktop

Obyek Dictionary
-getdefinition()
-getdefinitioninfrench

LAB 1 Membuat program penterjemah kata dalam bahasa Inggris ke Bahasa Inggris
txt = "Magnanimous"
GraphicsWindow.FontName = "Verdana"
GraphicsWindow.FontSize = 24
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(10,10,txt)
defn = Dictionary.GetDefinition(txt)
GraphicsWindow.FontSize = 12
GraphicsWindow.DrawText(10, 60, defn)

LAB 2 
txt = "frère"
GraphicsWindow.FontName = "Verdana"
GraphicsWindow.FontSize = 24
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(10,10,txt)
defn = Dictionary.GetDefinitionInFrench(txt)
GraphicsWindow.FontSize = 12
GraphicsWindow.DrawText(10, 60, defn)

 Guess what? Hanya berubah di baris ke enam saja. Dari defn = Dictionary.GetDefinition(txt) menjadi defn = Dictionary.GetDefinitionInFrench(txt).