Drag and Drop

a = Shapes.AddEllipse(100,100)
GraphicsWindow.MouseMove = mousemove

Sub mousemove
  While Mouse.IsLeftButtonDown
    Shapes.move(a, GraphicsWindow.MouseX, GraphicsWindow.MouseY)
  Endwhile
endsub

ketika dua event berjibaku

gw pengen discover: apakah suatu eksekusi suatu event bisa di interupsi oleh eksekusi event lain?

GraphicsWindow.Show()
GraphicsWindow.MouseDown = mousedown
GraphicsWindow.KeyDown = keydown

Sub keydown
  TextWindow.WriteLine("aloha")
EndSub

Sub mousedown
  TextWindow.BackgroundColor = "red"
  For i = 0 To 100000
    TextWindow.WriteLine(i)
  EndFor
EndSub

diatas kmu bisa lihat bahwa ketika gw klik mouse diatas jendela grafik, program akan mulai menampilkan angka di jendela text (textwindow), angka ini gw perbanyak dari 0 sampai seratus ribu, untuk memperlama waktu eksekusi sub procedure mousedown. Ditengah eksekusi sub procedure mousedown ini, misalkan ketika angka baru sampai angka 10000, 10001, gw tekan sembarang tombol pada keyboard, dengan tujuan mengintrupsi proses perlakuan sub procedure mousedown diatas, tapi gw tidak melihat adanya tampilan kata aloha, yang gw lihat hanya penerusan angka-angka tersebut.

Setelah angka 100000 lah gw baru melihat kata aloha diatas. Dari pengujian ini gw bisa melihat bahwa yang pengintrupsian subprocedure tidak bisa dilakuka.

Gambar biar gw jangan dibilang hoax:

Putting a text in the middle of a rectangle's shape

graphicswindow.

Intinya: suatu shapes rectangel tidak bisa diubah caption/textnya dengan menggunakan shapes.settext

LAB menghitung volume pori-pori tanah

Alat-alat:
1. Timbangan dijital untuk mendapatkan nilai timbangan yang lebih halus
2. Alat pemanas
3. Cawan porslen
4. Alat pengukur volume

Controlling the opacity of a shape using mousemove event

a = Shapes.AddEllipse(100,100)
GraphicsWindow.MouseMove = mousemove

Sub mousemove
  If GraphicsWindow.MouseX <= 100 Then
    Shapes.SetOpacity(a, 100)
  Else
    Shapes.SetOpacity(a,50)
    endif
EndSub

It used to be:
a = Shapes.AddEllipse(100,100)
Shapes.SetOpacity(a,50)
GraphicsWindow.MouseMove = mousemove

Sub mousemove
  If GraphicsWindow.MouseX <= 100 Then
    Shapes.SetOpacity(a, 100)
  Else
    Shapes.SetOpacity(a,50)
    endif
EndSub

Final:

Ilmu Pertanian

Pertanian adalah usaha manusia dalam mengelola sumber daya hayati untuk menghasilkan bahan pangan, bahan baku industri, atau sumber energi.

Contoh bahan pangan: pertanian padi
Contoh bahan baku industri: pertanian karet sebagai bahan baku ban, pertanian sawit sebagai bahan baku mentega atau minyak makan.
Contoh sumber energi: pertanian tanaman jarak